NURADMIN.m

NURADMIN ;HIRMFO/JH/MD-GENERIC ADMINISTRATION PRINT SELECTION ROUTINE ;10/25/90

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

EN ;

 Q:'$D(^DIC(213.9,1,"OFF"))  Q:$P(^DIC(213.9,1,"OFF"),"^",1)=1

 S T=$T(DISPL+ANS1)

ASK S (AN,NURQUEUE,NUROUT,NNOUT)=0,(SEL,ANS2)="",ENTR="CAT;POS" D EN1^NURSAUTL G:NUROUT Q

 I NURSZAP>6 D RNHN G:NNOUT Q

 I NURSZAP'>6,ANS1'=7,ANS1'=9,ANS1'=11 D LOCSER G:NNOUT Q

 W ! D A1 I NNOUT K NNOUT G Q

 K NNOUT Q

A1 ;

 S AN=ANS2+2 I $S(ANS1=2:1,ANS1=3:1,ANS1=4:1,1:0) S:SEL=2 AN=AN+2 S OPT="^NURA"_$P(T,";",AN) D @OPT G Q

 I ANS1=7 D:NURSZAP'>6 LOSER Q:NNOUT  S OPT=$S(SEL=1:"^NURA9G",1:"^NURA6G") D @OPT G Q

 I ANS1=9 D:NURSZAP'>6 LOINSER Q:NNOUT  S OPT=$S(SEL=1:"^NURA9I",SEL=2:"^NURA6I2",SEL=3:"^NURA6I1",1:"") D:OPT'="" @OPT G Q

 I ANS1=11 D:NURSZAP'>6 LOINSER Q:NNOUT  S OPT=$S(SEL=1:"^NURA9K",SEL=2:"^NURA6K2",SEL=3:"^NURA6K1",1:"") D:OPT'="" @OPT G Q

 S OPT=$P(ENTR,";",ANS2)_"^NURA"_$P(T,";",SEL+2) D @OPT

Q ;

 Q

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

 I SEL'>0!(SEL>3) W !!,$C(7),"Select Sort Parameter by choosing '1','2' or '3'" G LOINSER

 Q

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

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

 Q

RNHN S SEL=1 Q:ANS1=7!(ANS1=9)!(ANS1=11)  W !!,"Sort by: ",!!,"(1) Service Category or (2) Service Position:  " R INX:DTIME I '$T!("^"[INX) S NNOUT=1 Q

 I INX'=1&(INX'=2) W !!,$C(7),"Select sort parameter by entering '1' or '2' ." G RNHN

 S ANS2=$S(INX=1:1,INX=2:2,1:"")

 Q

LOCSER W !!,"Sort by: ",!!,?5,"1.  Location and Service Category",!,?5,"2.  Location and Service Position",!,?5,"3.  Service and Service Category",!,?5,"4.  Service and Service Position ",!!,"Choose a sort parameter set between 1 and 4: "

 R INX:DTIME I '$T!("^"[INX) S NNOUT=1 Q

 I INX'=+INX!(+INX'>0)!(+INX>4) W !!,$C(7),"Select sort parameters by choosing a number between '1' and '4'." G LOCSER

 S SEL=$S(INX=1!(INX=2):1,INX=3!(INX=4):2,1:"")

 S ANS2=$S(INX=1!(INX=3):1,INX=2!(INX=4):2,1:"")

 Q

DISPL ;

 ;;9A1;6A1

 ;;9B1;9B2;6B1;6B2

 ;;9C1;9C2;6C1;6C2

 ;;9D1;9D2;6D1;6D2

 ;;9E1;6E1

 ;;9F1;6F1

 ;;9G;6G

 ;;9H1;6H1

 ;;9I;6I1;6I2

 ;;9J1;6J1

 ;;9K;6K2;6K1

NURADMIN  ;HIRMFO/JH/MD-GENERIC ADMINISTRATION PRINT SELECTION ROUTINE ;10/25/90

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

EN        ;

 +1        IF '$DATA(^DIC(213.9,1,"OFF"))

               QUIT 

           IF $PIECE(^DIC(213.9,1,"OFF"),"^",1)=1

               QUIT 

 +2        SET T=$TEXT(DISPL+ANS1)

ASK        SET (AN,NURQUEUE,NUROUT,NNOUT)=0

           SET (SEL,ANS2)=""

           SET ENTR="CAT;POS"

           DO EN1^NURSAUTL

           IF NUROUT

               GOTO Q

 +1        IF NURSZAP>6

               DO RNHN

               IF NNOUT

                   GOTO Q

 +2        IF NURSZAP'>6

               IF ANS1'=7

                   IF ANS1'=9

                       IF ANS1'=11

                           DO LOCSER

                           IF NNOUT

                               GOTO Q

 +3        WRITE !

           DO A1

           IF NNOUT

               KILL NNOUT

               GOTO Q

 +4        KILL NNOUT

           QUIT 

A1        ;

 +1        SET AN=ANS2+2

           IF $SELECT(ANS1=2:1,ANS1=3:1,ANS1=4:1,1:0)

               IF SEL=2

                   SET AN=AN+2

               SET OPT="^NURA"_$PIECE(T,";",AN)

               DO @OPT

               GOTO Q

 +2        IF ANS1=7

               IF NURSZAP'>6

                   DO LOSER

               IF NNOUT

                   QUIT 

               SET OPT=$SELECT(SEL=1:"^NURA9G",1:"^NURA6G")

               DO @OPT

               GOTO Q

 +3        IF ANS1=9

               IF NURSZAP'>6

                   DO LOINSER

               IF NNOUT

                   QUIT 

               SET OPT=$SELECT(SEL=1:"^NURA9I",SEL=2:"^NURA6I2",SEL=3:"^NURA6I1",1:"")

               IF OPT'=""

                   DO @OPT

               GOTO Q

 +4        IF ANS1=11

               IF NURSZAP'>6

                   DO LOINSER

               IF NNOUT

                   QUIT 

               SET OPT=$SELECT(SEL=1:"^NURA9K",SEL=2:"^NURA6K2",SEL=3:"^NURA6K1",1:"")

               IF OPT'=""

                   DO @OPT

               GOTO Q

 +5        SET OPT=$PIECE(ENTR,";",ANS2)_"^NURA"_$PIECE(T,";",SEL+2)

           DO @OPT

Q         ;

 +1        QUIT 

LOINSER    WRITE !!,"By (1) Location (2) Service or (3) Individual:  "

           READ SEL:DTIME

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

               SET NNOUT=1

               QUIT 

 +1        IF SEL'>0!(SEL>3)

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

               GOTO LOINSER

 +2        QUIT 

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

           READ SEL:DTIME

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

               SET NNOUT=1

               QUIT 

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

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

               GOTO LOSER

 +2        QUIT 

RNHN       SET SEL=1

           IF ANS1=7!(ANS1=9)!(ANS1=11)

               QUIT 

           WRITE !!,"Sort by: ",!!,"(1) Service Category or (2) Service Position:  "

           READ INX:DTIME

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

               SET NNOUT=1

               QUIT 

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

               WRITE !!,$CHAR(7),"Select sort parameter by entering '1' or '2' ."

               GOTO RNHN

 +2        SET ANS2=$SELECT(INX=1:1,INX=2:2,1:"")

 +3        QUIT 

LOCSER     WRITE !!,"Sort by: ",!!,?5,"1.  Location and Service Category",!,?5,"2.  Location and Service Position",!,?5,"3.  Service and Service Category",!,?5,"4.  Service and Service Position ",!!,"Choose a sort parameter set between 1 and 4: "

 +1        READ INX:DTIME

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

               SET NNOUT=1

               QUIT 

 +2        IF INX'=+INX!(+INX'>0)!(+INX>4)

               WRITE !!,$CHAR(7),"Select sort parameters by choosing a number between '1' and '4'."

               GOTO LOCSER

 +3        SET SEL=$SELECT(INX=1!(INX=2):1,INX=3!(INX=4):2,1:"")

 +4        SET ANS2=$SELECT(INX=1!(INX=3):1,INX=2!(INX=4):2,1:"")

 +5        QUIT 

DISPL     ;

 +1       ;;9A1;6A1

 +2       ;;9B1;9B2;6B1;6B2

 +3       ;;9C1;9C2;6C1;6C2

 +4       ;;9D1;9D2;6D1;6D2

 +5       ;;9E1;6E1

 +6       ;;9F1;6F1

 +7       ;;9G;6G

 +8       ;;9H1;6H1

 +9       ;;9I;6I1;6I2

 +10      ;;9J1;6J1

 +11      ;;9K;6K2;6K1