| [613] | 1 | ENWARD1 ;(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 | ;
|
|---|
| 5 | EN 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 | ;
|
|---|
| 8 | E ;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 | ;
|
|---|
| 12 | L ;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 | ;
|
|---|
| 23 | R ; 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 | ;
|
|---|
| 26 | S ;By service
|
|---|
| 27 | S DIC="^DIC(49,",DIC(0)="AEQM" D ^DIC G:Y'>0 EXIT S ENSRVC=+Y,ENBY="S"
|
|---|
| 28 | DEV 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 | ;
|
|---|
| 32 | EXIT K A,B,C,I,J,K,DIC,DIE,DA,DN,DNX,L,R,X,ENBY,ENEB,ENRLOC,ENSRT,ENROOM
|
|---|
| 33 | Q
|
|---|
| 34 | ;ENWARD1
|
|---|
