source: FOIAVistA/trunk/r/NURSING_SERVICE-NUR/NURARST.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 430 bytes
Line 
1NURARST ;HIRMFO/MD-GENERIC RESOURCE MANAGEMENT PRINT SELECTION ROUTINE ;JULY 1990
2 ;;4.0;NURSING SERVICE;;Apr 25, 1997
3LOSER 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
7DISPL ;
8 ;;11A;1A
Note: See TracBrowser for help on using the repository browser.