IBCEF77 ;WOIFO/SS - FORMATTER/EXTRACT BILL FUNCTIONS ;31-JUL-03
Source file <IBCEF77.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SORT(IBPRNUM,IBPRTYP,IB399,IBSRC,IBDST,IBN,IBEXC,IBSEQ,IBLIMIT) | ;
|
|
CFIDS(IBIFN,PRVTYP,ALLOWIDS) | ; Claim Form IDs for human providers
; Function returns a 3 piece string: [1] default secondary ID qual ; [2] default secondary ID ; [3] NPI ; Input: IBIFN - internal claim# ; PRVTYP - internal provider type ID number ; - 1:REFER;2:OPER;3:REND;4:ATT;5:SUPER;9:OTHER ; - if blank, then default Att/Rend based on form type ; ALLOWIDS - List of allowable Secondary IDS ^ delimited. ; ex "^1A^1B^1C^1H^G2^LU^N5^" ; UB-04 only wants IDs provided by the payer, not the providers own IDS ; Also, they want the qualifier to be G2 (Commercial) ; if it is a payer provided ID |
|
CFIDSX | ;
|
|
DOL(AMT,LEN,DEC) | ; format dollar amounts for printed claim forms
; AMT = amount to be formatted ; LEN = length of field - right justified to this length ; DEC = flag to include the decimal point or not ; DEFAULT value is to not include the decimal point ; if DEC is not defined or 0, assume no decimal point ; so 15 will be returned as 1500, 6.77 will be returned as 677 ; if DEC is 1, then the decimal point will be included |
|
PRTLID(IBIFN,NPI) | ; YMG; Print Legacy IDs on the CMS-1500 or UB-04 form
; Function fetches form type associated with given claim number ; (values: 2 - CMS-1500 form, 3 - UB-04 form), then looks at ; "Print Legacy ID" site parameter for this particular form type. ; ; Possible site parameter values are: ; "Y" - always print Legacy ID ; "N" - never print Legacy ID ; "C" - only print Legacy ID if NPI is not available. ; ; This information is used to determine if Legacy ID should be printed ; for claim number in question. ; ; Note: Situation when "Print Legacy ID" site parameter is not set is treated ; as if this parameter was set to "Y" - always print Legacy ID. ; ; Input: ; IBIFN - internal claim number ; NPI - NPI number (or "" if no NPI is available) ; ; Returns: ; 0 - Legacy ID should not be printed ; 1 - Legacy ID should be printed |
|
REMARK(IBIFN,IBXDATA,OFLG) | ; procedure to return array of UB-04 remark text
; for claim IBIFN. Data pulled from field# 402 of file 399 and ; formatted into an array IBXDATA(n) where each line is not greater ; than 24 characters long. This will fit into UB-04 FL-80. |
|
B43(NDCDATA) | ; This is passed a string and properly formats if there is NDC drug information.
; The drug information is in pieces 21-23 of that string. ; It was part of the output formatter entry 364.7[1406] used for FL43 but that got too big for a FileMan Mumps data element ; It returns a string with N4 - the NDC Drug qualifier ; NDC Code without the hyphens ; a space ; Units qualifier ; Units ; Ex "N412345678901 ML1.5" |