Last change
on this file since 736 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
546 bytes
|
Line | |
---|
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.