IBCEF2 ;ALB/TMP - FORMATTER SPECIFIC BILL FUNCTIONS ;8/6/03 10:54am
Source file <IBCEF2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
HOS(IBIFN) | ; Extract rev codes for inst. episode into IBXDATA
; Moved for space |
|
OTHINS(IBIFN) | ;Determine 'other insurance' node (I1,I2)
; If primary bill, other ins is secondary ; If sec or tert bill, other ins is primary |
|
OTHINS1(IBIFN) | ; Returns the COB #'s of all 'other insurance' as a string
|
|
OTHQ | ||
RECVR(IBIFN) | ; Returns the V.A. internal routing id of the current ins
; co for 837 |
|
ALLPAYID(IBIFN,IBXDATA,SEQ) | ; Returns clearinghouse id for all (SEQ="")
; or a specific (SEQ=1,2,3) ins co's for 837 in IBXDATA(n) for bill ien ; IBIFN ; EJK *296* Add IBMRA - MRA Claim type. ; EJK *296* Add IBEBI - Electronic Billing ID |
|
PAYERID(IBIFN) | ; Returns clearinghouse id for current ins co
; IBIFN = bill ien |
|
CURR(IBIFN) | ; Returns ien of the current insurance
; company for bill ien IBIFN |
|
ADMDT(IBIFN,NOOUTCK) | ; Calculate admission/start of care date/time
|
|
DISDT(IBIFN) | ; Calculate discharge date
|
|
INDTS(IBIFN) | ; Function returns the admit ^ discharge date/time of admission if patient is an inpatient on bill's event date
|
|
TXMT(IBIFN) | ; Function moved - use new call in IBCEF4
|
|
ID(LN,VAL) | ; Set EXTRACT GLOBAL for multi-valued record
; ids for Austin ; LN = the line # being extracted ; VAL = the value of the element being extracted |
|
ID1(LN,DX,CT,DCT,ECT) | ;Special entry point for diagnoses to 'save' the fact
; a dx code is an e-code. ; LN is last entry # output, returned as the entry # (IBXLINE) to assign to this entry ; DX = the actual Dx code array(RECORD ID). Pass by reference, DX returned null if ; dx was not output ; CT = the ct on the 'DC' entry. pass by reference, returned null if ; the end of the valid dx codes has been reached ; DCT= Count of regular DX codes. UB-04 can have 25 non External Cause codes. ; ECT= Count of External Cause codes. UB-04 can have 12 External Cause codes. ; External Cause of Injury codes and qualifier changed with ICD-10: E-codes in ICD-9, V,X,W,Y-codes in ICD-10 |
|
IDX1 | ;
|
|
M(CT) | ; Calculate multi-valued field for 837 extract
; CT = passed by reference/the record ID counter |
|
SVITM(IBA,LINE) | ; Saves the linked items from the bill data extract into
; an array the formatter will use to link Rxs and prosthetics ; to an SV1 or SV2 line item, if possible. Kills off IBA array entries ; after they are 'moved' ; IBA = array that contains the data to be saved ; subscripts are (line #,item type,item pointer)=ct |
|
LINK(IBTYP,IBDATA) | ; Link the item with a service line, if possible
; IBTYP = the code for the type of item ; returned incremented if no link is made ; IBDATA = the extracted data string that identifies the item. ; Returns the line to link to or null if no link |
|
LINKQ | ||
COID(IBIFN) | ; Claim office ID - moved for space
|
|
PPOL(IBIFN,COB) | ; return IFN of patient policy on a bill defined by COB (fields 399,112-114)
|
|
LADJ(SUB,LINE,SEQ1,GRP,IBXSAVE,PIECE) | ; Extract line level adjustments
; SUB = 1st subscript in IBXSAVE array to use ; LINE = 2nd subscript ; SEQ1 = 4th subscript ; GRP = 5th subscript ; IBXSAVE = array that has the data for COB line level adjustments ; PIECE = # of the piece on the 0-node of the line level ; adjustment reason to be extracted |
|
ESGHPST(IBIFN,COB) | ; return insureds employ status if bill policy defined by COB is an Employer Sponsored Group Health Plan
|
|
ESGHPNL(IBIFN,COB) | ; return employer name and location if bill policy defined by COB is an Employer Sponsored Group Health Plan
|
|
AMTOUT(A,B,C,IBXSAVE) | ; format output amount
|
|
SNF(IBIFN) | ; Check to see if the claim is a SNF (Skilled Nursing Facility) Claim.
; Returned Values: ; SNF = 0 if claim is not a SNF Claim. ; SNF = 1 if claim is a SNF Claim. |
|
VC80CK(IBIFN) | ; Determine if the Claim is eligible for Value Code 80 Revenue Code Claim Lines.
|
|
INS | ; Called by the Output Formatter [#364.7, 176]
|
|
INS05 | ; Called by the Output Formatter [#364.7, 178]
|
|
INS07 | ; Called by the Output Formatter [#364.7, 181]
|
|
INS09 | ; Called by the Output Formatter [#364.7, 180]
|
|
INS12 | ; Called by the Output Formatter [#364.7, 482]
|
|
INS13 | ; Called by the Output Formatter [#364.7, 805]
|
FileNo | Call Tags |
---|---|
^DGCR(399 - [#399] | GET1^DIQ |