source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/PRCAI177.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1PRCAI177 ;WISC/RFJ-post init patch 177 ; 26 Jan 01
2 ;;4.5;Accounts Receivable;**177**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 Q
5 ;
6 ;
7PREINIT ; start pre init, check to make sure entries can be added to 430.2
8 N RCDPOSIT,RCTRANDT
9 ;
10 D BMES^XPDUTL(" >> Starting the Pre-Initialization routine ...")
11 ;
12 ; remove duplicate deposit RCDPOSIT with transmission
13 ; date RCTRANDT. You need both variables defined.
14 ;
15 S RCDPOSIT=269623,RCTRANDT=3020314
16 D MES^XPDUTL(" -> Removing payments for duplicate deposit "_RCDPOSIT_" ...")
17 D REVERSE^RCDPXFIX(RCDPOSIT,RCTRANDT)
18 D MES^XPDUTL(" -> Finished removing duplicate deposit "_RCDPOSIT_".")
19 ;
20 S RCDPOSIT=269624,RCTRANDT=3020314
21 D MES^XPDUTL(" -> Removing payments for duplicate deposit "_RCDPOSIT_" ...")
22 D REVERSE^RCDPXFIX(RCDPOSIT,RCTRANDT)
23 D MES^XPDUTL(" -> Finished removing duplicate deposit "_RCDPOSIT_".")
24 ;
25 S RCDPOSIT=269625,RCTRANDT=3020314
26 D MES^XPDUTL(" -> Removing payments for duplicate deposit "_RCDPOSIT_" ...")
27 D REVERSE^RCDPXFIX(RCDPOSIT,RCTRANDT)
28 D MES^XPDUTL(" -> Finished removing duplicate deposit "_RCDPOSIT_".")
29 ;
30 S RCDPOSIT=269626,RCTRANDT=3020314
31 D MES^XPDUTL(" -> Removing payments for duplicate deposit "_RCDPOSIT_" ...")
32 D REVERSE^RCDPXFIX(RCDPOSIT,RCTRANDT)
33 D MES^XPDUTL(" -> Finished removing duplicate deposit "_RCDPOSIT_".")
34 ;
35 S RCDPOSIT=269630,RCTRANDT=3020315
36 D MES^XPDUTL(" -> Removing payments for duplicate deposit "_RCDPOSIT_" ...")
37 D REVERSE^RCDPXFIX(RCDPOSIT,RCTRANDT)
38 D MES^XPDUTL(" -> Finished removing duplicate deposit "_RCDPOSIT_".")
39 ;
40 S RCDPOSIT=269631,RCTRANDT=3020315
41 D MES^XPDUTL(" -> Removing payments for duplicate deposit "_RCDPOSIT_" ...")
42 D REVERSE^RCDPXFIX(RCDPOSIT,RCTRANDT)
43 D MES^XPDUTL(" -> Finished removing duplicate deposit "_RCDPOSIT_".")
44 ;
45 D MES^XPDUTL(" >> End of the Pre-Initialization routine.")
46 Q
Note: See TracBrowser for help on using the repository browser.