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 Dec 13, 2024@01:40:06 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
