| 1 | ENWOST ;(WASH ISC)/DLM/JED-Incomp Engineering Work Orders ;2.7.97
|
|---|
| 2 | ;;7.0;ENGINEERING;**6,35**;Aug 17, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | V Q ;Option ENWO-STATUS-(HC) no longer supported
|
|---|
| 5 | ;
|
|---|
| 6 | E ; By employee
|
|---|
| 7 | D SSHOP^ENWO G:ENSHKEY'>0 EXIT
|
|---|
| 8 | S DIC="^ENG(""EMP"",",DIC("A")="Select EMPLOYEE NAME (press <ENTER> for unassigned): ",DIC(0)="AEQM" D ^DIC S ENEMP=+Y
|
|---|
| 9 | I ENEMP'>0 D
|
|---|
| 10 | . R !,"Type 'NOT' to get unassigned work orders: EXIT// ",X:DTIME
|
|---|
| 11 | . I "^NOT^Not^not^"[(U_X_U) S ENEMP=""
|
|---|
| 12 | G:ENEMP<0 EXIT
|
|---|
| 13 | S ENBY="EMP" G COMN
|
|---|
| 14 | ;
|
|---|
| 15 | ROOM ; By specific room (from Space File #6928)
|
|---|
| 16 | D SSHOP^ENWO G:ENSHKEY'>0 EXIT
|
|---|
| 17 | S DIC="^ENG(""SP"",",DIC(0)="AEQM" D ^DIC G:Y'>0 EXIT S ENROOM=+Y
|
|---|
| 18 | S ENBY="ROOM" G COMN
|
|---|
| 19 | ;
|
|---|
| 20 | L ;By location
|
|---|
| 21 | D SSHOP^ENWO G:ENSHKEY'>0 EXIT
|
|---|
| 22 | S DIR(0)="Y",DIR("A")="Should all LOCATIONS be included",DIR("B")="YES"
|
|---|
| 23 | S DIR("?",1)="Enter 'NO' if you want to screen your list by DIVISION, BUILDING, WING,"
|
|---|
| 24 | S DIR("?",2)="and/or ROOM. If you enter 'YES' then all locations will be included and the"
|
|---|
| 25 | S DIR("?")="sort order will be DIVISION, BUILDING, WING, and finally ROOM."
|
|---|
| 26 | D ^DIR K DIR Q:$D(DIRUT)
|
|---|
| 27 | S ENSRT("LOC","ALL")=Y S:Y ENSRT("BY")="DBWR"
|
|---|
| 28 | D:'Y GEN^ENSPSRT
|
|---|
| 29 | I '$D(ENSRT("BY")) G EXIT
|
|---|
| 30 | S ENBY="LOC" G COMN
|
|---|
| 31 | ;
|
|---|
| 32 | O ;By service
|
|---|
| 33 | D SSHOP^ENWO G:ENSHKEY'>0 EXIT
|
|---|
| 34 | S DIC="^DIC(49,",DIC(0)="AEQM" D ^DIC G:Y'>0 EXIT S ENONR=+Y
|
|---|
| 35 | S ENBY="ONR" G COMN
|
|---|
| 36 | ;
|
|---|
| 37 | S ;By shop
|
|---|
| 38 | D SSHOP^ENWO G:ENSHKEY'>0 EXIT
|
|---|
| 39 | S ENBY="SHOP"
|
|---|
| 40 | COMN D AGE G:ENDLQ="^" EXIT
|
|---|
| 41 | D PM G:ENPMINC'?1N EXIT
|
|---|
| 42 | D COUNT G:ENSUM'?1N EXIT
|
|---|
| 43 | ALL K ENSHKEY("ALL") W !,"For ALL shops (say 'NO' if you only want ",$P(^DIC(6922,ENSHKEY,0),U),")"
|
|---|
| 44 | S %=2 D YN^DICN G:%<0 EXIT G:%=0 ALL
|
|---|
| 45 | S:%=1 ENSHKEY("ALL")=1
|
|---|
| 46 | D DEV^ENLIB G:POP EXIT
|
|---|
| 47 | I $D(IO("Q")) S ZTION=ION,ZTRTN="CONT^ENWOST",ZTDESC="Print Incomplete Work Orders",ZTSAVE("EN*")="" D ^%ZTLOAD K IO("Q"),ZTSK D HOME^%ZIS G EXIT
|
|---|
| 48 | CONT U IO I ENSUM D ^ENWOP2 G EXIT
|
|---|
| 49 | D ^ENWOP
|
|---|
| 50 | G EXIT
|
|---|
| 51 | ;
|
|---|
| 52 | AGE S DIR(0)="N^0:999:0",DIR("A")="At least how many days old?"
|
|---|
| 53 | S DIR("B")=0
|
|---|
| 54 | D ^DIR K DIR S ENDLQ=Y
|
|---|
| 55 | Q
|
|---|
| 56 | ;
|
|---|
| 57 | PM S DIR(0)="Y",DIR("A")="Include PM Work Orders",DIR("B")="NO"
|
|---|
| 58 | S DIR("??")="^D HLPPM^ENWOST"
|
|---|
| 59 | D ^DIR K DIR S ENPMINC=Y
|
|---|
| 60 | Q
|
|---|
| 61 | ;
|
|---|
| 62 | COUNT S DIR(0)="Y",DIR("A")="Count(s) only",DIR("B")="NO"
|
|---|
| 63 | D ^DIR K DIR S ENSUM=Y
|
|---|
| 64 | Q
|
|---|
| 65 | ;
|
|---|
| 66 | EXIT K A,B,C,J,DIC,DIE,DA,DN,DNX,L,R,X,EN,ENDLQ,ENEMP,ENONR,ENRLOC,ENBY,ENSHKEY("ALL"),ENPMINC
|
|---|
| 67 | K ENSUM,ENSRT,ENROOM
|
|---|
| 68 | I $E(IOST,1,2)="P-",'$D(ZTQUEUED) D ^%ZISC
|
|---|
| 69 | S:$D(ZTQUEUED) ZTREQ="@"
|
|---|
| 70 | Q
|
|---|
| 71 | ;
|
|---|
| 72 | HLPPM W !!,"If you answer 'YES' the Incomplete Work Order list will contain PM work",!,"orders. To get a list of 'regular' work orders only, just say 'NO'.",!!
|
|---|
| 73 | Q
|
|---|
| 74 | ;ENWOST
|
|---|
