RCP380 ;AITC/MBS - Patch PRCA*4.5*380 Post Installation Processing ; 9/9/21 10:34am
;;4.5;Accounts Receivable;**380**;Sep 9, 2021;Build 14
;Per VA Directive 6402, this routine should not be modified.
Q
POST ;
D IX3443
Q
IX3443 ; Build new ADEP2 index in file #344.3
N DIK
D BMES^XPDUTL("Creating index by deposit number and deposit date on EDI LOCKBOX DEPOSIT file (#344.3)")
S DIK="^RCY(344.3,",DIK(1)=".06^ADEP2" D ENALL^DIK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCP380 450 printed Dec 13, 2024@01:47:22 Page 2
RCP380 ;AITC/MBS - Patch PRCA*4.5*380 Post Installation Processing ; 9/9/21 10:34am
+1 ;;4.5;Accounts Receivable;**380**;Sep 9, 2021;Build 14
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
POST ;
+1 DO IX3443
+2 QUIT
IX3443 ; Build new ADEP2 index in file #344.3
+1 NEW DIK
+2 DO BMES^XPDUTL("Creating index by deposit number and deposit date on EDI LOCKBOX DEPOSIT file (#344.3)")
+3 SET DIK="^RCY(344.3,"
SET DIK(1)=".06^ADEP2"
DO ENALL^DIK
+4 QUIT
