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 Dec 13, 2024@02:18:59 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