source: WorldVistAEHR/trunk/r/NURSING_SERVICE-NUR/NURSAWL0.m@ 1111

Last change on this file since 1111 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.5 KB
RevLine 
[613]1NURSAWL0 ;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
5DEV 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
7START ;
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
12HSKEEP ; SET LOCAL VARIABLES
13 S (NUROUTSW,NURPAGE,NURSW1,NSW2,NURQUEUE)=0
14 Q
15DATESEL ; 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
22EN1 ; 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
26EN2 ; 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
33LOOP F X="NURQUEUE","NUROUTSW","NURSW1","NSW2","NURPAGE","NURSWARD","NRPTDAT" S ZTSAVE(X)=""
34 Q
35QUIT ; KILL LOCAL VARIABLES
36 D CLOSE^NURSUT1,^NURSKILL
37 Q
Note: See TracBrowser for help on using the repository browser.