source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCH65.m@ 724

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

initial load of WorldVistAEHR

File size: 811 bytes
Line 
1PRCH65 ;WISC/REW/SC-Deletes Delivery Schedules for already deleted items
2 ;;5.0;IFCAP;**65**;4/21/95
3 ;
4AZPSCH N PR,DAA,IEN4428,PO,DIK,MSG,DA
5 S DIK="^PRC(442.8,"
6 S PR=0 F S PR=$O(^PRC(442.8,"AC",PR)) Q:PR="" D
7 . S DAA=0 F S DAA=$O(^PRC(442.8,"AC",PR,DAA)) Q:DAA'=+DAA D
8 . . S IEN4428=0 F S IEN4428=$O(^PRC(442.8,"AC",PR,DAA,IEN4428)) Q:IEN4428'=+IEN4428 D
9 . . . S PO=$O(^PRC(442,"B",PR,0))
10 . . . I PO="" D KILL Q
11 . . . I '$D(^PRC(442,+PO,2,DAA)) D KILL Q
12 . . . Q
13 . . Q
14 . Q
15 Q
16 ;
17KILL S MSG(1)=" "
18 S MSG(2)=">>> Patch 65 is deleting delivery schedule : "_IEN4428
19 S MSG(3)=" since "_$S('PO:"no purchase order presently exists named: "_PR_" [`"_PO_"]",1:"there is no item "_DAA_" in purchase order "_PR_" [`"_PO_"]")
20 S MSG(4)=" "
21 D MES^XPDUTL(.MSG)
22 S DA=IEN4428 D ^DIK
23 Q
Note: See TracBrowser for help on using the repository browser.