|
Last change
on this file since 701 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
756 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
