RCDPEAC ;ALB/TMK/PJH - ACTIVE BILLS WITH EEOB ON FILE ;Jun 06, 2014@19:11:19
Source file <RCDPEAC.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Entry point for Active Bills With EEOB Report [RCDPE ACTIVE WITH EEOB REPORT]
|
|
| ENQ | ; Queued entry point for the report
; RCSORT and array RCINS must exist ; RCINS = "A" for all ins co, "R" for range, "S" for selected individual ; for RCINS="R" ("FR")=from payer name and ("TR")=to payer name ; for RCINS="S" ("S",INS CO IEN IN FILE 36)="" ; RCSORT = "PN" for sort by patient name followed by ;- if reverse order ; "L4" for sort by patient SSN followed by ;- if reverse order |
|
| ENOUT | ||
| OUTPUT(RCZ,RCZ0,RCSORT,RCSTOP,RCINS,RCNEW) | ; Output the data
; RCZ, RCZ0 are the first 2 sort levels for the array ; RCINS = insurance co info array ; RCSTOP passed by ref - returned if user chooses to stop ; RCNEW = 1 if the header should be forced to print |
|
| INCLUDE(RCZ,EOBIEN,RCTYPE) | ; PRCA*4.5*326 change parameters
; Function returns 1 if record should be included based on ins co ; RCINS = array containing insurance co information ; RCZ = ien of the entry in file 430 |
|
| INCQ | ||
| INSNM(RCZ,EOBIEN) | ; Returns the name of payer from the ERA associated with the EOB
; If that is null, return the insurance co for bill ien RCZ file 430 ; Input: RCZ = Point to bill, file #430 ; EOBIEN = Pointer to EOB file 361.1 ; Returns: NM = Free text name of Payer from ERA or insurance on bill if ERA not found. |
|
| INS(RCZ) | ; Returns ien of insurance co for bill ien RCZ from file 430
|
|
| NEWPG(RCINS,RCNEW,RCLINES) | ; Check for new page needed, output header
; RCINS = ins co selection criteria ; RCNEW = 1 to force new page ; RCLINES = Number of lines before IOSL to force new page ; Function returns 1 if user chooses to stop output |
|
| EEOB(RCZ,RCEOB,RCZRO) | ; Find all non-MRA EEOBs for bill ien RCZ
; Function returns 1 if any valid EEOBs found, 0 if none ; RCEOB(eob ien)=date posted returned for valid EEOBs found - ; pass by reference |
|
| SL1(RCSORT,RCZ) | ; Function returns 1st sort level data from ien RCZ in file 430
; RCSORT = "PN" for patient name sort = "L4" for SSN last 4 sort |
|
| SELECT(RCINS,RCSORT,RCZRO,RCTYPE) | ; Select insurance co, sort criteria, Zero Payment, Bill type (Med/RX) and if output for EXCEL format is selected
; Function returns values selected for RCSORT and RCINS - passed by ref |
|
| SELQ | ;
|
|
| LIST(DIR,RCINS) | ; Sets up help array for ins co selected in DIR("?")
|
|
| HDRBLD | ; create the report header
; returns RCHDR,RCPGNUM,RCSTOP ; RCHDR(0) = header text line count ; RCHDR("PGNUM") = page number ; RCHDR("XECUTE") = M code for page number ; RCHDR("RUNDATE") = date/time report generated ; RCPGNUM - page counter ; RCSTOP - flag to stop listing ; INPUT: ; RCDTRNG - date range filter value to be printed as part of the header ; RCPAY - Payer filter value(s) ; RCLSTMGR |
|
| HDRLM | ; create the list manager version of the report header
; returns RCHDR,RCPGNUM,RCSTOP ; RCHDR(0) = header text line count ; RCHDR("PGNUM") = page number ; RCHDR("XECUTE") = M code for page number ; RCHDR("RUNDATE") = date/time report generated ; RCPGNUM - page counter ; RCSTOP - flag to stop listing |
|
| HDRNM() |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^PRCA(430 - [#430] | GET1^DIQ |
