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

*============================================================================*