34 lines
1007 B
Mathematica
34 lines
1007 B
Mathematica
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
|