NURARMH1 ;HIRMFO/MD,RM,FT-CONTINUATION OF 1106 PATIENT CARE MANHOURS DRIVER PRINT ;3/19/98 13:13
;;4.0;NURSING SERVICE;**9,14**;Apr 25, 1997
S U="^" I +$G(NDATED)?7N S Z=+$P(NDATED,U)_" 0" F S Z=$O(^NURSA(213.4,"B",Z)) Q:$E(Z,1,7)'>0!($E(Z,1,7)>+$P(NDATED,U,2)) S NDA=$O(^NURSA(213.4,"B",Z,0)) W:$E(IOST)="C"&'$R(30) "." D Q:NUROUT
.S NDATA=$S($D(^NURSA(213.4,NDA,0)):^(0),1:""),(NPWARD,YY(0))=$E($P(NDATA,U),9,99) Q:+NPWARD'>0!($P($G(^NURSF(211.4,+NPWARD,0)),U)="")
.I 'NURMDSW S NURFAC(2)=" BLANK"
.I NURMDSW S NURFAC(2)=$$EN12^NURSUT3($G(NPWARD)) Q:$G(NURFAC(2))=""
.I NURMDSW,$G(NURFAC)=0 Q:$G(NURFAC(1))'=$G(NURFAC(2))
.D EN6^NURSAUTL S YY("W")=$S(NPWARD'="":NPWARD,1:" BLANK") I 'NHOSPSW,YY(0)'=NURSWARD Q
.S NSHFT=$E(NDATA,8),NTCEN=0
.K NBED S D1=0 F S D1=$O(^NURSA(213.4,NDA,1,D1)) Q:D1'>0 S NBED(D1)=$S($D(^NURSA(213.4,NDA,1,D1,0)):^(0),1:""),NCEN=$P(NBED(D1),U,2)+$P(NBED(D1),U,3)+$P(NBED(D1),U,4)+$P(NBED(D1),U,5)+$P(NBED(D1),U,6),NBED(D1)=NCEN_U_NBED(D1),NTCEN=NTCEN+NCEN
.I 'NTCEN,'+$P(NDATA,U,2),'+$P(NDATA,U,3),'+$P(NDATA,U,4) Q
.I 'NTCEN S:'NBDSECT ^TMP($J,"NURBED",$E(Z,1,7),NURFAC(2)," BLANK",YY("W"),NSHFT)=$P(NDATA,U,2,4) D Q
..I NURMDSW,NHOSPSW,+$G(NURFAC) S:'$D(^TMP("NURBDSM",$J,"MANHOURS/NO BEDSECTION")) ^("MANHOURS/NO BEDSECTION")="" F NZ=1:1:3 S $P(^("MANHOURS/NO BEDSECTION"),U,NZ)=($P(^("MANHOURS/NO BEDSECTION"),U,NZ)+$J($P(NDATA,U,(NZ+1)),0,2))
..Q
.F D1=0:0 S D1=$O(NBED(D1)) Q:D1'>0 D
..S YY=$P(NBED(D1),U,2),YY("B")=$S('$D(^NURSF(213.3,YY,0)):" BLANK",$P(^(0),U)'="":$P(^(0),U),1:" BLANK")
..S NCEN=$P(NBED(D1),U),NPERC=NCEN/NTCEN
..I '(YY=NBDSECT!'NBDSECT) Q
..S ^TMP($J,"NURBED",$E(Z,1,7),NURFAC(2),YY("B"),YY("W"),NSHFT)=$J(NPERC*$P(NDATA,U,2),0,2)_U_$J(NPERC*$P(NDATA,U,3),0,2)_U_$J(NPERC*$P(NDATA,U,4),0,2)
..I NURMDSW,NHOSPSW,+NURFAC,YY("B")'="" D
...S:'$D(^TMP("NURBDSM",$J,YY("B"))) ^(YY("B"))="0^0^0"
...F NZ=1:1:3 S $P(^TMP("NURBDSM",$J,YY("B")),U,NZ)=($P(^TMP("NURBDSM",$J,YY("B")),U,NZ)+$J($P(NDATA,U,(NZ+1)),0,2))
...Q
..Q
.Q
I $D(NDATED) S (ZX,ZY)="" D
.I NDATED["MT" S ZX=$E(NDATED,1,5)_"00",ZY=$E(NDATED,1,5)_"31"
.I NDATED?3N S ZX=(NDATED-1)_"1000",ZY=NDATED_"0930"
.I NDATED["Q" S (ZX,ZY)=+$E(NDATED,1,3),NURZ=$E(NDATED,7) S:NURZ=1 ZX=ZX-1,ZY=ZY-1 S ZX=ZX_$S(NURZ=1:"1000",NURZ=2:"0100",NURZ=3:"0400",1:"0700"),ZY=ZY_$S(NURZ=1:"1231",NURZ=2:"0331",NURZ=3:"0630",1:"0930")
.I ZX="" Q
.S NURZ=ZX,NURMDSW(3)=1 F S NURZ=$O(^NURSA(213.4,"AB",NURZ)) Q:NURZ=""!(NURZ>ZY) F NDA=0:0 S NDA=$O(^NURSA(213.4,"AB",NURZ,NDA)) Q:NDA'>0 W:$E(IOST)="C"&'$R(30) "." D PERTOT^NURARMH2
.Q
I '$D(^TMP($J,"NURBED")) S NURFAC(2)=$S($G(NURFAC)=0:$G(NURFAC(1)),1:"") D HEADER W !!,$C(7),"THERE IS NO DATA FOR "_$S($G(NURSWARD(0))'="":NURSWARD(0),1:"THIS REPORT") S NUROUT=1 Q
I NURMDSW(3) D PERRPT^NURARMH2 G RUNTL
E D REPORT
RUNTL ;
I 'NUROUT,NHOSPSW,NURMDSW,+$G(NURFAC),$O(^TMP("NURBDSM",$J,""))'="" D
.D HEADER Q:NUROUT
.W !!,?35,"MULTI-DIVISIONAL SUMMARY"
.S NBED="" F S NBED=$O(^TMP("NURBDSM",$J,NBED)) Q:NBED="" D
..I $Y>(IOSL-6) D HEADER Q:NUROUT W !!,?35,"MULTI-DIVISIONAL SUMMARY"
..S NDATA=$G(^TMP("NURBDSM",$J,NBED))
..W !!,NBED,?42,$J($P(NDATA,U),7,2),?54,$J($P(NDATA,U,2),7,2),?67,$J($P(NDATA,U,3),7,2)
..Q
.Q
Q:$G(NURFAC)=0 W !,?40," ------- ------- -------",!,"REPORT TOTAL",?41,$J(FT("RN"),8,2),?53,$J(FT("LPN"),8,2),?66,$J(FT("NA"),8,2)
Q
REPORT U IO D
. F HDATE=0:0 S HDATE=$O(^TMP($J,"NURBED",HDATE)) Q:HDATE'>0 D Q:NUROUT D DAYTL Q:NUROUT
.. S NURFAC(2)="" F S NURFAC(2)=$O(^TMP($J,"NURBED",HDATE,NURFAC(2))) Q:NURFAC(2)="" D:'$G(NURSUMSW) HEADER Q:NUROUT D Q:NUROUT I NURMDSW,NHOSPSW D FACTL Q:NUROUT
... S YY("B")="" F NF1=0:0 S YY("B")=$O(^TMP($J,"NURBED",HDATE,NURFAC(2),YY("B"))) Q:YY("B")="" W:'$G(NURSUMSW) !,$S(YY("B")'=" BLANK":YY("B"),1:"TOTAL MANHOURS WHEN NO ACUITY DATA IS PRESENT:") D Q:NUROUT D BRK Q:NUROUT
.... S YY("W")="" F NF1=0:0 S YY("W")=$O(^TMP($J,"NURBED",HDATE,NURFAC(2),YY("B"),YY("W"))) Q:YY("W")="" D Q:NUROUT
..... S NSHFT="" F NFI=0:0 S NSHFT=$O(^TMP($J,"NURBED",HDATE,NURFAC(2),YY("B"),YY("W"),NSHFT)) Q:NSHFT="" D Q:NUROUT
...... I NURMDSW(1)!($Y>(IOSL-6)) D HEADER Q:NUROUT
...... S TL=^TMP($J,"NURBED",HDATE,NURFAC(2),YY("B"),YY("W"),NSHFT),TL("RN")=$P(TL,U),TL("LPN")=$P(TL,U,2),TL("NA")=$P(TL,U,3)
...... I '$G(NURSUMSW) W !,?6,YY("W"),?35,$S(NSHFT="D":"DAY",NSHFT="E":"EVE",NSHFT="N":"NIGHT",1:""),?43,$J(TL("RN"),6,2),?55,$J(TL("LPN"),6,2),?68,$J(TL("NA"),6,2)
...... S NBRK=1 F X="RN","LPN","NA" S NT(X)=NT(X)+TL(X) S:+$P(NDATED,U)?7N DTL(X)=DTL(X)+TL(X) S FNT(X)=FNT(X)+TL(X),FT(X)=FT(X)+TL(X),(NBCEN,NURMDSW(4))=0
...... Q
..... Q
.... Q
... Q
.. Q
. Q
Q
I 'NURQUEUE,$E(IOST)="C",'NURMDSW(1) D ENDPG^NURSUT1 Q:NUROUT
S $P(NURSX,"-",80)="",NURPAGE=NURPAGE+1 S Y=DT D:+Y D^DIQ W:$E(IOST)="C"!(NURPAGE>1) @IOF
I NURMDSW,NHOSPSW,$G(NURFAC(2))'="",'$G(NURSUMSW) W ?$$CNTR^NURSUT2(NURFAC(2)),$S($G(NURFAC(2))=" BLANK":"NO FACILITY",1:$G(NURFAC(2)))
W !!,Y,?15,$S(NHOSPSW:"Service",1:$E(NURSWARD(0),1,7)),?$X+1,"Manhours "_NURSHDR,?70,"PAGE: ",NURPAGE,!!,?44,"RN",?56,"LPN",?69,"NA",!,NURSX
I $G(HDATE)?7N W !,?35," " S Y=HDATE I +Y D DT^DIQ W !,?35,$E(NURSX,1,13)
W:'NURMDSW(1) !,$S(YY("B")'=" BLANK":YY("B"),1:"TOTAL MANHOURS WHEN NO ACUITY DATA IS PRESENT:")
S NURMDSW(1)=0
Q
BRK ; SUBTOTALS
Q:$G(NURSUMSW)
W !,?41," ------- ------- -------",!,"SUBTOTAL ",?42,$J(NT("RN"),7,2),?54,$J(NT("LPN"),7,2),?67,$J(NT("NA"),7,2),!
F X="RN","LPN","NA" S NT(X)=0
Q
FACTL ; FACILITY TOTALS
W !,?41," ------- ------- -------",!,$G(NURFAC(2))," TOTALS ",?42,$J(FNT("RN"),7,2),?54,$J(FNT("LPN"),7,2),?67,$J(FNT("NA"),7,2),!
F X="RN","LPN","NA" S FNT(X)=0
Q
DAYTL S Y=HDATE D D^DIQ W !,?41," ------- ------- -------",!,Y_" TOTAL ",?42,$J(DTL("RN"),7,2),?54,$J(DTL("LPN"),7,2),?67,$J(DTL("NA"),7,2),!
F X="RN","LPN","NA" S DTL(X)=0
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNURARMH1 5973 printed Apr 09, 2024@21:22:37 Page 2
NURARMH1 ;HIRMFO/MD,RM,FT-CONTINUATION OF 1106 PATIENT CARE MANHOURS DRIVER PRINT ;3/19/98 13:13
+1 ;;4.0;NURSING SERVICE;**9,14**;Apr 25, 1997
+2 SET U="^"
IF +$GET(NDATED)?7N
SET Z=+$PIECE(NDATED,U)_" 0"
FOR
SET Z=$ORDER(^NURSA(213.4,"B",Z))
if $EXTRACT(Z,1,7)'>0!($EXTRACT(Z,1,7)>+$PIECE(NDATED,U,2))
QUIT
SET NDA=$ORDER(^NURSA(213.4,"B",Z,0))
if $EXTRACT(IOST)="C"&'$RANDOM(30)
WRITE "."
Begin DoDot:1
+3 SET NDATA=$SELECT($DATA(^NURSA(213.4,NDA,0)):^(0),1:"")
SET (NPWARD,YY(0))=$EXTRACT($PIECE(NDATA,U),9,99)
if +NPWARD'>0!($PIECE($GET(^NURSF(211.4,+NPWARD,0)),U)="")
QUIT
+4 IF 'NURMDSW
SET NURFAC(2)=" BLANK"
+5 IF NURMDSW
SET NURFAC(2)=$$EN12^NURSUT3($GET(NPWARD))
if $GET(NURFAC(2))=""
QUIT
+6 IF NURMDSW
IF $GET(NURFAC)=0
if $GET(NURFAC(1))'=$GET(NURFAC(2))
QUIT
+7 DO EN6^NURSAUTL
SET YY("W")=$SELECT(NPWARD'="":NPWARD,1:" BLANK")
IF 'NHOSPSW
IF YY(0)'=NURSWARD
QUIT
+8 SET NSHFT=$EXTRACT(NDATA,8)
SET NTCEN=0
+9 KILL NBED
SET D1=0
FOR
SET D1=$ORDER(^NURSA(213.4,NDA,1,D1))
if D1'>0
QUIT
SET NBED(D1)=$SELECT($DATA(^NURSA(213.4,NDA,1,D1,0)):^(0),1:"")
SET NCEN=$PIECE(NBED(D1),U,2)+$PIECE(NBED(D1),U,3)+$PIECE(NBED(D1),U,4)+$PIECE(NBED(D1),U,5)+$PIECE(NBED(D1),U,6)
SET NBED(D1)=NCEN_U_NBED(D1)
SET NTCEN=NTCEN+NCEN
+10 IF 'NTCEN
IF '+$PIECE(NDATA,U,2)
IF '+$PIECE(NDATA,U,3)
IF '+$PIECE(NDATA,U,4)
QUIT
+11 IF 'NTCEN
if 'NBDSECT
SET ^TMP($JOB,"NURBED",$EXTRACT(Z,1,7),NURFAC(2)," BLANK",YY("W"),NSHFT)=$PIECE(NDATA,U,2,4)
Begin DoDot:2
+12 IF NURMDSW
IF NHOSPSW
IF +$GET(NURFAC)
if '$DATA(^TMP("NURBDSM",$JOB,"MANHOURS/NO BEDSECTION"))
SET ^("MANHOURS/NO BEDSECTION")=""
FOR NZ=1:1:3
SET $PIECE(^("MANHOURS/NO BEDSECTION"),U,NZ)=($PIECE(^("MANHOURS/NO BEDSECTION"),U,NZ)+$JUSTIFY($PIECE(NDATA,U,(NZ+1)),0,2))
+13 QUIT
End DoDot:2
QUIT
+14 FOR D1=0:0
SET D1=$ORDER(NBED(D1))
if D1'>0
QUIT
Begin DoDot:2
+15 SET YY=$PIECE(NBED(D1),U,2)
SET YY("B")=$SELECT('$DATA(^NURSF(213.3,YY,0)):" BLANK",$PIECE(^(0),U)'="":$PIECE(^(0),U),1:" BLANK")
+16 SET NCEN=$PIECE(NBED(D1),U)
SET NPERC=NCEN/NTCEN
+17 IF '(YY=NBDSECT!'NBDSECT)
QUIT
+18 SET ^TMP($JOB,"NURBED",$EXTRACT(Z,1,7),NURFAC(2),YY("B"),YY("W"),NSHFT)=$JUSTIFY(NPERC*$PIECE(NDATA,U,2),0,2)_U_$JUSTIFY(NPERC*$PIECE(NDATA,U,3),0,2)_U_$JUSTIFY(NPERC*$PIECE(NDATA,U,4),0,2)
+19 IF NURMDSW
IF NHOSPSW
IF +NURFAC
IF YY("B")'=""
Begin DoDot:3
+20 if '$DATA(^TMP("NURBDSM",$JOB,YY("B")))
SET ^(YY("B"))="0^0^0"
+21 FOR NZ=1:1:3
SET $PIECE(^TMP("NURBDSM",$JOB,YY("B")),U,NZ)=($PIECE(^TMP("NURBDSM",$JOB,YY("B")),U,NZ)+$JUSTIFY($PIECE(NDATA,U,(NZ+1)),0,2))
+22 QUIT
End DoDot:3
+23 QUIT
End DoDot:2
+24 QUIT
End DoDot:1
if NUROUT
QUIT
+25 IF $DATA(NDATED)
SET (ZX,ZY)=""
Begin DoDot:1
+26 IF NDATED["MT"
SET ZX=$EXTRACT(NDATED,1,5)_"00"
SET ZY=$EXTRACT(NDATED,1,5)_"31"
+27 IF NDATED?3N
SET ZX=(NDATED-1)_"1000"
SET ZY=NDATED_"0930"
+28 IF NDATED["Q"
SET (ZX,ZY)=+$EXTRACT(NDATED,1,3)
SET NURZ=$EXTRACT(NDATED,7)
if NURZ=1
SET ZX=ZX-1
SET ZY=ZY-1
SET ZX=ZX_$SELECT(NURZ=1:"1000",NURZ=2:"0100",NURZ=3:"0400",1:"0700")
SET ZY=ZY_$SELECT(NURZ=1:"1231",NURZ=2:"0331",NURZ=3:"0630",1:"0930")
+29 IF ZX=""
QUIT
+30 SET NURZ=ZX
SET NURMDSW(3)=1
FOR
SET NURZ=$ORDER(^NURSA(213.4,"AB",NURZ))
if NURZ=""!(NURZ>ZY)
QUIT
FOR NDA=0:0
SET NDA=$ORDER(^NURSA(213.4,"AB",NURZ,NDA))
if NDA'>0
QUIT
if $EXTRACT(IOST)="C"&'$RANDOM(30)
WRITE "."
DO PERTOT^NURARMH2
+31 QUIT
End DoDot:1
+32 IF '$DATA(^TMP($JOB,"NURBED"))
SET NURFAC(2)=$SELECT($GET(NURFAC)=0:$GET(NURFAC(1)),1:"")
DO HEADER
WRITE !!,$CHAR(7),"THERE IS NO DATA FOR "_$SELECT($GET(NURSWARD(0))'="":NURSWARD(0),1:"THIS REPORT")
SET NUROUT=1
QUIT
+33 IF NURMDSW(3)
DO PERRPT^NURARMH2
GOTO RUNTL
+34 IF '$TEST
DO REPORT
RUNTL ;
+1 IF 'NUROUT
IF NHOSPSW
IF NURMDSW
IF +$GET(NURFAC)
IF $ORDER(^TMP("NURBDSM",$JOB,""))'=""
Begin DoDot:1
+2 DO HEADER
if NUROUT
QUIT
+3 WRITE !!,?35,"MULTI-DIVISIONAL SUMMARY"
+4 SET NBED=""
FOR
SET NBED=$ORDER(^TMP("NURBDSM",$JOB,NBED))
if NBED=""
QUIT
Begin DoDot:2
+5 IF $Y>(IOSL-6)
DO HEADER
if NUROUT
QUIT
WRITE !!,?35,"MULTI-DIVISIONAL SUMMARY"
+6 SET NDATA=$GET(^TMP("NURBDSM",$JOB,NBED))
+7 WRITE !!,NBED,?42,$JUSTIFY($PIECE(NDATA,U),7,2),?54,$JUSTIFY($PIECE(NDATA,U,2),7,2),?67,$JUSTIFY($PIECE(NDATA,U,3),7,2)
+8 QUIT
End DoDot:2
+9 QUIT
End DoDot:1
+10 if $GET(NURFAC)=0
QUIT
WRITE !,?40," ------- ------- -------",!,"REPORT TOTAL",?41,$JUSTIFY(FT("RN"),8,2),?53,$JUSTIFY(FT("LPN"),8,2),?66,$JUSTIFY(FT("NA"),8,2)
+11 QUIT
REPORT USE IO
Begin DoDot:1
+1 FOR HDATE=0:0
SET HDATE=$ORDER(^TMP($JOB,"NURBED",HDATE))
if HDATE'>0
QUIT
Begin DoDot:2
+2 SET NURFAC(2)=""
FOR
SET NURFAC(2)=$ORDER(^TMP($JOB,"NURBED",HDATE,NURFAC(2)))
if NURFAC(2)=""
QUIT
if '$GET(NURSUMSW)
DO HEADER
if NUROUT
QUIT
Begin DoDot:3
+3 SET YY("B")=""
FOR NF1=0:0
SET YY("B")=$ORDER(^TMP($JOB,"NURBED",HDATE,NURFAC(2),YY("B")))
if YY("B")=""
QUIT
if '$GET(NURSUMSW)
WRITE !,$SELECT(YY("B")'=" BLANK":YY("B"),1:"TOTAL MANHOURS WHEN NO ACUITY DATA IS PRESENT:")
Begin DoDot:4
+4 SET YY("W")=""
FOR NF1=0:0
SET YY("W")=$ORDER(^TMP($JOB,"NURBED",HDATE,NURFAC(2),YY("B"),YY("W")))
if YY("W")=""
QUIT
Begin DoDot:5
+5 SET NSHFT=""
FOR NFI=0:0
SET NSHFT=$ORDER(^TMP($JOB,"NURBED",HDATE,NURFAC(2),YY("B"),YY("W"),NSHFT))
if NSHFT=""
QUIT
Begin DoDot:6
+6 IF NURMDSW(1)!($Y>(IOSL-6))
DO HEADER
if NUROUT
QUIT
+7 SET TL=^TMP($JOB,"NURBED",HDATE,NURFAC(2),YY("B"),YY("W"),NSHFT)
SET TL("RN")=$PIECE(TL,U)
SET TL("LPN")=$PIECE(TL,U,2)
SET TL("NA")=$PIECE(TL,U,3)
+8 IF '$GET(NURSUMSW)
WRITE !,?6,YY("W"),?35,$SELECT(NSHFT="D":"DAY",NSHFT="E":"EVE",NSHFT="N":"NIGHT",1:""),?43,$JUSTIFY(TL("RN"),6,2),?55,$JUSTIFY(TL("LPN"),6,2),?68,$JUSTIFY(TL("NA"),6,2)
+9 SET NBRK=1
FOR X="RN","LPN","NA"
SET NT(X)=NT(X)+TL(X)
if +$PIECE(NDATED,U)?7N
SET DTL(X)=DTL(X)+TL(X)
SET FNT(X)=FNT(X)+TL(X)
SET FT(X)=FT(X)+TL(X)
SET (NBCEN,NURMDSW(4))=0
+10 QUIT
End DoDot:6
if NUROUT
QUIT
+11 QUIT
End DoDot:5
if NUROUT
QUIT
+12 QUIT
End DoDot:4
if NUROUT
QUIT
DO BRK
if NUROUT
QUIT
+13 QUIT
End DoDot:3
if NUROUT
QUIT
IF NURMDSW
IF NHOSPSW
DO FACTL
if NUROUT
QUIT
+14 QUIT
End DoDot:2
if NUROUT
QUIT
DO DAYTL
if NUROUT
QUIT
+15 QUIT
End DoDot:1
+16 QUIT
+1 IF 'NURQUEUE
IF $EXTRACT(IOST)="C"
IF 'NURMDSW(1)
DO ENDPG^NURSUT1
if NUROUT
QUIT
+2 SET $PIECE(NURSX,"-",80)=""
SET NURPAGE=NURPAGE+1
SET Y=DT
if +Y
DO D^DIQ
if $EXTRACT(IOST)="C"!(NURPAGE>1)
WRITE @IOF
+3 IF NURMDSW
IF NHOSPSW
IF $GET(NURFAC(2))'=""
IF '$GET(NURSUMSW)
WRITE ?$$CNTR^NURSUT2(NURFAC(2)),$SELECT($GET(NURFAC(2))=" BLANK":"NO FACILITY",1:$GET(NURFAC(2)))
+4 WRITE !!,Y,?15,$SELECT(NHOSPSW:"Service",1:$EXTRACT(NURSWARD(0),1,7)),?$X+1,"Manhours "_NURSHDR,?70,"PAGE: ",NURPAGE,!!,?44,"RN",?56,"LPN",?69,"NA",!,NURSX
+5 IF $GET(HDATE)?7N
WRITE !,?35," "
SET Y=HDATE
IF +Y
DO DT^DIQ
WRITE !,?35,$EXTRACT(NURSX,1,13)
+6 if 'NURMDSW(1)
WRITE !,$SELECT(YY("B")'=" BLANK":YY("B"),1:"TOTAL MANHOURS WHEN NO ACUITY DATA IS PRESENT:")
+7 SET NURMDSW(1)=0
+8 QUIT
BRK ; SUBTOTALS
+1 if $GET(NURSUMSW)
QUIT
+2 WRITE !,?41," ------- ------- -------",!,"SUBTOTAL ",?42,$JUSTIFY(NT("RN"),7,2),?54,$JUSTIFY(NT("LPN"),7,2),?67,$JUSTIFY(NT("NA"),7,2),!
+3 FOR X="RN","LPN","NA"
SET NT(X)=0
+4 QUIT
FACTL ; FACILITY TOTALS
+1 WRITE !,?41," ------- ------- -------",!,$GET(NURFAC(2))," TOTALS ",?42,$JUSTIFY(FNT("RN"),7,2),?54,$JUSTIFY(FNT("LPN"),7,2),?67,$JUSTIFY(FNT("NA"),7,2),!
+2 FOR X="RN","LPN","NA"
SET FNT(X)=0
+3 QUIT
DAYTL SET Y=HDATE
DO D^DIQ
WRITE !,?41," ------- ------- -------",!,Y_" TOTAL ",?42,$JUSTIFY(DTL("RN"),7,2),?54,$JUSTIFY(DTL("LPN"),7,2),?67,$JUSTIFY(DTL("NA"),7,2),!
+1 FOR X="RN","LPN","NA"
SET DTL(X)=0
+2 QUIT
