Last change
on this file since 701 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
811 bytes
|
Line | |
---|
1 | PRCH65 ;WISC/REW/SC-Deletes Delivery Schedules for already deleted items
|
---|
2 | ;;5.0;IFCAP;**65**;4/21/95
|
---|
3 | ;
|
---|
4 | AZPSCH 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 | ;
|
---|
17 | KILL 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.