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

PRCAP365.m

Go to the documentation of this file.
  1. PRCAP365 ;SAB/Albany - PRCA*4.5*338 POST INSTALL;3/10/20 8:10am
  1. ;;4.5;Accounts Receivable;**365**;Mar 20, 1995;Build 6
  1. ;Per VA Directive 6402, this routine should not be modified.
  1. Q
  1. ;
  1. POSTINIT ;Post Install for IB*2.0*669
  1. D BMES^XPDUTL(" >> Starting the Post-Initialization routine for IB*2.0*669")
  1. ; Adding AR CATEGORIES and REVENUE SOURCE CODES
  1. D ARCATUPD
  1. D BMES^XPDUTL(" >> End of the Post-Initialization routine for IB*2.0*669")
  1. Q
  1. ;
  1. ARCATUPD ; Initialize the new DISPLAY IN TRANS PROFILE? field in the AR Category file.
  1. ;
  1. N LOOP,LIEN,IBDATA
  1. N X,Y,DIE,DA,DR,DTOUT,DATA
  1. ;
  1. ; Grab all of the entries to update
  1. F LOOP=1:1:21 D
  1. . ;Extract the new ACTION TYPE to be added.
  1. . S RCDATA=$T(ARDAT+LOOP)
  1. . S RCDATA=$P(RCDATA,";;",2)
  1. . S RCNM=$P(RCDATA,";",1),RCFLG=$P(RCDATA,";",2)
  1. . S LIEN=$O(^PRCA(430.2,"B",RCNM,"")) ; find CHARGE REMOVE REASON entry
  1. . Q:LIEN=""
  1. . ;
  1. . ; File the update along with inactivate the ACTION TYPE
  1. . S DR="1.04///"_RCFLG
  1. . S DIE="^PRCA(430.2,",DA=LIEN
  1. . D ^DIE
  1. . K DR ;Clear update array before next use
  1. ;
  1. S DR=""
  1. D MES^XPDUTL(" -> Updated the DISPLAY IN TRANS PROFILE field in the AR Category (430.3) file.")
  1. Q
  1. ;
  1. ARDAT ; Cancellation reasons (350.3) to update
  1. ;;C (MEANS TEST);4
  1. ;;HOSPITAL CARE (NSC);4
  1. ;;HOSPITAL CARE PER DIEM;4
  1. ;;NURSING HOME CARE PER DIEM;3
  1. ;;NURSING HOME CARE(NSC);3
  1. ;;OUTPATIENT CARE(NSC);2
  1. ;;RX CO-PAYMENT/NSC VET;1
  1. ;;RX CO-PAYMENT/SC VET;1
  1. ;;CHOICE INPT;4
  1. ;;CHOICE OPT;2
  1. ;;CHOICE RX CO-PAYMENT;5
  1. ;;CC INPT;4
  1. ;;CC OPT;2
  1. ;;CC RX CO-PAYMENT;5
  1. ;;CCN INPT;4
  1. ;;CCN OPT;2
  1. ;;CCN RX CO-PAYMENT;5
  1. ;;CC MTF INPT;4
  1. ;;CC MTF OPT;2
  1. ;;CC MTF RX CO-PAYMENT;5
  1. ;;CC URGENT CARE;2
  1. ;;END
  1. ;