NURARST.m

NURARST ;HIRMFO/MD-GENERIC RESOURCE MANAGEMENT PRINT SELECTION ROUTINE ;JULY 1990

 ;;4.0;NURSING SERVICE;;Apr 25, 1997

LOSER W !!,"By (1) Location or (2) Service:  " R SEL:DTIME I '$T!("^"[SEL) S NUROUT=1 Q

 I SEL'=1&(SEL'=2) W !!,$C(7),"Select Sort Parameter by choosing '1' or '2'" G LOSER

 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

 Q

DISPL ;

 ;;11A;1A

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---NURARST   438     printed  Apr 09, 2024@21:22:54                                                                                                                                                                                                      Page 2

NURARST   ;HIRMFO/MD-GENERIC RESOURCE MANAGEMENT PRINT SELECTION ROUTINE ;JULY 1990

 +1       ;;4.0;NURSING SERVICE;;Apr 25, 1997

LOSER      WRITE !!,"By (1) Location or (2) Service:  "

           READ SEL:DTIME

           IF '$TEST!("^"[SEL)

               SET NUROUT=1

               QUIT 

 +1        IF SEL'=1&(SEL'=2)

               WRITE !!,$CHAR(7),"Select Sort Parameter by choosing '1' or '2'"

               GOTO LOSER

 +2        IF $DATA(ANS1)

               IF ANS1=1

                   SET T=$TEXT(DISPL+1)

                   SET OPT=$SELECT(SEL=1:"^NURAR"_$PIECE(T,";",3),SEL=2:"^NURAR"_$PIECE(T,";",4),1:"")

                   if OPT'=""

                       DO @OPT

 +3        QUIT 

DISPL     ;

 +1       ;;11A;1A