Last change
on this file since 1726 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
546 bytes
|
Rev | Line | |
---|
[613] | 1 | FSCLMPQQ ;SLC/STAFF-NOIS List Manager Protocol Query Query ;4/22/94 11:07
|
---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
---|
| 3 | ;
|
---|
| 4 | QUERY ; 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.