PRCAP376 ;EDE/SAB - PRCA*4.5*376 POST INSTALL;11/20/20 2:10pm
;;4.5;Accounts Receivable;**376**;Mar 20, 1995;Build 9
;Per VA Directive 6402, this routine should not be modified.
Q
;
POSTINIT ;Post Install for PRCA*4.5*372
D BMES^XPDUTL(" >> Starting the Post-Initialization routine for PRCA*4.5*376 ")
; Update the AR Category fields
D UPCAT106
D BMES^XPDUTL(" >> End of the Post-Initialization routine for PRCA*4.5*376")
Q
;
UPCAT106 ; Update the 1.06 field in the AR Category file so bills will be auto-added to RPPs.
;
N LOOP,RCIEN,DATA
D MES^XPDUTL("Updating the 1.06 field (ELIG FOR RPP) field for AR Categories ... ")
;
F LOOP=2:1 S DATA=$T(ARCT106+LOOP) Q:$P(DATA,";",3)="END" D
. S RCIEN=$O(^PRCA(430.2,"B",$P(DATA,";",3),""))
. I RCIEN D Q
. . N FDA,MESS,TSTAMP
. . S FDA(430.2,+RCIEN_",",1.06)=$P(DATA,";",4)
. . D FILE^DIE("","FDA","MESS")
. . K FDA,MESS,TSTAMP
. . D MES^XPDUTL("Updated field 1.06 for the "_$P(DATA,";",3)_" AR Category.")
;
Q
ARCT106 ; Categories to update field 1.06
;;Category Name;Display on Bill Profile as
;;ADULT DAY HEALTH CARE;1
;;C (MEANS TEST);1
;;CC INPT;1
;;CC MTF INPT;1
;;CC MTF OPT;1
;;CC MTF RX CO-PAYMENT;1
;;CC MTF THIRD PARTY;0
;;CC NO-FAULT AUTO;0
;;CC NURSING HOME CARE - LTC;1
;;CC OPT;1
;;CC RESPITE CARE;1
;;CC RX CO-PAYMENT;1
;;CC THIRD PARTY;0
;;CC TORT FEASOR;0
;;CC URGENT CARE;1
;;CC WORKERS' COMP;0
;;CCN INPT;1
;;CCN NO-FAULT AUTO;0
;;CCN NURSING HOME CARE - LTC;1
;;CCN OPT;1
;;CCN RESPITE CARE;1
;;CCN RX CO-PAYMENT;1
;;CCN THIRD PARTY;0
;;CCN TORT FEASOR;0
;;CCN WORKERS' COMP;0
;;CHAMPVA;0
;;CHAMPVA SUBSISTENCE;0
;;CHAMPVA THIRD PARTY;0
;;CHOICE INPT;1
;;CHOICE NO-FAULT AUTO;0
;;CHOICE NURSING HOME CARE - LTC;1
;;CHOICE OPT;1
;;CHOICE RESPITE CARE;1
;;CHOICE RX CO-PAYMENT;1
;;CHOICE THIRD PARTY;0
;;CHOICE TORT FEASOR;0
;;CHOICE WORKERS' COMP;0
;;COMP & PEN PROCEEDS;0
;;CRIME OF PER.VIO.;0
;;CURRENT EMP.;1
;;CWT PROCEEDS;0
;;DOMICILIARY;1
;;EMERGENCY/HUMANITARIAN;1
;;EMERGENCY/HUMANITARIAN REIMB.;0
;;ENHANCED USE LEASE PROCEEDS;0
;;EX-EMPLOYEE;1
;;FEDERAL AGENCIES-REFUND;0
;;FEDERAL AGENCIES-REIMB.;0
;;FEE REIMB INS;0
;;GERIATRIC EVAL-INSTITUTIONAL;1
;;GERIATRIC EVAL-NON-INSTITUTION;1
;;HOSPITAL CARE (NSC);1
;;HOSPITAL CARE PER DIEM;1
;;INELIGIBLE HOSP.;1
;;INELIGIBLE HOSP. REIMB.;0
;;INTERAGENCY;0
;;MEDICARE;0
;;MILITARY;0
;;NO-FAULT AUTO ACC.;0
;;NURSING HOME CARE PER DIEM;1
;;NURSING HOME CARE(NSC);1
;;NURSING HOME CARE-LTC;1
;;NURSING HOME PROCEEDS;1
;;OUTPATIENT CARE(NSC);1
;;PARKING FEES;1
;;PREPAYMENT;0
;;REIMBURS.HEALTH INS.;0
;;RESPITE CARE-INSTITUTIONAL;1
;;RESPITE CARE-NON-INSTITUTIONAL;1
;;RX CO-PAYMENT/SC VET;1
;;RX CO-PAYMENT/NSC VET;1
;;SHARING AGREEMENTS;0
;;TORT FEASOR;0
;;TRICARE;0
;;TRICARE BLIND REHABILITATION;0
;;TRICARE DENTAL;0
;;TRICARE DES;0
;;TRICARE PATIENT;1
;;TRICARE PHARMACY;0
;;TRICARE SCI;0
;;TRICARE TBI;0
;;TRICARE THIRD PARTY;0
;;VENDOR;1
;;WORKMAN'S COMP.;0
;;END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCAP376 3119 printed Apr 09, 2024@20:51:40 Page 2
PRCAP376 ;EDE/SAB - PRCA*4.5*376 POST INSTALL;11/20/20 2:10pm
+1 ;;4.5;Accounts Receivable;**376**;Mar 20, 1995;Build 9
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
+4 ;
POSTINIT ;Post Install for PRCA*4.5*372
+1 DO BMES^XPDUTL(" >> Starting the Post-Initialization routine for PRCA*4.5*376 ")
+2 ; Update the AR Category fields
+3 DO UPCAT106
+4 DO BMES^XPDUTL(" >> End of the Post-Initialization routine for PRCA*4.5*376")
+5 QUIT
+6 ;
UPCAT106 ; Update the 1.06 field in the AR Category file so bills will be auto-added to RPPs.
+1 ;
+2 NEW LOOP,RCIEN,DATA
+3 DO MES^XPDUTL("Updating the 1.06 field (ELIG FOR RPP) field for AR Categories ... ")
+4 ;
+5 FOR LOOP=2:1
SET DATA=$TEXT(ARCT106+LOOP)
if $PIECE(DATA,";",3)="END"
QUIT
Begin DoDot:1
+6 SET RCIEN=$ORDER(^PRCA(430.2,"B",$PIECE(DATA,";",3),""))
+7 IF RCIEN
Begin DoDot:2
+8 NEW FDA,MESS,TSTAMP
+9 SET FDA(430.2,+RCIEN_",",1.06)=$PIECE(DATA,";",4)
+10 DO FILE^DIE("","FDA","MESS")
+11 KILL FDA,MESS,TSTAMP
+12 DO MES^XPDUTL("Updated field 1.06 for the "_$PIECE(DATA,";",3)_" AR Category.")
End DoDot:2
QUIT
End DoDot:1
+13 ;
+14 QUIT
ARCT106 ; Categories to update field 1.06
+1 ;;Category Name;Display on Bill Profile as
+2 ;;ADULT DAY HEALTH CARE;1
+3 ;;C (MEANS TEST);1
+4 ;;CC INPT;1
+5 ;;CC MTF INPT;1
+6 ;;CC MTF OPT;1
+7 ;;CC MTF RX CO-PAYMENT;1
+8 ;;CC MTF THIRD PARTY;0
+9 ;;CC NO-FAULT AUTO;0
+10 ;;CC NURSING HOME CARE - LTC;1
+11 ;;CC OPT;1
+12 ;;CC RESPITE CARE;1
+13 ;;CC RX CO-PAYMENT;1
+14 ;;CC THIRD PARTY;0
+15 ;;CC TORT FEASOR;0
+16 ;;CC URGENT CARE;1
+17 ;;CC WORKERS' COMP;0
+18 ;;CCN INPT;1
+19 ;;CCN NO-FAULT AUTO;0
+20 ;;CCN NURSING HOME CARE - LTC;1
+21 ;;CCN OPT;1
+22 ;;CCN RESPITE CARE;1
+23 ;;CCN RX CO-PAYMENT;1
+24 ;;CCN THIRD PARTY;0
+25 ;;CCN TORT FEASOR;0
+26 ;;CCN WORKERS' COMP;0
+27 ;;CHAMPVA;0
+28 ;;CHAMPVA SUBSISTENCE;0
+29 ;;CHAMPVA THIRD PARTY;0
+30 ;;CHOICE INPT;1
+31 ;;CHOICE NO-FAULT AUTO;0
+32 ;;CHOICE NURSING HOME CARE - LTC;1
+33 ;;CHOICE OPT;1
+34 ;;CHOICE RESPITE CARE;1
+35 ;;CHOICE RX CO-PAYMENT;1
+36 ;;CHOICE THIRD PARTY;0
+37 ;;CHOICE TORT FEASOR;0
+38 ;;CHOICE WORKERS' COMP;0
+39 ;;COMP & PEN PROCEEDS;0
+40 ;;CRIME OF PER.VIO.;0
+41 ;;CURRENT EMP.;1
+42 ;;CWT PROCEEDS;0
+43 ;;DOMICILIARY;1
+44 ;;EMERGENCY/HUMANITARIAN;1
+45 ;;EMERGENCY/HUMANITARIAN REIMB.;0
+46 ;;ENHANCED USE LEASE PROCEEDS;0
+47 ;;EX-EMPLOYEE;1
+48 ;;FEDERAL AGENCIES-REFUND;0
+49 ;;FEDERAL AGENCIES-REIMB.;0
+50 ;;FEE REIMB INS;0
+51 ;;GERIATRIC EVAL-INSTITUTIONAL;1
+52 ;;GERIATRIC EVAL-NON-INSTITUTION;1
+53 ;;HOSPITAL CARE (NSC);1
+54 ;;HOSPITAL CARE PER DIEM;1
+55 ;;INELIGIBLE HOSP.;1
+56 ;;INELIGIBLE HOSP. REIMB.;0
+57 ;;INTERAGENCY;0
+58 ;;MEDICARE;0
+59 ;;MILITARY;0
+60 ;;NO-FAULT AUTO ACC.;0
+61 ;;NURSING HOME CARE PER DIEM;1
+62 ;;NURSING HOME CARE(NSC);1
+63 ;;NURSING HOME CARE-LTC;1
+64 ;;NURSING HOME PROCEEDS;1
+65 ;;OUTPATIENT CARE(NSC);1
+66 ;;PARKING FEES;1
+67 ;;PREPAYMENT;0
+68 ;;REIMBURS.HEALTH INS.;0
+69 ;;RESPITE CARE-INSTITUTIONAL;1
+70 ;;RESPITE CARE-NON-INSTITUTIONAL;1
+71 ;;RX CO-PAYMENT/SC VET;1
+72 ;;RX CO-PAYMENT/NSC VET;1
+73 ;;SHARING AGREEMENTS;0
+74 ;;TORT FEASOR;0
+75 ;;TRICARE;0
+76 ;;TRICARE BLIND REHABILITATION;0
+77 ;;TRICARE DENTAL;0
+78 ;;TRICARE DES;0
+79 ;;TRICARE PATIENT;1
+80 ;;TRICARE PHARMACY;0
+81 ;;TRICARE SCI;0
+82 ;;TRICARE TBI;0
+83 ;;TRICARE THIRD PARTY;0
+84 ;;VENDOR;1
+85 ;;WORKMAN'S COMP.;0
+86 ;;END
