- PRCAP372 ;SAB/Albany - PRCA*4.5*372 POST INSTALL;07/30/19 2:10pm
- ;;4.5;Accounts Receivable;**372**;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*372 ")
- ; Update the AR Category fields
- D UPCAT104
- D UPCAT105
- D BMES^XPDUTL(" >> End of the Post-Initialization routine for PRCA*4.5*372")
- Q
- ;
- UPCAT104 ; Update the 1.04 field in the AR Category file for Tricare/CHAMPVA/LTC copays so they display correctly.
- ;
- D MES^XPDUTL("Updating the 1.04 field (DISPLAY IN BILL PROFILE) field for LTC/TRICARE/CHAMPVA AR Categories ... ")
- ;
- F LOOP=2:1 S DATA=$T(ARCATDT+LOOP) Q:$P(DATA,";",3)="END" D
- . S RCIEN=$$FIND1^DIC(430.2,,"B",$P(DATA,";",3),"B")
- . I RCIEN D Q
- . . N FDA,MESS,TSTAMP
- . . S FDA(430.2,+RCIEN_",",1.04)=$P(DATA,";",4)
- . . D FILE^DIE("","FDA","MESS")
- . . K FDA,MESS,TSTAMP
- . . D MES^XPDUTL("Updated field 1.04 for the "_$P(DATA,";",3)_" AR Category.")
- ;
- Q
- ARCATDT ; Categories to update field 1.04
- ;;Category Name;Display on Bill Profile as
- ;;RESPITE CARE-INSTITUTIONAL;3
- ;;NURSING HOME CARE-LTC;3
- ;;ADULT DAY HEALTH CARE;3
- ;;GERIATRIC EVAL-INSTITUTIONAL;3
- ;;GERIATRIC EVAL-NON-INSTITUTION;3
- ;;HOSPITAL CARE PER DIEM;4
- ;;NURSING HOME CARE PER DIEM;4
- ;;NURSING HOME CARE-LTC;3
- ;;RESPITE CARE-INSTITUTIONAL;3
- ;;RESPITE CARE-NON-INSTITUTIONAL;3
- ;;CC NURSING HOME CARE - LTC;3
- ;;CC RESPITE CARE;3
- ;;CC MTF NURSING HOME CARE - LTC;3
- ;;CC MTF RESPITE CARE;3
- ;;CCN NURSING HOME CARE - LTC;3
- ;;CCN RESPITE CARE;3
- ;;CHOICE NURSING HOME CARE - LTC;3
- ;;CHOICE RESPITE CARE;3
- ;;END
- ;
- UPCAT105 ; Update the 1.04 field in the AR Category file for Tricare/CHAMPVA/LTC copays so they display correctly.
- ;
- N RCDATA,RCLOOP,RCIEN,RCCTNM
- ;D MES^XPDUTL("Updating the 1.05 field (DISPLAY BILL PROF DESC INFO) field for affected AR Categories ... ")
- ;
- F RCLOOP=2:1 S RCDATA=$T(ARCT105D+RCLOOP),RCCTNM=$P(RCDATA,";",3) Q:$P(RCDATA,";",3)="END" D
- . S RCIEN=$$FIND1^DIC(430.2,,"B",$P(RCDATA,";",3),"B")
- . I RCIEN D Q
- . . N FDA,MESS,TSTAMP
- . . S FDA(430.2,+RCIEN_",",1.05)=$P(RCDATA,";",4)
- . . D FILE^DIE("","FDA","MESS")
- . . D MES^XPDUTL("Updated field 1.05 for the "_$P(RCDATA,";",3)_" AR Category.")
- . . K FDA,MESS,TSTAMP
- ;
- Q
- ARCT105D ; Categories to update field 1.04
- ;;Category Name;Display on Bill Profile as
- ;;NURSING HOME CARE(NSC);6
- ;;OUTPATIENT CARE(NSC);2
- ;;HOSPITAL CARE (NSC);3
- ;;RX CO-PAYMENT/SC VET;1
- ;;RX CO-PAYMENT/NSC VET;1
- ;;ADULT DAY HEALTH CARE;2
- ;;CHOICE INPT;3
- ;;CC INPT;3
- ;;CCN INPT;3
- ;;CC MTF INPT;3
- ;;CHOICE RX CO-PAYMENT;4
- ;;CC RX CO-PAYMENT;4
- ;;CCN RX CO-PAYMENT;4
- ;;CC MTF RX CO-PAYMENT;4
- ;;CHOICE OPT;2
- ;;CC OPT;2
- ;;CCN OPT;2
- ;;CC MTF OPT;2
- ;;CC URGENT CARE;2
- ;;RESPITE CARE-INSTITUTIONAL;3
- ;;NURSING HOME CARE-LTC;3
- ;;ADULT DAY HEALTH CARE;5
- ;;GERIATRIC EVAL-INSTITUTIONAL;6
- ;;GERIATRIC EVAL-NON-INSTITUTION;5
- ;;HOSPITAL CARE PER DIEM;3
- ;;NURSING HOME CARE PER DIEM;6
- ;;NURSING HOME CARE-LTC;6
- ;;RESPITE CARE-INSTITUTIONAL;6
- ;;RESPITE CARE-NON-INSTITUTIONAL;5
- ;;CC NURSING HOME CARE - LTC;7
- ;;CC RESPITE CARE;7
- ;;CC MTF NURSING HOME CARE - LTC;7
- ;;CC MTF RESPITE CARE;7
- ;;CCN NURSING HOME CARE - LTC;7
- ;;CCN RESPITE CARE;7
- ;;CHOICE NURSING HOME CARE - LTC;7
- ;;CHOICE RESPITE CARE;7
- ;;END
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCAP372 3455 printed Feb 18, 2025@23:07:09 Page 2
- PRCAP372 ;SAB/Albany - PRCA*4.5*372 POST INSTALL;07/30/19 2:10pm
- +1 ;;4.5;Accounts Receivable;**372**;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*372 ")
- +2 ; Update the AR Category fields
- +3 DO UPCAT104
- +4 DO UPCAT105
- +5 DO BMES^XPDUTL(" >> End of the Post-Initialization routine for PRCA*4.5*372")
- +6 QUIT
- +7 ;
- UPCAT104 ; Update the 1.04 field in the AR Category file for Tricare/CHAMPVA/LTC copays so they display correctly.
- +1 ;
- +2 DO MES^XPDUTL("Updating the 1.04 field (DISPLAY IN BILL PROFILE) field for LTC/TRICARE/CHAMPVA AR Categories ... ")
- +3 ;
- +4 FOR LOOP=2:1
- SET DATA=$TEXT(ARCATDT+LOOP)
- if $PIECE(DATA,";",3)="END"
- QUIT
- Begin DoDot:1
- +5 SET RCIEN=$$FIND1^DIC(430.2,,"B",$PIECE(DATA,";",3),"B")
- +6 IF RCIEN
- Begin DoDot:2
- +7 NEW FDA,MESS,TSTAMP
- +8 SET FDA(430.2,+RCIEN_",",1.04)=$PIECE(DATA,";",4)
- +9 DO FILE^DIE("","FDA","MESS")
- +10 KILL FDA,MESS,TSTAMP
- +11 DO MES^XPDUTL("Updated field 1.04 for the "_$PIECE(DATA,";",3)_" AR Category.")
- End DoDot:2
- QUIT
- End DoDot:1
- +12 ;
- +13 QUIT
- ARCATDT ; Categories to update field 1.04
- +1 ;;Category Name;Display on Bill Profile as
- +2 ;;RESPITE CARE-INSTITUTIONAL;3
- +3 ;;NURSING HOME CARE-LTC;3
- +4 ;;ADULT DAY HEALTH CARE;3
- +5 ;;GERIATRIC EVAL-INSTITUTIONAL;3
- +6 ;;GERIATRIC EVAL-NON-INSTITUTION;3
- +7 ;;HOSPITAL CARE PER DIEM;4
- +8 ;;NURSING HOME CARE PER DIEM;4
- +9 ;;NURSING HOME CARE-LTC;3
- +10 ;;RESPITE CARE-INSTITUTIONAL;3
- +11 ;;RESPITE CARE-NON-INSTITUTIONAL;3
- +12 ;;CC NURSING HOME CARE - LTC;3
- +13 ;;CC RESPITE CARE;3
- +14 ;;CC MTF NURSING HOME CARE - LTC;3
- +15 ;;CC MTF RESPITE CARE;3
- +16 ;;CCN NURSING HOME CARE - LTC;3
- +17 ;;CCN RESPITE CARE;3
- +18 ;;CHOICE NURSING HOME CARE - LTC;3
- +19 ;;CHOICE RESPITE CARE;3
- +20 ;;END
- +21 ;
- UPCAT105 ; Update the 1.04 field in the AR Category file for Tricare/CHAMPVA/LTC copays so they display correctly.
- +1 ;
- +2 NEW RCDATA,RCLOOP,RCIEN,RCCTNM
- +3 ;D MES^XPDUTL("Updating the 1.05 field (DISPLAY BILL PROF DESC INFO) field for affected AR Categories ... ")
- +4 ;
- +5 FOR RCLOOP=2:1
- SET RCDATA=$TEXT(ARCT105D+RCLOOP)
- SET RCCTNM=$PIECE(RCDATA,";",3)
- if $PIECE(RCDATA,";",3)="END"
- QUIT
- Begin DoDot:1
- +6 SET RCIEN=$$FIND1^DIC(430.2,,"B",$PIECE(RCDATA,";",3),"B")
- +7 IF RCIEN
- Begin DoDot:2
- +8 NEW FDA,MESS,TSTAMP
- +9 SET FDA(430.2,+RCIEN_",",1.05)=$PIECE(RCDATA,";",4)
- +10 DO FILE^DIE("","FDA","MESS")
- +11 DO MES^XPDUTL("Updated field 1.05 for the "_$PIECE(RCDATA,";",3)_" AR Category.")
- +12 KILL FDA,MESS,TSTAMP
- End DoDot:2
- QUIT
- End DoDot:1
- +13 ;
- +14 QUIT
- ARCT105D ; Categories to update field 1.04
- +1 ;;Category Name;Display on Bill Profile as
- +2 ;;NURSING HOME CARE(NSC);6
- +3 ;;OUTPATIENT CARE(NSC);2
- +4 ;;HOSPITAL CARE (NSC);3
- +5 ;;RX CO-PAYMENT/SC VET;1
- +6 ;;RX CO-PAYMENT/NSC VET;1
- +7 ;;ADULT DAY HEALTH CARE;2
- +8 ;;CHOICE INPT;3
- +9 ;;CC INPT;3
- +10 ;;CCN INPT;3
- +11 ;;CC MTF INPT;3
- +12 ;;CHOICE RX CO-PAYMENT;4
- +13 ;;CC RX CO-PAYMENT;4
- +14 ;;CCN RX CO-PAYMENT;4
- +15 ;;CC MTF RX CO-PAYMENT;4
- +16 ;;CHOICE OPT;2
- +17 ;;CC OPT;2
- +18 ;;CCN OPT;2
- +19 ;;CC MTF OPT;2
- +20 ;;CC URGENT CARE;2
- +21 ;;RESPITE CARE-INSTITUTIONAL;3
- +22 ;;NURSING HOME CARE-LTC;3
- +23 ;;ADULT DAY HEALTH CARE;5
- +24 ;;GERIATRIC EVAL-INSTITUTIONAL;6
- +25 ;;GERIATRIC EVAL-NON-INSTITUTION;5
- +26 ;;HOSPITAL CARE PER DIEM;3
- +27 ;;NURSING HOME CARE PER DIEM;6
- +28 ;;NURSING HOME CARE-LTC;6
- +29 ;;RESPITE CARE-INSTITUTIONAL;6
- +30 ;;RESPITE CARE-NON-INSTITUTIONAL;5
- +31 ;;CC NURSING HOME CARE - LTC;7
- +32 ;;CC RESPITE CARE;7
- +33 ;;CC MTF NURSING HOME CARE - LTC;7
- +34 ;;CC MTF RESPITE CARE;7
- +35 ;;CCN NURSING HOME CARE - LTC;7
- +36 ;;CCN RESPITE CARE;7
- +37 ;;CHOICE NURSING HOME CARE - LTC;7
- +38 ;;CHOICE RESPITE CARE;7
- +39 ;;END