| 1 | PRCAI170 ;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 | ;
|
|---|
| 7 | PREINIT ; 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 | ;
|
|---|
| 25 | POSTINIT ; 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
|
|---|
| 60 | 33 ;;ADULT DAY HEALTH CARE^AD^0
|
|---|
| 61 | 34 ;;DOMICILIARY^DO^0
|
|---|
| 62 | 35 ;;RESPITE CARE-INSTITUTIONAL^RC^0
|
|---|
| 63 | 36 ;;RESPITE CARE-NON-INSTITUTIONAL^RN^0
|
|---|
| 64 | 37 ;;GERIATRIC EVAL-INSTITUTIONAL^GE^0
|
|---|
| 65 | 38 ;;GERIATRIC EVAL-NON-INSTITUTION^GN^0
|
|---|
| 66 | 39 ;;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
|
|---|
