- ANSUWR ;IHS/OIRM/DSD/CSC - UNIT WORKLOAD REPORT; [ 02/25/98 10:32 AM ]
- ;;3.0;NURSING PATIENT ACUITY;;APR 01, 1996
- ;;UNIT WORKLOAD REPORT
- EN D EN1
- EXIT K ANSHIFT,ANSCAT1,ANSCAT2,ANSCAT3,ANSCAT4,ANSCAT5,ANSCAT6
- Q
- EN1 ;
- D DATES^ANSDATE
- Q:$D(ANSQUIT)!$D(ANSOUT)!'$G(ANSBEGIN)
- S:'$G(ANSEND) ANSEND=DT
- D UNIT^ANSUD
- Q:'$G(ANSUN)
- D DATA Q
- D HEAD,SHEAD^ANSUWR1,PERCENT
- Q
- DATA S ANSDATE=ANSBEGIN
- F S ANSDATE=$O(^ANSR("AB",ANSDATE)) Q:'ANSDATE!(ANSDATE>ANSEND) D
- .S ANSX=0
- .F S ANSX=$O(^ANSR("AB",ANSDATE,ANSUN,ANSX)) Q:'ANSX S ANSZ=^ANSR(ANSX,0) D
- ..W !,ANSZ
- ..S ANSZ=0
- ..F S ANSZ=$O(^ANSR(ANSX,"L",ANSZ)) Q:'ANSZ S ANS=$G(^ANSR(ANSX,"L",ANSZ,0)) D ;;CSC 9-10-96
- ...S L=$P(ANS,U,2)
- ...I L>4,$P(^ANSD(59,+ANS,0),U,L) S L=$P(^(0),U,L)
- Q
- HEAD ;HEADER
- W @IOF,?25,"UNIT WORKLOAD REPORT"
- W !!,"UNIT........: ",ANSUNIT
- W !,"DATE........: "
- S Y=ANSDATE
- X ^DD("DD")
- W Y
- W !,"DATE PRINTED: "
- S Y=DT
- X ^DD("DD")
- W Y
- Q
- PERCENT ;
- S ANSHIFT(1)=45
- W !!,"PERCENT OF STAFF IN 24 HOURS",!,"ASSIGNED TO ",ANSHIFT," SHIFT: ",$J(ANSHIFT(1),3)," %"
- W !!?10,"+--------------------------+"
- W !?10,"| |"
- W !?10,"| STAFF HOURS REQUIRED |"
- W !?10,"| |"
- W !?10,"|--------------------------|"
- W !?10,"| | | |"
- W !?10,"| HOURS | | |"
- W !?10,"| FOR ALL| DISTRI-| |"
- W !?10,"| PAT'S | BUTION | RESULT |"
- W !?10,"| | | |"
- W !?10,"|--------------------------|"
- W !?10,"| | | |"
- F J=1:1:4 S Z=$S(J=1:"ANSRN",J=2:"ANSLPN",J=3:"ANSNA",J=4:"ANSALL") D P1 W !?10,"|",$J(X,6)," |",$J(ANSHIFT(1),6)," |",$J($FN(X*ANSHIFT(1)/100,"P"),8),"|"
- W !?10,"| | | |"
- W !?10,"+--------------------------+"
- Q
- P1 S X=0
- F I=1:1:6 S X=X+$P(@Z@(I),U,2)
- Q
- ANSUWR ;IHS/OIRM/DSD/CSC - UNIT WORKLOAD REPORT; [ 02/25/98 10:32 AM ]
- +1 ;;3.0;NURSING PATIENT ACUITY;;APR 01, 1996
- +2 ;;UNIT WORKLOAD REPORT
- EN DO EN1
- EXIT KILL ANSHIFT,ANSCAT1,ANSCAT2,ANSCAT3,ANSCAT4,ANSCAT5,ANSCAT6
- +1 QUIT
- EN1 ;
- +1 DO DATES^ANSDATE
- +2 IF $DATA">DATA(ANSQUIT)!$DATA">DATA(ANSOUT)!'$GET(ANSBEGIN)
- QUIT
- +3 IF '$GET(ANSEND)
- SET ANSEND=DT
- +4 DO UNIT^ANSUD
- +5 IF '$GET(ANSUN)
- QUIT
- +6 DO DATA
- QUIT
- +7 DO HEAD
- DO SHEAD^ANSUWR1
- DO PERCENT
- +8 QUIT
- DATA SET ANSDATE=ANSBEGIN
- +1 FOR
- SET ANSDATE=$ORDER(^ANSR("AB",ANSDATE))
- IF 'ANSDATE!(ANSDATE>ANSEND)
- QUIT
- Begin DoDot:1
- +2 SET ANSX=0
- +3 FOR
- SET ANSX=$ORDER(^ANSR("AB",ANSDATE,ANSUN,ANSX))
- IF 'ANSX
- QUIT
- SET ANSZ=^ANSR(ANSX,0)
- Begin DoDot:2
- +4 WRITE !,ANSZ
- +5 SET ANSZ=0
- +6 ;;CSC 9-10-96
- FOR
- SET ANSZ=$ORDER(^ANSR(ANSX,"L",ANSZ))
- IF 'ANSZ
- QUIT
- SET ANS=$GET(^ANSR(ANSX,"L",ANSZ,0))
- Begin DoDot:3
- +7 SET L=$PIECE(ANS,U,2)
- +8 IF L>4
- IF $PIECE(^ANSD(59,+ANS,0),U,L)
- SET L=$PIECE(^(0),U,L)
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +9 QUIT
- HEAD ;HEADER
- +1 WRITE @IOF,?25,"UNIT WORKLOAD REPORT"
- +2 WRITE !!,"UNIT........: ",ANSUNIT
- +3 WRITE !,"DATE........: "
- +4 SET Y=ANSDATE
- +5 XECUTE ^DD("DD")
- +6 WRITE Y
- +7 WRITE !,"DATE PRINTED: "
- +8 SET Y=DT
- +9 XECUTE ^DD("DD")
- +10 WRITE Y
- +11 QUIT
- PERCENT ;
- +1 SET ANSHIFT(1)=45
- +2 WRITE !!,"PERCENT OF STAFF IN 24 HOURS",!,"ASSIGNED TO ",ANSHIFT," SHIFT: ",$JUSTIFY(ANSHIFT(1),3)," %"
- +3 WRITE !!?10,"+--------------------------+"
- +4 WRITE !?10,"| |"
- +5 WRITE !?10,"| STAFF HOURS REQUIRED |"
- +6 WRITE !?10,"| |"
- +7 WRITE !?10,"|--------------------------|"
- +8 WRITE !?10,"| | | |"
- +9 WRITE !?10,"| HOURS | | |"
- +10 WRITE !?10,"| FOR ALL| DISTRI-| |"
- +11 WRITE !?10,"| PAT'S | BUTION | RESULT |"
- +12 WRITE !?10,"| | | |"
- +13 WRITE !?10,"|--------------------------|"
- +14 WRITE !?10,"| | | |"
- +15 FOR J=1:1:4
- SET Z=$SELECT(J=1:"ANSRN",J=2:"ANSLPN",J=3:"ANSNA",J=4:"ANSALL")
- DO P1
- WRITE !?10,"|",$JUSTIFY(X,6)," |",$JUSTIFY(ANSHIFT(1),6)," |",$JUSTIFY($FNUMBER(X*ANSHIFT(1)/100,"P"),8),"|"
- +16 WRITE !?10,"| | | |"
- +17 WRITE !?10,"+--------------------------+"
- +18 QUIT
- P1 SET X=0
- +1 FOR I=1:1:6
- SET X=X+$PIECE(@Z@(I),U,2)
- +2 QUIT
