38 lines
1.5 KiB
Mathematica
38 lines
1.5 KiB
Mathematica
|
NURSAWL0 ;HIRMFO/RM,FT-WORK LOAD STATISTICS ;2/27/98 14:25
|
||
|
|
;;4.0;NURSING SERVICE;**9**;Apr 25, 1997
|
||
|
|
;LAST MODIFIED BY MD-7/13/87
|
||
|
|
D DATESEL I NUROUTSW D QUIT Q
|
||
|
|
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
|
||
|
|
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
|
||
|
|
START ;
|
||
|
|
K ^TMP($J)
|
||
|
|
S X=$O(^TMP($J,"")) I X="" S NUROUTSW=1 W !," THERE IS NO DATA FOR THIS REPORT " G QUIT
|
||
|
|
D QUIT
|
||
|
|
Q
|
||
|
|
HSKEEP ; SET LOCAL VARIABLES
|
||
|
|
S (NUROUTSW,NURPAGE,NURSW1,NSW2,NURQUEUE)=0
|
||
|
|
Q
|
||
|
|
DATESEL ; SELECT DATE FOR REPORT
|
||
|
|
S X="T-1" D ^%DT X ^DD("DD") S %DT("B")=Y
|
||
|
|
S %DT="AET",%DT("A")="Select DATE for report: " W ! D ^%DT K %DT W !
|
||
|
|
I X["^" S NUROUTSW=1 Q
|
||
|
|
G:Y'>0 DATESEL
|
||
|
|
S NRPTDAT=$P(Y,".",1)
|
||
|
|
Q
|
||
|
|
EN1 ; ENTRY FROM AMIS LOCATION WORKLOAD STATISTICS OPTION
|
||
|
|
Q:'$D(^DIC(213.9,1,"OFF")) Q:$P(^DIC(213.9,1,"OFF"),"^",1)=1
|
||
|
|
S NURSWARD="" D HSKEEP
|
||
|
|
G NURSAWL0
|
||
|
|
EN2 ; ENTRY FROM AMIS SERVICE WORKLOAD STATISTICS OPTION
|
||
|
|
Q:'$D(^DIC(213.9,1,"OFF")) Q:$P(^DIC(213.9,1,"OFF"),"^",1)=1
|
||
|
|
D HSKEEP W ! S DIC="^NURSF(211.4,",DIC(0)="AEMZ",DIC("A")="Select UNIT for report: " D ^DIC W !
|
||
|
|
G:X="^"!(X="") QUIT
|
||
|
|
G:(X["?")!(+Y<0) EN2
|
||
|
|
S NURSWARD=Y(0)
|
||
|
|
G NURSAWL0
|
||
|
|
LOOP F X="NURQUEUE","NUROUTSW","NURSW1","NSW2","NURPAGE","NURSWARD","NRPTDAT" S ZTSAVE(X)=""
|
||
|
|
Q
|
||
|
|
QUIT ; KILL LOCAL VARIABLES
|
||
|
|
D CLOSE^NURSUT1,^NURSKILL
|
||
|
|
Q
|