Last change
on this file since 1093 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
756 bytes
|
Line | |
---|
1 | GMRCPSEL ;SLC/DCM - Select Range Of Items From List ;5/20/98 14:20
|
---|
2 | ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
|
---|
3 | SEL ;Entry point into select option
|
---|
4 | I '$D(^TMP("GMRCR",$J,"CS","AD")) W !,"No Consult Orders Exist To Select From.",! S GMRCSEL="",GMRCQUIT=1 Q
|
---|
5 | I '$O(^TMP("GMRCR",$J,"CS","AD")),BLK=1 S GMRCSEL=BLK Q
|
---|
6 | S GMRCSEL="" W !,"Choose No. 1-"_BLK_": " R X:DTIME S:X="^^" DIROUT=1 I '$T!(X["^") S (DTOUT,GMRCQUT)=1 Q
|
---|
7 | I X["?" D SELHELP G SEL
|
---|
8 | I X="" S GMRCQUT=1 Q
|
---|
9 | I $S(X'?.N1",".N.E:1,X<0:1,X>BLK:1,1:0) D SELHELP G SEL
|
---|
10 | S GMRCSEL=X
|
---|
11 | Q
|
---|
12 | SELHELP ;Help to select a valid entry
|
---|
13 | W !,"Select a request by typing the number in the left column and pressing <ENTER>",!,"or by selecting a range of numbers in the left column, separated by commas.",!
|
---|
14 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.