- 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 Feb 18, 2025@23:45 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