RCDPEX2 ;ALB/TMK/KML/PJH - ELECTRONIC EOB DETAIL EXCEPTION MAIN LIST TEMPLATE ;20 Dec 2018 17:20:51
Source file <RCDPEX2.m>
Package | Total | Call Graph |
---|---|---|
Accounts Receivable | 2 | ($$ISSEL,$$ISTYPE)^RCDPEU1 $$SDATE^RCDPEX4 |
List Manager | 2 | $$SETSTR^VALM1 CLEAN^VALM10 |
Kernel | 1 | $$FMTE^XLFDT |
Outpatient Pharmacy | 1 | $$RXRLDT^PSOBPSUT |
VA FileMan | 1 | GETS^DIQ |
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 | 4 | RCDPEX EOB_SUM EXCEPTION LIST RCDPEX3 RCDPEX31 RCDPEX32 |
Name | Comments | DBIA/ICR reference |
---|---|---|
INIT | ;EP from listman template RCDPEX EOB_SUM EXCEPTION LIST
; set up initial variables |
|
REBLD | ; Set up formatted global
|
|
BLD | ;EP from RCDPEX3,RCDPEX31,RCDEPEX32
; Build list of messages from file 344.4 ; Input: RCDWLIEN - Optional set to a selected ERA if the user opts to see ; exceptions after receiving an 'ACCESS DENIED' message ; in the ERA WORKLIST when they tried to create a scratch ; pad for the ERA (EXCDENY^RCDPEWLP). Otherwise, undefined ; RCPAY 'R' = RANGE, 'S' = SELECTED, 'A' = ALL ; RCTYPE - 'M' - Only display Medical Exceptions ; 'P' - Only display Pharmacy Exceptions ; 'T' - Tricare ; 'A' - Display Medical and Pharmacy and Tricare Exceptions ; ^TMP(^TMP("RCDPEU1",$J) holds selected payers to display. |
|
FNL | ;EP from listman template RCDPEX EOB_SUM EXCEPTION LIST
; Clean up list |
|
SET(X,RCSEQ,RCMSG,RCS) | ; Set arrays for EOB exception records
; Input: X - Data to set into the global ; RCSEQ - Listman line # ; RCMSG - IEN for 344.41 multiple ; RCS - IEN for 344.4 ; Output: Line added to the listman body |
|
HDR | ;EP from listman template RCDPEX EOB_SUM EXCEPTION LIST
|
|
DIQ3444(DA,DR,RCPDATA) | ; DIQ call to retrieve data for DR fields in file 344.4/344.41
; Input: DA - IEN for file 344.4 ; DR - Semi-colon delimitted list of fields to be retrieved ; Output: RCPDATA - Array of selected fields |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^RCY(344.4 - [#344.4] | BLD+22, BLD+26, BLD+49, BLD+51 |
^TMP("RCDPEADP" | BLD+16! |
^TMP("RCDPEX_SUM-EOB" | BLD+15!, BLD+109, BLD+110*, BLD+111*, SET+6*, SET+7* |
^TMP("RCDPEX_SUM-EOBDX" | BLD+15!, FNL+2!, SET+8* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%I | DIQ3444+4~ |
D0 | DIQ3444+4~ |
DA | BLD+13~, BLD+28*, BLD+31, BLD+33, BLD+35, BLD+52*, BLD+53*, BLD+54, DIQ3444~, DIQ3444+7 |
DA(1 | BLD+28!, BLD+52*, DIQ3444+5, DIQ3444+7 |
DIC | DIQ3444+4~ |
DIQ | DIQ3444+4~ |
DIQ2 | DIQ3444+4~ |
DR | BLD+13~, BLD+28*, BLD+35, BLD+53*, BLD+54, DIQ3444~, DIQ3444+7 |
ERAIEN | BLD+13~, BLD+47*, BLD+66, BLD+68, BLD+70 |
FILE | DIQ3444+4~, DIQ3444+5*, DIQ3444+6, DIQ3444+7 |
RC0 | BLD+13~, BLD+51* |
RCBILL | BLD+13~, BLD+75*, BLD+76 |
RCDECME | BLD+13~, BLD+46*, BLD+83 |
RCDPDATA | BLD+13~, BLD+35, BLD+54 |
RCDPDATA( | BLD+39, BLD+40, BLD+41, BLD+60, BLD+66, BLD+68, BLD+70, BLD+73, BLD+74, BLD+75 , BLD+77, BLD+78, BLD+84, BLD+87, BLD+90, BLD+99, BLD+100, DIQ3444+6! |
>> RCDWLIEN | BLD+44 |
RCER | BLD+13~, BLD+20*, BLD+21, BLD+22*, BLD+23, BLD+26, BLD+49 |
RCEXC | BLD+13~, BLD+100*, BLD+102 |
RCFASTXT | FNL+4! |
RCMSG | BLD+24*, BLD+25, BLD+26*, BLD+27, BLD+28, BLD+49, BLD+51, BLD+52, BLD+56, BLD+60 , BLD+62, BLD+63, BLD+72, BLD+81, BLD+89, BLD+92, BLD+107, SET~, SET+8 |
RCMSG1 | BLD+13~ |
RCOMMNT | BLD+85~, BLD+90*, BLD+91 |
>> RCPAY | BLD+30 |
RCPDATA | DIQ3444~ |
RCPYRIEN | BLD+13~ |
RCRLSDT | BLD+85~, BLD+87*, BLD+88 |
RCS | BLD+13~, BLD+47*, BLD+48, BLD+49*, BLD+50, BLD+51, BLD+52, BLD+53, BLD+56, BLD+62 , BLD+63, BLD+72, BLD+81, BLD+89, BLD+92, BLD+107, SET~, SET+8 |
RCSEQ | BLD+13~, BLD+17*, BLD+58*, BLD+59, BLD+62, BLD+63, BLD+72, BLD+81, BLD+89, BLD+92 , BLD+107, SET~, SET+7, SET+8 |
RCSUB | BLD+13~, BLD+28*, BLD+39, BLD+40, BLD+41, BLD+44, BLD+47, BLD+52*, BLD+73, BLD+74 , BLD+75, BLD+77, BLD+78, BLD+84, BLD+87, BLD+90, BLD+99, BLD+100 |
>> RCTYPE | BLD+32, BLD+33 |
RCX | BLD+14~, BLD+59*, BLD+61*, BLD+62 |
RCX("INCOID" | BLD+40*, BLD+55 |
RCX("PAYFROM" | BLD+41*, BLD+55 |
RCX("SVCDT" | BLD+56*, BLD+57 |
RCX("TRACE" | BLD+39*, BLD+59 |
RCX1 | BLD+14~, BLD+55*, BLD+57*, BLD+63 |
RCX2 | BLD+14~, BLD+67*, BLD+69*, BLD+70*, BLD+71*, BLD+72 |
U | INIT+2*, SET+8 |
>> VALMBG | INIT+2* |
>> VALMCNT | INIT+2*, BLD+17*, BLD+110*, SET+6*, SET+7, SET+8 |
>> VALMHDR(1 | HDR+1* |
>> VALMHDR(2 | HDR+5* |
X | BLD+14~, BLD+73*, BLD+76*, BLD+77*, BLD+78*, BLD+81, BLD+84*, BLD+88*, BLD+89, BLD+91* , BLD+92, BLD+102*, BLD+107, SET~, SET+6 |
XX | BLD+14~, BLD+30, BLD+31*, BLD+32, BLD+33*, BLD+60*, BLD+61, BLD+68*, BLD+69*, BLD+74* , BLD+75, BLD+99*, BLD+100 |
Y | BLD+14~ |
YY | BLD+14~, DIQ3444+4~ |