RCDPEAA4 ;AITC/CJE - AUTO POST AWAITING RESOLUTION (APAR) - LIST OF UNPOSTED EEOBS ;Jun 06, 2014@19:11:19
Source file <RCDPEAA4.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RCY(344.49 - [#344.49] | BLD+22, BLD+25 |
| ^TMP("RCDPE-APAR_EEOB_WL" | SET+18*, SET+19* |
| ^TMP("RCDPE-APAR_EEOB_WLDX" | SET+20* |
| ^TMP("RCDPE_APAR_EEOB_PARAMS" | SORTP+10 |
| ^TMP($J | BLD+18, ERALINES+48*, BOUT+16, BOUT+20, BOUT+24, BOUT+26 |
| Name | Line Occurrences |
|---|---|
| $$SORTP | ERALINES+35 |
| BOUT | BLD+64 |
| ERALINES | BLD+59 |
| SET | BOUT+41, BOUT+45, BOUT+49 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A1 | ERALINES+29~, ERALINES+35*, ERALINES+36*, ERALINES+48, BOUT+13~, BOUT+14*, BOUT+15, BOUT+16*, BOUT+17, BOUT+20 , BOUT+24, BOUT+26 |
| AMTPST | BLD+11~, BLD+28*, BLD+29, BLD+36 |
| AUTOPDT | BLD+11~, BLD+56*, BLD+59 |
| BALANCE | BLD+11~, BLD+13*, BLD+41*, BLD+59, BLD+61*, ERALINES~, ERALINES+35, ERALINES+43, BOUT+13~, BOUT+35* , BOUT+36, BOUT+41, BOUT+45, BOUT+49, SORTP~, SORTP+16, SET~, SET+20 |
| COUNT | BOUT+13~, BOUT+14*, BOUT+27*, BOUT+28, BOUT+41, BOUT+45, BOUT+49 |
| DLINE | ERALINES+29~, ERALINES+37*, ERALINES+39*, ERALINES+40*, ERALINES+41*, ERALINES+42*, ERALINES+43*, ERALINES+44*, ERALINES+45*, ERALINES+46* , ERALINES+47*, ERALINES+48, BOUT+13~, BOUT+28*, BOUT+29*, BOUT+30*, BOUT+32*, BOUT+34*, BOUT+36*, BOUT+38* , BOUT+41, BOUT+44*, BOUT+45, BOUT+48*, BOUT+49, SET~, SET+18 |
| ERAIEN | BLD+11~, BLD+14*, BLD+17, BLD+18*, BLD+19, BLD+22, BLD+25, BLD+27, BLD+31, BLD+40 , BLD+47, BLD+55, BLD+56, BLD+57, BLD+58, BLD+59, BOUT+13~, BOUT+18*, BOUT+19, BOUT+20* , BOUT+21, BOUT+24, BOUT+26, BOUT+41, BOUT+45, BOUT+49, SET~, SET+19, SET+20 |
| FILEDT | ERALINES~, ERALINES+35, ERALINES+47, SORTP~, SORTP+15 |
| I34441 | BLD+11~, BLD+31*, BLD+32, BLD+33, BLD+44 |
| I344491 | BLD+11~, BLD+27*, BLD+28, BLD+30, BLD+50 |
| IENS | BLD+11~ |
| OSEQ | BLD+11~, BLD+30*, BLD+31, BLD+49 |
| P1 | BLD~, BLD+18 |
| P2 | BLD~, BLD+59, BLD+64, ERALINES~, ERALINES+48, BOUT~, BOUT+16, BOUT+20, BOUT+24, BOUT+26 |
| PAYID | ERALINES~, ERALINES+44 |
| PAYNM | ERALINES~, ERALINES+35, ERALINES+44, SORTP~, SORTP+13 |
| POSTDT | ERALINES~, ERALINES+42 |
| RCARRY | BLD+54, BLD+59, BLD+60!, ERALINES~ |
| RCARRY( | BLD+48*, BLD+49*, BLD+51*, BLD+52*, BLD+53*, ERALINES+32, ERALINES+34, ERALINES+38, ERALINES+40, ERALINES+45 |
| RCDA | ERALINES~, ERALINES+48 |
| RCDA1 | BLD+11~, BLD+25*, BLD+26, BLD+27, BLD+52, SET~, SET+20 |
| RCDT | BLD+11~, BLD+55*, BLD+59 |
| RCPROG | BLD~ |
| RCPT | BLD+11~, BLD+32*, BLD+36, BLD+39, BLD+45 |
| RCSEQ | BLD+11~, BLD+20*, BLD+21, BLD+22*, BLD+23, BLD+24, BLD+25, SET~, SET+19, SET+20 |
| RCT | BLD+11~, BLD+13*, BLD+46*, BLD+48, BLD+49, BLD+51, BLD+52, BLD+53, ERALINES+29~, ERALINES+30* , ERALINES+31, ERALINES+32*, ERALINES+33, ERALINES+34, ERALINES+37, ERALINES+38, ERALINES+40, ERALINES+45, ERALINES+48, BOUT+13~ , BOUT+22*, BOUT+23, BOUT+24*, BOUT+25, BOUT+26 |
| REASON | BLD+11~, BLD+33*, BLD+53, ERALINES+29~, ERALINES+34*, ERALINES+35, ERALINES+46, SORTP~, SORTP+14 |
| TOTPOSTD | BLD+12~, BLD+13*, BLD+36*, BLD+41, BLD+59, BLD+61*, ERALINES~, ERALINES+35, ERALINES+41, BOUT+31* , BOUT+32, BOUT+41, BOUT+45, BOUT+49, SORTP~, SORTP+17, SET~, SET+20 |
| TOTPOSTDX | BOUT+13~ |
| U | ERALINES+38, ERALINES+40, SET+20 |
| VALMCNT | BLD+13*, BLD+64, BOUT~, BOUT+41, BOUT+45, BOUT+49, SET~, SET+17*, SET+18, SET+19 , SET+20 |
| VALUE | SORTP+9~ |
| X | ERALINES+29~ |
| XX | BLD+12~, BLD+40*, BLD+41, BLD+47*, BLD+48, BLD+50*, BLD+51, BLD+57*, BLD+59, ERALINES+29~ , ERALINES+38*, ERALINES+39, BOUT+13~, BOUT+26*, BOUT+29, BOUT+30, BOUT+31, BOUT+34, BOUT+35, BOUT+38 , BOUT+41, BOUT+44, BOUT+45, BOUT+48, BOUT+49, SORTP+9~, SORTP+10*, SORTP+11*, SORTP+13, SORTP+14 , SORTP+15, SORTP+16 |
| YY | BLD+12~, BLD+44*, BLD+45, BLD+58*, BLD+59, SORTP+9~, SORTP+11*, SORTP+12*, SORTP+15, SORTP+16 , SORTP+17 |
