RCP367 ;AITC/DOM - Patch PRCA*4.5*367 Post Installation Processing ;20 Feb 2020 14:00:00
Source file <RCP367.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| POST | ;
|
|
| RECPTYPE | ; Add new receipt type
|
|
| CKOLDEFT | ; Check for EFTs that are 7 years or older and are matched to
; a paper check. These EDTs result in an erroneous Old EFT warning ; message when working ERAs in the EDI Lockbox Worklist. If any ; EFTs are found that are 7 years or older and are matched to a ; paper check, the first three found are displayed to the IRM who is ; then instructed to send an email message to VHAePaymentsTesting@domain.ext mail group ; listing the EFT numbers found so testers can verify that these ; EFTs are NOT among the list of EFTs causing the need for an ; override. |
|
| CHKEFT(RECVDT,EFTDA,TYPE,DAYSLIMT,TRARRY,CTR) | ; Check EFT for warnings/errors
|
|
| PROC(EFTDA) | ; Check if TR Receipt for an EFT linked to Paper EOB was purged
; Input: EFTDA - IEN for file 344.31 ; Returns: 1 if TR receipt was purged, 0 otherwise |
| Name | Field # of Occurrence |
|---|---|
| UPDATE^DIE | RECPTYPE+7 |
| $$GET1^DIQ | CKOLDEFT+12, CKOLDEFT+18, CKOLDEFT+19, CKOLDEFT+20, CHKEFT+12, CHKEFT+15, CHKEFT+16, CHKEFT+20, CHKEFT+22 |
| VERIFY^PRCABJ | RECPTYPE+11 |
| $$FMADD^XLFDT | CKOLDEFT+13, CKOLDEFT+17 |
| $$HTE^XLFDT | POST+1, POST+4 |
| BMES^XPDUTL | POST+1, POST+4, RECPTYPE+3, RECPTYPE+13, RECPTYPE+16, RECPTYPE+18, CKOLDEFT+10, CKOLDEFT+30, CKOLDEFT+41 |
| FileNo | Call Tags |
|---|---|
| ^RCY(344.31 - [#344.31] | GET1^DIQ |
| ^RCY(344.61 - [#344.61] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RC(341.1 - [#341.1] | RECPTYPE+2 |
| ^RCY(344 - [#344] | PROC+6 |
| ^RCY(344.31 - [#344.31] | CKOLDEFT+24, CKOLDEFT+26, CHKEFT+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CTR | CKOLDEFT+9~, CKOLDEFT+11*, CKOLDEFT+24, CKOLDEFT+26, CKOLDEFT+27, CKOLDEFT+29, CHKEFT~, CHKEFT+24* |
| DAYSLIMT | CKOLDEFT+9~, CKOLDEFT+27, CHKEFT~ |
| DAYSLIMT("M" | CKOLDEFT+18* |
| DAYSLIMT("P" | CKOLDEFT+19* |
| DAYSLIMT("T" | CKOLDEFT+20* |
| DT | CKOLDEFT+17 |
| EFTDA | CKOLDEFT+9~, CKOLDEFT+25*, CKOLDEFT+26*, CKOLDEFT+27, CHKEFT~, CHKEFT+11, CHKEFT+12, CHKEFT+15, CHKEFT+16, CHKEFT+20 , CHKEFT+21, CHKEFT+22, PROC~, PROC+6 |
| EFTTYPE | CHKEFT+10~ |
| ENDDT | CKOLDEFT+9~, CKOLDEFT+17*, CKOLDEFT+24 |
| ERAREC | CHKEFT+10~, CHKEFT+16*, CHKEFT+17 |
| ERROR | RECPTYPE+1~, RECPTYPE+10*, RECPTYPE+12, RECPTYPE+17 |
| ERROR( | RECPTYPE+15, RECPTYPE+16 |
| IEN344 | PROC+3~, PROC+6*, PROC+7 |
| MSG | CKOLDEFT+9~, CKOLDEFT+41 |
| MSG( | CKOLDEFT+38*, CKOLDEFT+39*, CKOLDEFT+40* |
| MSG(1 | CKOLDEFT+33* |
| RCFDA | RECPTYPE+1~ |
| RCFDA( | RECPTYPE+4*, RECPTYPE+5*, RECPTYPE+6* |
| RCJ | RECPTYPE+1~, RECPTYPE+14*, RECPTYPE+15*, RECPTYPE+16 |
| RECVDT | CKOLDEFT+9~, CKOLDEFT+23*, CKOLDEFT+24*, CKOLDEFT+26, CKOLDEFT+27, CHKEFT~ |
| STARTDT | CKOLDEFT+9~, CKOLDEFT+12*, CKOLDEFT+13*, CKOLDEFT+23 |
| TARRAY | CKOLDEFT+9~, CKOLDEFT+27 |
| TARRAY( | CKOLDEFT+36 |
| TRACE | CHKEFT+10~, CHKEFT+22*, CHKEFT+23*, CHKEFT+24 |
| TRARRY | CHKEFT~ |
| TRARRY( | CHKEFT+24* |
| TYPE | CHKEFT~ |
| XX | CKOLDEFT+9~, CKOLDEFT+32*, CKOLDEFT+38*, CKOLDEFT+39*, CKOLDEFT+40* |
| ZZ | CKOLDEFT+9~, CKOLDEFT+34*, CKOLDEFT+35, CKOLDEFT+36*, CKOLDEFT+37, CKOLDEFT+38 |
