IBCEF76 ;ALB/WCJ - Provider ID functions ;13 Feb 2006
Source file <IBCEF76.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 |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 4 | IBCEF75 IBCEF80 IBCEFP ^IBA(364.7 |
Name | Comments | DBIA/ICR reference |
---|---|---|
AWAY | ||
LFIDS(IBIFN,IDS,IBSTRIP,SEG) | ;
; Pass in the the internal claim number and return the array of IDS. ; IDS("C"urrent or "O"ther, Order of Insurance within subscript 1, order of ID within subscript 2) ; IDS("C",1)="P" ; IDS("C",1,0)=Qualifier^Primary ID ; IDS("C",1,1)=Qualifier^Sec ID #1 ; IDS("C",1,2)=Qualifier^Sec ID #2 |
|
VALF(IBIFN,INS,FT,DIV,IDS,SORT1,SORT2,COB,IBLIMIT,IBSTRIP,SEG) | ; Get VA Lab/Fac Secondary IDs
; Pass in INS - IEN to file 36 ; FT - 1 = UB 2 = 1500, 7 = J430D ; DIV - PTR to 40.8 |
|
NONVALF(IBIFN,PRV,INS,FT,PT,IDS,SORT1,SORT2,COB,IBLIMIT,IBSTRIP,SEG) | ; Get Non VA Lab/Fac Secondary IDs
; Pass in PRV - VPTR - PTR to 355.93 (in format of variabel pointer IEN;IBA(355.93, ; Pass in INS - PTR to 36 of null (not provide by insurance company) ; FT - 1 = UB 2 = 1500 7 = J430D ; PT - Patient Type - 1 inpatient 2 outpatient ; IDS array being returned ; SORT1 - "C"urrent or "O"ther ; SORT2 - 1 if current or (1 or 2 if other) |
|
STRIP(X,SPACE,EXC,IBSTRIP) | ;
; Strip punctuation from data in X ; SPACE = flag if 1 strip SPACES ; EXC = list of punct not to strip ; |
|
OTH(IBIFN,IBXSAVE,IBXDATA,COND,SEG) | ; Procedure used in piece 2 of some output
; formatter segments for other insurance ; COND = 0/1 value passed in that determines whether or not to call the ; provider ID function ; SEG = name of segment for use in calling ID^IBCEF2 (4 characters) |
|
OTHX | ;
|
Name | Field # of Occurrence |
---|---|
$$COBN^IBCEF | LFIDS+19 |
$$FT^IBCEF | LFIDS+12, VALF+9, NONVALF+11 |
$$INPAT^IBCEF | LFIDS+14 |
$$NOPUNCT^IBCEF | STRIP+6 |
$$ISRX^IBCEF1 | LFIDS+13 |
ID^IBCEF2 | OTH+28 |
$$OP3^IBCEF73 | VALF+17, NONVALF+22 |
$$OP7^IBCEF73 | VALF+18, NONVALF+23 |
$$SUB1^IBCEF73 | NONVALF+24 |
$$TAXID^IBCEF75 | VALF+27 |
$$B^IBCEF79 | LFIDS+30 |
ALLIDS^IBCEFP | OTH+11 |
CLEANUP^IBCEFP1 | OTH+10 |
$$MAIN^IBCEP2B | LFIDS+17, VALF+6 |
$$MCRONBIL^IBEFUNC | VALF+26, NONVALF+36 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGCR(399 - [#399] | LFIDS+10, LFIDS+16, LFIDS+24 |
^IBA(355.9 - [#355.9] | NONVALF+9, NONVALF+12 |
^IBA(355.92 - [#355.92] | VALF+7, VALF+10 |
^IBA(355.93 - [#355.93] | NONVALF+30, NONVALF+32 |
^IBE(355.97 - [#355.97] | VALF+16, NONVALF+20 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CNT | VALF+5~, VALF+21*, VALF+27*, VALF+32*, VALF+37*, NONVALF+8~, NONVALF+28*, NONVALF+38*, NONVALF+44*, NONVALF+45 , NONVALF+49* |
COB | LFIDS+8~, LFIDS+20*, LFIDS+21, LFIDS+22, LFIDS+24, LFIDS+30, LFIDS+34, LFIDS+47, VALF~, VALF+22 , NONVALF~, NONVALF+29 |
COND | OTH~, OTH+11 |
DAT | LFIDS+8~, LFIDS+10*, LFIDS+15, LFIDS+24*, LFIDS+26 |
DIV | VALF~, VALF+20 |
EXC | STRIP~, STRIP+6 |
FT | VALF~, VALF+12, VALF+17, VALF+18, NONVALF~, NONVALF+13, NONVALF+22, NONVALF+23, NONVALF+24 |
IBCARE | LFIDS+8~, LFIDS+13*, LFIDS+14*, LFIDS+34 |
IBCCOB | LFIDS+8~, LFIDS+19*, LFIDS+21, LFIDS+22 |
IBDIV | LFIDS+8~, LFIDS+15*, LFIDS+47 |
IBFRMTYP | LFIDS+8~, LFIDS+12*, LFIDS+34, LFIDS+47 |
IBIFN | LFIDS~, LFIDS+10, LFIDS+12, LFIDS+13, LFIDS+14, LFIDS+16, LFIDS+19, LFIDS+24, LFIDS+30, LFIDS+34 , LFIDS+47, VALF~, VALF+9, VALF+22, VALF+26, VALF+27, VALF+32, VALF+37, NONVALF~, NONVALF+11 , NONVALF+29, NONVALF+30, NONVALF+36, NONVALF+38, NONVALF+44, NONVALF+49, OTH~, OTH+11, OTH+17, OTH+18 , OTH+19, OTH+20, OTH+25, OTH+26, OTH+27 |
IBINS | LFIDS+8~, LFIDS+26*, LFIDS+27, LFIDS+34, LFIDS+47 |
IBLF | LFIDS+8~, LFIDS+30*, LFIDS+31 |
IBLIMIT | LFIDS+8~, LFIDS+23*, LFIDS+34, LFIDS+47, VALF~, VALF+32, VALF+37, NONVALF~, NONVALF+44, NONVALF+45 , NONVALF+49 |
IBMCR | VALF+5~, VALF+24*, VALF+26*, VALF+27, VALF+31, VALF+36, NONVALF+8~, NONVALF+34*, NONVALF+36*, NONVALF+38 , NONVALF+43, NONVALF+48 |
IBSORT1 | LFIDS+8~, LFIDS+21*, LFIDS+22, LFIDS+23, LFIDS+34, LFIDS+47 |
IBSORT2 | LFIDS+8~, LFIDS+22*, LFIDS+34, LFIDS+47 |
IBSTRIP | LFIDS~, LFIDS+34, LFIDS+47, VALF~, VALF+13, VALF+14, VALF+27, NONVALF~, NONVALF+16, NONVALF+18 , NONVALF+38, STRIP~, STRIP+5 |
IBXDATA | OTH~, OTH+23! |
IBXDATA( | OTH+27* |
>> IBXFORM | VALF+26, NONVALF+36 |
IBXSAVE | OTH~, OTH+10, OTH+11 |
IBXSAVE("LAB/FAC" | OTH+17, OTH+18!, OTH+19*, OTH+20!, OTH+25, OTH+26, OTH+27 |
ID | VALF+5~, VALF+13*, VALF+19, VALF+20, NONVALF+8~, NONVALF+16*, NONVALF+17, NONVALF+25, NONVALF+26 |
IDS | LFIDS~, LFIDS+34, LFIDS+47, VALF~, NONVALF~ |
IDS("LAB/FAC" | VALF+22*, VALF+27*, VALF+32*, VALF+37*, NONVALF+29*, NONVALF+30*, NONVALF+38*, NONVALF+44*, NONVALF+49* |
IDTBL | VALF+5~, NONVALF+8~ |
IDTBL("DEF" | VALF+19*, VALF+33, VALF+34, VALF+37 |
IDTBL("DIV" | VALF+20*, VALF+28, VALF+29, VALF+32 |
IDTBL("INS" | NONVALF+26*, NONVALF+40, NONVALF+41, NONVALF+44, NONVALF+49 |
IDTBL("OWN" | NONVALF+25*, NONVALF+45, NONVALF+46, NONVALF+49 |
INS | VALF~, VALF+7, NONVALF~, NONVALF+15, NONVALF+26 |
MAIN | LFIDS+8~, LFIDS+17*, VALF+5~, VALF+6*, VALF+19 |
OUTFAC | LFIDS+8~, LFIDS+16*, LFIDS+33, LFIDS+34, LFIDS+36 |
PRV | NONVALF~, NONVALF+9, NONVALF+29, NONVALF+30, NONVALF+32 |
PT | NONVALF~, NONVALF+14 |
QUAL | VALF+5~, VALF+14*, VALF+15, VALF+16*, VALF+17, VALF+18, VALF+19, VALF+20, NONVALF+8~, NONVALF+18* , NONVALF+19, NONVALF+20*, NONVALF+21, NONVALF+22, NONVALF+23, NONVALF+24, NONVALF+25, NONVALF+26 |
SEG | LFIDS~, LFIDS+34, LFIDS+47, VALF~, NONVALF~, NONVALF+24, OTH~, OTH+28 |
SORT1 | VALF~, VALF+17, VALF+18, VALF+22, VALF+27, VALF+32, VALF+37, NONVALF~, NONVALF+22, NONVALF+23 , NONVALF+29, NONVALF+30, NONVALF+38, NONVALF+44, NONVALF+49 |
SORT2 | VALF~, VALF+22, VALF+27, VALF+32, VALF+37, NONVALF~, NONVALF+29, NONVALF+30, NONVALF+38, NONVALF+44 , NONVALF+49 |
SPACE | STRIP~, STRIP+6 |
TMPIDS | LFIDS+8~ |
U | LFIDS+15, LFIDS+16, LFIDS+26, LFIDS+31, VALF+11, VALF+12, VALF+13, VALF+14, VALF+16, VALF+17 , VALF+18, VALF+19, VALF+20, VALF+27, VALF+32, VALF+37, NONVALF+13, NONVALF+14, NONVALF+15, NONVALF+16 , NONVALF+18, NONVALF+20, NONVALF+22, NONVALF+23, NONVALF+24, NONVALF+25, NONVALF+26, NONVALF+29, NONVALF+38, NONVALF+44 , NONVALF+49, OTH+27 |
X | STRIP~, STRIP+5, STRIP+6 |
Z | VALF+5~, VALF+7*, VALF+10, VALF+29*, VALF+31, VALF+32, VALF+34*, VALF+36, VALF+37, NONVALF+8~ , NONVALF+9*, NONVALF+12, NONVALF+41~*, NONVALF+43, NONVALF+44, NONVALF+46~*, NONVALF+48, NONVALF+49, OTH+6~, OTH+24* , OTH+25*, OTH+26, OTH+27, OTH+28 |
Z0 | VALF+5~, VALF+10*, VALF+11, VALF+12, VALF+13, VALF+14, VALF+19, VALF+20, NONVALF+8~, NONVALF+12* , NONVALF+13, NONVALF+14, NONVALF+15, NONVALF+16, NONVALF+18, NONVALF+25, NONVALF+26, NONVALF+32*, NONVALF+38 |