RCDPEAA4 ;AITC/CJE - AUTO POST AWAITING RESOLUTION (APAR) - LIST OF UNPOSTED EEOBS ;Jun 06, 2014@19:11:19
Source file <RCDPEAA4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BLD(P1,P2,RCPROG) | ;EP from RCDPEAA1
; Build,SORT and output the EEOB list to be displayed on APAR ; screen ; Input: P1 - "RCDPE_APAR_EEOB_PASS1" ; P2 - "RCDPE_APAR_EEOB_PASS2" ; RCPROG - "RCDPE-APAR_EEOB_WL" ; ^TMP($J,P1,ERAIEN) - Global array of all the ERA records that ; passed the filter criteria ; Output: ^TMP($J,P2,A1,A2) - B1^B2^B3^B4^B5^B6^B7^B8^B9 ; See ERALINES for detail ; VALMCNT - Total number of lines in the listman body |
|
| ERALINES(RCDA,RCARRY,BALANCE,TOTPOSTD,POSTDT,FILEDT,PAYID,PAYNM,P2) | ; Build sorted list
; Input: RCDA - Top file ien for files 344.4 and 344.49 ; RCARRY(CTR) - A1^A2^A3^A4 Where: ; A1 - ERA Number ; A2 - Original Sequence Numbers ; A3 - Claim Number ; A4 - Internal IEN for subfile 344.491 ; A5 - Reason on APAR ; BALANCE - Amount that is left to be posted ; TOTPOSTD - Total amount posted thus far against the ERA ; POSTDT - Latest auto-posted date ; FILEDT - Date/Time the ERA was filed ; PAYID - Payer id ; PAYNM - Payer name ; P2 - "RCDPE_APAR_EEOB_PASS2" ; REASON - External Auto-Post Reject Reason ; Output: ^TMP($J,P2,A1,A2) = B1^B2^B3^B4^B5^B6^B7^B8^B9 Where: ; A1 - Uppercased value of the selected sort field ; A2 - Internal IEN of the ERA record ; B1 - Line Number ; B2 - ERA #.Sequence # (max 19 10+"."+8 characters) ; B3 - Claim # (max 15 characters) ; B4 - Posted Amount (max 15 characters) ; B5 - External Post Date (8 characters) ; B6 - Unposted Balance (max 15 characters) ; B7 - Payer Name/Payer ID (max 76 characters) ; B8 - Internal IEN for subfile 344.491 ; B9 - Auto-Post Reject Reason ; B10 - Date ERA Filed |
|
| BOUT(P2,VALMCNT) | ; Build the display lines and load into the listman template
; Input: P2 - "RCDPE_APAR_EEOB_PASS2" ; ^TMP($J,P2,A1,A2) - B1^B2^B3^B4^B5^B6^B7^B8 ; See ERALINES for detail ; Output: VALMCNT - Total # of body lines ; ^TMP("RCDPE-APAR_EEOB_WL",$J,VALMCNT,0) - Listman Body line ; ^TMP("RCDPE-APAR_EEOB_WL",$J,"IDX",VALMCNT,RCSEQ) - Line selection index ; ^TMP("RCDPE-APAR_EEOB_WLDX",$J,RCSEQ) - A1^A2^A3^...An Where ; A1 - Line selection # ; A2 - Internal IEN for 344.4 ; A3 - Internal IEN for 344.491 ; A4 - Unposted Balance ; A5 - Posted Amount |
|
| SORTP(BALANCE,TOTPOSTD,PAYNM,REASON,FILEDT) | ; Get the value for the selected sort
; Input: BALANCE - Unpaid Balance ; TOTPOSTD - Posted Amount ; POSTDT - Internal Posted Datge ; PAYNM - Payer Name ; REASON - External Auto-Post Reject Reason ; FILEDT - Internal Date/Time the ERA was filed ; ^TMP("RCDPE_APAR_EEOB_PARAMS",$J,"SORT")- Selected sort (P/D/A/T) ; Returns: External value for the selected sort type |
|
| SET(DLINE,RCSEQ,ERAIEN,RCDA1,BALANCE,TOTPOSTD,VALMCNT) | ; Set ListManager arrays
; Input: DLINE - Line to be displayed in the listman body ; RCSEQ - Line Selection number ; ERAIEN - Internal IEN for 344.4 or 344.49 ; RCDA1 - Inernal IEN for subfile 344.491 ; BALANCE - Unposted Balance ; TOTPOSTD - Posted Amount ; VALMCNT - Current listman body line count ; Output: VALMCNT - Updated listman body line count ; ^TMP("RCDPE-APAR_EEOB_WL",$J,VALMCNT,0) - Listman Body line ; ^TMP("RCDPE-APAR_EEOB_WL",$J,"IDX",VALMCNT,RCSEQ) - Line selection index ; ^TMP("RCDPE-APAR_EEOB_WLDX",$J,RCSEQ) - A1^A2^A3^...An Where ; A1 - Line selection # ; A2 - Internal IEN for 344.4 ; A3 - Internal IEN for 344.491 ; A4 - Unposted Balance ; A5 - Posted Amount |
| FileNo | Call Tags |
|---|---|
| ^RCY(344.4 - [#344.4] | GET1^DIQ |
| 344.41 | GET1^DIQ |
| ^RCY(344.49 - [#344.49] | GET1^DIQ |
| 344.491 | GET1^DIQ |
