source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENPAT35.m@ 1154

Last change on this file since 1154 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 865 bytes
Line 
1ENPAT35 ;(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
4PM 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
12PMDUN 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
Note: See TracBrowser for help on using the repository browser.