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

PRCAI177.m

Go to the documentation of this file.
  1. PRCAI177 ;WISC/RFJ-post init patch 177 ; 26 Jan 01
  1. ;;4.5;Accounts Receivable;**177**;Mar 20, 1995
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. Q
  1. ;
  1. ;
  1. PREINIT ; start pre init, check to make sure entries can be added to 430.2
  1. N RCDPOSIT,RCTRANDT
  1. ;
  1. D BMES^XPDUTL(" >> Starting the Pre-Initialization routine ...")
  1. ;
  1. ; remove duplicate deposit RCDPOSIT with transmission
  1. ; date RCTRANDT. You need both variables defined.
  1. ;
  1. S RCDPOSIT=269623,RCTRANDT=3020314
  1. D MES^XPDUTL(" -> Removing payments for duplicate deposit "_RCDPOSIT_" ...")
  1. D REVERSE^RCDPXFIX(RCDPOSIT,RCTRANDT)
  1. D MES^XPDUTL(" -> Finished removing duplicate deposit "_RCDPOSIT_".")
  1. ;
  1. S RCDPOSIT=269624,RCTRANDT=3020314
  1. D MES^XPDUTL(" -> Removing payments for duplicate deposit "_RCDPOSIT_" ...")
  1. D REVERSE^RCDPXFIX(RCDPOSIT,RCTRANDT)
  1. D MES^XPDUTL(" -> Finished removing duplicate deposit "_RCDPOSIT_".")
  1. ;
  1. S RCDPOSIT=269625,RCTRANDT=3020314
  1. D MES^XPDUTL(" -> Removing payments for duplicate deposit "_RCDPOSIT_" ...")
  1. D REVERSE^RCDPXFIX(RCDPOSIT,RCTRANDT)
  1. D MES^XPDUTL(" -> Finished removing duplicate deposit "_RCDPOSIT_".")
  1. ;
  1. S RCDPOSIT=269626,RCTRANDT=3020314
  1. D MES^XPDUTL(" -> Removing payments for duplicate deposit "_RCDPOSIT_" ...")
  1. D REVERSE^RCDPXFIX(RCDPOSIT,RCTRANDT)
  1. D MES^XPDUTL(" -> Finished removing duplicate deposit "_RCDPOSIT_".")
  1. ;
  1. S RCDPOSIT=269630,RCTRANDT=3020315
  1. D MES^XPDUTL(" -> Removing payments for duplicate deposit "_RCDPOSIT_" ...")
  1. D REVERSE^RCDPXFIX(RCDPOSIT,RCTRANDT)
  1. D MES^XPDUTL(" -> Finished removing duplicate deposit "_RCDPOSIT_".")
  1. ;
  1. S RCDPOSIT=269631,RCTRANDT=3020315
  1. D MES^XPDUTL(" -> Removing payments for duplicate deposit "_RCDPOSIT_" ...")
  1. D REVERSE^RCDPXFIX(RCDPOSIT,RCTRANDT)
  1. D MES^XPDUTL(" -> Finished removing duplicate deposit "_RCDPOSIT_".")
  1. ;
  1. D MES^XPDUTL(" >> End of the Pre-Initialization routine.")
  1. Q