Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PRCH65

PRCH65.m

Go to the documentation of this file.
  1. PRCH65 ;WISC/REW/SC-Deletes Delivery Schedules for already deleted items
  1. ;;5.0;IFCAP;**65**;4/21/95
  1. ;
  1. AZPSCH N PR,DAA,IEN4428,PO,DIK,MSG,DA
  1. S DIK="^PRC(442.8,"
  1. S PR=0 F S PR=$O(^PRC(442.8,"AC",PR)) Q:PR="" D
  1. . S DAA=0 F S DAA=$O(^PRC(442.8,"AC",PR,DAA)) Q:DAA'=+DAA D
  1. . . S IEN4428=0 F S IEN4428=$O(^PRC(442.8,"AC",PR,DAA,IEN4428)) Q:IEN4428'=+IEN4428 D
  1. . . . S PO=$O(^PRC(442,"B",PR,0))
  1. . . . I PO="" D KILL Q
  1. . . . I '$D(^PRC(442,+PO,2,DAA)) D KILL Q
  1. . . . Q
  1. . . Q
  1. . Q
  1. Q
  1. ;
  1. KILL S MSG(1)=" "
  1. S MSG(2)=">>> Patch 65 is deleting delivery schedule : "_IEN4428
  1. 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_"]")
  1. S MSG(4)=" "
  1. D MES^XPDUTL(.MSG)
  1. S DA=IEN4428 D ^DIK
  1. Q