Routine: PRCAP318

PRCAP318 ;BIRM/EWL ALB/PJH - ePayment Lockbox Post-Installation Processing ;Dec 20, 2014@14:08:45

 ;;4.5;Accounts Receivable;**318**;Jan 21, 2014;Build 37

 ;Per VA Directive 6402, this routine should not be modified.

PRE ; pre-installation processing

 N DIK

 D MES^XPDUTL("Deleting PAYER NAME index on EDI THIRD PARTY EFT DETAIL file (#344.31)")

 S DIK="^RCY(344.31,",DIK(1)=".02^C" D ENALL2^DIK

 ; IA #6747 allows us to use fileman to touch the field LOCK(#19,3)

 D MES^XPDUTL("Removing lock from menu option EDI Diagnostic Measures Reports [RCDPE EDI NATIONAL REPORTS]")

 N DA,PRCADA

 S DA=$$FIND1^DIC(19,,,"RCDPE EDI NATIONAL REPORTS")

 I 'DA G PREEXIT

 S PRCADA(19,DA_",",3)="@"

 D FILE^DIE("","PRCADA")

PREEXIT ;

POST ; PRCA*4.5*318 post-installation processing

 N DIK

 D MES^XPDUTL("Re-indexing PAYER NAME on EDI THIRD PARTY EFT DETAIL file (#344.31)")

 S DIK="^RCY(344.31,",DIK(1)=".02^C" D ENALL^DIK

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCAP318   956     printed  Apr 23, 2025@17:55:07                                                                                                                                                                                                     Page 2

PRCAP318  ;BIRM/EWL ALB/PJH - ePayment Lockbox Post-Installation Processing ;Dec 20, 2014@14:08:45

 +1       ;;4.5;Accounts Receivable;**318**;Jan 21, 2014;Build 37

 +2       ;Per VA Directive 6402, this routine should not be modified.

 +3       ;

 +4        QUIT

 +5       ;

PRE       ; pre-installation processing

 +1        NEW DIK

 +2        DO MES^XPDUTL("Deleting PAYER NAME index on EDI THIRD PARTY EFT DETAIL file (#344.31)")

 +3        SET DIK="^RCY(344.31,"

           SET DIK(1)=".02^C"

           DO ENALL2^DIK

 +4       ;

 +5       ; IA #6747 allows us to use fileman to touch the field LOCK(#19,3)

 +6        DO MES^XPDUTL("Removing lock from menu option EDI Diagnostic Measures Reports [RCDPE EDI NATIONAL REPORTS]")

 +7        NEW DA,PRCADA

 +8        SET DA=$$FIND1^DIC(19,,,"RCDPE EDI NATIONAL REPORTS")

 +9        IF 'DA

               GOTO PREEXIT

 +10       SET PRCADA(19,DA_",",3)="@"

 +11       DO FILE^DIE("","PRCADA")

PREEXIT   ;

 +1        QUIT

 +2       ;

POST      ; PRCA*4.5*318 post-installation processing

 +1        NEW DIK

 +2        DO MES^XPDUTL("Re-indexing PAYER NAME on EDI THIRD PARTY EFT DETAIL file (#344.31)")

 +3        SET DIK="^RCY(344.31,"

           SET DIK(1)=".02^C"

           DO ENALL^DIK

 +4        QUIT

PRCAP318.m