RCDPEX2 ;ALB/TMK/KML/PJH - ELECTRONIC EOB DETAIL EXCEPTION MAIN LIST TEMPLATE ;20 Dec 2018 17:20:51
Source file <RCDPEX2.m>
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 |