added LSL2 stored procedures

LSL2/STPROC/NCR_COMM.txt

@@ -0,0 +1,40 @@
+compile function ncr_comm(Branch)
+begin condition
+pre:
+post:
+end condition
+
+$insert rds_equ
+$insert ncr_equ 
+ 
+ReturnVar = 0
+declare function set_property, fieldcount, get_property, msg, editcell, send_event
+declare subroutine create_note
+Branches = 'REACTOR_DEFAULT,CLOSE_STATUS'
+convert ',' to @fm in Branches
+locate Branch in Branches using @fm setting Bpos then
+   on Bpos gosub reactor_default, close_status
+end else
+   Void = msg( '', 'Invalid Branch ':Bpos:' passed to ncr_comm' )
+end
+return ReturnVar
+
+*===========================================================================*
+reactor_default:
+	RdsId = get_property( @window:'.RDS_ID', 'TEXT' )
+	ReturnVar = xlate( 'RDS', RdsId, rds_reactor$, 'X' )
+return
+
+*============================================================================*
+close_status:
+	DeptMgrSig = get_property( @window:'.DEPT_MGR_SIG', 'TEXT' )
+	AuthRejSig = get_property( @window:'.AUTH_REJ_SIG', 'TEXT' )
+	AuthShipSig = get_property( @window:'.AUTH_SHIP_SIG', 'TEXT' )	
+	if ( DeptMgrSig <> '' ) and ( AuthRejSig <> '' ) and ( AuthShipSig <> '' ) then
+		* WILL CLOSE CAUSE IT HAS ALL THE PROPER SIGNATURES
+		Void = set_property( @window:'.STATUS', 'VALUE', 'C' )
+	end
+return
+
+*============================================================================*
+