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