- NURSAGS0 ;HIRMFO/RM,MD-SELECT MULTIPLE NURSING LOCATION UTILITY ;11/18/96
- ;;4.0;NURSING SERVICE;;Apr 25, 1997
- MDIC() ; FUNTION RETURNS NURSNLOC(NLOC,NLOCIEN)=""
- ; FUNCTION VALUE IS -1 IF USER ABORT, 0 IF NO LOCS PICKED, ELSE 1
- ; USERS WITH AN AMIS POSITION OF HEAD NURSE AND BELOW WILL ONLY
- ; BE ABLE TO SELECT LOCATIONS TO WHICH THEY HAVE BEEN ASSIGNED
- ; IF A SITE IS MULTI-DIVISIONAL AND A SPECIFIC FACILITY HAS BEEN
- ; SELECTED AS A SORT PARAMETER ONLY LOCATIONS ASSOCIATED WITH THAT
- ; FACILITY CAN BE SELECTED
- N NPWARD,NUROUT,NURY,DIC,MDIC,NEG,X,Y K NURSNLOC S NURHOSP=0
- DIC ;
- I NURSZAP,$G(NURMDSW),$G(NURFAC(1))'="" S:NURSZAP>6 DIC("S")="I ($D(NURSZLO(Y)),$$EN12^NURSUT3(Y)=NURFAC(1)"
- I NURSZAP,('$G(NURMDSW)!'($G(NURFAC(1)))) S:NURSZAP>6 DIC("S")="I $D(NURSZLO(Y))"
- I $G(NURMDSW),$G(NURFAC(1))'="" S:NURSZAP'>6 DIC("S")="I $S($$EN12^NURSUT3(Y)=NURFAC(1):1,'$D(^(""I"")):1,$P(^(""I""),U)'="""":1,1:0)"
- E S:NURSZAP'>6 DIC("S")="I $S('$D(^(""I"")):1,$P(^(""I""),U)'="""":1,1:0)"
- I 'NURSZAP,$G(NURMDSW),$G(NURFAC(1))'="" S DIC("S")="I $$EN12^NURSUT3(Y)=NURFAC(1)"
- I NURSZAP>7 S NPWARD=+$O(NURSZLO(0)) D EN6^NURSAUTL K DIC("B") S:NPWARD'="" DIC("B")=NPWARD
- W !,$S('$D(NURSNLOC):"Select",1:"Another")_" NURSING UNIT"_$S($D(NURSNLOC):"",NURSZAP'>7!('NURSZAP):" (Enter return for "_$S(NURSZAP'=7:"all units",1:"your ward(s)")_") ",1:"")_": "_$S(NURSZAP>7:DIC("B")_"//",1:"") R X:DTIME E S X="^^"
- I $G(DIC("B"))'="",$G(X)="" S X=DIC("B") G DIC1
- RETURN I $G(X)'="^^",$G(X)="" W:NURSZAP>7 !,$C(7),?5,"PROPER ACCESS REQUIRED TO PRINT ALL LOCATIONS" G:NURSZAP>7 DIC
- I X["^" S MDIC=-1 Q MDIC
- I X="",'$D(NURSNLOC) S NURHOSP=1
- I X="" S MDIC=$S(+NURHOSP:1,1:''$D(NURSNLOC)) Q MDIC
- I X?1"?".E D HLP S:Y<0 X="^^" G:Y<0 RETURN S X="?"
- DIC1 S NEG=X?1"-".E,X=$E(X,NEG+1,$L(X)),DIC="^NURSF(211.4,",DIC(0)="EQMNZ" D ^DIC I +Y'>0 G DIC
- I 'NEG S NURSNLOC($E(Y(0,0),1,10),+Y)=$P(Y,"^",2)_"^"_$$EN12^NURSUT3(+Y)
- E K NURSNLOC($E(Y(0,0),1,10),+Y)
- S NURY=$G(DIC("B")) I $G(DIC("B"))'="",$D(NURSNLOC(NURY)) S MDIC=1 Q MDIC
- G DIC
- HLP ; PRINT LOCATIONS SELECTED ALREADY
- W $C(7) I $D(NURSNLOC) W !?3,"YOU HAVE ALREADY SELECTED: "
- S Y="",X=0 F S Y=$O(NURSNLOC(Y)) Q:Y="" W !?5,Y S X=X+1 I X>5 W """^"" TO STOP: " R X:DTIME S:'$T X="^^" S:X="^^" Y=-1 Q:X="^"!(Y<0) S X=0
- Q:Y<0
- W !!?3,"You may deselect from the list by typing the - followed by location name.",!?4,"E.g. -3E would delete 3E from the list of locations already selected."
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNURSAGS0 2478 printed Apr 23, 2025@18:36 Page 2
- NURSAGS0 ;HIRMFO/RM,MD-SELECT MULTIPLE NURSING LOCATION UTILITY ;11/18/96
- +1 ;;4.0;NURSING SERVICE;;Apr 25, 1997
- MDIC() ; FUNTION RETURNS NURSNLOC(NLOC,NLOCIEN)=""
- +1 ; FUNCTION VALUE IS -1 IF USER ABORT, 0 IF NO LOCS PICKED, ELSE 1
- +2 ; USERS WITH AN AMIS POSITION OF HEAD NURSE AND BELOW WILL ONLY
- +3 ; BE ABLE TO SELECT LOCATIONS TO WHICH THEY HAVE BEEN ASSIGNED
- +4 ; IF A SITE IS MULTI-DIVISIONAL AND A SPECIFIC FACILITY HAS BEEN
- +5 ; SELECTED AS A SORT PARAMETER ONLY LOCATIONS ASSOCIATED WITH THAT
- +6 ; FACILITY CAN BE SELECTED
- +7 NEW NPWARD,NUROUT,NURY,DIC,MDIC,NEG,X,Y
- KILL NURSNLOC
- SET NURHOSP=0
- DIC ;
- +1 IF NURSZAP
- IF $GET(NURMDSW)
- IF $GET(NURFAC(1))'=""
- if NURSZAP>6
- SET DIC("S")="I ($D(NURSZLO(Y)),$$EN12^NURSUT3(Y)=NURFAC(1)"
- +2 IF NURSZAP
- IF ('$GET(NURMDSW)!'($GET(NURFAC(1))))
- if NURSZAP>6
- SET DIC("S")="I $D(NURSZLO(Y))"
- +3 IF $GET(NURMDSW)
- IF $GET(NURFAC(1))'=""
- if NURSZAP'>6
- SET DIC("S")="I $S($$EN12^NURSUT3(Y)=NURFAC(1):1,'$D(^(""I"")):1,$P(^(""I""),U)'="""":1,1:0)"
- +4 IF '$TEST
- if NURSZAP'>6
- SET DIC("S")="I $S('$D(^(""I"")):1,$P(^(""I""),U)'="""":1,1:0)"
- +5 IF 'NURSZAP
- IF $GET(NURMDSW)
- IF $GET(NURFAC(1))'=""
- SET DIC("S")="I $$EN12^NURSUT3(Y)=NURFAC(1)"
- +6 IF NURSZAP>7
- SET NPWARD=+$ORDER(NURSZLO(0))
- DO EN6^NURSAUTL
- KILL DIC("B")
- if NPWARD'=""
- SET DIC("B")=NPWARD
- +7 WRITE !,$SELECT('$DATA(NURSNLOC):"Select",1:"Another")_" NURSING UNIT"_$SELECT($DATA(NURSNLOC):"",NURSZAP'>7!('NURSZAP):" (Enter return for "_$SELECT(NURSZAP'=7:"all units",1:"your ward(s)")_") ",1:"")_": "_$SELECT(NURSZAP>7:DIC("B")_"//",1:"")
- READ X:DTIME
- IF '$TEST
- SET X="^^"
- +8 IF $GET(DIC("B"))'=""
- IF $GET(X)=""
- SET X=DIC("B")
- GOTO DIC1
- RETURN IF $GET(X)'="^^"
- IF $GET(X)=""
- if NURSZAP>7
- WRITE !,$CHAR(7),?5,"PROPER ACCESS REQUIRED TO PRINT ALL LOCATIONS"
- if NURSZAP>7
- GOTO DIC
- +1 IF X["^"
- SET MDIC=-1
- QUIT MDIC
- +2 IF X=""
- IF '$DATA(NURSNLOC)
- SET NURHOSP=1
- +3 IF X=""
- SET MDIC=$SELECT(+NURHOSP:1,1:''$DATA(NURSNLOC))
- QUIT MDIC
- +4 IF X?1"?".E
- DO HLP
- if Y<0
- SET X="^^"
- if Y<0
- GOTO RETURN
- SET X="?"
- DIC1 SET NEG=X?1"-".E
- SET X=$EXTRACT(X,NEG+1,$LENGTH(X))
- SET DIC="^NURSF(211.4,"
- SET DIC(0)="EQMNZ"
- DO ^DIC
- IF +Y'>0
- GOTO DIC
- +1 IF 'NEG
- SET NURSNLOC($EXTRACT(Y(0,0),1,10),+Y)=$PIECE(Y,"^",2)_"^"_$$EN12^NURSUT3(+Y)
- +2 IF '$TEST
- KILL NURSNLOC($EXTRACT(Y(0,0),1,10),+Y)
- +3 SET NURY=$GET(DIC("B"))
- IF $GET(DIC("B"))'=""
- IF $DATA(NURSNLOC(NURY))
- SET MDIC=1
- QUIT MDIC
- +4 GOTO DIC
- HLP ; PRINT LOCATIONS SELECTED ALREADY
- +1 WRITE $CHAR(7)
- IF $DATA(NURSNLOC)
- WRITE !?3,"YOU HAVE ALREADY SELECTED: "
- +2 SET Y=""
- SET X=0
- FOR
- SET Y=$ORDER(NURSNLOC(Y))
- if Y=""
- QUIT
- WRITE !?5,Y
- SET X=X+1
- IF X>5
- WRITE """^"" TO STOP: "
- READ X:DTIME
- if '$TEST
- SET X="^^"
- if X="^^"
- SET Y=-1
- if X="^"!(Y<0)
- QUIT
- SET X=0
- +3 if Y<0
- QUIT
- +4 WRITE !!?3,"You may deselect from the list by typing the - followed by location name.",!?4,"E.g. -3E would delete 3E from the list of locations already selected."
- +5 QUIT
