IBCEF ;ALB/TMP - FORMATTER SPECIFIC BILL FUNCTIONS ;22-JAN-96
Source file <IBCEF.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| COB(IBIFN) | ; Bill seq
|
|
| COBN(IBIFN,A) | ; Return seq # of selected payer
; A = 'PST' or null to get current bill payer seq # |
|
| POLICY(IBIFN,IBPC,IBCOBN) | ; Return raw data from policy info on bill
; IBPC = pc # of data element in policy (optional) ; if null, 0-node is returned ; IBCOBN = bill designation 1-3 or 'PST' (optional) ; if null, default to current |
|
| POLICYQ | ||
| INSADDR(IBIFN,IBCOB) | ; Return insured's address in 7 pieces:
; ALL STREET ADDRESSES^CITY^STATE ABBREVIATION^ZIP^STREET ADDRESS 1^ ; STREET ADDRESS 2^STREET ADDRESS 3 ; IBIFN = bill ien ; IBCOB = bill designation (P)rimary, (S)econdary, (T)ertiary ; or 1-2-3. If not defined or null, return current ; If insured is patient or spouse, take from patient file top level ; fields, then if top-level street addresses are blank and policy ; level fields are not, use policy level ; If insured is other than patient/spouse, use policy level fields only |
|
| INSADDQ | ||
| PI3 | ; build IBADDR string from patient insurance 3 node data
|
|
| PTADDR(IBIFN,ELE) | ;Return part of patient's permanent address
|
|
| PTDEM(IBIFN,ELE,PC) | ;Return part of patient's demographics
|
|
| PTEMPL(IBIFN,ELE,WHOSE,VAOA) | ;Return part of pt's or spouse's employer info
|
|
| INSDEM(IBIFN,IBCOB) | ; Return insured's demographics in 6 pieces:
; DATE OF BIRTH^SEX^PHONE^BRANCH pointer^RANK^SSN(no dashes) ; IBIFN = bill ien ; IBCOB = bill designation (P)rimary (default), (S)econdary, (T)ertiary ; or 1,2,3 ... if not defined or null, return current ; If insured is patient/spouse, take from patient file top level ; fields, then if top-level are blank and policy level aren't, ; use policy level ; If insured other than patient/spouse, use policy level fields only |
|
| INSDEM1 | ||
| INSEMPL(IBIFN,IBCOB) | ; Return insured's employer data in 5 pieces:
; EMPLOYER NAME^EMPLOYER CITY^EMPLOYER STATE ABBREVIATION^STATE IEN^STREET 1 ; IBCOB = bill designation (P)rimary-default, (S)econdary, (T)ertiary ; or 123 - if not defined or null, return current |
|
| INSEMPQ | ||
| WHOSINS(IBIFN,IBCOB) | ; Determine who is insured for bill IBIFN and
; seq of coverage COB (123 or PST) or if not defined or null, current |
|
| EMPSTAT(IBIFN,WHOSE) | ;Return employment status
; IBIFN = bill ien ; WHOSE = v for vet, s for spouse status |
|
| INPAT(IBIFN,OUT) | ; Determine if bill is inpatient
; OUT = optional - if 1, return output value based on ; inpatient/outpatient from UB-04 type of bill field ; Return 1 if inpatient, 0 if not inpatient or can't be determined |
|
| INSPRF(IBIFN) | ; Function to determine if bill is prof or inst
; Return 1 if institutional (UB-04) claim, 0 if professional (CMS-1500) claim |
|
| F(FLD,IBXRET,IBXERR1,IBIEN) | ;Execute extract for data element FLD and bill IBIEN
; If IBXDATA array to be returned as data value(s) of fld ; D F^IBCEF("FLD NAME","IBXDATA","IBXERR") or D F^IBCEF("FLD NAME") ; Variable ref-ed by IBXERR1 will contain error message if an error ; @IBXRET always defined on return. It will be null if error |
|
| FQ | ||
| SERVDT(IBIFN,LENGTH,FORMAT) | ; Return default service date for
; outpatient/UB-04 lines or X12-837 institutional lines ; LENGTH = null/8 for 8 digit date, 6 for 6 digit date ; FORMAT = 1 = X12 format (YYYYMMDD), 2 = FM internal (NNNNNNN), ; 0 = external (MMDDYY or MMDDYYYY) |
|
| SERVDTQ | ||
| NOPUNCT(X,SPACE,EXC) | ; Strip punctuation from data in X
; SPACE = flag if 1 strip SPACES ; EXC = list of punctuation not to strip |
|
| FT(IBIFN) | ; Internal code for bill form type
|
|
| COBCT(IBIFN) | ; # of payers on claim
|
|
| INSTOUT(IBIFN) |
| FileNo | Call Tags |
|---|---|
| ^IBA(355.3 - [#355.3] | GET1^DIQ |
