- PRCAI177 ;WISC/RFJ-post init patch 177 ; 26 Jan 01
- ;;4.5;Accounts Receivable;**177**;Mar 20, 1995
- ;;Per VHA Directive 10-93-142, this routine should not be modified.
- Q
- ;
- ;
- PREINIT ; start pre init, check to make sure entries can be added to 430.2
- N RCDPOSIT,RCTRANDT
- ;
- D BMES^XPDUTL(" >> Starting the Pre-Initialization routine ...")
- ;
- ; remove duplicate deposit RCDPOSIT with transmission
- ; date RCTRANDT. You need both variables defined.
- ;
- S RCDPOSIT=269623,RCTRANDT=3020314
- D MES^XPDUTL(" -> Removing payments for duplicate deposit "_RCDPOSIT_" ...")
- D REVERSE^RCDPXFIX(RCDPOSIT,RCTRANDT)
- D MES^XPDUTL(" -> Finished removing duplicate deposit "_RCDPOSIT_".")
- ;
- S RCDPOSIT=269624,RCTRANDT=3020314
- D MES^XPDUTL(" -> Removing payments for duplicate deposit "_RCDPOSIT_" ...")
- D REVERSE^RCDPXFIX(RCDPOSIT,RCTRANDT)
- D MES^XPDUTL(" -> Finished removing duplicate deposit "_RCDPOSIT_".")
- ;
- S RCDPOSIT=269625,RCTRANDT=3020314
- D MES^XPDUTL(" -> Removing payments for duplicate deposit "_RCDPOSIT_" ...")
- D REVERSE^RCDPXFIX(RCDPOSIT,RCTRANDT)
- D MES^XPDUTL(" -> Finished removing duplicate deposit "_RCDPOSIT_".")
- ;
- S RCDPOSIT=269626,RCTRANDT=3020314
- D MES^XPDUTL(" -> Removing payments for duplicate deposit "_RCDPOSIT_" ...")
- D REVERSE^RCDPXFIX(RCDPOSIT,RCTRANDT)
- D MES^XPDUTL(" -> Finished removing duplicate deposit "_RCDPOSIT_".")
- ;
- S RCDPOSIT=269630,RCTRANDT=3020315
- D MES^XPDUTL(" -> Removing payments for duplicate deposit "_RCDPOSIT_" ...")
- D REVERSE^RCDPXFIX(RCDPOSIT,RCTRANDT)
- D MES^XPDUTL(" -> Finished removing duplicate deposit "_RCDPOSIT_".")
- ;
- S RCDPOSIT=269631,RCTRANDT=3020315
- D MES^XPDUTL(" -> Removing payments for duplicate deposit "_RCDPOSIT_" ...")
- D REVERSE^RCDPXFIX(RCDPOSIT,RCTRANDT)
- D MES^XPDUTL(" -> Finished removing duplicate deposit "_RCDPOSIT_".")
- ;
- D MES^XPDUTL(" >> End of the Pre-Initialization routine.")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCAI177 1991 printed Feb 18, 2025@23:06:30 Page 2
- PRCAI177 ;WISC/RFJ-post init patch 177 ; 26 Jan 01
- +1 ;;4.5;Accounts Receivable;**177**;Mar 20, 1995
- +2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
- +3 QUIT
- +4 ;
- +5 ;
- PREINIT ; start pre init, check to make sure entries can be added to 430.2
- +1 NEW RCDPOSIT,RCTRANDT
- +2 ;
- +3 DO BMES^XPDUTL(" >> Starting the Pre-Initialization routine ...")
- +4 ;
- +5 ; remove duplicate deposit RCDPOSIT with transmission
- +6 ; date RCTRANDT. You need both variables defined.
- +7 ;
- +8 SET RCDPOSIT=269623
- SET RCTRANDT=3020314
- +9 DO MES^XPDUTL(" -> Removing payments for duplicate deposit "_RCDPOSIT_" ...")
- +10 DO REVERSE^RCDPXFIX(RCDPOSIT,RCTRANDT)
- +11 DO MES^XPDUTL(" -> Finished removing duplicate deposit "_RCDPOSIT_".")
- +12 ;
- +13 SET RCDPOSIT=269624
- SET RCTRANDT=3020314
- +14 DO MES^XPDUTL(" -> Removing payments for duplicate deposit "_RCDPOSIT_" ...")
- +15 DO REVERSE^RCDPXFIX(RCDPOSIT,RCTRANDT)
- +16 DO MES^XPDUTL(" -> Finished removing duplicate deposit "_RCDPOSIT_".")
- +17 ;
- +18 SET RCDPOSIT=269625
- SET RCTRANDT=3020314
- +19 DO MES^XPDUTL(" -> Removing payments for duplicate deposit "_RCDPOSIT_" ...")
- +20 DO REVERSE^RCDPXFIX(RCDPOSIT,RCTRANDT)
- +21 DO MES^XPDUTL(" -> Finished removing duplicate deposit "_RCDPOSIT_".")
- +22 ;
- +23 SET RCDPOSIT=269626
- SET RCTRANDT=3020314
- +24 DO MES^XPDUTL(" -> Removing payments for duplicate deposit "_RCDPOSIT_" ...")
- +25 DO REVERSE^RCDPXFIX(RCDPOSIT,RCTRANDT)
- +26 DO MES^XPDUTL(" -> Finished removing duplicate deposit "_RCDPOSIT_".")
- +27 ;
- +28 SET RCDPOSIT=269630
- SET RCTRANDT=3020315
- +29 DO MES^XPDUTL(" -> Removing payments for duplicate deposit "_RCDPOSIT_" ...")
- +30 DO REVERSE^RCDPXFIX(RCDPOSIT,RCTRANDT)
- +31 DO MES^XPDUTL(" -> Finished removing duplicate deposit "_RCDPOSIT_".")
- +32 ;
- +33 SET RCDPOSIT=269631
- SET RCTRANDT=3020315
- +34 DO MES^XPDUTL(" -> Removing payments for duplicate deposit "_RCDPOSIT_" ...")
- +35 DO REVERSE^RCDPXFIX(RCDPOSIT,RCTRANDT)
- +36 DO MES^XPDUTL(" -> Finished removing duplicate deposit "_RCDPOSIT_".")
- +37 ;
- +38 DO MES^XPDUTL(" >> End of the Pre-Initialization routine.")
- +39 QUIT