IBCEF77 ;WOIFO/SS - FORMATTER/EXTRACT BILL FUNCTIONS ;31-JUL-03
Source file <IBCEF77.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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" |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | SORT+35, REMARK+15 |
| ^IBE(350.9 - [#350.9] | PRTLID+29 |
| ^IBE(355.97 - [#355.97] | SORT+36 |
| Name | Line Occurrences |
|---|---|
| $$PRTLID | CFIDS+38 |
| CFIDSX | CFIDS+15 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ALLOWIDS | CFIDS~, CFIDS+19, CFIDS+25 |
| AMT | DOL~, DOL+10*, DOL+11*, DOL+12*, DOL+13 |
| CHS | REMARK+8~, REMARK+35*, REMARK+36 |
| DEC | DOL~, DOL+9*, DOL+11 |
| FT | SORT+30~*, SORT+31, CFIDS+13~, CFIDS+16*, CFIDS+17, CFIDS+35, PRTLID+26~*, PRTLID+28, PRTLID+29 |
| I | CFIDS+13~, CFIDS+20*, CFIDS+21, CFIDS+22 |
| IB1 | SORT+1~, SORT+2*, SORT+9*, SORT+12, SORT+13, SORT+15, SORT+17, SORT+18, SORT+20, SORT+22 , SORT+24, SORT+25, SORT+26 |
| IB2 | SORT+1~, SORT+2*, SORT+12*, SORT+13, SORT+15, SORT+17, SORT+18, SORT+20, SORT+22, SORT+24 , SORT+25, SORT+26 |
| IB399 | SORT~, SORT+3, SORT+4, SORT+18, SORT+30, SORT+35, SORT+36 |
| IBCP1 | REMARK+8~ |
| IBDST | SORT~ |
| IBDST( | SORT+8, SORT+26*, SORT+27*, SORT+36* |
| IBEXC | SORT~, SORT+15 |
| IBID | SORT+1~ |
| IBID( | SORT+8*, SORT+24, SORT+25*, SORT+31 |
| IBIFN | CFIDS~, CFIDS+15, CFIDS+16, CFIDS+18, CFIDS+21, CFIDS+22, CFIDS+28, CFIDS+32, CFIDS+35, CFIDS+38 , PRTLID~, PRTLID+26, REMARK~, REMARK+15 |
| IBK | REMARK+8~, REMARK+45*, REMARK+46, REMARK+51 |
| IBLIMIT | SORT~, SORT+9, SORT+12, SORT+27 |
| IBN | SORT~, SORT+7, SORT+9, SORT+12, SORT+25*, SORT+26, SORT+27*, SORT+36* |
| IBNET | SORT+1~, SORT+6*, SORT+31, SORT+36 |
| IBNPI | CFIDS+13~, CFIDS+27*, CFIDS+29*, CFIDS+38, CFIDS+40 |
| IBPRNUM | SORT~, SORT+8, SORT+26, SORT+27, SORT+36 |
| IBPRTYP | SORT~, SORT+8, SORT+26, SORT+27, SORT+32, SORT+35, SORT+36 |
| IBQ | CFIDS+13~, CFIDS+21*, CFIDS+23, CFIDS+25*, CFIDS+26*, CFIDS+32*, CFIDS+35*, CFIDS+38*, CFIDS+40 |
| IBSEQ | SORT~, SORT+31, SORT+36 |
| IBSID | CFIDS+13~, CFIDS+22*, CFIDS+23, CFIDS+26*, CFIDS+32*, CFIDS+35*, CFIDS+38*, CFIDS+40 |
| IBSRC | SORT~ |
| IBSRC( | SORT+9, SORT+12, SORT+13, SORT+15, SORT+17, SORT+18, SORT+20, SORT+22, SORT+24, SORT+25 , SORT+26 |
| IBSTLIC | SORT+10~, SORT+11*, SORT+18*, SORT+27 |
| IBSTLIC(0 | SORT+19, SORT+20*, SORT+27 |
| IBSVP | SORT+1~, SORT+13* |
| IBTRI | SORT+1~, SORT+2*, SORT+5*, SORT+31 |
| IBXDATA | SORT+1~, REMARK~, REMARK+9! |
| IBXDATA( | REMARK+55* |
| IBXDATA(1 | REMARK+51* |
| IBXIEN | SORT+1~ |
| IBZ | SORT+1~, SORT+2*, SORT+32, SORT+36, CFIDS+13~, CFIDS+18, REMARK+8~, REMARK+44, REMARK+50 |
| IBZ( | REMARK+52, REMARK+54 |
| IBZ("PROVINF" | CFIDS+21, CFIDS+22, CFIDS+32, CFIDS+35 |
| IBZ(1 | REMARK+45 |
| IBZ1 | SORT+1~, SORT+2*, SORT+4*, SORT+5*, SORT+31 |
| ID | CFIDS+13~, CFIDS+14*, CFIDS+40*, CFIDSX+1 |
| J | REMARK+8~, REMARK+52*, REMARK+53, REMARK+54, REMARK+55 |
| LEN | DOL~, DOL+9*, DOL+12, REMARK+8~, REMARK+34*, REMARK+35, REMARK+36, REMARK+43*, REMARK+44, REMARK+49* , REMARK+50 |
| NDCDATA | B43~, B43+9, B43+10*, B43+11, B43+12 |
| NEWCHS | REMARK+8~, REMARK+36*, REMARK+37 |
| NPI | PRTLID~, PRTLID+29 |
| OFLG | REMARK~, REMARK+53 |
| OK | SORT+10~, SORT+17*, SORT+19*, SORT+20*, CFIDS+13~, CFIDS+19*, CFIDS+20, CFIDS+23*, CFIDS+24, CFIDS+25* |
| PCE | REMARK+8~, REMARK+35*, REMARK+37 |
| PRVTYP | CFIDS~, CFIDS+17*, CFIDS+21, CFIDS+22, CFIDS+29, CFIDS+32, CFIDS+35 |
| TEXT | REMARK+8~, REMARK+15*, REMARK+30, REMARK+35, REMARK+37*, REMARK+44, REMARK+46*, REMARK+47*, REMARK+50 |
| TX | REMARK+8~, REMARK+54*, REMARK+55 |
| U | SORT+5, SORT+8, SORT+13, SORT+15, SORT+17, SORT+18, SORT+22, SORT+24, SORT+25, SORT+31 , SORT+32, SORT+35, SORT+36, CFIDS+21, CFIDS+22, CFIDS+25, CFIDS+29, CFIDS+40, PRTLID+29, REMARK+15 , B43+10, B43+11, B43+12 |
| Z | SORT+1~, SORT+5*, SORT+8*, SORT+34~, SORT+35*, SORT+36 |
