ENWOCOMP ;(WIRMFO)/DLM/JED/DH-TEST FOR COMPLETED WORK ORDER ;5/11/1998
;;7.0;ENGINEERING;**35,53**;Aug 17, 1993
; Called by x-refs in File 6920 and by various engineering work
; order routines.
; Expects DA as IEN to File 6920.
; Principal tasks are to maintain incomplete work order list and
; to call for posting of equipment repair history.
TEST ;Is work order complete?
Q:$D(^ENG(6920,DA,0))=0
N ENDCOMP,ENINV,ENSH,ENTEC
S ENSH=$P($G(^ENG(6920,DA,2)),U)
S ENTEC=$P($G(^ENG(6920,DA,2)),U,2)
S ENDCOMP=$P($G(^ENG(6920,DA,5)),U,2)
I ENDCOMP]"" G COMP
;
UNCOMP ;Work order is incomplete
S:ENSH]"" ^ENG(6920,"AINC",ENSH,9999999999-DA)=""
Q
COMP ;Work order is complete
K:ENSH]"" ^ENG(6920,"AINC",ENSH,9999999999-DA)
I '$D(DIU(0)) S ENINV=$P($G(^ENG(6920,DA,3)),U,8) D:ENINV]"" W^ENEQHS
Q
;
DEL ;Remove from INCOMPLETE WORK ORDER list
;Expects DA
Q:'$D(DA)
N ENSHKEY
S ENSHKEY=$P($G(^ENG(6920,DA,2)),U)
Q:ENSHKEY=""
K ^ENG(6920,"AINC",ENSHKEY,9999999999-DA)
Q
;
;ENWOCOMP
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENWOCOMP 1040 printed Sep 11, 2024@02:16:15 Page 2
ENWOCOMP ;(WIRMFO)/DLM/JED/DH-TEST FOR COMPLETED WORK ORDER ;5/11/1998
+1 ;;7.0;ENGINEERING;**35,53**;Aug 17, 1993
+2 ; Called by x-refs in File 6920 and by various engineering work
+3 ; order routines.
+4 ; Expects DA as IEN to File 6920.
+5 ; Principal tasks are to maintain incomplete work order list and
+6 ; to call for posting of equipment repair history.
TEST ;Is work order complete?
+1 if $DATA(^ENG(6920,DA,0))=0
QUIT
+2 NEW ENDCOMP,ENINV,ENSH,ENTEC
+3 SET ENSH=$PIECE($GET(^ENG(6920,DA,2)),U)
+4 SET ENTEC=$PIECE($GET(^ENG(6920,DA,2)),U,2)
+5 SET ENDCOMP=$PIECE($GET(^ENG(6920,DA,5)),U,2)
+6 IF ENDCOMP]""
GOTO COMP
+7 ;
UNCOMP ;Work order is incomplete
+1 if ENSH]""
SET ^ENG(6920,"AINC",ENSH,9999999999-DA)=""
+2 QUIT
COMP ;Work order is complete
+1 if ENSH]""
KILL ^ENG(6920,"AINC",ENSH,9999999999-DA)
+2 IF '$DATA(DIU(0))
SET ENINV=$PIECE($GET(^ENG(6920,DA,3)),U,8)
if ENINV]""
DO W^ENEQHS
+3 QUIT
+4 ;
DEL ;Remove from INCOMPLETE WORK ORDER list
+1 ;Expects DA
+2 if '$DATA(DA)
QUIT
+3 NEW ENSHKEY
+4 SET ENSHKEY=$PIECE($GET(^ENG(6920,DA,2)),U)
+5 if ENSHKEY=""
QUIT
+6 KILL ^ENG(6920,"AINC",ENSHKEY,9999999999-DA)
+7 QUIT
+8 ;
+9 ;ENWOCOMP
