FSCLMPQQ ;SLC/STAFF-NOIS List Manager Protocol Query Query ;4/22/94 11:07
;;1.1;NOIS;;Sep 06, 1998
;
QUERY ; from FSCLMP
N CALL,CALLCNT,MSG
S MSG=1
K ^TMP("FSC LIST",$J)
S CALL=0 F S CALL=$O(^TMP("FSC LIST CALLS",$J,"CX",CALL)) Q:CALL<1 S ^TMP("FSC LIST",$J,CALL,0)=CALL ;*** calls should be loaded with internal number of call
S CALLCNT=+^TMP("FSC LIST CALLS",$J)
D BROWSE^FSCQB("",FSCLNAME,.CALLCNT,.MSG)
I CALLCNT S VALMCNT=CALLCNT
S FSCQUERY=1,VALMBG=1 K VALMQUIT D ENTRY^FSCLML I $D(VALMQUIT) S VALMBCK="Q" Q
D HDR^FSCLMPQU
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCLMPQQ 560 printed Nov 22, 2024@17:28:33 Page 2
FSCLMPQQ ;SLC/STAFF-NOIS List Manager Protocol Query Query ;4/22/94 11:07
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
QUERY ; from FSCLMP
+1 NEW CALL,CALLCNT,MSG
+2 SET MSG=1
+3 KILL ^TMP("FSC LIST",$JOB)
+4 ;*** calls should be loaded with internal number of call
SET CALL=0
FOR
SET CALL=$ORDER(^TMP("FSC LIST CALLS",$JOB,"CX",CALL))
if CALL<1
QUIT
SET ^TMP("FSC LIST",$JOB,CALL,0)=CALL
+5 SET CALLCNT=+^TMP("FSC LIST CALLS",$JOB)
+6 DO BROWSE^FSCQB("",FSCLNAME,.CALLCNT,.MSG)
+7 IF CALLCNT
SET VALMCNT=CALLCNT
+8 SET FSCQUERY=1
SET VALMBG=1
KILL VALMQUIT
DO ENTRY^FSCLML
IF $DATA(VALMQUIT)
SET VALMBCK="Q"
QUIT
+9 DO HDR^FSCLMPQU
+10 QUIT
