PRCAP392 ;EDE/YMG - PRCA*4.5*392 POST INSTALL; 03/30/22
;;4.5;Accounts Receivable;**392**;Mar 20, 1995;Build 10
;Per VA Directive 6402, this routine should not be modified.
Q
;
EN ; entry point
D BMES^XPDUTL(" >> Start of the Post-Installation routine for PRCA*4.5*392")
; Update bill profile display in file 430.2
D UPDSTYPE
;
D BMES^XPDUTL(" >> End of the Post-Installation routine for PRCA*4.5*392")
Q
;
UPDSTYPE ; Update bill profile display (field 430.2/1.04) in file 430.2
N ARCIEN,FDA
D BMES^XPDUTL(" >> Updating bill profile display settings for Tricare in file 430.2...")
F ARCIEN=75:1:78 S FDA(430.2,ARCIEN_",",1.04)=2 D FILE^DIE("","FDA") K FDA ; set to outpatient display
S FDA(430.2,"80,",1.04)=5 D FILE^DIE("","FDA") ; set to CC RX display
D MES^XPDUTL("Done.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCAP392 820 printed Dec 13, 2024@01:40:53 Page 2
PRCAP392 ;EDE/YMG - PRCA*4.5*392 POST INSTALL; 03/30/22
+1 ;;4.5;Accounts Receivable;**392**;Mar 20, 1995;Build 10
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
+4 ;
EN ; entry point
+1 DO BMES^XPDUTL(" >> Start of the Post-Installation routine for PRCA*4.5*392")
+2 ; Update bill profile display in file 430.2
+3 DO UPDSTYPE
+4 ;
+5 DO BMES^XPDUTL(" >> End of the Post-Installation routine for PRCA*4.5*392")
+6 QUIT
+7 ;
UPDSTYPE ; Update bill profile display (field 430.2/1.04) in file 430.2
+1 NEW ARCIEN,FDA
+2 DO BMES^XPDUTL(" >> Updating bill profile display settings for Tricare in file 430.2...")
+3 ; set to outpatient display
FOR ARCIEN=75:1:78
SET FDA(430.2,ARCIEN_",",1.04)=2
DO FILE^DIE("","FDA")
KILL FDA
+4 ; set to CC RX display
SET FDA(430.2,"80,",1.04)=5
DO FILE^DIE("","FDA")
+5 DO MES^XPDUTL("Done.")
+6 QUIT
