|
Last change
on this file since 862 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.
