IBCEF1 ;ALB/TMP - FORMATTER SPECIFIC BILL FUNCTIONS - CONT ;30-JAN-96
Source file <IBCEF1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OCC(IBIFN,REL,TEXT) | ;Sets up an arrays of occurrence codes for various cks
|
|
| OCCQ | ||
| OCC1(ARR,OCC,REL,TEXT) | ; Search thru local array for parameters met
; ARR = null to search OCC subscript, "S" to search OCCS subscript |
|
| RX(IBIFN) | ; Format billable prescription data for refills for 837
|
|
| RXQ | ||
| OTHPAY(IBIFN,SEQ) | ; Return the other insurance payment amount for bill
; IBIFN and payer sequence SEQ (1-3) |
|
| OUTPT(IBIFN,IBPRINT) | ; Moved for space
|
|
| OCC92 | ;Reformats IBXSAVE("OCC") and IBXSAVE("OCCS") to fit blocks on UB-04
; Set up IBXSAVE(32-36) arrays |
|
| BATCH() | ; Moved for space IB*2*349
|
|
| PROC(T,TYPE) | ; Find procedure code, strip '.' Function returns result
; T = Procedure internal entry #;file reference ; TYPE = "CPT" for only CPT/HCPCS valid ; "ICD" for only ICD9 valid or null for either |
|
| FACILITY(IBIFN) | ;return the Facility (Institution pointer-#4) for a bill
; the institution of the Bill Division (399,.22) if defined, otherwise the Facility Name (350.9,.02) |
|
| ISRX(IBIFN) | ; Function to determine if bill is a prescription refill bill
; Returns 0 if no Rx on bill or 1 if there is. |
|
| ISPROS(IBIFN) | ; Function to determine if bill is a prosthetics bill
; Returns 0 if no Prosthetics on bill or 1 if there is. |
|
| FINDINS(IBIFN,IBSEQ) | ; Returns the internal entry number of the insurance
; company for bill ien IBIFN for payer sequence IBSEQ (or current if ; IBSEQ is null) |
|
| TOB(IBIFN) | ; Returns UB-04 type of bill from data in the output formatter
|
|
| PRCD(PRIEN,ALL,EDT) | ; Function returns the code that corresponds to the variable
; pointer data in PRIEN (ien;file) ; ALL = if ALL=1, returns the entire $$CPT^ICPTCOD for CPT or ; ^code^name format for ICD result ; or null if lookup fails ; EDT = Effective date to check (not used if +$G(ALL)=0) |
|
| PRCDQ | ||
| NFT(FT,IBIFN) | ; Returns 1 if bill IBIFN is not of form type FT (internal)
; so the data element should not be required |
|
| REQ(FT,INP,IBIFN) | ; Determine if bill IBIFN is of form type FT and
; Inpatient (I) or Outpatient (O) status INP [or either if (null)] |
|
| SET1(IBIFN,A,IBZ,IBXDATA,IBXNOREQ) | ; Utility to set variables for output
; formatter for professional EDI ; Returns values of A, IBXDATA, IBZ, IBXNOREQ |
|
| CIADDR(IBXDATA,IBXSAVE,LINE,FORM) | ; Format current ins co address line LINE for FORM
; FORM = 1 for CMS-1500, 2 for UB-04 ; Called from output formatter - both IBXDATA, IBXSAVE parameters are ; passed by reference |
|
| HHLTH(IBIFN,OUT) | ; determine if claim is hospice/home health and needs episode of care date **574**
; per NUBC, date the episode of care began is needed for all outpatient CMS-1500 Home Health and Hospice claims and ; UB-04: 012x,022x,032x,034x,081x & 082x claims ; this string is zero + the Bill Type field from screens 6&7 of enter/edit Bill: 0_field#.24(LOC OF CARE)_.25(BILL CLASS)_.26(TIMEFRAME) ; required - IBIFN = internal claim# ; optional - OUT = optional flag to pass to INPAT^IBCEF ; returns a 1 if date should be included on bill and a 0 if it should NOT be included on bill |
