- 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 Mar 13, 2025@21:24:50 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
