ANSQSS1 ;IHS/OIRM/DSD/CSC - CALCULATE NURSE STAFFING STATS; [ 02/25/98 10:32 AM ]
;;3.0;NURSING PATIENT ACUITY;;APR 01, 1996
;;CALCULATE NURSE STAFFING TOTALS FOR EACH DAY
;;"A" NODE OF GLOBAL IS INFO ON EACH ADMISSION
;;"O" NODE IS INFOR ON EACH OBSERVATION
EN I '$D(ANSPAR) S ANSPAR=^ANSD(51,1,0)
D PERCENT
S ANSD=0
F S ANSD=$O(^TMP("ANS",$J,ANSD)) Q:'ANSD D
.S ANSSH=0,(ANSTOT,ANSMAX)=""
.F S ANSSH=$O(^TMP("ANS",$J,ANSD,ANSSH)) Q:'ANSSH D
..S (ANSAS,ANSCL,ANSRT)=""
..S:$D(^TMP("ANS",$J,ANSD,ANSSH,"A")) ANSAS=^("A")
..S:$D(^TMP("ANS",$J,ANSD,ANSSH,"O")) ANSCL=^("O")
..S T=0
..F L=1:1:6 S N=$P(ANSCL,U,L) D:N
...D:$D(ANSP(ANSSH)) SBRTL
...S $P(ANSTOT,U,L+4)=$P(ANSTOT,U,L+4)+N,T=T+N
..I T>ANSMAX S ANSMAX=T
..S N=$P(ANSCL,U,5)
..I N S ANSRT=ANSRT+(N*.5),$P(ANSTOT,U,4)=$P(ANSTOT,U,4)+N
..S T=0
..F L=1:1:6 S N=$P(ANSAS,U,L) I N D SBRTA S T=T+N
..S A=ANSRT,S="H",P=3 D SBADD
..S $P(ANSTOT,U,3)=$P(ANSTOT,U,3)+T,$P(ANSTOT,U,11)=$P(ANSTOT,U,11)+ANSRT
.D B1
D C1
Q
B1 ;SET DAILY TOTAL AND SET GLOBAL NODE WITH TOTAL SUMMARY FOR THE DAY
S $P(ANSTOT,U,2)=ANSMAX,T=0
F I=5:1:10 S T=T+$P(ANSTOT,U,I),$P(ANSTOT,U,I)=$P(ANSTOT,U,I)/ANSNS
S $P(ANSTOT,U)=T/ANSNS,T=0
F I=1:1:3 I $D(^TMP("ANS",$J,ANSD,I,"H")) S T=T+$P(^("H"),U)-$P(^("H"),U,2)
S $P(ANSTOT,U,12)=T,^TMP("ANS",$J,ANSD,"T")=ANSTOT
Q
C1 D ^ANSQSP
Q
SBRTL ;CALCULATE THE REQUIRED NURSING TIME FOR EACH LEVEL OF CARE
;ANSP(ANSSH) = PERCENT OF CARE REQUIRED FOR THE SHIFT
;ANSH(L) = HOURS OF CARE REQUIRED BY LEVEL OF CARE FOR THE DAY
;N = NUMBER OF PATIENTS AT THE CARE LEVEL
S H=ANSP(ANSSH)*ANSH(L)*N,ANSRT=ANSRT+H
Q
SBRTA ;CALCULATE THE NUMBER OF HOURS OF NURSING TIME REQUIRED FOR ADMISSIONS
;ANSA(L) = HOURS REQUIRED FOR ADMISSION FOR EACH CARE LEVEL
;N = NUMBER OF PATIENTS AT THE CARE LEVEL
S H=ANSA(L)*N,ANSRT=ANSRT+H
Q
SBADD ;SET TEMP GLOBAL NODES FOR PRINTOUT
I '$D(^TMP("ANS",$J,ANSD,ANSSH,S)) S ^TMP("ANS",$J,ANSD,ANSSH,S)=""
S $P(^TMP("ANS",$J,ANSD,ANSSH,S),U,P)=$P(^TMP("ANS",$J,ANSD,ANSSH,S),U,P)+A,ANSRT=$P(^(S),U,P)
Q
PERCENT ;CALCULATE THE PERCENT OF TIME REQUIRED PER SHIFT
;ANSNS = NUMBER OF SHIFTS
K ANSP
S ANSNS=$P(ANSPAR,U,5),X=""
S X=$G(^ANSD(51.1,ANSNS,1))
F I=1:1:ANSNS S ANSP(I)=$P(X,U,I)/100
Q
ANSQSS1 ;IHS/OIRM/DSD/CSC - CALCULATE NURSE STAFFING STATS; [ 02/25/98 10:32 AM ]
+1 ;;3.0;NURSING PATIENT ACUITY;;APR 01, 1996
+2 ;;CALCULATE NURSE STAFFING TOTALS FOR EACH DAY
+3 ;;"A" NODE OF GLOBAL IS INFO ON EACH ADMISSION
+4 ;;"O" NODE IS INFOR ON EACH OBSERVATION
EN IF '$DATA(ANSPAR)
SET ANSPAR=^ANSD(51,1,0)
+1 DO PERCENT
+2 SET ANSD=0
+3 FOR
SET ANSD=$ORDER(^TMP("ANS",$JOB,ANSD))
IF 'ANSD
QUIT
Begin DoDot:1
+4 SET ANSSH=0
SET (ANSTOT,ANSMAX)=""
+5 FOR
SET ANSSH=$ORDER(^TMP("ANS",$JOB,ANSD,ANSSH))
IF 'ANSSH
QUIT
Begin DoDot:2
+6 SET (ANSAS,ANSCL,ANSRT)=""
+7 IF $DATA(^TMP("ANS",$JOB,ANSD,ANSSH,"A"))
SET ANSAS=^("A")
+8 IF $DATA(^TMP("ANS",$JOB,ANSD,ANSSH,"O"))
SET ANSCL=^("O")
+9 SET T=0
+10 FOR L=1:1:6
SET N=$PIECE(ANSCL,U,L)
IF N
Begin DoDot:3
+11 IF $DATA(ANSP(ANSSH))
DO SBRTL
+12 SET $PIECE(ANSTOT,U,L+4)=$PIECE(ANSTOT,U,L+4)+N
SET T=T+N
End DoDot:3
+13 IF T>ANSMAX
SET ANSMAX=T
+14 SET N=$PIECE(ANSCL,U,5)
+15 IF N
SET ANSRT=ANSRT+(N*.5)
SET $PIECE(ANSTOT,U,4)=$PIECE(ANSTOT,U,4)+N
+16 SET T=0
+17 FOR L=1:1:6
SET N=$PIECE(ANSAS,U,L)
IF N
DO SBRTA
SET T=T+N
+18 SET A=ANSRT
SET S="H"
SET P=3
DO SBADD
+19 SET $PIECE(ANSTOT,U,3)=$PIECE(ANSTOT,U,3)+T
SET $PIECE(ANSTOT,U,11)=$PIECE(ANSTOT,U,11)+ANSRT
End DoDot:2
+20 DO B1
End DoDot:1
+21 DO C1
+22 QUIT
B1 ;SET DAILY TOTAL AND SET GLOBAL NODE WITH TOTAL SUMMARY FOR THE DAY
+1 SET $PIECE(ANSTOT,U,2)=ANSMAX
SET T=0
+2 FOR I=5:1:10
SET T=T+$PIECE(ANSTOT,U,I)
SET $PIECE(ANSTOT,U,I)=$PIECE(ANSTOT,U,I)/ANSNS
+3 SET $PIECE(ANSTOT,U)=T/ANSNS
SET T=0
+4 FOR I=1:1:3
IF $DATA(^TMP("ANS",$JOB,ANSD,I,"H"))
SET T=T+$PIECE(^("H"),U)-$PIECE(^("H"),U,2)
+5 SET $PIECE(ANSTOT,U,12)=T
SET ^TMP("ANS",$JOB,ANSD,"T")=ANSTOT
+6 QUIT
C1 DO ^ANSQSP
+1 QUIT
SBRTL ;CALCULATE THE REQUIRED NURSING TIME FOR EACH LEVEL OF CARE
+1 ;ANSP(ANSSH) = PERCENT OF CARE REQUIRED FOR THE SHIFT
+2 ;ANSH(L) = HOURS OF CARE REQUIRED BY LEVEL OF CARE FOR THE DAY
+3 ;N = NUMBER OF PATIENTS AT THE CARE LEVEL
+4 SET H=ANSP(ANSSH)*ANSH(L)*N
SET ANSRT=ANSRT+H
+5 QUIT
SBRTA ;CALCULATE THE NUMBER OF HOURS OF NURSING TIME REQUIRED FOR ADMISSIONS
+1 ;ANSA(L) = HOURS REQUIRED FOR ADMISSION FOR EACH CARE LEVEL
+2 ;N = NUMBER OF PATIENTS AT THE CARE LEVEL
+3 SET H=ANSA(L)*N
SET ANSRT=ANSRT+H
+4 QUIT
SBADD ;SET TEMP GLOBAL NODES FOR PRINTOUT
+1 IF '$DATA(^TMP("ANS",$JOB,ANSD,ANSSH,S))
SET ^TMP("ANS",$JOB,ANSD,ANSSH,S)=""
+2 SET $PIECE(^TMP("ANS",$JOB,ANSD,ANSSH,S),U,P)=$PIECE(^TMP("ANS",$JOB,ANSD,ANSSH,S),U,P)+A
SET ANSRT=$PIECE(^(S),U,P)
+3 QUIT
PERCENT ;CALCULATE THE PERCENT OF TIME REQUIRED PER SHIFT
+1 ;ANSNS = NUMBER OF SHIFTS
+2 KILL ANSP
+3 SET ANSNS=$PIECE(ANSPAR,U,5)
SET X=""
+4 SET X=$GET(^ANSD(51.1,ANSNS,1))
+5 FOR I=1:1:ANSNS
SET ANSP(I)=$PIECE(X,U,I)/100
+6 QUIT
