IBCEF71 ;WOIFO/SS - FORMATTER AND EXTRACTOR SPECIFIC BILL FUNCTIONS ;31-JUL-03
Source file <IBCEF71.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 | 8 | IBCEF7 IBCEF72 IBCEF74 IBCEF80 IBCEFP IBCEP2B ^IBA(364.5 ^IBA(364.7 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OTHPAYC(IBXIEN,IBSAVE,IBDATA,IBFUNC,IBVAL) | ;
|
|
| OTHPAYV(IBXIEN,IBSAVE,IBDATA,IBFUNC,IBFLDTYP,IBSEQN) | ;
|
|
| ISINSUR(IBINS,IBXIEN) | ;
|
|
| PRACT(IB399INS,IB399FRM,IB399CAR,IBPROV,IBARR,IBPROVTP,IBINSTP,IBFILE,IBINS) | ;
|
|
| ALLPRFAC(IBXIEN,IBXSAVE) | ; Return all non-VA/outside facility prov ids
; and all VA alternate prov ids ; IBXIEN = ien file 399 ; IBXSAVE = subscripted array returned |
|
| OTHID(IBXSAVE,IBXDATA,IBXIEN,PRIDSEQ,PRTYP,IBQ,IBFAC) | ; From data in IBXSAVE,
; determine id or qualifier to output in the 837 records OP* ; Returns IBXDATA array IBXDATA(n)=data ; IBXIEN = ien of the bill-file 399 ; PRIDSEQ = sequence of the payer id needed ; PRTYP = provider type to check for data ; IBQ = 1 if qualifier needed, 0/null if id needed ; IBFAC = 1 if facility id, 0 for individual provider id ; |
|
| SETSEQ(IBXIEN,IBXSAVE,IBXDATA,PRTYP,IBFAC,IBOP) | ; Sets up IBXSAVE("OSQ")
; array for other id seq in 837 records OP* ; Returns IBXDATA(n)=cob seq indicator for ids ; IBXIEN = ien of bill-399 ; PRTYP = the provider type to check for data for indiv provider ; IBFAC = 1 if facility id, 0 for individual provider id ; IBOP = segement # in OP being output |
|
| PSPRV(IBIFN) | ;
|
|
| OP22 | ;Output Formatter 364.7 extract code, OP2-2
|
| Name | Field # of Occurrence |
|---|---|
| $$COBN^IBCEF | ALLPRFAC+6 |
| $$FT^IBCEF | OTHPAYV+9, ALLPRFAC+8 |
| $$INPAT^IBCEF | ALLPRFAC+15 |
| $$ISRX^IBCEF1 | ALLPRFAC+14 |
| ID^IBCEF2 | SETSEQ+13, OP22+7 |
| $$PSPRV^IBCEF7 | PSPRV+1 |
| $$CHCKSEC^IBCEF73 | PRACT+24, PRACT+41, PRACT+47 |
| $$GETLIC^IBCEP5D | PRACT+39 |
| $$STLIC^IBCEP8 | PRACT+40, PRACT+41, PRACT+46 |
| $$TAXID^IBCEP8 | PRACT+18 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | ISINSUR+4, ALLPRFAC+9, ALLPRFAC+12, ALLPRFAC+16, ALLPRFAC+17 |
| ^DIC(5 - [#5] | PRACT+48 |
| ^IBA( | PRACT+5, PRACT+6, PRACT+9, PRACT+13, PRACT+17, PRACT+23 |
| ^IBA(355.93 - [#355.93] | PRACT+18, PRACT+45, PRACT+48 |
| ^IBE(355.97 - [#355.97] | PRACT+20, PRACT+21, PRACT+40, PRACT+46 |
| ^TMP("IBXDATA" | OTHPAYC+9, OTHPAYV+14 |
| Name | Line Occurrences |
|---|---|
| $$ISINSUR | OTHPAYC+5, OTHPAYV+10 |
| PRACT | ALLPRFAC+17 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | OP22+4~* |
| C | SETSEQ+7~, SETSEQ+8*, SETSEQ+12*, OP22+2~, OP22+3*, OP22+7* |
| IB1 | OTHPAYC+2~, OTHPAYC+4*, OTHPAYC+5, OTHPAYC+9, OTHPAYC+10, OTHPAYV+4~, OTHPAYV+7*, OTHPAYV+10, OTHPAYV+14, OTHPAYV+15 , PRACT+1~, PRACT+4* |
| IB2 | OTHPAYC+2~, OTHPAYV+4~, PRACT+1~, PRACT+5* |
| IB3559 | PRACT+1~, PRACT+4*, PRACT+5*, PRACT+6, PRACT+9, PRACT+13, PRACT+17, PRACT+23, PRACT+25 |
| IB399CAR | PRACT~, PRACT+14, PRACT+15, PRACT+16, PRACT+26, PRACT+28, PRACT+32 |
| IB399FRM | PRACT~, PRACT+11, PRACT+12, PRACT+24, PRACT+38, PRACT+41, PRACT+44, PRACT+47 |
| IB399INS | PRACT~, PRACT+5, PRACT+7 |
| IBARR | PRACT~, PRACT+4* |
| IBARR( | PRACT+30*, PRACT+33* |
| IBARR("NONE" | PRACT+41*, PRACT+48* |
| IBARRX | PRACT+1~ |
| IBARRX( | PRACT+27, PRACT+28*, PRACT+29*, PRACT+32, PRACT+33 |
| IBCARE | PRACT+1~, PRACT+13*, PRACT+14, PRACT+15, PRACT+16, PRACT+25, PRACT+27, PRACT+28, PRACT+29, ALLPRFAC+4~ , ALLPRFAC+12*, ALLPRFAC+14*, ALLPRFAC+15*, ALLPRFAC+17 |
| IBCOBN | ALLPRFAC+4~, ALLPRFAC+6*, ALLPRFAC+17, ALLPRFAC+27, ALLPRFAC+28, ALLPRFAC+34 |
| IBDAT | PRACT+1~, PRACT+25*, PRACT+29, PRACT+30 |
| IBDATA | OTHPAYC~, OTHPAYV~ |
| IBDATA( | OTHPAYC+10*, OTHPAYV+15* |
| IBDIV | PRACT+1~ |
| IBF | PRACT+1~, PRACT+5*, PRACT+6 |
| IBFAC | OTHID~, OTHID+10, SETSEQ~, SETSEQ+8, SETSEQ+9 |
| IBFILE | PRACT~, PRACT+2*, PRACT+5, PRACT+6, PRACT+14, PRACT+15, PRACT+16, PRACT+18, PRACT+22, PRACT+26 |
| IBFL | OTHPAYC+2~, OTHPAYC+3*, OTHPAYV+4~, OTHPAYV+5* |
| IBFLDTYP | OTHPAYV~, OTHPAYV+6 |
| IBFRMTYP | PRACT+1~, PRACT+9*, PRACT+12, PRACT+25, ALLPRFAC+4~, ALLPRFAC+8*, ALLPRFAC+17 |
| IBFUNC | OTHPAYC~, OTHPAYC+3, OTHPAYC+10, OTHPAYV~, OTHPAYV+5, OTHPAYV+15 |
| IBFX | PRACT+1~, PRACT+5*, PRACT+6, PRACT+9, PRACT+13, PRACT+17, PRACT+23, PRACT+25 |
| IBID | PRACT+1~, PRACT+23*, PRACT+25, PRACT+26, PRACT+30 |
| IBIDT | PRACT+1~, PRACT+19*, PRACT+21, PRACT+25, PRACT+27, PRACT+28, PRACT+29 |
| IBIDTYP | PRACT+1~, PRACT+17*, PRACT+18, PRACT+19, PRACT+20*, PRACT+22, PRACT+24, PRACT+25, PRACT+40*, PRACT+41 , PRACT+46*, PRACT+47, PRACT+48 |
| IBIFN | PSPRV~, PSPRV+1 |
| IBINS | OTHPAYC+2~, OTHPAYV+4~, ISINSUR~, ISINSUR+2, PRACT~, PRACT+3*, PRACT+5 |
| IBINSCO | PRACT+1~, PRACT+6*, PRACT+7, PRACT+8*, PRACT+25, PRACT+29, PRACT+30 |
| IBINSNOD | ISINSUR+1~, ISINSUR+2*, ISINSUR+3, ISINSUR+4 |
| IBINSTP | PRACT~, PRACT+24, PRACT+41, PRACT+47 |
| IBLIC | PRACT+36~, PRACT+39* |
| IBLIC( | PRACT+41 |
| IBOP | SETSEQ~, SETSEQ+13 |
| IBPIECE | OTHPAYV+4~, OTHPAYV+6*, OTHPAYV+15 |
| IBPROV | PRACT~, PRACT+5, PRACT+18, PRACT+25, PRACT+35, PRACT+39, PRACT+41, PRACT+42, PRACT+45, PRACT+48 , ALLPRFAC+4~, ALLPRFAC+9*, ALLPRFAC+11*, ALLPRFAC+12, ALLPRFAC+13, ALLPRFAC+17, ALLPRFAC+21 |
| IBPROVTP | PRACT~, PRACT+24, PRACT+41, PRACT+47 |
| IBQ | PRACT+1~, PRACT+26*, PRACT+27*, PRACT+29*, OTHID~, OTHID+10 |
| IBRET1 | ALLPRFAC+4~, ALLPRFAC+18! |
| IBRET1( | ALLPRFAC+21*, ALLPRFAC+26, ALLPRFAC+27, ALLPRFAC+29 |
| IBRET1("" | ALLPRFAC+24 |
| IBRETARR | ALLPRFAC+4~, ALLPRFAC+16!, ALLPRFAC+17 |
| IBRETARR( | ALLPRFAC+19, ALLPRFAC+21 |
| IBS1 | PRACT+1~ |
| IBS2 | PRACT+1~, PRACT+25*, PRACT+29, PRACT+30 |
| IBSAVE | OTHPAYC~, OTHPAYV~ |
| IBSAVE("PROVINF" | OTHPAYC+5, OTHPAYC+10, OTHPAYV+10, OTHPAYV+15 |
| IBSEQN | OTHPAYV~, OTHPAYV+15 |
| IBVAL | OTHPAYC~, OTHPAYC+10 |
| IBXDATA | OTHID~, SETSEQ~ |
| IBXDATA( | OTHID+12*, SETSEQ+13*, OP22+7* |
| IBXDATA(1 | OP22+6 |
| IBXIEN | OTHPAYC~, OTHPAYC+5, OTHPAYC+10, OTHPAYV~, OTHPAYV+9, OTHPAYV+10, OTHPAYV+15, ISINSUR~, ISINSUR+4, ALLPRFAC~ , ALLPRFAC+5, ALLPRFAC+6, ALLPRFAC+8, ALLPRFAC+9, ALLPRFAC+12, ALLPRFAC+14, ALLPRFAC+15, ALLPRFAC+16, ALLPRFAC+17, ALLPRFAC+27 , ALLPRFAC+29, ALLPRFAC+34, OTHID~, OTHID+12, SETSEQ~, SETSEQ+10, SETSEQ+11, SETSEQ+13, OP22+2 |
| >> IBXPG | OTHPAYC+9, OTHPAYV+14 |
| IBXSAVE | ALLPRFAC~, OTHID~, SETSEQ~ |
| IBXSAVE( | OTHID+12, SETSEQ+10, SETSEQ+11, SETSEQ+13 |
| IBXSAVE("OSQ" | OTHID+11, OTHID+12, SETSEQ+12*, SETSEQ+13, OP22+2!, OP22+7* |
| IBXSAVE("PROVINF" | OP22+2 |
| IBXSAVE("PROVINF_FAC" | ALLPRFAC+5!, ALLPRFAC+27*, ALLPRFAC+29*, ALLPRFAC+34* |
| OK | SETSEQ+7~, SETSEQ+10*, SETSEQ+11*, SETSEQ+12, OP22+2~, OP22+3*, OP22+4*, OP22+5 |
| PRIDSEQ | OTHID~, OTHID+12 |
| PRTYP | OTHID~, OTHID+12, SETSEQ~, SETSEQ+9*, SETSEQ+11 |
| Q | OP22+2~* |
| Q( | OP22+3, OP22+4, OP22+7 |
| U | OTHPAYV+15, PRACT+18, PRACT+21, PRACT+25, PRACT+40, PRACT+41, PRACT+45, PRACT+46, PRACT+48, ALLPRFAC+9 , ALLPRFAC+12, ALLPRFAC+21, OTHID+12, SETSEQ+11, OP22+4 |
| XIB1 | OTHPAYC+2~, OTHPAYC+9*, OTHPAYC+10, OTHPAYV+4~, OTHPAYV+14*, OTHPAYV+15 |
| Z | PRACT+1~, PRACT+32*, PRACT+33, PRACT+36~, PRACT+41*, ALLPRFAC+4~, ALLPRFAC+16*, ALLPRFAC+17, ALLPRFAC+27, ALLPRFAC+28 , ALLPRFAC+29, OTHID+9~, OTHID+11*, OTHID+12, SETSEQ+7~, SETSEQ+10*, SETSEQ+11, SETSEQ+12, SETSEQ+13*, OP22+2~ , OP22+3*, OP22+4, OP22+6, OP22+7 |
| Z0 | ALLPRFAC+4~, ALLPRFAC+19*, ALLPRFAC+21, ALLPRFAC+24*, ALLPRFAC+26, ALLPRFAC+27, ALLPRFAC+29, OTHID+9~, OTHID+10*, OTHID+12 , SETSEQ+7~, SETSEQ+8*, SETSEQ+10, SETSEQ+11, SETSEQ+13 |
| Z1 | PRACT+1~, PRACT+33*, ALLPRFAC+4~, ALLPRFAC+19*, ALLPRFAC+21, ALLPRFAC+26*, ALLPRFAC+27, ALLPRFAC+29, OTHID+9~, OTHID+10* , OTHID+12, SETSEQ+7~, SETSEQ+11~* |
| Z2 | PRACT+1~, PRACT+33* |
| ZZ | ALLPRFAC+4~, ALLPRFAC+28*, ALLPRFAC+29 |
