Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PRCAP372

PRCAP372.m

Go to the documentation of this file.
  1. 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
  1. ;Per VA Directive 6402, this routine should not be modified.
  1. Q
  1. ;
  1. POSTINIT ;Post Install for PRCA*4.5*372
  1. D BMES^XPDUTL(" >> Starting the Post-Initialization routine for PRCA*4.5*372 ")
  1. ; Update the AR Category fields
  1. D UPCAT104
  1. D UPCAT105
  1. D BMES^XPDUTL(" >> End of the Post-Initialization routine for PRCA*4.5*372")
  1. Q
  1. ;
  1. UPCAT104 ; Update the 1.04 field in the AR Category file for Tricare/CHAMPVA/LTC copays so they display correctly.
  1. ;
  1. D MES^XPDUTL("Updating the 1.04 field (DISPLAY IN BILL PROFILE) field for LTC/TRICARE/CHAMPVA AR Categories ... ")
  1. ;
  1. F LOOP=2:1 S DATA=$T(ARCATDT+LOOP) Q:$P(DATA,";",3)="END" D
  1. . S RCIEN=$$FIND1^DIC(430.2,,"B",$P(DATA,";",3),"B")
  1. . I RCIEN D Q
  1. . . N FDA,MESS,TSTAMP
  1. . . S FDA(430.2,+RCIEN_",",1.04)=$P(DATA,";",4)
  1. . . D FILE^DIE("","FDA","MESS")
  1. . . K FDA,MESS,TSTAMP
  1. . . D MES^XPDUTL("Updated field 1.04 for the "_$P(DATA,";",3)_" AR Category.")
  1. ;
  1. Q
  1. ARCATDT ; Categories to update field 1.04
  1. ;;Category Name;Display on Bill Profile as
  1. ;;RESPITE CARE-INSTITUTIONAL;3
  1. ;;NURSING HOME CARE-LTC;3
  1. ;;ADULT DAY HEALTH CARE;3
  1. ;;GERIATRIC EVAL-INSTITUTIONAL;3
  1. ;;GERIATRIC EVAL-NON-INSTITUTION;3
  1. ;;HOSPITAL CARE PER DIEM;4
  1. ;;NURSING HOME CARE PER DIEM;4
  1. ;;NURSING HOME CARE-LTC;3
  1. ;;RESPITE CARE-INSTITUTIONAL;3
  1. ;;RESPITE CARE-NON-INSTITUTIONAL;3
  1. ;;CC NURSING HOME CARE - LTC;3
  1. ;;CC RESPITE CARE;3
  1. ;;CC MTF NURSING HOME CARE - LTC;3
  1. ;;CC MTF RESPITE CARE;3
  1. ;;CCN NURSING HOME CARE - LTC;3
  1. ;;CCN RESPITE CARE;3
  1. ;;CHOICE NURSING HOME CARE - LTC;3
  1. ;;CHOICE RESPITE CARE;3
  1. ;;END
  1. ;
  1. UPCAT105 ; Update the 1.04 field in the AR Category file for Tricare/CHAMPVA/LTC copays so they display correctly.
  1. ;
  1. N RCDATA,RCLOOP,RCIEN,RCCTNM
  1. ;D MES^XPDUTL("Updating the 1.05 field (DISPLAY BILL PROF DESC INFO) field for affected AR Categories ... ")
  1. ;
  1. F RCLOOP=2:1 S RCDATA=$T(ARCT105D+RCLOOP),RCCTNM=$P(RCDATA,";",3) Q:$P(RCDATA,";",3)="END" D
  1. . S RCIEN=$$FIND1^DIC(430.2,,"B",$P(RCDATA,";",3),"B")
  1. . I RCIEN D Q
  1. . . N FDA,MESS,TSTAMP
  1. . . S FDA(430.2,+RCIEN_",",1.05)=$P(RCDATA,";",4)
  1. . . D FILE^DIE("","FDA","MESS")
  1. . . D MES^XPDUTL("Updated field 1.05 for the "_$P(RCDATA,";",3)_" AR Category.")
  1. . . K FDA,MESS,TSTAMP
  1. ;
  1. Q
  1. ARCT105D ; Categories to update field 1.04
  1. ;;Category Name;Display on Bill Profile as
  1. ;;NURSING HOME CARE(NSC);6
  1. ;;OUTPATIENT CARE(NSC);2
  1. ;;HOSPITAL CARE (NSC);3
  1. ;;RX CO-PAYMENT/SC VET;1
  1. ;;RX CO-PAYMENT/NSC VET;1
  1. ;;ADULT DAY HEALTH CARE;2
  1. ;;CHOICE INPT;3
  1. ;;CC INPT;3
  1. ;;CCN INPT;3
  1. ;;CC MTF INPT;3
  1. ;;CHOICE RX CO-PAYMENT;4
  1. ;;CC RX CO-PAYMENT;4
  1. ;;CCN RX CO-PAYMENT;4
  1. ;;CC MTF RX CO-PAYMENT;4
  1. ;;CHOICE OPT;2
  1. ;;CC OPT;2
  1. ;;CCN OPT;2
  1. ;;CC MTF OPT;2
  1. ;;CC URGENT CARE;2
  1. ;;RESPITE CARE-INSTITUTIONAL;3
  1. ;;NURSING HOME CARE-LTC;3
  1. ;;ADULT DAY HEALTH CARE;5
  1. ;;GERIATRIC EVAL-INSTITUTIONAL;6
  1. ;;GERIATRIC EVAL-NON-INSTITUTION;5
  1. ;;HOSPITAL CARE PER DIEM;3
  1. ;;NURSING HOME CARE PER DIEM;6
  1. ;;NURSING HOME CARE-LTC;6
  1. ;;RESPITE CARE-INSTITUTIONAL;6
  1. ;;RESPITE CARE-NON-INSTITUTIONAL;5
  1. ;;CC NURSING HOME CARE - LTC;7
  1. ;;CC RESPITE CARE;7
  1. ;;CC MTF NURSING HOME CARE - LTC;7
  1. ;;CC MTF RESPITE CARE;7
  1. ;;CCN NURSING HOME CARE - LTC;7
  1. ;;CCN RESPITE CARE;7
  1. ;;CHOICE NURSING HOME CARE - LTC;7
  1. ;;CHOICE RESPITE CARE;7
  1. ;;END