| 1 | NURARWL8 ;HIRMFO/MD-HOSPITAL TOTAL ROUTINE FOR WORKLOAD STATISTICS REPORTS ;9/20/96
|
|---|
| 2 | ;;4.0;NURSING SERVICE;**20**;Apr 25, 1997
|
|---|
| 3 | HTOT ; HOSPITAL TOTALS
|
|---|
| 4 | I +$G(NDATED)=$P($G(NDATED),U,2) Q
|
|---|
| 5 | F Y=1,2,3 D
|
|---|
| 6 | .S $P(NHVAR,U,Y)=$J($P(NHFTEE,U,Y),1,1)-$J($P(NHREQ,U,Y),1,1) I $J($P(NHFTEE,U,Y),1,1),$J($P(NHREQ,U,Y),1,1),NURSZAP'>6 S $P(NHPROD,U,Y)=($J($P(NHREQ,U,Y),1,1)/$J($P(NHFTEE,U,Y),1,1))*100
|
|---|
| 7 | .Q
|
|---|
| 8 | I +NHREQ!(+$P(NHREQ,U,2))!(+$P(NHREQ,U,3)) W:'$G(NURSUMSW) !,?18,$$REPEAT^XLFSTR("-",114) D
|
|---|
| 9 | .W !,"REPORT SUMMARY",?22,$J($P(NHREQ,U),4,1),?28,$J($P(NHFTEE,U),4,1),?34,$J($P(NHVAR,U),5,1) W:NURSZAP'>6 ?41,$J($P(NHPROD,U),3,0) W ?48,$J($P(NHREQ,U,2),4,1),?54,$J($P(NHFTEE,U,2),4,1)
|
|---|
| 10 | .W ?60,$J($P(NHVAR,U,2),5,1) W:NURSZAP'>6 ?67,$J($P(NHPROD,U,2),3,0) W ?74,$J($P(NHREQ,U,3),4,1),?80,$J($P(NHFTEE,U,3),4,1),?86,$J($P(NHVAR,U,3),5,1) W:NURSZAP'>6 ?92,$J($P(NHPROD,U,3),3,0)
|
|---|
| 11 | .W ?97,$J($P(NHPC,U),4,1),?103,$J($P(NHPC,U,2),4,1),?109,$J($P(NHPC,U,3),4,1),?115,$J($P(NHPC,U,4),4,1),?121,$J($P(NHPC,U,5),3,1),?126,$J(NHPCC,5,1)
|
|---|
| 12 | F Z="DOM","REC","HEM" I +MNHRS(Z)!(+$P(MNHRS(Z),U,2))!(+$P(MNHRS(Z),U,3))!(+COUNT(Z)) D
|
|---|
| 13 | .W !,"REPORT ",Z," COUNT",?28,$J(+MNHRS(Z),4,1),?54,$J($P(MNHRS(Z),U,2),4,1),?80,$J($P(MNHRS(Z),U,3),4,1)
|
|---|
| 14 | .W ?97,$J(+COUNT(Z),4,1),?103,$J($P(COUNT(Z),U,2),4,1),?109,$J($P(COUNT(Z),U,3),4,1),?115,$J($P(COUNT(Z),U,4),4,1),?121,$J($P(COUNT(Z),U,5),3,1),?126,$J(+COUNT(Z),5,1)
|
|---|
| 15 | .Q
|
|---|
| 16 | Q
|
|---|
| 17 | AVG ;CENSUS AVG
|
|---|
| 18 | Q:'NAVG F X=1:1:5 S:$P(NBPC,U,X) $P(NBPC,U,X)=$P(NBPC,U,X)/NAVG
|
|---|
| 19 | S:NBPCC NBPCC=NBPCC/NAVG,NAVG=0
|
|---|
| 20 | Q
|
|---|
| 21 | HEADER ; PRINT REPORT HEADING FOR AMIS WORKLOAD REPORTS
|
|---|
| 22 | I 'NURQUEUE,$E(IOST)="C",NSW1 D ENDPG^NURSUT1 Q:NUROUT
|
|---|
| 23 | S NSW1=1,NPCT=NPCT+1,NPWARD=NWARD D EN6^NURSAUTL
|
|---|
| 24 | U IO W:$E(IOST)="C"!(NPCT>1) @IOF
|
|---|
| 25 | I NURMDSW,'$G(NWARD) W !,?61,$S($G(NPFAC)=" BLANK":"NO FACILITY",1:$G(NPFAC))
|
|---|
| 26 | S HDRDT=$S(+NDATED'=$P(NDATED,U,2):"FROM ",1:"")_$E(+NDATED,4,5)_"/"_$E(+NDATED,6,7)_"/"_$E(+NDATED,2,3)_$S(+NDATED'=$P(NDATED,U,2):" - "_$E($P(NDATED,U,2),4,5)_"/"_$E($P(NDATED,U,2),6,7)_"/"_$E($P(NDATED,U,2),2,3),1:"")
|
|---|
| 27 | W !,$E(DT,4,5),"/",$E(DT,6,7),"/",$E(DT,2,3),?44,"AMIS WORKLOAD "_$S($D(NURSUMSW):"SUMMARY",1:"STATISTICS")_" FOR " W $S(NWARD:NPWARD,'NWARD:"THE SERVICE",1:"")_" "_HDRDT
|
|---|
| 28 | W ?124,"PAGE: ",NPCT
|
|---|
| 29 | W ! W:'$D(NURSUMSW) ?16,"BED" W ?29,"RN FTEE",?57,"LPN FTEE",?83,"NA FTEE"
|
|---|
| 30 | W !,"UNIT" W:'$D(NURSUMSW) ?16,"SECT" W ?22,"REQ S OD VAR" W:NURSZAP'>6 ?39,"%/PRO" W ?49,"REQ S OD VAR" W:NURSZAP'>6 ?66,"%/PRO" W ?75,"REQ S OD VAR" W:NURSZAP'>6 ?91,"%/PRO" W ?99,"PC1 PC2 PC3 PC4 PC5 PTOT"
|
|---|
| 31 | W !,$$REPEAT^XLFSTR("-",132)
|
|---|
| 32 | D DATE
|
|---|
| 33 | Q
|
|---|
| 34 | DATE ;
|
|---|
| 35 | W !,?61," " S Y=NDATE I +Y D DT^DIQ W !,?61,$$REPEAT^XLFSTR("-",13)
|
|---|
| 36 | Q
|
|---|
