Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ENWOST

ENWOST.m

Go to the documentation of this file.
  1. ENWOST ;(WASH ISC)/DLM/JED-Incomp Engineering Work Orders ;2.7.97
  1. ;;7.0;ENGINEERING;**6,35**;Aug 17, 1993
  1. ;
  1. V Q ;Option ENWO-STATUS-(HC) no longer supported
  1. ;
  1. E ; By employee
  1. D SSHOP^ENWO G:ENSHKEY'>0 EXIT
  1. S DIC="^ENG(""EMP"",",DIC("A")="Select EMPLOYEE NAME (press <ENTER> for unassigned): ",DIC(0)="AEQM" D ^DIC S ENEMP=+Y
  1. I ENEMP'>0 D
  1. . R !,"Type 'NOT' to get unassigned work orders: EXIT// ",X:DTIME
  1. . I "^NOT^Not^not^"[(U_X_U) S ENEMP=""
  1. G:ENEMP<0 EXIT
  1. S ENBY="EMP" G COMN
  1. ;
  1. ROOM ; By specific room (from Space File #6928)
  1. D SSHOP^ENWO G:ENSHKEY'>0 EXIT
  1. S DIC="^ENG(""SP"",",DIC(0)="AEQM" D ^DIC G:Y'>0 EXIT S ENROOM=+Y
  1. S ENBY="ROOM" G COMN
  1. ;
  1. L ;By location
  1. D SSHOP^ENWO G:ENSHKEY'>0 EXIT
  1. S DIR(0)="Y",DIR("A")="Should all LOCATIONS be included",DIR("B")="YES"
  1. S DIR("?",1)="Enter 'NO' if you want to screen your list by DIVISION, BUILDING, WING,"
  1. S DIR("?",2)="and/or ROOM. If you enter 'YES' then all locations will be included and the"
  1. S DIR("?")="sort order will be DIVISION, BUILDING, WING, and finally ROOM."
  1. D ^DIR K DIR Q:$D(DIRUT)
  1. S ENSRT("LOC","ALL")=Y S:Y ENSRT("BY")="DBWR"
  1. D:'Y GEN^ENSPSRT
  1. I '$D(ENSRT("BY")) G EXIT
  1. S ENBY="LOC" G COMN
  1. ;
  1. O ;By service
  1. D SSHOP^ENWO G:ENSHKEY'>0 EXIT
  1. S DIC="^DIC(49,",DIC(0)="AEQM" D ^DIC G:Y'>0 EXIT S ENONR=+Y
  1. S ENBY="ONR" G COMN
  1. ;
  1. S ;By shop
  1. D SSHOP^ENWO G:ENSHKEY'>0 EXIT
  1. S ENBY="SHOP"
  1. COMN D AGE G:ENDLQ="^" EXIT
  1. D PM G:ENPMINC'?1N EXIT
  1. D COUNT G:ENSUM'?1N EXIT
  1. ALL K ENSHKEY("ALL") W !,"For ALL shops (say 'NO' if you only want ",$P(^DIC(6922,ENSHKEY,0),U),")"
  1. S %=2 D YN^DICN G:%<0 EXIT G:%=0 ALL
  1. S:%=1 ENSHKEY("ALL")=1
  1. D DEV^ENLIB G:POP EXIT
  1. 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
  1. CONT U IO I ENSUM D ^ENWOP2 G EXIT
  1. D ^ENWOP
  1. G EXIT
  1. ;
  1. AGE S DIR(0)="N^0:999:0",DIR("A")="At least how many days old?"
  1. S DIR("B")=0
  1. D ^DIR K DIR S ENDLQ=Y
  1. Q
  1. ;
  1. PM S DIR(0)="Y",DIR("A")="Include PM Work Orders",DIR("B")="NO"
  1. S DIR("??")="^D HLPPM^ENWOST"
  1. D ^DIR K DIR S ENPMINC=Y
  1. Q
  1. ;
  1. COUNT S DIR(0)="Y",DIR("A")="Count(s) only",DIR("B")="NO"
  1. D ^DIR K DIR S ENSUM=Y
  1. Q
  1. ;
  1. EXIT K A,B,C,J,DIC,DIE,DA,DN,DNX,L,R,X,EN,ENDLQ,ENEMP,ENONR,ENRLOC,ENBY,ENSHKEY("ALL"),ENPMINC
  1. K ENSUM,ENSRT,ENROOM
  1. I $E(IOST,1,2)="P-",'$D(ZTQUEUED) D ^%ZISC
  1. S:$D(ZTQUEUED) ZTREQ="@"
  1. Q
  1. ;
  1. 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'.",!!
  1. Q
  1. ;ENWOST