| 1 | NURSAWL0 ;HIRMFO/RM,FT-WORK LOAD STATISTICS ;2/27/98 14:25
|
|---|
| 2 | ;;4.0;NURSING SERVICE;**9**;Apr 25, 1997
|
|---|
| 3 | ;LAST MODIFIED BY MD-7/13/87
|
|---|
| 4 | D DATESEL I NUROUTSW D QUIT Q
|
|---|
| 5 | DEV S %ZIS="Q" D ^%ZIS K %ZIS K:POP IO("Q") G:POP QUIT I IO'=IO(0),IOST'?1"P".E!'$D(IO("Q")) S XQH="NURS-PRINTER QUEUE" W $C(7) D EN^XQH K XQH D ^%ZISC G DEV
|
|---|
| 6 | I $D(IO("Q")) K IO("Q") S NURQUEUE=1,ZTDESC="Nursing Workload Stats",ZTIO=ION,ZTRTN="START^NURSAWL0" D LOOP,^%ZTLOAD S NURQUEUE=0 K ZTIO,ZTRTN,ZTSAVE G QUIT
|
|---|
| 7 | START ;
|
|---|
| 8 | K ^TMP($J)
|
|---|
| 9 | S X=$O(^TMP($J,"")) I X="" S NUROUTSW=1 W !," THERE IS NO DATA FOR THIS REPORT " G QUIT
|
|---|
| 10 | D QUIT
|
|---|
| 11 | Q
|
|---|
| 12 | HSKEEP ; SET LOCAL VARIABLES
|
|---|
| 13 | S (NUROUTSW,NURPAGE,NURSW1,NSW2,NURQUEUE)=0
|
|---|
| 14 | Q
|
|---|
| 15 | DATESEL ; SELECT DATE FOR REPORT
|
|---|
| 16 | S X="T-1" D ^%DT X ^DD("DD") S %DT("B")=Y
|
|---|
| 17 | S %DT="AET",%DT("A")="Select DATE for report: " W ! D ^%DT K %DT W !
|
|---|
| 18 | I X["^" S NUROUTSW=1 Q
|
|---|
| 19 | G:Y'>0 DATESEL
|
|---|
| 20 | S NRPTDAT=$P(Y,".",1)
|
|---|
| 21 | Q
|
|---|
| 22 | EN1 ; ENTRY FROM AMIS LOCATION WORKLOAD STATISTICS OPTION
|
|---|
| 23 | Q:'$D(^DIC(213.9,1,"OFF")) Q:$P(^DIC(213.9,1,"OFF"),"^",1)=1
|
|---|
| 24 | S NURSWARD="" D HSKEEP
|
|---|
| 25 | G NURSAWL0
|
|---|
| 26 | EN2 ; ENTRY FROM AMIS SERVICE WORKLOAD STATISTICS OPTION
|
|---|
| 27 | Q:'$D(^DIC(213.9,1,"OFF")) Q:$P(^DIC(213.9,1,"OFF"),"^",1)=1
|
|---|
| 28 | D HSKEEP W ! S DIC="^NURSF(211.4,",DIC(0)="AEMZ",DIC("A")="Select UNIT for report: " D ^DIC W !
|
|---|
| 29 | G:X="^"!(X="") QUIT
|
|---|
| 30 | G:(X["?")!(+Y<0) EN2
|
|---|
| 31 | S NURSWARD=Y(0)
|
|---|
| 32 | G NURSAWL0
|
|---|
| 33 | LOOP F X="NURQUEUE","NUROUTSW","NURSW1","NSW2","NURPAGE","NURSWARD","NRPTDAT" S ZTSAVE(X)=""
|
|---|
| 34 | Q
|
|---|
| 35 | QUIT ; KILL LOCAL VARIABLES
|
|---|
| 36 | D CLOSE^NURSUT1,^NURSKILL
|
|---|
| 37 | Q
|
|---|
