PRCAP392.m

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 ---PRCAP392   820     printed  Apr 09, 2024@20:50:36                                                                                                                                                                                                     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