source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCLMPQQ.m@ 691

Last change on this file since 691 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 546 bytes
RevLine 
[613]1FSCLMPQQ ;SLC/STAFF-NOIS List Manager Protocol Query Query ;4/22/94 11:07
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4QUERY ; from FSCLMP
5 N CALL,CALLCNT,MSG
6 S MSG=1
7 K ^TMP("FSC LIST",$J)
8 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
9 S CALLCNT=+^TMP("FSC LIST CALLS",$J)
10 D BROWSE^FSCQB("",FSCLNAME,.CALLCNT,.MSG)
11 I CALLCNT S VALMCNT=CALLCNT
12 S FSCQUERY=1,VALMBG=1 K VALMQUIT D ENTRY^FSCLML I $D(VALMQUIT) S VALMBCK="Q" Q
13 D HDR^FSCLMPQU
14 Q
Note: See TracBrowser for help on using the repository browser.