source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENWARD1.m@ 701

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

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1ENWARD1 ;(WASH ISC)/DH-Incomplete Work Orders for End Users ;2.17.97
2 ;;7.0;ENGINEERING;**35**;Aug 17, 1993
3 ; Check for incomplete work orders
4 ;
5EN S DIR(0)="S^E:Entered By;L:Locations (multiple);R:Room (specific);S:Service/Section",DIR("B")="Room (specific)",DIR("A")="List incomplete work orders by"
6 D ^DIR K DIR G:$D(DIRUT) EXIT G @$E(Y)
7 ;
8E ;By user (ENTERED BY)
9 S DIC="^VA(200,",DIC(0)="AEQMN" D ^DIC G:Y'>0 EXIT S ENEB=+Y,ENBY="E"
10 G DEV
11 ;
12L ;By location
13 S DIR(0)="Y",DIR("A")="Should all LOCATIONS be included",DIR("B")="YES"
14 S DIR("?",1)="Enter 'NO' if you want to screen your list by DIVISION, BUILDING, WING,"
15 S DIR("?",2)="and/or ROOM. If you enter 'YES' then all locations will be included and the"
16 S DIR("?")="sort order will be DIVISION, BUILDING, WING, and finally ROOM."
17 D ^DIR K DIR Q:$D(DIRUT)
18 S ENSRT("LOC","ALL")=Y S:Y ENSRT("BY")="DBWR"
19 D:'Y GEN^ENSPSRT
20 I '$D(ENSRT("BY")) G EXIT
21 S ENBY="L" G DEV
22 ;
23R ; One specific room
24 S DIC="^ENG(""SP"",",DIC(0)="AEQM" D ^DIC G:Y'>0 EXIT S ENROOM=+Y,ENBY="R" G DEV
25 ;
26S ;By service
27 S DIC="^DIC(49,",DIC(0)="AEQM" D ^DIC G:Y'>0 EXIT S ENSRVC=+Y,ENBY="S"
28DEV K IOP("P") S %ZIS="Q" D ^%ZIS G:POP EXIT
29 I $D(IO("Q")) K IO("Q") S ZTIO=ION,ZTRTN="EN^ENWARD2",ZTSAVE("EN*")="",ZTSAVE("D*")="",ZTDESC="Incomp Work Orders (Elect WO Module)" D ^%ZTLOAD K ZTSK D ^%ZISC G EXIT
30 G EN^ENWARD2
31 ;
32EXIT K A,B,C,I,J,K,DIC,DIE,DA,DN,DNX,L,R,X,ENBY,ENEB,ENRLOC,ENSRT,ENROOM
33 Q
34 ;ENWARD1
Note: See TracBrowser for help on using the repository browser.