RCP455 ;TAS/CJE - ePayment Lockbox Post-Installation Processing ;4 Oct 2018 10:29:18
;;4.5;Accounts Receivable;**455**;Oct 4, 2018;Build 19
;Per VA Directive 6402, this routine should not be modified.
Q
;
POST ;
D ADDPROXY
;
D SETTIME
Q
;
ADDPROXY ;Add APPLICATION PROXY user to file 200. Supported by IA#4677.
N IEN200
D MES^XPDUTL("Adding entry 'PRCATASMCCF,SPMHFINEPYTS' to the New Person file (#200)")
S IEN200=$$CREATE^XUSAP("PRCATASMCCF,SPMHFINEPYTS","","RCDPETAS EPAYMENTS RPCS")
I +IEN200=0 D MES^XPDUTL("........'PRCATASMCCF,SPMHFINEPYTS' already exists.")
I +IEN200>0 D MES^XPDUTL("........'PRCATASMCCF,SPMHFINEPYTS' added.")
I IEN200<0 D MES^XPDUTL("........'ERROR: PRCATASMCCF,SPMHFINEPYTS' NOT added.")
Q
SETTIME ;
N RCADD,ERROR,RCLOCKTM,TXT,VALUE
S RCADD=0
S VALUE=5
S TXT=VALUE_" seconds."
S RCLOCKTM=$$GET^XPAR("PKG.ACCOUNTS RECEIVABLE","RCDPE FHIR EFT LOCK TIMEOUT",1)
I 'RCLOCKTM D I RCADD Q
. D ADD^XPAR("PKG.ACCOUNTS RECEIVABLE","RCDPE FHIR EFT LOCK TIMEOUT",,VALUE,.ERROR)
. I 'ERROR D ;
. . D MES^XPDUTL("........'RCDPE FHIR EFT LOCK TIMEOUT' added with value "_TXT)
. . S RCLOCKTM=$$GET^XPAR("PKG.ACCOUNTS RECEIVABLE","RCDPE FHIR EFT LOCK TIMEOUT",1)
. . I RCLOCKTM=VALUE S RCADD=1
. I ERROR D MES^XPDUTL("........Error adding 'RCDPE FHIR EFT LOCK TIMEOUT'")
I RCLOCKTM'=VALUE D ;
. D CHG^XPAR("PKG.ACCOUNTS RECEIVABLE","RCDPE FHIR EFT LOCK TIMEOUT",1,VALUE,.ERROR)
. I 'ERROR D MES^XPDUTL("........'RCDPE FHIR EFT LOCK TIMEOUT' set to "_TXT)
. I ERROR D MES^XPDUTL("........Error setting 'RCDPE FHIR EFT LOCK TIMEOUT'")
I RCLOCKTM=VALUE D ;
. D MES^XPDUTL("........'RCDPE FHIR EFT LOCK TIMEOUT' already set to "_TXT)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCP455 1722 printed Sep 17, 2026@20:32:42 Page 2
RCP455 ;TAS/CJE - ePayment Lockbox Post-Installation Processing ;4 Oct 2018 10:29:18
+1 ;;4.5;Accounts Receivable;**455**;Oct 4, 2018;Build 19
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
+4 ;
POST ;
+1 DO ADDPROXY
+2 ;
+3 DO SETTIME
+4 QUIT
+5 ;
ADDPROXY ;Add APPLICATION PROXY user to file 200. Supported by IA#4677.
+1 NEW IEN200
+2 DO MES^XPDUTL("Adding entry 'PRCATASMCCF,SPMHFINEPYTS' to the New Person file (#200)")
+3 SET IEN200=$$CREATE^XUSAP("PRCATASMCCF,SPMHFINEPYTS","","RCDPETAS EPAYMENTS RPCS")
+4 IF +IEN200=0
DO MES^XPDUTL("........'PRCATASMCCF,SPMHFINEPYTS' already exists.")
+5 IF +IEN200>0
DO MES^XPDUTL("........'PRCATASMCCF,SPMHFINEPYTS' added.")
+6 IF IEN200<0
DO MES^XPDUTL("........'ERROR: PRCATASMCCF,SPMHFINEPYTS' NOT added.")
+7 QUIT
SETTIME ;
+1 NEW RCADD,ERROR,RCLOCKTM,TXT,VALUE
+2 SET RCADD=0
+3 SET VALUE=5
+4 SET TXT=VALUE_" seconds."
+5 SET RCLOCKTM=$$GET^XPAR("PKG.ACCOUNTS RECEIVABLE","RCDPE FHIR EFT LOCK TIMEOUT",1)
+6 IF 'RCLOCKTM
Begin DoDot:1
+7 DO ADD^XPAR("PKG.ACCOUNTS RECEIVABLE","RCDPE FHIR EFT LOCK TIMEOUT",,VALUE,.ERROR)
+8 ;
IF 'ERROR
Begin DoDot:2
+9 DO MES^XPDUTL("........'RCDPE FHIR EFT LOCK TIMEOUT' added with value "_TXT)
+10 SET RCLOCKTM=$$GET^XPAR("PKG.ACCOUNTS RECEIVABLE","RCDPE FHIR EFT LOCK TIMEOUT",1)
+11 IF RCLOCKTM=VALUE
SET RCADD=1
End DoDot:2
+12 IF ERROR
DO MES^XPDUTL("........Error adding 'RCDPE FHIR EFT LOCK TIMEOUT'")
End DoDot:1
IF RCADD
QUIT
+13 ;
IF RCLOCKTM'=VALUE
Begin DoDot:1
+14 DO CHG^XPAR("PKG.ACCOUNTS RECEIVABLE","RCDPE FHIR EFT LOCK TIMEOUT",1,VALUE,.ERROR)
+15 IF 'ERROR
DO MES^XPDUTL("........'RCDPE FHIR EFT LOCK TIMEOUT' set to "_TXT)
+16 IF ERROR
DO MES^XPDUTL("........Error setting 'RCDPE FHIR EFT LOCK TIMEOUT'")
End DoDot:1
+17 ;
IF RCLOCKTM=VALUE
Begin DoDot:1
+18 DO MES^XPDUTL("........'RCDPE FHIR EFT LOCK TIMEOUT' already set to "_TXT)
End DoDot:1
+19 QUIT
