IBCEFP ;ALB/TAZ - Provider ID functions ;28-OCT-10
Source file <IBCEFP.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 17 | ($$COB,$$COBN,$$FT,$$INPAT)^IBCEF $$ISRX^IBCEF1 OUTPT^IBCEF11 HOS^IBCEF22 ($$ISINSUR,PRACT)^IBCEF71 $$CH35591^IBCEF72 $$CHCKSEC^IBCEF73 $$ORGNPI^IBCEF73A BPIDS^IBCEF75 ($$STRIP,LFIDS)^IBCEF76 SORT^IBCEF77 $$B^IBCEF79 EN^IBCEF81 ($$COBID,$$NAME,$$NPI,$$TAXON)^IBCEFP1 $$SUB1OK^IBCEP8A $$MCR24K^IBCEU3 $$MCRONBIL^IBEFUNC |
| 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 | 8 | IBCBB11 IBCEF11 IBCEF74 IBCEF76 IBCEF79 IBCEF83 IBCEU ^IBA(364.7 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ALLIDS(IBIFN,IBXSAVE,IBSTRIP,SEG) | ; Return all of the Provider IDS
|
|
| ALLIDSQ | ;
|
|
| PSID(IBIFN,IBXPROV,IBXIDS) | ; Build array of either the Fac/Lab ID or Rendering Provider IDs
|
|
| PSIDQ | ;
|
|
| SLPRV(IBXIEN,IBX,PRTYPE) | ;Build SLPRV nodes for the line provider type record
|
|
| SLPRVQ | ;
|
|
| PROVIDER(IB399,IBPROV,IBRES,IBFRMTYP,IBCARE,IBCURR,IBXDATA) | ;
|
|
| PROVINF(IB399,IBPRNUM,IBRES,IBSORT,IBINSTP,IBFRMTYP,IBCARE,IBLIMIT,IBCURR,IBXDATA) | ;
|
|
| PROVINFQ | ;Exit PROVINF
|
|
| GETPRV(IBINSCO,IBFRMTYP,IBCARE,IBPROV,IBRES,IBPRTYP,IBINSTP,IBD) | ;
|
|
| GETPRVQ | ;
|
|
| PROVPTR(IBIEN399,IBFUNC,IBCP) | ; Retrieve Provider Pointer from appropriate file
|
|
| AMB(IBXIEN,IBXSAVE) | ; Gather Ambulance Data for AMB Record(s) - IB*2.0*447/TAZ
|
|
| SNDS2(IBXDATA,PIECE) | ;Determine if a SUB2 record is necessary.
; Input: IBXDATA ; May contain data from field 232 of file 399. ; Output: IBXDATA ; Returns Output for piece 2 or 3 or 1 for any other piece (like 1.5) |
| Name | Field # of Occurrence |
|---|---|
| $$COB^IBCEF | ALLIDS+8 |
| $$COBN^IBCEF | ALLIDS+34 |
| $$FT^IBCEF | ALLIDS+5, ALLIDS+32 |
| $$INPAT^IBCEF | ALLIDS+7 |
| $$ISRX^IBCEF1 | ALLIDS+6 |
| OUTPT^IBCEF11 | ALLIDS+13 |
| HOS^IBCEF22 | ALLIDS+14 |
| $$ISINSUR^IBCEF71 | PROVIDER+6, PROVIDER+10, PROVIDER+11, PROVIDER+13, PROVIDER+14, PROVIDER+16, PROVIDER+17 |
| PRACT^IBCEF71 | GETPRV+3 |
| $$CH35591^IBCEF72 | PROVINF+7 |
| $$CHCKSEC^IBCEF73 | GETPRV+9, GETPRV+11 |
| $$ORGNPI^IBCEF73A | ALLIDS+28 |
| BPIDS^IBCEF75 | ALLIDS+40 |
| $$STRIP^IBCEF76 | GETPRV+15, GETPRV+16 |
| LFIDS^IBCEF76 | ALLIDS+27 |
| SORT^IBCEF77 | GETPRV+14 |
| $$B^IBCEF79 | SNDS2+16 |
| EN^IBCEF81 | ALLIDS+42 |
| $$COBID^IBCEFP1 | GETPRV+20 |
| $$NAME^IBCEFP1 | GETPRV+17 |
| $$NPI^IBCEFP1 | GETPRV+13 |
| $$TAXON^IBCEFP1 | GETPRV+19 |
| $$SUB1OK^IBCEP8A | ALLIDS+51 |
| $$MCR24K^IBCEU3 | GETPRV+7 |
| $$MCRONBIL^IBEFUNC | GETPRV+5 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | PROVINF+6, PROVINF+9, PROVINF+13, PROVINF+22, PROVINF+26, PROVPTR+4, PROVPTR+6, PROVPTR+8, PROVPTR+10, AMB+3 , AMB+5 |
| ^IBA(355.93 - [#355.93] | GETPRV+18 |
| ^IBE(353.5 - [#353.5] | AMB+6 |
| ^IBE(355.97 - [#355.97] | GETPRV+9, GETPRV+10 |
| Name | Line Occurrences |
|---|---|
| $$PROVPTR | PROVINF+11, PROVINF+24 |
| ALLIDSQ | ALLIDS+45, ALLIDS+51, ALLIDS+61, ALLIDS+62, ALLIDS+63, ALLIDS+64, ALLIDS+65, ALLIDS+67, ALLIDS+68 |
| GETPRV | PROVINF+14, PROVINF+27 |
| GETPRVQ | GETPRV+1 |
| PROVIDER | ALLIDS+23 |
| PROVINF | ALLIDS+19, PROVIDER+6, PROVIDER+10, PROVIDER+11, PROVIDER+13, PROVIDER+14, PROVIDER+16, PROVIDER+17 |
| PROVINFQ | PROVINF+1, PROVINF+2 |
| PSID | ALLIDS+54 |
| PSIDQ | PSID+18, PSID+24 |
| SLPRV | ALLIDS+61, ALLIDS+62, ALLIDS+63, ALLIDS+64, ALLIDS+65, ALLIDS+67, ALLIDS+68 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARID | ALLIDS+3~ |
| ARIEN | ALLIDS+3~, ALLIDS+33*, ALLIDS+38 |
| ARINFO | ALLIDS+3~, ALLIDS+38* |
| ARINS | ALLIDS+3~ |
| ARQ | ALLIDS+3~ |
| CNT | AMB+1~, AMB+4*, AMB+7* |
| COB | ALLIDS+3~, ALLIDS+35*, ALLIDS+36, ALLIDS+37, ALLIDS+40 |
| CODE | AMB+1~, AMB+4*, AMB+5*, AMB+6 |
| CPLNK | PROVINF+17~, PROVINF+20*, PROVINF+22, PROVINF+24, PROVINF+26 |
| CRED | ALLIDS+46~, ALLIDS+48*, ALLIDS+49 |
| CUROTH | ALLIDS+3~, ALLIDS+11~, ALLIDS+23*, ALLIDS+29*, ALLIDS+30 |
| DAT | ALLIDS+3~ |
| DATA | SLPRV+1~, SLPRV+8*, SLPRV+9 |
| I | ALLIDS+3~ |
| IB35591 | PROVINF+4~, PROVINF+7*, GETPRV+11, GETPRV+12 |
| IB355OV | PROVINF+10~, GETPRV+2~*, GETPRV+4*, GETPRV+7*, GETPRV+8, GETPRV+9, GETPRV+10 |
| IB399 | PROVIDER~, PROVIDER+6, PROVIDER+10, PROVIDER+11, PROVIDER+13, PROVIDER+14, PROVIDER+16, PROVIDER+17, PROVINF~, PROVINF+1 , PROVINF+6, PROVINF+9, PROVINF+11, PROVINF+13, PROVINF+15, PROVINF+16, PROVINF+22, PROVINF+24, PROVINF+26, PROVINF+28 , PROVINF+29, GETPRV+5, GETPRV+7, GETPRV+14, GETPRV+20 |
| IBARR | PROVINF+10~, PROVINF+14, PROVINF+15, PROVINF+23~, PROVINF+27, PROVINF+28 |
| IBCARE | ALLIDS+3~, ALLIDS+6*, ALLIDS+7*, ALLIDS+19, ALLIDS+23, PROVIDER~, PROVIDER+6, PROVIDER+10, PROVIDER+11, PROVIDER+13 , PROVIDER+14, PROVIDER+16, PROVIDER+17, PROVINF~, PROVINF+7, PROVINF+14, PROVINF+27, GETPRV~, GETPRV+3 |
| IBCCOB | ALLIDS+3~, ALLIDS+34*, ALLIDS+36, ALLIDS+37 |
| IBCNT | ALLIDS+52~, ALLIDS+59*, SLPRV+1~, SLPRV+2*, SLPRV+10*, SLPRV+11, SLPRV+12 |
| IBCP | PROVPTR~, PROVPTR+2*, PROVPTR+3, PROVPTR+7, PROVPTR+8, PROVPTR+10 |
| IBCURR | ALLIDS+3~, ALLIDS+8*, ALLIDS+16, ALLIDS+19, ALLIDS+23, PROVIDER~, PROVIDER+3, PROVIDER+6, PROVIDER+9, PROVIDER+10 , PROVIDER+11, PROVIDER+12, PROVIDER+13, PROVIDER+14, PROVIDER+15, PROVIDER+16, PROVIDER+17, PROVINF~ |
| IBD | GETPRV~, GETPRV+4, GETPRV+17, GETPRV+19, GETPRV+20 |
| IBEXC | PROVINF+4~, PROVINF+11*, PROVINF+24*, GETPRV+10*, GETPRV+11, GETPRV+14 |
| IBFRMTYP | ALLIDS+3~, ALLIDS+5*, ALLIDS+10, ALLIDS+13, ALLIDS+14, ALLIDS+19, ALLIDS+23, ALLIDS+32*, ALLIDS+33, PROVIDER~ , PROVIDER+6, PROVIDER+10, PROVIDER+11, PROVIDER+13, PROVIDER+14, PROVIDER+16, PROVIDER+17, PROVINF~, PROVINF+7, PROVINF+14 , PROVINF+27, GETPRV~, GETPRV+3, GETPRV+7, GETPRV+9, GETPRV+11 |
| IBFUNC | PROVPTR~, PROVPTR+4, PROVPTR+8 |
| IBIEN399 | PROVPTR~, PROVPTR+4, PROVPTR+6, PROVPTR+8, PROVPTR+10 |
| IBIFN | ALLIDS~, ALLIDS+5, ALLIDS+6, ALLIDS+7, ALLIDS+8, ALLIDS+10, ALLIDS+13, ALLIDS+14, ALLIDS+19, ALLIDS+21 , ALLIDS+23, ALLIDS+24, ALLIDS+27, ALLIDS+28, ALLIDS+30, ALLIDS+32, ALLIDS+34, ALLIDS+38, ALLIDS+40, ALLIDS+45 , ALLIDS+47, ALLIDS+48, ALLIDS+49, ALLIDS+51, ALLIDS+54, ALLIDS+61, ALLIDS+62, ALLIDS+63, ALLIDS+64, ALLIDS+65 , ALLIDS+67, ALLIDS+68, PSID~, PSID+14, PSID+15, PSID+16, PSID+17, PSID+20, PSID+21, PSID+22 , PSID+23, PSID+26, PSID+27, PSID+28, PSID+29, PSID+30, GETPRV+17 |
| IBINSCO | PROVINF+4~, PROVINF+6*, PROVINF+7, PROVINF+14, PROVINF+27, GETPRV~, GETPRV+3, GETPRV+10, GETPRV+12 |
| IBINSTP | PROVINF~, PROVINF+2, PROVINF+14, PROVINF+15, PROVINF+16, PROVINF+27, PROVINF+28, PROVINF+29, GETPRV~, GETPRV+1 , GETPRV+3, GETPRV+9, GETPRV+11 |
| IBLIMIT | ALLIDS+18*, ALLIDS+19, PROVIDER+1~, PROVIDER+5*, PROVIDER+6, PROVIDER+8*, PROVIDER+10, PROVIDER+11, PROVIDER+13, PROVIDER+14 , PROVIDER+16, PROVIDER+17, PROVINF~, GETPRV+14 |
| IBMRAND | GETPRV+2~, GETPRV+5*, GETPRV+7, GETPRV+20 |
| IBN | SLPRV+7*, SLPRV+8, PROVINF+4~, PROVINF+5*, GETPRV+2~, GETPRV+5*, GETPRV+10*, GETPRV+12*, GETPRV+14, GETPRV+16* , PROVPTR+1~, PROVPTR+4*, PROVPTR+5, PROVPTR+6, PROVPTR+8*, PROVPTR+9, PROVPTR+10 |
| IBNPI | GETPRV+2~, GETPRV+13*, GETPRV+15 |
| IBPRNUM | PROVINF~, PROVINF+3, PROVINF+6, PROVINF+16, PROVINF+29, GETPRV+4, GETPRV+14 |
| IBPROV | PROVIDER~, PROVIDER+4, PROVIDER+6, PROVIDER+7, PROVIDER+10, PROVIDER+11, PROVIDER+13, PROVIDER+14, PROVIDER+16, PROVIDER+17 , PROVINF+4~, PROVINF+10~, PROVINF+11*, PROVINF+12, PROVINF+14, PROVINF+23~, PROVINF+24*, PROVINF+25, PROVINF+27, GETPRV~ , GETPRV+3, GETPRV+7, GETPRV+13, GETPRV+17, GETPRV+18, GETPRV+19, GETPRV+21 |
| IBPRTYP | PROVINF+4~, PROVINF+8*, PROVINF+9*, PROVINF+11, PROVINF+13, PROVINF+14, PROVINF+21*, PROVINF+22*, PROVINF+24, PROVINF+26 , PROVINF+27, GETPRV~, GETPRV+3, GETPRV+7, GETPRV+9, GETPRV+10, GETPRV+11, GETPRV+12, GETPRV+14, GETPRV+15 , GETPRV+16, GETPRV+17, GETPRV+18, GETPRV+19, GETPRV+20, GETPRV+21 |
| IBRES | PROVIDER~, PROVIDER+18*, PROVINF~, GETPRV~, GETPRV+14 |
| IBRES( | GETPRV+10*, GETPRV+12*, GETPRV+15*, GETPRV+16*, GETPRV+17*, GETPRV+18*, GETPRV+19*, GETPRV+20*, GETPRV+21* |
| IBRES("L-PROV" | PROVINF+28*, PROVINF+29* |
| IBRES("PROVINF" | PROVINF+15*, PROVINF+16* |
| IBRESARR | ALLIDS+17~, ALLIDS+19, ALLIDS+20, PROVIDER+1~, PROVIDER+2*, PROVIDER+6, PROVIDER+10, PROVIDER+11, PROVIDER+13, PROVIDER+14 , PROVIDER+16, PROVIDER+17, PROVIDER+18 |
| IBRETARR | GETPRV+2~*, GETPRV+3, GETPRV+14 |
| IBSORT | PROVINF~, PROVINF+3*, PROVINF+16, PROVINF+29, GETPRV+10, GETPRV+12, GETPRV+14, GETPRV+15, GETPRV+16, GETPRV+17 , GETPRV+18, GETPRV+19, GETPRV+20, GETPRV+21 |
| IBSTRIP | ALLIDS~, ALLIDS+1*, ALLIDS+27, ALLIDS+40, GETPRV+15, GETPRV+16 |
| IBX | SLPRV~ |
| IBX("L-PROV" | SLPRV+3, SLPRV+4, SLPRV+5, SLPRV+6, SLPRV+7, SLPRV+8 |
| IBX("SLPRV" | SLPRV+11*, SLPRV+12* |
| IBXDATA | ALLIDS+3~, ALLIDS+19, ALLIDS+23, PROVIDER~, PROVIDER+6, PROVIDER+10, PROVIDER+11, PROVIDER+13, PROVIDER+14, PROVIDER+16 , PROVIDER+17, PROVINF~, AMB+1~, AMB+3*, AMB+6*, AMB+7, SNDS2~, SNDS2+14, SNDS2+19*, SNDS2+21* , SNDS2+22*, SNDS2+23 |
| IBXDATA( | PROVINF+19, PROVINF+20 |
| IBXIDS | PSID~, PSID+11! |
| IBXIDS(0 | PSID+18*, PSID+24*, PSID+31* |
| IBXIDS(1 | PSID+18*, PSID+24*, PSID+31* |
| IBXIEN | ALLIDS+3~, SLPRV~, SLPRV+3, SLPRV+4, SLPRV+5, SLPRV+6, SLPRV+7, SLPRV+8, AMB~, AMB+3 , AMB+5, SNDS2+16 |
| IBXPROV | PSID~ |
| IBXPROV("L-PROV" | PSID+26, PSID+27, PSID+28, PSID+29, PSID+30 |
| IBXPROV("LAB/FAC" | PSID+14, PSID+15, PSID+16, PSID+17 |
| IBXPROV("PROVINF" | PSID+20, PSID+21, PSID+22, PSID+23 |
| IBXSAVE | ALLIDS~, ALLIDS+20*, ALLIDS+23*, ALLIDS+27, ALLIDS+40, ALLIDS+42, ALLIDS+54, ALLIDS+61, ALLIDS+62, ALLIDS+63 , ALLIDS+64, ALLIDS+65, ALLIDS+67, ALLIDS+68, AMB~ |
| IBXSAVE("AMB" | AMB+2!, AMB+3*, AMB+7* |
| IBXSAVE("L-PROV" | ALLIDS+47, ALLIDS+48 |
| IBXSAVE("LAB/FAC" | ALLIDS+30* |
| IBXSAVE("PROVINF" | ALLIDS+10, ALLIDS+21*, ALLIDS+24*, ALLIDS+38, ALLIDS+45, ALLIDS+47, ALLIDS+49* |
| IBXSAVE("SLC" | ALLIDS+51, ALLIDS+59, PROVINF+19* |
| IBXSAVE("SLPRV" | ALLIDS+59* |
| IBZ | ALLIDS+11~, ALLIDS+23, PROVIDER+1~ |
| >> IDS | ALLIDS+54 |
| >> IDS(0 | ALLIDS+57 |
| >> IDS(1 | ALLIDS+58 |
| LINE | PSID+10~, PSID+15*, PSID+16, PSID+17, PSID+21*, PSID+22, PSID+23, PSID+28*, PSID+29, PSID+30 |
| NAME | SLPRV+1~, SLPRV+5*, SLPRV+6 |
| NODE | AMB+1~, AMB+3* |
| NPI | ALLIDS+3~, ALLIDS+28*, ALLIDS+30 |
| OUT | ALLIDS+52~, ALLIDS+57*, ALLIDS+58*, ALLIDS+59, SLPRV+1~, SLPRV+6*, SLPRV+9*, SLPRV+11 |
| PID | PSID+10~, PSID+13*, PSID+14*, PSID+18, PSID+20*, PSID+24, PSID+26, PSID+27*, PSID+31 |
| PIECE | SNDS2~, SNDS2+22 |
| PLINE | PSID+10~, PSID+26*, PSID+27, PSID+28, PSID+29, PSID+30 |
| PRTYPE | SLPRV~, SLPRV+4, SLPRV+5, SLPRV+6, SLPRV+7, SLPRV+8 |
| RSLT | PROVPTR+1~, PROVPTR+5*, PROVPTR+6*, PROVPTR+9*, PROVPTR+10*, PROVPTR+11 |
| SEG | ALLIDS~, ALLIDS+2*, ALLIDS+27, ALLIDS+40, ALLIDS+44, ALLIDS+51, ALLIDS+61, ALLIDS+62, ALLIDS+63, ALLIDS+64 , ALLIDS+65, ALLIDS+67, ALLIDS+68 |
| SID | PSID+10~, PSID+13*, PSID+15, PSID+17*, PSID+18, PSID+21, PSID+23*, PSID+24, PSID+26, PSID+28 , PSID+30*, PSID+31 |
| SIDQ | PSID+10~, PSID+13*, PSID+16*, PSID+18, PSID+22*, PSID+24, PSID+29*, PSID+31 |
| SLC | ALLIDS+46~*, ALLIDS+47*, ALLIDS+48, SLPRV+1~, SLPRV+2*, SLPRV+3*, SLPRV+4, SLPRV+5, SLPRV+6, SLPRV+7 , SLPRV+8, SLPRV+12, PROVINF+17~, PROVINF+18*, PROVINF+19*, PROVINF+20, PROVINF+28, PROVINF+29 |
| SORT1 | ALLIDS+3~, ALLIDS+36*, ALLIDS+37, ALLIDS+38, ALLIDS+40 |
| SORT2 | ALLIDS+3~, ALLIDS+37*, ALLIDS+38, ALLIDS+40 |
| SORT3 | ALLIDS+3~ |
| U | ALLIDS+28, ALLIDS+30, ALLIDS+48, ALLIDS+49, ALLIDS+57, ALLIDS+58, PSID+14, PSID+16, PSID+17, PSID+18 , PSID+20, PSID+22, PSID+23, PSID+24, PSID+27, PSID+29, PSID+30, PSID+31, SLPRV+6, SLPRV+9 , GETPRV+4, GETPRV+8, GETPRV+9, GETPRV+10, GETPRV+11, GETPRV+12, GETPRV+15, GETPRV+16, GETPRV+17, GETPRV+18 , GETPRV+19, PROVPTR+6, PROVPTR+10, AMB+3, AMB+6, SNDS2+16 |
| Z | PROVINF+10~, PROVINF+13*, PROVINF+14, PROVINF+23~, PROVINF+26*, PROVINF+27, SNDS2+15~, SNDS2+16*, SNDS2+19 |
| Z0 | ALLIDS+3~ |