|
Last change
on this file since 738 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.
