ANSQSP1 ;IHS/OIRM/DSD/CSC - PRINT NURSE STAFFING STATS; [ 02/25/98 10:32 AM ]
;;3.0;NURSING PATIENT ACUITY;;APR 01, 1996
;;PRINT NURSE STAFFING STATS
EN ;CHECK THROUGH EACH DAY OF THE REPORT GLOBAL
S ANSD=0
F S ANSD=$O(^TMP("ANS",$J,ANSD)) Q:'ANSD!$D(DTOUT)!$D(DUOUT) D EN1
I ANSD<1 D C1 Q
I ANSPO="D" D B1 Q
Q
EN1 ;PROCESS INFO FOR EACH DAY
I ANSPO="D" D B1 Q
I ANSIOT,$Y>$S(ANSPO="S":18,1:23) D
.D PAUSE^ANSDIC
.W:$D(IOF) @IOF
.D HEAD^ANSQSP
I $Y>54 D
.D HEAD^ANSQSP
S ANSSH=0
F S ANSSH=$O(^TMP("ANS",$J,ANSD,ANSSH)) Q:'ANSSH!$D(DTOUT)!$D(DUOUT) D
.F I="A","O","H" S @I=$G(^TMP("ANS",$J,ANSD,ANSSH,I))
.S L="",T=0
.F I=1:1:6 S Y=$P(O,U,I) I Y S T=T+Y,$P(L,U,I+4)=Y
.S $P(L,U,4)=$P(O,U,7)
.S N=0
.F I=1:1:6 S Y=$P(A,U,I) I Y S N=N+Y
.S $P(L,U)=T,$P(L,U,2)=T,$P(L,U,3)=N,X=$P(H,U)-$P(H,U,2),Y=$P(H,U,3),E=""
.I X S E=Y/X
.S $P(L,U,11)=Y,$P(L,U,12)=X,$P(L,U,13)=E*100
.S ANSWX=$E(ANSD,4,7)
.D SBW
I ANSSH<1 D B1 Q
Q
B1 ;PRINT THE DAILY SUMMARY
S L="",ANSPTC=ANSPTC+1
I $D(^TMP("ANS",$J,ANSD,"T")) S L=^("T"),X=$P(L,U,11),Y=$P(L,U,12),E="" I Y S E=X/Y*100,$P(L,U,13)=E
D:ANSPO="S" H9^ANSQSP
S ANSWX=$S(ANSPO="S":"Daily",1:$E(ANSD,4,7))
D SBW
F I=1,3:1:13 S N=$P(L,U,I) S A(I)=$G(A(I))+N
S N=$P(L,U,2)
I N>$G(A(2)) S A(2)=N
W:ANSPO="S" !
Q
C1 ;PRINT OUT THE SUMMARY TOTALS FOR ALL DAYS SELECTED
D H9^ANSQSP
S L=""
F I=1:1:12 S $P(L,U,I)=$G(A(I))
S X=$P(L,U,11),Y=$P(L,U,12)
I Y S E=X/Y*100,$P(L,U,13)=E
S ANSWX="Total"
D SBW
Q
SBW ;WRITE OUT INFO FOR EACH SHIFT AND DAILY SUMMARY
W !,ANSWX," "
I $D(ANSSH),ANSSH S X=$T(@ANSNS) W $P(X,";;",ANSSH+1)
F I=1:1:13 S N=$P(L,U,I) D
.S N=$J(N,1,1),D=$P(N,".",2),N=$P(N,".",1)
.D WRT
Q
WRT ;WRITE EACH COLUMN OF EACH LINE OF THE REPORT
S T=$P(ANSTAB,";;",I+1),W=$P(ANSWTH,";;",I+1)
W ?T,"|",$J(N,W)
I D W ".",D
I I=13,'D W ".0"
Q
2 ;;D;;N
3 ;;D;;E;;N
ANSQSP1 ;IHS/OIRM/DSD/CSC - PRINT NURSE STAFFING STATS; [ 02/25/98 10:32 AM ]
+1 ;;3.0;NURSING PATIENT ACUITY;;APR 01, 1996
+2 ;;PRINT NURSE STAFFING STATS
EN ;CHECK THROUGH EACH DAY OF THE REPORT GLOBAL
+1 SET ANSD=0
+2 FOR
SET ANSD=$ORDER(^TMP("ANS",$JOB,ANSD))
IF 'ANSD!$DATA(DTOUT)!$DATA(DUOUT)
QUIT
DO EN1
+3 IF ANSD<1
DO C1
QUIT
+4 IF ANSPO="D"
DO B1
QUIT
+5 QUIT
EN1 ;PROCESS INFO FOR EACH DAY
+1 IF ANSPO="D"
DO B1
QUIT
+2 IF ANSIOT
IF $Y>$SELECT(ANSPO="S":18,1:23)
Begin DoDot:1
+3 DO PAUSE^ANSDIC
+4 IF $DATA(IOF)
WRITE @IOF
+5 DO HEAD^ANSQSP
End DoDot:1
+6 IF $Y>54
Begin DoDot:1
+7 DO HEAD^ANSQSP
End DoDot:1
+8 SET ANSSH=0
+9 FOR
SET ANSSH=$ORDER(^TMP("ANS",$JOB,ANSD,ANSSH))
IF 'ANSSH!$DATA(DTOUT)!$DATA(DUOUT)
QUIT
Begin DoDot:1
+10 FOR I="A","O","H"
SET @I=$GET(^TMP("ANS",$JOB,ANSD,ANSSH,I))
+11 SET L=""
SET T=0
+12 FOR I=1:1:6
SET Y=$PIECE(O,U,I)
IF Y
SET T=T+Y
SET $PIECE(L,U,I+4)=Y
+13 SET $PIECE(L,U,4)=$PIECE(O,U,7)
+14 SET N=0
+15 FOR I=1:1:6
SET Y=$PIECE(A,U,I)
IF Y
SET N=N+Y
+16 SET $PIECE(L,U)=T
SET $PIECE(L,U,2)=T
SET $PIECE(L,U,3)=N
SET X=$PIECE(H,U)-$PIECE(H,U,2)
SET Y=$PIECE(H,U,3)
SET E=""
+17 IF X
SET E=Y/X
+18 SET $PIECE(L,U,11)=Y
SET $PIECE(L,U,12)=X
SET $PIECE(L,U,13)=E*100
+19 SET ANSWX=$EXTRACT(ANSD,4,7)
+20 DO SBW
End DoDot:1
+21 IF ANSSH<1
DO B1
QUIT
+22 QUIT
B1 ;PRINT THE DAILY SUMMARY
+1 SET L=""
SET ANSPTC=ANSPTC+1
+2 IF $DATA(^TMP("ANS",$JOB,ANSD,"T"))
SET L=^("T")
SET X=$PIECE(L,U,11)
SET Y=$PIECE(L,U,12)
SET E=""
IF Y
SET E=X/Y*100
SET $PIECE(L,U,13)=E
+3 IF ANSPO="S"
DO H9^ANSQSP
+4 SET ANSWX=$SELECT(ANSPO="S":"Daily",1:$EXTRACT(ANSD,4,7))
+5 DO SBW
+6 FOR I=1,3:1:13
SET N=$PIECE(L,U,I)
SET A(I)=$GET(A(I))+N
+7 SET N=$PIECE(L,U,2)
+8 IF N>$GET(A(2))
SET A(2)=N
+9 IF ANSPO="S"
WRITE !
+10 QUIT
C1 ;PRINT OUT THE SUMMARY TOTALS FOR ALL DAYS SELECTED
+1 DO H9^ANSQSP
+2 SET L=""
+3 FOR I=1:1:12
SET $PIECE(L,U,I)=$GET(A(I))
+4 SET X=$PIECE(L,U,11)
SET Y=$PIECE(L,U,12)
+5 IF Y
SET E=X/Y*100
SET $PIECE(L,U,13)=E
+6 SET ANSWX="Total"
+7 DO SBW
+8 QUIT
SBW ;WRITE OUT INFO FOR EACH SHIFT AND DAILY SUMMARY
+1 WRITE !,ANSWX," "
+2 IF $DATA(ANSSH)
IF ANSSH
SET X=$TEXT(@ANSNS)
WRITE $PIECE(X,";;",ANSSH+1)
+3 FOR I=1:1:13
SET N=$PIECE(L,U,I)
Begin DoDot:1
+4 SET N=$JUSTIFY(N,1,1)
SET D=$PIECE(N,".",2)
SET N=$PIECE(N,".",1)
+5 DO WRT
End DoDot:1
+6 QUIT
WRT ;WRITE EACH COLUMN OF EACH LINE OF THE REPORT
+1 SET T=$PIECE(ANSTAB,";;",I+1)
SET W=$PIECE(ANSWTH,";;",I+1)
+2 WRITE ?T,"|",$JUSTIFY(N,W)
+3 IF D
WRITE ".",D
+4 IF I=13
IF 'D
WRITE ".0"
+5 QUIT
2 ;;D;;N
3 ;;D;;E;;N
