Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBCEU2

Package: Integrated Billing

Routine: IBCEU2


Information

IBCEU2 ;ALB/TMP - EDI UTILITIES FOR AUTO ADD OF CODES ON BILL ;20-OCT-99

Source Information

Source file <IBCEU2.m>

Entry Points

Name Comments DBIA/ICR reference
AUTOCK(IBIFN,IBQUIET) ; Auto add any codes necessary based on data
; existing on bill, if needed.
; IBQUIET - optional parameter - equals 1 to suppress screen display
PRPAY(IBIFN,IBCOBN,IBQUIET) ; Output value cd A1 or A2 for prior payments, if needed
; IBIFN = ien of bill in file 399
; IBCOBN = the COB sequence number for bill (2=secondary, 3=tertiary)
; IBQUIET = 1 to suppress screen display
SUBDOB(IBIFN,IBCOBN,IBQUIET) ; Add occurrence codes A1,B1,C1 as needed for subscriber DOB
; IBIFN = ien of bill in file 399
; IBQUIET = 1 to suppress screen display
COMBO(IBXDATA,IBXTRA,IBINST) ; Determine the bundled/unbundled codes - add
; line items where needed to line item array IBXDATA(line #)
; Update referenced line in COB entries returned in IBXDATA
; IBXTR = array input with bundled/unbundled procedures
; ("ALL",original line~original procedure~service date,
; new procedure)=COB seq #^sequence # of adjustment in
; IBXDATA(n,"COB",COB seq #,adj#)
; IBINST = 1 if institutional claim, 0 if professional
MCRPT(DFN,IBDT) ; Determine if patient has MCRWNR insurance or if they
; are at least 65 yrs old, so should be MCR eligible as of IBDT (or DT)
; DFN = ien of patient

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCR(399 - [#399] Classic Fileman Calls
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call