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

PRCAP335.m

Go to the documentation of this file.
  1. PRCAP335 ;OAK/ELZ - Pre-install routine for patch PRCA*4.5*335 ;11/15/2017
  1. ;;4.5;Accounts Receivable;**335**;Mar 20, 1995;Build 8
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. ; This pre-install is a double check that an old AR file that should have been deleted
  1. ; a long time ago is actually not there before install of a new file (same number 430.7)
  1. ;
  1. ;
  1. PRE ; Entry point to check for an old file and if there remove it
  1. ; before the install starts
  1. ;
  1. N PRCAX
  1. I $P($G(^PRCA(430.7,0)),"^")="AR BILLING ERROR HANDLING" D
  1. . N DU,DA,DIK
  1. . D MES^XPDUTL(" It appears you have an old 430.7 file that shouldn't be there.")
  1. . D MES^XPDUTL(" - deleting before install.")
  1. . ; just because the data clean up doesn't work well, there are not that many entries anyway
  1. . S PRCAX=0 F S PRCAX=$O(^PRCA(430.7,PRCAX)) Q:'PRCAX S DIK="^PRCA(430.7,",DA=PRCAX D ^DIK
  1. . S DU="^PRCA(430.7,",DU(0)="DET"
  1. . D EN^DIU2
  1. . D MES^XPDUTL(" Finished old file cleaned up.")
  1. S PRCAX=$O(^PRCA(430.7,0)) I PRCAX,'$G(^PRCA(430.7,PRCAX,0)) D
  1. . D MES^XPDUTL(" Need to clean up some old data...")
  1. . K ^PRCA(430.7)
  1. . S ^PRCA(430.7,0)="AR DEBT COLLECTOR DATA^430.7D^^0"
  1. . D MES^XPDUTL(" Finished cleaning up old data.")
  1. Q