- FSCQSA ;SLC/STAFF-NOIS Query Search All ;4/22/94 11:57
- ;;1.1;NOIS;;Sep 06, 1998
- ;
- ALL ; from FSCQS
- I LIST=1!(LIST=0) D Q
- .S CALL=0 F S CALL=$O(^TMP("FSC USELIST",$J,CALL)) Q:CALL<1 X ACTION
- I LIST="" D Q
- .S CALL=0 F S CALL=$O(^FSCD("CALL",CALL)) Q:CALL<1 X ACTION
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCQSA 289 printed Feb 18, 2025@23:45:26 Page 2
- FSCQSA ;SLC/STAFF-NOIS Query Search All ;4/22/94 11:57
- +1 ;;1.1;NOIS;;Sep 06, 1998
- +2 ;
- ALL ; from FSCQS
- +1 IF LIST=1!(LIST=0)
- Begin DoDot:1
- +2 SET CALL=0
- FOR
- SET CALL=$ORDER(^TMP("FSC USELIST",$JOB,CALL))
- if CALL<1
- QUIT
- XECUTE ACTION
- End DoDot:1
- QUIT
- +3 IF LIST=""
- Begin DoDot:1
- +4 SET CALL=0
- FOR
- SET CALL=$ORDER(^FSCD("CALL",CALL))
- if CALL<1
- QUIT
- XECUTE ACTION
- End DoDot:1
- QUIT
- +5 QUIT