RCDPEAPQ ;AITC/CJE - AUTO POST REPORT -CONTINUED ;Dec 20, 2014@18:42
Source file <RCDPEAPQ.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 |
Package | Total | Caller Graph |
---|---|---|
Accounts Receivable | 2 | RCDPEAPP RCDPENE1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
SAVE(ERAIEN,RCRZ,RCTYPE,APDATE,RCSORT) | ; EP - Save to ^TMP global
; Input: ERAIEN - Internal IEN into file 344.4 ; RCRZ - Internal IEN into sub-file 344.41 ; RCTYPE - 'D' for detail report, 'S' for summary ; APDATE - Internal Auto-Posting date ; RCSORT - 0 - Sort by Payer Name, 1 - Sort by Payer TIN ; STNAM - Division Name (Primary Sort) ; STNUM - Station Number ; ^TMP("RCDPEAPP2",$J,ERAIEN,RCRZ) - Array of detail lines ; Output: GTOTAL - A1^A2^A3^A4 Where: ; A1 - Total Count ; A2 - Total Original Amounts ; A3 - Total Payment Amounts ; A4 - Total Balance |
|
ERASTA(ERAIEN,STA,STNUM,STNAM) | ; EP - Get the station (Division) for this ERA
; Input: ERAIEN - ; Output: STA - Internal Division IEN ; STNUM - Division Number ; STNAME - Division Name |
|
COMPILE | ; Generate the Auto Posting report ^TMP array
; Input: GLOB - "^TMP("RCDPEAPP",$J)" ; RCDISP - 0 - Output to paper or screen, 1 - Output to Excel ; RCDIV - 1 - All divisions, 2 - Selected divisions ; RCDIVS()- Array of selected divisions if RCDIV=2 ; RCRANGE - 1^Start Date^End Date ; RCJOB - $J ; RCLAIM - "M" - Medical Claims, "P" - Pharmacy Claims, "B" - Both ; RCPAGE - Initialized to 0 ; RCPARRAY- Array of selected payers ; RCPROG - "RCDPEAPP" ; RCSORT - 0 - Sort by Payer Name, 1 - Sort by Payer TIN ; RCWHICH - 1 - Filter by Payer Name, 2 - Filter by Payer TIN ; RCTYPE - 'D' for detail report, 'S' for summary ; RCPAYMNT - 'Z' - Zero pay ERAs only, 'P' - Non-Zero ERAs only, 'A' All - PRCA*4.5*424 ; ^TMP("RCSELPAY",RCJOB) - Selected Payer Names or TINs ; Ouput: GTOTAL - A1^A2^A3^A4 Where: ; A1 - Total Count ; A2 - Total Original Amounts ; A3 - Total Payment Amounts ; A4 - Total Balance ; ^TMP("RCSELPAY",RCJOB,A1)=A2/A3 Where: ; A1 - CTR ; A2 - Payer Name if RCWHICH=1 else Payer TIN ; A3 - Payer TIN if RCWHICH=1 else Payer Name |
|
BUILD(RCSCR) | ; Build cross-reference of ERA detail lines to ERA scratch-pad lines
; Input: RCSCR - Internal IEN of file 344.4/344.49 |
|
PAYMNT() | ; Payment Type (Zero/Payment or Both) Selection. EP from RCDPEAPP
; Input: None ; Output: None ; Returns: A - All ERAs, P - ERAs with payments, Z - Zero payment ERAs |
Name | Field # of Occurrence |
---|---|
$$EXTERNAL^DILFD | SAVE+38, SAVE+77, ERASTA+13 |
$$GET1^DIQ | SAVE+17, SAVE+18, SAVE+27, SAVE+29, SAVE+30, SAVE+35, SAVE+36, SAVE+37, SAVE+40, SAVE+51 , SAVE+52, SAVE+54, SAVE+58, SAVE+59, SAVE+75, SAVE+76, SAVE+81, SAVE+82, SAVE+85, ERASTA+9 , ERASTA+10, ERASTA+11, ERASTA+14 |
^DIR | PAYMNT+13 |
$$ISSEL^RCDPEU1 | COMPILE+48 |
$$ISTYPE^RCDPEU1 | COMPILE+44 |
$$PNM4^RCDPEWL1 | SAVE+28, SAVE+64, SAVE+89 |
$$FMADD^XLFDT | COMPILE+26 |
$$FMTE^XLFDT | SAVE+31, SAVE+32 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^RCY(344.3 - [#344.3] | GET1^DIQ |
^RCY(344.31 - [#344.31] | GET1^DIQ |
^RCY(344.4 - [#344.4] | GET1^DIQ |
344.41 | EXTERNAL^DILFD, GET1^DIQ |
344.491 | GET1^DIQ |
^IBM(361.1 - [#361.1] | GET1^DIQ |
^DGCR(399 - [#399] | EXTERNAL^DILFD, GET1^DIQ |
^DG(40.8 - [#40.8] | GET1^DIQ |
^PRCA(430 - [#430] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^RCY(344.31 - [#344.31] | SAVE+33 |
^RCY(344.4 - [#344.4] | COMPILE+30, COMPILE+32, COMPILE+39, COMPILE+55 |
^RCY(344.49 - [#344.49] | SAVE+47, SAVE+48, BUILD+4, BUILD+6, BUILD+8, BUILD+12, BUILD+15 |
^TMP("RCDPEAPP2" | SAVE+44, COMPILE+51, BUILD+15* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
APDATE | SAVE~, SAVE+32, COMPILE+25~, COMPILE+26*, COMPILE+30*, COMPILE+32, COMPILE+55, COMPILE+56 |
BALANCE | SAVE+14~, SAVE+50*, SAVE+59*, SAVE+62, SAVE+69 |
BAMT | SAVE+14~, SAVE+50*, SAVE+58*, SAVE+62, SAVE+65, SAVE+69 |
BILL | SAVE+14~, SAVE+52*, SAVE+53*, SAVE+69, SAVE+77*, SAVE+93 |
CLAIMIEN | SAVE+14~, SAVE+51*, SAVE+57, SAVE+58, SAVE+59, SAVE+64, SAVE+74*, SAVE+76*, SAVE+80, SAVE+81 , SAVE+85, SAVE+89 |
CNT | SAVE+66*, SAVE+70, SAVE+91*, SAVE+94, COMPILE+25~, COMPILE+27*, BUILD+2~, BUILD+13*, BUILD+14 |
COLLECT | SAVE+14~, SAVE+50*, SAVE+65*, SAVE+69, SAVE+74*, SAVE+90*, SAVE+93 |
DATE | SAVE+14~, SAVE+32*, SAVE+68, SAVE+92 |
DEPNO | SAVE+14~, SAVE+39*, SAVE+40*, SAVE+69, SAVE+93 |
DIR | PAYMNT+4~, PAYMNT+5! |
DIR("?" | PAYMNT+8*, PAYMNT+9*, PAYMNT+10* |
DIR("A" | PAYMNT+6* |
DIR("B" | PAYMNT+7*, PAYMNT+11* |
DIR(0 | PAYMNT+5* |
DTOUT | PAYMNT+4~, PAYMNT+14 |
DUOUT | PAYMNT+4~, PAYMNT+14 |
EFTIEN | SAVE+14~, SAVE+34*, SAVE+35*, SAVE+40 |
EFTNUM | SAVE+14~, SAVE+33*, SAVE+34, SAVE+35, SAVE+36*, SAVE+68, SAVE+92 |
END | COMPILE+25~, COMPILE+27*, COMPILE+30 |
EOBIEN | SAVE+14~, SAVE+75*, SAVE+76, SAVE+77 |
ERABILL | ERASTA+5~, ERASTA+6*, ERASTA+10*, ERASTA+11 |
ERADATE | SAVE+14~, SAVE+30*, SAVE+31*, SAVE+68, SAVE+92 |
ERADET | BUILD+2~, BUILD+14*, BUILD+15 |
ERAEOB | ERASTA+5~, ERASTA+6*, ERASTA+9*, ERASTA+10 |
ERAIEN | SAVE~, SAVE+17, SAVE+18, SAVE+27, SAVE+28, SAVE+29, SAVE+30, SAVE+37, SAVE+44, SAVE+47 , SAVE+48, SAVE+51, SAVE+52, SAVE+54, SAVE+64, SAVE+75, SAVE+82, SAVE+89, ERASTA~, ERASTA+9 , COMPILE+25~, COMPILE+31*, COMPILE+32*, COMPILE+35, COMPILE+39, COMPILE+44, COMPILE+48, COMPILE+51, COMPILE+55, COMPILE+56 |
ERALINE | BUILD+2~, BUILD+12*, BUILD+13, BUILD+14 |
ERANUM | SAVE+14~, SAVE+29*, SAVE+33, SAVE+68, SAVE+92 |
FOUND | ERASTA+5~, ERASTA+6* |
>> GLOB | SAVE+70, SAVE+94, SAVE+97*, SAVE+98*, SAVE+99*, SAVE+100*, SAVE+103*, SAVE+104*, SAVE+105*, SAVE+106* |
>> GTOTAL | SAVE+109*, SAVE+110* |
IEN | COMPILE+25~ |
OKAY | COMPILE+25~, COMPILE+43, COMPILE+44*, COMPILE+47, COMPILE+48* |
PAMT | SAVE+15~, SAVE+54*, SAVE+62, SAVE+65, SAVE+69 |
PAYIX1 | SAVE+15~, SAVE+19*, SAVE+20*, SAVE+70, SAVE+94, SAVE+103, SAVE+104, SAVE+105, SAVE+106 |
PAYIX2 | SAVE+15~, SAVE+19*, SAVE+20*, SAVE+70, SAVE+94, SAVE+103, SAVE+104, SAVE+105, SAVE+106 |
PAYNAM | SAVE+15~, SAVE+17*, SAVE+19, SAVE+20, SAVE+21*, SAVE+67, SAVE+92 |
PTNAM | SAVE+15~, SAVE+28*, SAVE+64*, SAVE+68, SAVE+89*, SAVE+92 |
RCAMT | COMPILE+25~, COMPILE+39*, COMPILE+40 |
>> RCDIV | COMPILE+36 |
>> RCDIVS( | COMPILE+36 |
RCECME | COMPILE+25~ |
>> RCLAIM | COMPILE+43, COMPILE+44 |
>> RCPAY | COMPILE+43, COMPILE+47 |
>> RCPAYMNT | COMPILE+40 |
>> RCRANGE | COMPILE+26, COMPILE+27 |
RCRZ | SAVE~, SAVE+28, SAVE+37, SAVE+44, SAVE+64, SAVE+75, SAVE+82, SAVE+89, COMPILE+25~, COMPILE+54* , COMPILE+55*, COMPILE+56 |
RCSCR | BUILD~, BUILD+3, BUILD+4, BUILD+6, BUILD+8, BUILD+12, BUILD+15 |
RCSORT | SAVE~, SAVE+19, SAVE+20, SAVE+67, COMPILE+56 |
RCTYPE | SAVE~, SAVE+26, SAVE+63, SAVE+88, COMPILE+56 |
RCTYPEDF | PAYMNT+4~ |
RECEIPT | SAVE+15~, SAVE+38*, SAVE+69, SAVE+93 |
SEQ | SAVE+15~, SAVE+44*, SAVE+45, SAVE+46, SAVE+47, SAVE+73 |
SEQ1 | SAVE+15~, SAVE+46*, SAVE+47*, SAVE+48 |
SEQ2 | SAVE+15~, SAVE+48*, SAVE+49, SAVE+51, SAVE+52, SAVE+54 |
STA | ERASTA~, ERASTA+7*, ERASTA+12*, ERASTA+13, COMPILE+25~, COMPILE+35, COMPILE+36 |
STAIEN | ERASTA+5~, ERASTA+11*, ERASTA+12, ERASTA+14 |
STIX | SAVE+15~, SAVE+22*, SAVE+70, SAVE+94, SAVE+97, SAVE+98, SAVE+99, SAVE+100, SAVE+103, SAVE+104 , SAVE+105, SAVE+106 |
STNAM | SAVE+22, SAVE+67, SAVE+92, ERASTA~, ERASTA+7*, ERASTA+13*, COMPILE+25~, COMPILE+35 |
STNUM | SAVE+22, SAVE+67, SAVE+92, ERASTA~, ERASTA+7*, ERASTA+14*, COMPILE+25~, COMPILE+35 |
SUB | BUILD+2~, BUILD+5*, BUILD+6*, BUILD+7, BUILD+8 |
SUB1 | BUILD+2~, BUILD+8*, BUILD+9, BUILD+12, BUILD+15 |
TIN | SAVE+16~, SAVE+18*, SAVE+19, SAVE+20, SAVE+67 |
TOTBAL | SAVE+16~, SAVE+23*, SAVE+62*, SAVE+74*, SAVE+85*, SAVE+93, SAVE+100, SAVE+106, SAVE+110 |
TOTBAMT | SAVE+16~, SAVE+23*, SAVE+62*, SAVE+74*, SAVE+81*, SAVE+90, SAVE+93, SAVE+98, SAVE+104, SAVE+109 |
TOTPAMT | SAVE+16~, SAVE+23*, SAVE+62*, SAVE+82*, SAVE+90, SAVE+93, SAVE+99, SAVE+105, SAVE+110 |
TRACE | SAVE+16~, SAVE+27*, SAVE+69, SAVE+93 |
U | SAVE+67, SAVE+68, SAVE+69, SAVE+92, SAVE+93, SAVE+97, SAVE+98, SAVE+99, SAVE+100, SAVE+103 , SAVE+104, SAVE+105, SAVE+106, SAVE+109, SAVE+110, COMPILE+26, COMPILE+27, BUILD+12 |
XX | SAVE+16~, SAVE+37*, SAVE+38, SAVE+67*, SAVE+68*, SAVE+69*, SAVE+70, SAVE+92*, SAVE+93*, SAVE+94 |
>> Y | PAYMNT+15 |