| 1 | NURADMIN ;HIRMFO/JH/MD-GENERIC ADMINISTRATION PRINT SELECTION ROUTINE ;10/25/90
|
|---|
| 2 | ;;4.0;NURSING SERVICE;;Apr 25, 1997
|
|---|
| 3 | EN ;
|
|---|
| 4 | Q:'$D(^DIC(213.9,1,"OFF")) Q:$P(^DIC(213.9,1,"OFF"),"^",1)=1
|
|---|
| 5 | S T=$T(DISPL+ANS1)
|
|---|
| 6 | ASK S (AN,NURQUEUE,NUROUT,NNOUT)=0,(SEL,ANS2)="",ENTR="CAT;POS" D EN1^NURSAUTL G:NUROUT Q
|
|---|
| 7 | I NURSZAP>6 D RNHN G:NNOUT Q
|
|---|
| 8 | I NURSZAP'>6,ANS1'=7,ANS1'=9,ANS1'=11 D LOCSER G:NNOUT Q
|
|---|
| 9 | W ! D A1 I NNOUT K NNOUT G Q
|
|---|
| 10 | K NNOUT Q
|
|---|
| 11 | A1 ;
|
|---|
| 12 | 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
|
|---|
| 13 | I ANS1=7 D:NURSZAP'>6 LOSER Q:NNOUT S OPT=$S(SEL=1:"^NURA9G",1:"^NURA6G") D @OPT G Q
|
|---|
| 14 | 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
|
|---|
| 15 | 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
|
|---|
| 16 | S OPT=$P(ENTR,";",ANS2)_"^NURA"_$P(T,";",SEL+2) D @OPT
|
|---|
| 17 | Q ;
|
|---|
| 18 | Q
|
|---|
| 19 | LOINSER W !!,"By (1) Location (2) Service or (3) Individual: " R SEL:DTIME I '$T!("^"[SEL) S NNOUT=1 Q
|
|---|
| 20 | I SEL'>0!(SEL>3) W !!,$C(7),"Select Sort Parameter by choosing '1','2' or '3'" G LOINSER
|
|---|
| 21 | Q
|
|---|
| 22 | LOSER W !!,"By (1) Location or (2) Service: " R SEL:DTIME I '$T!("^"[SEL) S NNOUT=1 Q
|
|---|
| 23 | I SEL'=1&(SEL'=2) W !!,$C(7),"Select sort parameter by choosing '1' or '2'" G LOSER
|
|---|
| 24 | Q
|
|---|
| 25 | 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
|
|---|
| 26 | I INX'=1&(INX'=2) W !!,$C(7),"Select sort parameter by entering '1' or '2' ." G RNHN
|
|---|
| 27 | S ANS2=$S(INX=1:1,INX=2:2,1:"")
|
|---|
| 28 | Q
|
|---|
| 29 | 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: "
|
|---|
| 30 | R INX:DTIME I '$T!("^"[INX) S NNOUT=1 Q
|
|---|
| 31 | I INX'=+INX!(+INX'>0)!(+INX>4) W !!,$C(7),"Select sort parameters by choosing a number between '1' and '4'." G LOCSER
|
|---|
| 32 | S SEL=$S(INX=1!(INX=2):1,INX=3!(INX=4):2,1:"")
|
|---|
| 33 | S ANS2=$S(INX=1!(INX=3):1,INX=2!(INX=4):2,1:"")
|
|---|
| 34 | Q
|
|---|
| 35 | DISPL ;
|
|---|
| 36 | ;;9A1;6A1
|
|---|
| 37 | ;;9B1;9B2;6B1;6B2
|
|---|
| 38 | ;;9C1;9C2;6C1;6C2
|
|---|
| 39 | ;;9D1;9D2;6D1;6D2
|
|---|
| 40 | ;;9E1;6E1
|
|---|
| 41 | ;;9F1;6F1
|
|---|
| 42 | ;;9G;6G
|
|---|
| 43 | ;;9H1;6H1
|
|---|
| 44 | ;;9I;6I1;6I2
|
|---|
| 45 | ;;9J1;6J1
|
|---|
| 46 | ;;9K;6K2;6K1
|
|---|
