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