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

PRCAP415.m

Go to the documentation of this file. 
  1. PRCAP415 ;EDE/YMG - PRCA*4.5*415 POST INSTALL;02/15/23
  1.  ;;4.5;Accounts Receivable;**415**;Mar 20, 1995;Build 1
  1.  ;Per VA Directive 6402, this routine should not be modified.
  1.  Q
  1.  ;
  1. EN ; entry point
  1.  D BMES^XPDUTL(" >>  Starting the Post-Initialization routine for PRCA*4.5*415")
  1.  ; Update the AR Category file
  1.  D UPCAT
  1.  D BMES^XPDUTL(" >>  End of the Post-Initialization routine for PRCA*4.5*415")
  1.  Q
  1.  ;
  1. UPCAT ; Update field 1.07 in the AR Category file.
  1.  ;
  1.  N CAT,DATA,FDA,RCIEN,Z
  1.  D MES^XPDUTL("Updating field 1.07 (PRINT SPECIAL NOTICE?) in AR Category file ...")
  1.  ;
  1.  F Z=2:1 S DATA=$T(107+Z),CAT=$P(DATA,";",3) Q:CAT="END"  D
  1.  .S RCIEN=+$O(^PRCA(430.2,"B",CAT,"")) I 'RCIEN Q
  1.  .S FDA(430.2,RCIEN_",",1.07)=$P(DATA,";",4)
  1.  .D FILE^DIE("","FDA") K FDA
  1.  .D MES^XPDUTL("  Updated field 1.07 for the "_CAT_" AR Category.")
  1.  D MES^XPDUTL("Done.")
  1.  ;
  1.  Q
  1. 107 ; Categories to update field 1.07 for
  1.  ;;Category Name;field 1.07 value
  1.  ;;ADULT DAY HEALTH CARE;1
  1.  ;;C (MEANS TEST);1
  1.  ;;CC INPT;1
  1.  ;;CC MTF INPT;1
  1.  ;;CC MTF OPT;1
  1.  ;;CC MTF RX CO-PAYMENT;1
  1.  ;;CC MTF THIRD PARTY;0
  1.  ;;CC NO-FAULT AUTO;0
  1.  ;;CC NURSING HOME CARE - LTC;1
  1.  ;;CC OPT;1
  1.  ;;CC RESPITE CARE;1
  1.  ;;CC RX CO-PAYMENT;1
  1.  ;;CC THIRD PARTY;0
  1.  ;;CC TORT FEASOR;0
  1.  ;;CC URGENT CARE;1
  1.  ;;CC WORKERS' COMP;0
  1.  ;;CCN INPT;1
  1.  ;;CCN NO-FAULT AUTO;0
  1.  ;;CCN NURSING HOME CARE - LTC;1
  1.  ;;CCN OPT;1
  1.  ;;CCN RESPITE CARE;1
  1.  ;;CCN RX CO-PAYMENT;1
  1.  ;;CCN THIRD PARTY;0
  1.  ;;CCN TORT FEASOR;0
  1.  ;;CCN WORKERS' COMP;0
  1.  ;;CHAMPVA;0
  1.  ;;CHAMPVA SUBSISTENCE;1
  1.  ;;CHAMPVA THIRD PARTY;0
  1.  ;;CHOICE INPT;1
  1.  ;;CHOICE NO-FAULT AUTO;0
  1.  ;;CHOICE NURSING HOME CARE - LTC;1
  1.  ;;CHOICE OPT;1
  1.  ;;CHOICE RESPITE CARE;1
  1.  ;;CHOICE RX CO-PAYMENT;1
  1.  ;;CHOICE THIRD PARTY;0
  1.  ;;CHOICE TORT FEASOR;0
  1.  ;;CHOICE WORKERS' COMP;0
  1.  ;;COMP & PEN PROCEEDS;0
  1.  ;;CRIME OF PER.VIO.;0
  1.  ;;CURRENT EMP.;0
  1.  ;;CWT PROCEEDS;0
  1.  ;;DOMICILIARY;1
  1.  ;;EMERGENCY/HUMANITARIAN;1
  1.  ;;EMERGENCY/HUMANITARIAN REIMB.;0
  1.  ;;ENHANCED USE LEASE PROCEEDS;0
  1.  ;;EX-EMPLOYEE;0
  1.  ;;FEDERAL AGENCIES-REFUND;0
  1.  ;;FEDERAL AGENCIES-REIMB.;0
  1.  ;;FEE REIMB INS;0
  1.  ;;GERIATRIC EVAL-INSTITUTIONAL;1
  1.  ;;GERIATRIC EVAL-NON-INSTITUTION;1
  1.  ;;HOSPITAL CARE (NSC);1
  1.  ;;HOSPITAL CARE PER DIEM;1
  1.  ;;INELIGIBLE HOSP.;1
  1.  ;;INELIGIBLE HOSP. REIMB.;0
  1.  ;;INTERAGENCY;0
  1.  ;;MEDICARE;0
  1.  ;;MILITARY;0
  1.  ;;NO-FAULT AUTO ACC.;0
  1.  ;;NURSING HOME CARE PER DIEM;1
  1.  ;;NURSING HOME CARE(NSC);1
  1.  ;;NURSING HOME CARE-LTC;1
  1.  ;;NURSING HOME PROCEEDS;0
  1.  ;;OUTPATIENT CARE(NSC);1
  1.  ;;PARKING FEES;0
  1.  ;;PREPAYMENT;0
  1.  ;;REIMBURS.HEALTH INS.;0
  1.  ;;RESPITE CARE-INSTITUTIONAL;1
  1.  ;;RESPITE CARE-NON-INSTITUTIONAL;1
  1.  ;;RX CO-PAYMENT/SC VET;1
  1.  ;;RX CO-PAYMENT/NSC VET;1
  1.  ;;SHARING AGREEMENTS;0
  1.  ;;TORT FEASOR;0
  1.  ;;TRICARE;0
  1.  ;;TRICARE BLIND REHABILITATION;0
  1.  ;;TRICARE DENTAL;0
  1.  ;;TRICARE DES;0
  1.  ;;TRICARE PATIENT;1
  1.  ;;TRICARE PHARMACY;0
  1.  ;;TRICARE SCI;0
  1.  ;;TRICARE TBI;0
  1.  ;;TRICARE THIRD PARTY;0
  1.  ;;VENDOR;0
  1.  ;;WORKMAN'S COMP.;0
  1.  ;;END