NURAMHE ;HIRMFO/MD,FT-NURSING MANHOURS ENTER/EDIT FUNCTION ;8/14/96 09:45
;;4.0;NURSING SERVICE;**20**;Apr 25, 1997
EN1 ;PATIENT CARE ENTRY POINT FROM OPTION NURAMN-MANED
Q:'$D(^DIC(213.9,1,"OFF")) Q:$P(^DIC(213.9,1,"OFF"),"^",1)=1
S DIC="^NURSF(211.4,",DIC("A")="Select Nursing UNIT: ",DIC(0)="AEQZ"
I DUZ(0)'["n",DUZ(0)'["@" S DIC("S")="I $P($G(^SC(+$G(NURSF(211.4,+Y,0)),0)),U)'[""MAS ONLY"",$P($G(^SC(+$G(NURSF(211.4,+Y,0)),0)),U)'[""MASONLY"",$P($G(^NURSF(211.4,+Y,""I"")),U)'=""I"""
E S DIC("S")="I $P($G(^SC(+$G(^NURSF(211.4,+Y,0)),0)),U)'[""MAS ONLY"",$P($G(^SC(+$G(^NURSF(211.4,+Y,0)),0)),U)'[""MASONLY"""
W ! D ^DIC K DIC I "^"[X!(+Y'>0) G QUIT
S NCWARD=+Y
S NUROUTSW=0,X="T",%DT="" D ^%DT D:+Y D^DIQ S %DT("B")=Y
NXDT S %DT("A")="Select DATE: ",%DT="AEX" W ! D ^%DT K %DT
I "^"[X!(+Y'>0) G QUIT
G:"^"[X QUIT S NURDAY=+Y D SHIFT G:NUROUTSW QUIT D EDIT G:NUROUTSW QUIT
K SHIFT G NXDT
EDIT ; PROCESS SELECTED SHIFT(S)
F NURDA=0:0 S NURDA=$O(SHIFT(NURDA)) Q:NURDA="" S NPWARD=NCWARD D EN6^NURSAUTL W !!,"...Editing "_$S(SHIFT(NURDA)="E":"EVENING",SHIFT(NURDA)="D":"DAY",SHIFT(NURDA)="N":"NIGHT",1:"")_" SHIFT for ward "_NPWARD_"...",! D MAIN Q:NUROUTSW
Q
SHIFT R !!,"Select Shift(s) (Enter N - Night D - DAY E - Evening or A for All Shifts): ",NURSHFT:DTIME,! I "^"[NURSHFT!('$T)!(NURSHFT="") S NUROUTSW=1 Q
I NURSHFT["?" W !,"Enter shift selection(s) (i.e., N,D,E - ND - DE etc)." G SHIFT
I NURSHFT?1L S NURSHFT=$C($A(NURSHFT)-32)
I '((NURSHFT="A")!(NURSHFT="ALL")!(NURSHFT="N")!(NURSHFT="D")!(NURSHFT="E"))&($L(NURSHFT)'>1) G MSG
I $L(NURSHFT)>1 F I=1:1:5 I $E(NURSHFT,I)'=","&($E(NURSHFT,I)'="D")&($E(NURSHFT,I)'="N")&($E(NURSHFT,I)'="E")&($E(NURSHFT,I)'="") G MSG
I NURSHFT="A"!(NURSHFT="ALL") F NURX=1:1:3 S SHIFT(NURX)=$S(NURX=1:"N",NURX=2:"D",1:"E")
E F NURX=1:1:$L(NURSHFT) S:$E(NURSHFT,NURX)'="," SHIFT($S($E(NURSHFT,NURX)="N":1,$E(NURSHFT,NURX)="D":2,$E(NURSHFT,NURX)="E":3,1:0))=$E(NURSHFT,NURX)
Q
QUIT D ^NURAKILL
Q
MAIN ;LOOP PROCESS
S NURSHFT=SHIFT(NURDA) S X=NURDAY_NURSHFT_NCWARD D EN1^NURAMHU S SAVENODE=$P(^NURSA(213.4,DA,0),"^",2,4) L +^NURSA(213.4,DA,0):1 I '$T W !!,"ANOTHER PROCESS IS WORKING ON THIS ENTRY",$C(7) S NUROUTSW=1 Q
S DIE="^NURSA(213.4,",DR="[NURA-I-PATHOURS]" D ^DIE L -^NURSA(213.4,DA,0)
S NURNODE=$P(^NURSA(213.4,DA,0),"^",2,4) I '(SAVENODE=NURNODE) S DR="10////^S X=DUZ" D ^DIE
I $D(^NURSA(213.4,DA,0)),$P(^(0),"^",8) W !!,"ENTERED BY: ",$P(^VA(200,$P(^NURSA(213.4,DA,0),"^",8),0),"^")
Q
MSG W !,$C(7)," ** IMPROPER SHIFT SELECTION **" G SHIFT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNURAMHE 2555 printed Oct 16, 2024@18:20:15 Page 2
NURAMHE ;HIRMFO/MD,FT-NURSING MANHOURS ENTER/EDIT FUNCTION ;8/14/96 09:45
+1 ;;4.0;NURSING SERVICE;**20**;Apr 25, 1997
EN1 ;PATIENT CARE ENTRY POINT FROM OPTION NURAMN-MANED
+1 if '$DATA(^DIC(213.9,1,"OFF"))
QUIT
if $PIECE(^DIC(213.9,1,"OFF"),"^",1)=1
QUIT
+2 SET DIC="^NURSF(211.4,"
SET DIC("A")="Select Nursing UNIT: "
SET DIC(0)="AEQZ"
+3 IF DUZ(0)'["n"
IF DUZ(0)'["@"
SET DIC("S")="I $P($G(^SC(+$G(NURSF(211.4,+Y,0)),0)),U)'[""MAS ONLY"",$P($G(^SC(+$G(NURSF(211.4,+Y,0)),0)),U)'[""MASONLY"",$P($G(^NURSF(211.4,+Y,""I"")),U)'=""I"""
+4 IF '$TEST
SET DIC("S")="I $P($G(^SC(+$G(^NURSF(211.4,+Y,0)),0)),U)'[""MAS ONLY"",$P($G(^SC(+$G(^NURSF(211.4,+Y,0)),0)),U)'[""MASONLY"""
+5 WRITE !
DO ^DIC
KILL DIC
IF "^"[X!(+Y'>0)
GOTO QUIT
+6 SET NCWARD=+Y
+7 SET NUROUTSW=0
SET X="T"
SET %DT=""
DO ^%DT
if +Y
DO D^DIQ
SET %DT("B")=Y
NXDT SET %DT("A")="Select DATE: "
SET %DT="AEX"
WRITE !
DO ^%DT
KILL %DT
+1 IF "^"[X!(+Y'>0)
GOTO QUIT
+2 if "^"[X
GOTO QUIT
SET NURDAY=+Y
DO SHIFT
if NUROUTSW
GOTO QUIT
DO EDIT
if NUROUTSW
GOTO QUIT
+3 KILL SHIFT
GOTO NXDT
EDIT ; PROCESS SELECTED SHIFT(S)
+1 FOR NURDA=0:0
SET NURDA=$ORDER(SHIFT(NURDA))
if NURDA=""
QUIT
SET NPWARD=NCWARD
DO EN6^NURSAUTL
WRITE !!,"...Editing "_$SELECT(SHIFT(NURDA)="E":"EVENING",SHIFT(NURDA)="D":"DAY",SHIFT(NURDA)="N":"NIGHT",1:"")_" SHIFT for ward "_NPWARD_"...",!
DO MAIN
if NUROUTSW
QUIT
+2 QUIT
SHIFT READ !!,"Select Shift(s) (Enter N - Night D - DAY E - Evening or A for All Shifts): ",NURSHFT:DTIME,!
IF "^"[NURSHFT!('$TEST)!(NURSHFT="")
SET NUROUTSW=1
QUIT
+1 IF NURSHFT["?"
WRITE !,"Enter shift selection(s) (i.e., N,D,E - ND - DE etc)."
GOTO SHIFT
+2 IF NURSHFT?1L
SET NURSHFT=$CHAR($ASCII(NURSHFT)-32)
+3 IF '((NURSHFT="A")!(NURSHFT="ALL")!(NURSHFT="N")!(NURSHFT="D")!(NURSHFT="E"))&($LENGTH(NURSHFT)'>1)
GOTO MSG
+4 IF $LENGTH(NURSHFT)>1
FOR I=1:1:5
IF $EXTRACT(NURSHFT,I)'=","&($EXTRACT(NURSHFT,I)'="D")&($EXTRACT(NURSHFT,I)'="N")&($EXTRACT(NURSHFT,I)'="E")&($EXTRACT(NURSHFT,I)'="")
GOTO MSG
+5 IF NURSHFT="A"!(NURSHFT="ALL")
FOR NURX=1:1:3
SET SHIFT(NURX)=$SELECT(NURX=1:"N",NURX=2:"D",1:"E")
+6 IF '$TEST
FOR NURX=1:1:$LENGTH(NURSHFT)
if $EXTRACT(NURSHFT,NURX)'=","
SET SHIFT($SELECT($EXTRACT(NURSHFT,NURX)="N":1,$EXTRACT(NURSHFT,NURX)="D":2,$EXTRACT(NURSHFT,NURX)="E":3,1:0))=$EXTRACT(NURSHFT,NURX)
+7 QUIT
QUIT DO ^NURAKILL
+1 QUIT
MAIN ;LOOP PROCESS
+1 SET NURSHFT=SHIFT(NURDA)
SET X=NURDAY_NURSHFT_NCWARD
DO EN1^NURAMHU
SET SAVENODE=$PIECE(^NURSA(213.4,DA,0),"^",2,4)
LOCK +^NURSA(213.4,DA,0):1
IF '$TEST
WRITE !!,"ANOTHER PROCESS IS WORKING ON THIS ENTRY",$CHAR(7)
SET NUROUTSW=1
QUIT
+2 SET DIE="^NURSA(213.4,"
SET DR="[NURA-I-PATHOURS]"
DO ^DIE
LOCK -^NURSA(213.4,DA,0)
+3 SET NURNODE=$PIECE(^NURSA(213.4,DA,0),"^",2,4)
IF '(SAVENODE=NURNODE)
SET DR="10////^S X=DUZ"
DO ^DIE
+4 IF $DATA(^NURSA(213.4,DA,0))
IF $PIECE(^(0),"^",8)
WRITE !!,"ENTERED BY: ",$PIECE(^VA(200,$PIECE(^NURSA(213.4,DA,0),"^",8),0),"^")
+5 QUIT
MSG WRITE !,$CHAR(7)," ** IMPROPER SHIFT SELECTION **"
GOTO SHIFT
