PRCAI177.m

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 ---PRCAI177   1991     printed  Apr 09, 2024@20:45:54                                                                                                                                                                                                    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