IBCEU3 ;ALB/TMP - EDI UTILITIES FOR 1500 CLAIM FORM ;12/29/05 9:58am
Source file <IBCEU3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BOX19(IBIFN) | ; New Box 19 added for patch 488. This is for workman's comp?
; This returns the Paperwork Attachment ; Information in the following format: ; PWKNNFX12348907CHEY<3 Spaces>Next set if more than one on claim ; PWK is the qualifier for data, followed by the appropriate Report Type |
|
| FORMAT(DATA) | ; format data for ouput
|
|
| OBOX19(IBIFN) | ; THIS IS NOLONGER USED. IT WAS REPLACE WITH ABOVE.
; Returns the text that should print in box 19 of the CMS-1500 ; for bill ien IBIFN ; Data is derived from a combo of data throughout ; the system and is limited to 80 characters. The hierarchy for ; including data is as follows (until 80 characters have been used): ; DATE LAST SEEN and REFERRING PHYSICIAN ID# (physical therapy) ; specialty codes = 025,065,073,067,048 ; LAST X-RAY DATE (chiropractic) specialty code = 35 ; HOMEBOUND INDICATOR (independent lab renders an EKG or obtains ; a specimen from a homebound patient) ; NO ASSIGNMENT OF BENEFITS (if no assignment of benefits indicated) ; Hearing aid testing (if applicable) ; ATTENDING PHYSICIAN NOT HOSPICE EMPLOYEE (if applicable) ; SPECIAL PROGRAM indicator if Medicare demonstration project for ; lung volume reduction surgery study is set ; COMMENTS FOUND IN BOX 19 DATA FIELD FOR THE CLAIM ; REMARKS FOUND IN BILL COMMENT FOR THE CLAIM, INCLUDING PROSTHETICS ; DETAIL |
|
| NPRT | ||
| BOX19Q | ||
| LENOK(IBDATA,IB19) | ; Add text IBDATA to box 19 string (IB19 passed by ref)
; Check length of box 19 data - truncate at 71 (max length) ; Returns 0 if max length reached or exceeded, otherwise, 1 ; Changed 96 to 71 for new 1500 form |
|
| LENOKQ | ||
| ASK19(IBIFN) | ; Ask to display CMS-1500 box 19 data for current IBIFN
; changed to 71 length. |
|
| ONLAB(IBIFN) | ; Functions returns 1 if the bill IBIFN is outside non-lab
|
|
| TEXT24(FLD,IBXSAVE,IBXDATA,IBSUB) | ; Format the text line of box 24 by fld
; INPUT: ; FLD = the letter of the field in box 24 (A-J) ; IBXSAVE = passed by reference = extracted data for the box 24 lines ; IBSUB = the subscript of the IBXSAVE array to use. ; If null, use "BOX24" ; OUTPUT: ; IBXDATA = passed by reference, set to the correct part of the ; text that will print in the field's positions |
|
| LINSPEC(IBIFN) | ; Checks the specialities of line and claim level providers
; called from IBCBB2 to check for Chiro codes & IBCBB9 to check for 99's on Medicare ; Default = 99 if no valid SPEC code found for line and claim level provider ; Get rendering for professional, attending for institutional ; If multiple lines w/ rendering or attending, returns a string of spec codes |
|
| BILLSPEC(IBIFN,IBPRV) | ; Returns the specialty of the provider on bill IBIFN
; If IBPRV is supplied, returns the data for that provider, otherwise, ; returns the specialty of the 'main/required' provider on the bill. ; Default = 99 if no valid code found ; IBPRV = vp of provider (file 200 or 355.93) |
|
| SPECQ | ||
| CHAMPVA(IBIFN) | ; Returns 1 if the bill IBIFN has a CHAMPVA rate type
|
|
| FAC(IBIFN) | ; Obsolete function. Used by old output formatter field and data element N-RENDERING INSTITUTION
|
|
| MCR24K(IBIFN,IBPRV) | ;Function returns MEDICARE id# for professional (CMS-1500) box 24k for bill IBIFN if appropriate
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DGCR(399 - [#399] | GET1^DIQ |
