35 lines
1.4 KiB
Mathematica
35 lines
1.4 KiB
Mathematica
ENWARD1 ;(WASH ISC)/DH-Incomplete Work Orders for End Users ;2.17.97
|
|
;;7.0;ENGINEERING;**35**;Aug 17, 1993
|
|
; Check for incomplete work orders
|
|
;
|
|
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"
|
|
D ^DIR K DIR G:$D(DIRUT) EXIT G @$E(Y)
|
|
;
|
|
E ;By user (ENTERED BY)
|
|
S DIC="^VA(200,",DIC(0)="AEQMN" D ^DIC G:Y'>0 EXIT S ENEB=+Y,ENBY="E"
|
|
G DEV
|
|
;
|
|
L ;By location
|
|
S DIR(0)="Y",DIR("A")="Should all LOCATIONS be included",DIR("B")="YES"
|
|
S DIR("?",1)="Enter 'NO' if you want to screen your list by DIVISION, BUILDING, WING,"
|
|
S DIR("?",2)="and/or ROOM. If you enter 'YES' then all locations will be included and the"
|
|
S DIR("?")="sort order will be DIVISION, BUILDING, WING, and finally ROOM."
|
|
D ^DIR K DIR Q:$D(DIRUT)
|
|
S ENSRT("LOC","ALL")=Y S:Y ENSRT("BY")="DBWR"
|
|
D:'Y GEN^ENSPSRT
|
|
I '$D(ENSRT("BY")) G EXIT
|
|
S ENBY="L" G DEV
|
|
;
|
|
R ; One specific room
|
|
S DIC="^ENG(""SP"",",DIC(0)="AEQM" D ^DIC G:Y'>0 EXIT S ENROOM=+Y,ENBY="R" G DEV
|
|
;
|
|
S ;By service
|
|
S DIC="^DIC(49,",DIC(0)="AEQM" D ^DIC G:Y'>0 EXIT S ENSRVC=+Y,ENBY="S"
|
|
DEV K IOP("P") S %ZIS="Q" D ^%ZIS G:POP EXIT
|
|
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
|
|
G EN^ENWARD2
|
|
;
|
|
EXIT K A,B,C,I,J,K,DIC,DIE,DA,DN,DNX,L,R,X,ENBY,ENEB,ENRLOC,ENSRT,ENROOM
|
|
Q
|
|
;ENWARD1
|