RCP450 ;TAS/CJE - ePayment Lockbox Post-Installation Processing ;4 Oct 2018 10:29:18
;;4.5;Accounts Receivable;**450**;Oct 4, 2018;Build 15
;Per VA Directive 6402, this routine should not be modified.
Q
;
POST ;
D AUTO1
D ADDF
Q
AUTO1 ; Populate default values for 1st party auto-decrease
;
K ^RC(342,1,14) ; Remove list. Criteria are now hard coded all I/P, O/P and Rx except cancels
Q
ADDF ; Populate defaults for first party decrease on manual post
N FDA
D BMES^XPDUTL("Populate default value for 1st party auto-decrease (#342)")
S FDA(342,"1,",.17)=0
D FILE^DIE("","FDA")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCP450 612 printed Jan 29, 2026@14:46:04 Page 2
RCP450 ;TAS/CJE - ePayment Lockbox Post-Installation Processing ;4 Oct 2018 10:29:18
+1 ;;4.5;Accounts Receivable;**450**;Oct 4, 2018;Build 15
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
+4 ;
POST ;
+1 DO AUTO1
+2 DO ADDF
+3 QUIT
AUTO1 ; Populate default values for 1st party auto-decrease
+1 ;
+2 ; Remove list. Criteria are now hard coded all I/P, O/P and Rx except cancels
KILL ^RC(342,1,14)
+3 QUIT
ADDF ; Populate defaults for first party decrease on manual post
+1 NEW FDA
+2 DO BMES^XPDUTL("Populate default value for 1st party auto-decrease (#342)")
+3 SET FDA(342,"1,",.17)=0
+4 DO FILE^DIE("","FDA")
+5 QUIT
