Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
Print Page as PDF
Routine: IBCEF77

Package: Integrated Billing

Routine: IBCEF77


Information

IBCEF77 ;WOIFO/SS - FORMATTER/EXTRACT BILL FUNCTIONS ;31-JUL-03

Source Information

Source file <IBCEF77.m>

Entry Points

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"
Info |  Source |  Entry Points