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

ENWOD.m

Go to the documentation of this file.
  1. ENWOD ;(WIRMFO)/DLM/DH/SAB-Formatted Work Order Display ;5/11/2000
  1. ;;7.0;ENGINEERING;**35,43,65,96**;Aug 17, 1993;Build 5
  1. EDIT ; Work order display/edit (screen) option
  1. D WO^ENWOUTL G:Y'>0 EXIT S DA=+Y
  1. D EDIT1
  1. G EDIT
  1. ;
  1. EDIT1 ; display/edit one work order
  1. ; input DA (ien of work order), DUZ (user number)
  1. N ENBARCD,ENDSTAT,ENEDIT,ENINV,ENJ,ENREOPEN,ENWO,ENWOCLOD,ENX
  1. S ENEDIT=0 ; flag, true if user edited work order
  1. S ENREOPEN=0 ; flag, true if closed work order reopened for edit
  1. D D F D READ Q:ENX="" D ACTION Q:$P($G(^ENG(6920,DA,5)),U,2)]""&ENEDIT
  1. I ENEDIT D
  1. . ; work order edited by user
  1. . N DIE,DR
  1. . S DIE="^ENG(6920,"
  1. . I ENREOPEN,$P($G(^ENG(6920,DA,5)),U,2)']"" S DR="36//^S X=ENWOCLOD" D ^DIE
  1. . I $P($G(^ENG(6920,DA,5)),U,2)]"" D
  1. . . ; work order was closed
  1. . . I "^5^6^"'[(U_$P($G(^ENG(6920,DA,4)),U,3)_U) D
  1. . . . ; status was not set to Completed or Disapproved
  1. . . . S DR="32///^S X=""COMPLETED""" D ^DIE
  1. . . I $E($P($G(^ENG(6920,DA,0)),U),1,3)="PM-" D
  1. . . . ; post PM hours for PM work order
  1. . . . N ENPMDT,PMTOT,X
  1. . . . D PMHRS^ENEQPMR4 Q:'$D(PMTOT)
  1. . . . S X=$P($P(^ENG(6920,DA,0),U),"-",2)
  1. . . . F I=1:1:$L(X) S:$E(X,I)?1N ENPMDT=$G(ENPMDT)_$E(X,I)
  1. . . . S ENPMDT=$E(ENPMDT,1,4)
  1. . . . D COUNT^ENBCPM8
  1. . ; unlock
  1. . L -^ENG(6920,DA)
  1. Q
  1. ;
  1. READ ;User interaction
  1. D HOME^%ZIS W !,"ENTER/EDIT (1-33), D(DISPLAY), AC(ACCOUNT), P(PRINT)): EXIT// " R ENX:DTIME
  1. I ENX=10 W !,"Uneditable field.",*7 G READ
  1. I ENX=11 W !,"A transfer option must be used to change SHOP.",*7 G READ
  1. I $E(ENX)="^"!($E(ENX)="E") S ENX=""
  1. Q:ENX="" I ENX?1.2N S ENX=+ENX I ENX<1!(ENX>33) W " ??",*7 G READ
  1. Q:ENX?1.2N S ENX=$TR(ENX,"dap","DAP") I "DAP"'[$E(ENX) W " ??",*7 G READ
  1. Q
  1. ;
  1. ACTION ;Edit or display
  1. I ENX'?1.2N N TAG S TAG=$E(ENX) D @TAG Q
  1. ; try to prepare work order for editing (if not already done)
  1. I 'ENEDIT D I 'ENEDIT L -^ENG(6920,DA) Q
  1. . L +^ENG(6920,DA):5 I '$T W !,"This work order is being edited by another user. Please try again later." Q
  1. . I $P($G(^ENG(6920,DA,5)),U,2)]"" D I 'ENREOPEN Q
  1. . . W $C(7),!,"NOTE: This work order has been closed."
  1. . . I '$D(^XUSEC("ENEDCLWO",DUZ)) W !,"Security key ENEDCLWO is needed to edit closed work orders." Q
  1. . . S DIR("A")="Are you sure you want to edit this work order",DIR(0)="Y",DIR("B")="NO"
  1. . . D ^DIR K DIR Q:Y'>0
  1. . . I $P($G(^ENG(6920,DA,3)),U,8)>0 D KILLHS^ENEQHS Q:$G(R)="^"
  1. . . S ENWOCLOD=$P(^ENG(6920,DA,5),U,2)
  1. . . S $P(^ENG(6920,DA,5),U,2)="" D TEST^ENWOCOMP
  1. . . I $E($P($G(^ENG(6920,DA,0)),U),1,3)="PM-" D
  1. . . . ; since reopening PM work order we must back out the PM hours
  1. . . . N ENPMDT,PMTOT,X
  1. . . . D PMHRS^ENEQPMR4 Q:'$D(PMTOT)
  1. . . . S X=$P($P(^ENG(6920,DA,0),U),"-",2)
  1. . . . F I=1:1:$L(X) S:$E(X,I)?1N ENPMDT=$G(ENPMDT)_$E(X,I)
  1. . . . S ENPMDT=$E(ENPMDT,1,4)
  1. . . . D UNPOST^ENBCPM8
  1. . . S ENREOPEN=1 ; reopen of closed work order completed
  1. . S ENEDIT=1 ; work order ready for editing
  1. N DIE,DR,ENDA
  1. S DR=$P("16^1^2^3^4^STAT^6^7^8^^9^10^17^18^19^21^EQ53^21.9^22.3^22.5^23^20^31^35^35.5^37^38^37.5^47^16.5^36^39^40",U,ENX) S:DR="STAT" DR=ENDSTAT
  1. I $E(DR,1,2)="EQ" S ENDA=DA D S DA=ENDA Q
  1. . S DIE="^ENG(6914,",DR=$E(DR,3,99),DA=$P($G(^ENG(6920,DA,3)),U,8)
  1. . I DA D
  1. . . L +^ENG(6914,DA):5 I '$T W $C(7),!,"Another user is editing this equipment. Try editing the condition later." Q
  1. . . D ^DIE
  1. . . L -^ENG(6914,DA)
  1. S DIE="^ENG(6920,"
  1. I DR=36 D
  1. . W !!,"Entry of a date will close this work order. Do this last."
  1. . I $D(ENWOCLOD) S DR="36//^S X=ENWOCLOD"
  1. D ^DIE
  1. Q
  1. ;
  1. D ;Display WO to CRT
  1. W:$E(IOST,1,2)="C-" @IOF D ST^ENWOD1,TOP^ENWOD2
  1. Q
  1. ;
  1. A ;Display Accounting Data
  1. S X="PRCSP13" X ^%ZOSF("TEST") I $T D
  1. . S ENFLG=0 I $D(^ENG(6920,DA,4)),$P(^(4),U,2)]"" D
  1. . . S ENWOACN=$P(^ENG(6920,DA,4),U,2),ENFLG=1
  1. . . I $D(^PRCS(410,ENWOACN,0)) D
  1. . . . S ENWOOR=DA,DA=ENWOACN
  1. . . . D ^PRCSP13
  1. . . . S DA=ENWOOR K ENWOOR
  1. . . K ENWOACN
  1. . W:'ENFLG !,"No procurement request on file for this work order."
  1. . K ENFLG
  1. Q
  1. ;
  1. P ;Print work order
  1. I '$D(ENBARCD) S ENBARCD=0 I $D(^ENG(6910.2,"B","PRINT BAR CODES ON W.O.")) S I=$O(^("PRINT BAR CODES ON W.O.",0)) I I>0,$P(^ENG(6910.2,I,0),U,2)="Y" S ENBARCD=1
  1. D DEV^ENLIB Q:POP I $D(IO("Q")) N X S ZTRTN="PRT1^ENWOD",ZTSAVE("EN*")="",ZTSAVE("DA")="",ZTDESC="Print Work Order" D ^%ZTLOAD K ZTSK D HOME^%ZIS Q
  1. PRT1 U IO W:$E(IOST,1,2)="C-" @IOF
  1. D:$E(IOST,1,2)'="C-" PSET^%ZISP
  1. D ST^ENWOD1,TOP^ENWOD2
  1. D:ENBARCD BAR
  1. I $E(IOST,1,2)'="C-" W @IOF D PKILL^%ZISP
  1. N DA ; to protect DA when W.O. printed to P-MESSAGE
  1. ; *96 close if the job is not queued in a task
  1. I '$D(ZTQUEUED) D ^%ZISC
  1. Q
  1. ;
  1. BAR ; print barcode of w.o. #
  1. I $G(IOBARON)]"",$G(IOBAROFF)]"" W !,@IOBARON W ENWO W @IOBAROFF W !
  1. Q
  1. EXIT ;
  1. Q
  1. ;ENWOD