source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/PRCAI170.m@ 1042

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

initial load of WorldVistAEHR

File size: 2.7 KB
Line 
1PRCAI170 ;WISC/RFJ-post init patch 170 ; 26 Jan 01
2 ;;4.5;Accounts Receivable;**170**;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 %,CURDATA,NEWDATA,RCERROR
9 ;
10 D BMES^XPDUTL(" >> Starting the Pre-Initialization routine ...")
11 D MES^XPDUTL(" -> Checking file 430.2 prior to adding new entries ...")
12 ;
13 ; check 430.2 entries and verify the new ones can be added
14 S RCERROR=0
15 F %=33:1:39 S CURDATA=$G(^PRCA(430.2,%,0)) I CURDATA'="" S NEWDATA=$P($T(@%),";",3,99) I $P(CURDATA,"^")'=$P(NEWDATA,"^") S RCERROR=1
16 ;
17 ; cannot install patch
18 I RCERROR S XPDQUIT=1 D MES^XPDUTL(" WARNING: FILE 430.2 IS CORRUPT. UNABLE TO INSTALL PATCH."),MES^XPDUTL(" PLEASE LOG A NOIS.")
19 I 'RCERROR D MES^XPDUTL(" Everything is OK!")
20 ;
21 D MES^XPDUTL(" >> End of the Pre-Initialization routine.")
22 Q
23 ;
24 ;
25POSTINIT ; start post init
26 N %,D,D0,DA,DI,DIC,DIE,DIK,DINUM,DLAYGO,DQ,DR,RCDATA,RCDINUM,X,Y
27 ;
28 D BMES^XPDUTL(" >> Starting the Post-Initialization routine ...")
29 D MES^XPDUTL(" -> Adding new AR Category entries to file 430.2 ...")
30 ;
31 ; install entries in file 430.2
32 F RCDINUM=33:1:39 D
33 . S RCDATA=$P($T(@RCDINUM),";",3,99)
34 . S (DIC,DIE)="^PRCA(430.2,",DIC(0)="L",DLAYGO=430.2
35 . ;
36 . ; if the entry is in the file, delete it first to add fields uneditable
37 . I $D(^PRCA(430.2,RCDINUM,0)) S DIK="^PRCA(430.2,",DA=RCDINUM D ^DIK
38 . ;
39 . ; add entry
40 . S DINUM=RCDINUM
41 . S X=$P(RCDATA,"^")
42 . D FILE^DICN
43 . ;
44 . ; set the fields
45 . S DA=RCDINUM
46 . S DR="1///"_$P(RCDATA,"^",2)_";2////0;3///1319;5///P;"
47 . ; category number (add this to activation patch)
48 . S DR=DR_"6////"_$P(RCDATA,"^",3)_";"
49 . S DR=DR_"7///2;9///1;10///1;11///1;12///1;13///2;"
50 . ; paragraph notes
51 . S DR=DR_"14///30,40,55,80,85,50,60,65,70;"
52 . D ^DIE
53 ;
54 D MES^XPDUTL(" OK, I'm done!")
55 D MES^XPDUTL(" >> End of the Post-Initialization routine ...")
56 Q
57 ;
58 ;
59 ;;categoryname ^ abbreviation ^ category number
6033 ;;ADULT DAY HEALTH CARE^AD^0
6134 ;;DOMICILIARY^DO^0
6235 ;;RESPITE CARE-INSTITUTIONAL^RC^0
6336 ;;RESPITE CARE-NON-INSTITUTIONAL^RN^0
6437 ;;GERIATRIC EVAL-INSTITUTIONAL^GE^0
6538 ;;GERIATRIC EVAL-NON-INSTITUTION^GN^0
6639 ;;NURSING HOME CARE-LTC^NL^0
67 ;
68 ;
69 ;
70 ; comments for the patch to activate the ltc categories
71 ; create a post init that will set field 6 in file 430.2
72 ; which is the category number as it is shown below.
73 ;;categoryname ^ abbreviation ^ category number
74 ;;ADULT DAY HEALTH CARE^AD^40
75 ;;DOMICILIARY^DO^41
76 ;;RESPITE CARE-INSTITUTIONAL^RC^42
77 ;;RESPITE CARE-NON-INSTITUTIONAL^RN^43
78 ;;GERIATRIC EVAL-INSTITUTIONAL^GE^44
79 ;;GERIATRIC EVAL-NON-INSTITUTION^GN^45
80 ;;NURSING HOME CARE-LTC^NL^46
Note: See TracBrowser for help on using the repository browser.