------------------------SDT2 ProcessSelectFacility--------------------------------------------------------------------------------------------------------------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%()HeaderText------------------------------------!%()HeadingText----------------------------------- ProcessSelectFacility------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[8(!! ; fpar SFArg SelectFacilityArg;)]}---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------7()[8(!! Procedure ProcessSelectFacility)]}---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------7()[(! l! 22!(P)[h(! l)[k(! 6)[n(! 6d! )]][ q(! 6)][9(! 62,! )[8(!2 DCL Fac!%()HeadingText-----------------------------------!%()PageOrder-------------------------------------1---------------------------------------------------------------------------------------------------- ---- --------!%()HeaderText--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------ilityGroupMemberPresent Boolean := TRUE;)]][&(! 6X! d)[8(! )][(!RR !"R R)[ (! 6 ! )[8(! FacilityGrou p_ MemberPresent)][(!!")[8(! 6! true)][6(! 6! )[8(!5 PIC!legID := SFArg!LegId, PIC!pic := SelectFacility)] [(!"--!")[(! 6 ! d!)[8(! PIC(PIC) to CS)][(!@r!"r@)[ '(! 6 r! d)[8(! )]]]]]]][(!FF!"F)[8(! 6_! false)][6(! 6L! )[8(!, P IC!legID := SFArg!LegId, PIC!pic := ONull)][(!"FF--!"F)[(! 6-!)][)()]]]]]]]]]}-----------------------------------------------------------(!4!5!7)[!(! 1!!3)]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------P