22 lines
865 B
Mathematica
22 lines
865 B
Mathematica
ENPAT35 ;(WIRMFO)/DH-Delete old incomplete PM Work Orders ;1.6.97
|
|
;;7.0;ENGINEERING;**35**;Aug 17,1993
|
|
; Distributed as part of post-init for EN*7.0*35
|
|
PM I '$D(^ENG("PATCH 7*35 PM DELETE")) G PMDUN
|
|
N SHOP,DA,ENDA,DIK,COUNT S COUNT=0
|
|
S DIK="^ENG(6920,",ENDA("START")=$P(^ENG("PATCH 7*35 PM DELETE",0),U,2)
|
|
S SHOP=0 F S SHOP=$O(^ENG("PATCH 7*35 PM DELETE",SHOP)) Q:'SHOP D
|
|
. S ENDA=9999999999-ENDA("START")
|
|
. F S ENDA=$O(^ENG(6920,"AINC",SHOP,ENDA)) Q:'ENDA D
|
|
.. S DA=9999999999-ENDA
|
|
.. I $E($P($G(^ENG(6920,DA,0)),U),1,3)="PM-" D ^DIK S COUNT=COUNT+1
|
|
PMDUN K ^ENG("PATCH 7*35 PM DELETE"),^TMP($J)
|
|
S XMY(DUZ)="",XMDUZ=.5,XMSUB="Deletion of Old Incomplete PM Work Orders"
|
|
S ^TMP($J,1)=COUNT_" old incomplete PM work orders were just deleted."
|
|
S XMTEXT="^TMP($J,"
|
|
D ^XMD
|
|
K XMY,XMDUZ,XMTEXT,XMSUB
|
|
K ^TMP($J)
|
|
I $D(ZTQUEUED) S ZTREQ="@"
|
|
Q
|
|
;ENPAT35
|