Last change
on this file since 794 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
430 bytes
|
Line | |
---|
1 | NURARST ;HIRMFO/MD-GENERIC RESOURCE MANAGEMENT PRINT SELECTION ROUTINE ;JULY 1990
|
---|
2 | ;;4.0;NURSING SERVICE;;Apr 25, 1997
|
---|
3 | LOSER W !!,"By (1) Location or (2) Service: " R SEL:DTIME I '$T!("^"[SEL) S NUROUT=1 Q
|
---|
4 | I SEL'=1&(SEL'=2) W !!,$C(7),"Select Sort Parameter by choosing '1' or '2'" G LOSER
|
---|
5 | I $D(ANS1),ANS1=1 S T=$T(DISPL+1),OPT=$S(SEL=1:"^NURAR"_$P(T,";",3),SEL=2:"^NURAR"_$P(T,";",4),1:"") D:OPT'="" @OPT
|
---|
6 | Q
|
---|
7 | DISPL ;
|
---|
8 | ;;11A;1A
|
---|
Note:
See
TracBrowser
for help on using the repository browser.