RCP380.m

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 ---RCP380   450     printed  Apr 09, 2024@20:44:04                                                                                                                                                                                                       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