Call Graph
IBCBB2 ;ALB/ARH - CONTINUATION OF EDIT CHECKS ROUTINE (CMS-1500) ;04/14/92
Source file <IBCBB2.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 |
|---|---|---|
| EN | ;
|
|
| OCC10(IBIFN,IBARR,IBFT) | ; Determine if occurrence code 10 exists for pregnancy dx
; IBARR=array subscripted by ien of DX code if IBFT=2 (CMS-1500 form) ; by seq # and = ien of DX code if IBFT'=2 |
|
| OCC10Q |
| Name | Field # of Occurrence |
|---|---|
| $$BDATE^IBACSV | EN+15, OCC10+19 |
| $$ICD9^IBACSV | EN+15, OCC10+19 |
| WARN^IBCBB11 | EN+9, EN+18, EN+20, EN+26, EN+43, EN+49, EN+56, EN+65, EN+75, EN+108 , EN+116 |
| $$FT^IBCEF | EN+43, EN+49 |
| $$INPAT^IBCEF | EN+18, EN+20 |
| F^IBCEF | EN+7, EN+69, EN+120, OCC10+12 |
| $$PRCD^IBCEF1 | EN+9 |
| $$TXMT^IBCEF4 | EN+3 |
| PROVINF^IBCEF74 | EN+128 |
| $$GETTYP^IBCEP2A | EN+125 |
| $$CLIAREQ^IBCEP8A | EN+54 |
| $$BILLSPEC^IBCEU3 | EN+70 |
| $$LINSPEC^IBCEU3 | EN+108 |
| $$EVENT^IBCF22 | EN+60 |
| SET^IBCSC4D | EN+12 |
| $$MRATYPE^IBEFUNC | EN+51 |
| $$REQMRA^IBEFUNC | EN+55, EN+103 |
| $$WNRBILL^IBEFUNC | EN+51 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | EN+25, EN+105 |
| ^TMP($J | OCC10+11, OCC10+13*, OCC10+14*, OCC10+16, OCC10Q! |
| Name | Line Occurrences |
|---|---|
| $$OCC10 | EN+22 |
| Name | Field # of Occurrence |
|---|---|
| ^( | EN+25 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| FUNCTION | EN+122~, EN+123*, EN+125, EN+130 |
| IBARR | OCC10~ |
| IBARR( | OCC10+16, OCC10+18 |
| IBCPT | EN+1~, EN+25*, EN+26, EN+27, EN+28 |
| IBCPTL | EN+1~ |
| IBCPTL( | EN+28*, EN+33 |
| IBDX | EN+1~, EN+12, EN+22, OCC10+4~, OCC10+18*, OCC10+19 |
| IBDX( | EN+32 |
| IBDXL | EN+1~ |
| IBDXL( | EN+32*, EN+33 |
| IBDXO | EN+1~, EN+12 |
| IBDXO( | EN+15 |
| IBDXO(0 | EN+15 |
| IBDXO(12 | EN+43 |
| IBDXO(4 | EN+49 |
| IBDXTYP | EN+1~, EN+15*, EN+16*, EN+17, EN+18, EN+19, EN+20 |
| IBDXVER | EN+1~, EN+16*, EN+17, EN+18, EN+19, EN+20 |
| >> IBER | EN+2*, EN+12*, EN+17*, EN+19*, EN+22*, EN+27*, EN+29*, EN+34*, EN+51*, EN+55* , EN+61*, EN+71, EN+79*, EN+80*, EN+82*, EN+83*, EN+87*, EN+91*, EN+99*, EN+103* , EN+104*, EN+109*, EN+110*, EN+111*, EN+115*, EN+131* |
| IBFT | OCC10~, OCC10+18 |
| IBI | EN+1~, EN+9*, EN+15*, EN+25*, EN+32*, EN+33*, EN+60, EN+61, EN+71*, EN+74 , EN+75, EN+79, EN+80, EN+82, EN+83, EN+84, EN+87, EN+91, EN+99, OCC10+4~ , OCC10+16*, OCC10+18 |
| IBID | EN+127~, EN+128 |
| IBID(1 | EN+130 |
| IBIFN | EN+3, EN+7, EN+12, EN+15, EN+18, EN+20, EN+22, EN+25, EN+43, EN+49 , EN+51, EN+54, EN+55, EN+60, EN+69, EN+70, EN+103, EN+105, EN+108, EN+120 , EN+125, EN+128, OCC10~, OCC10+12, OCC10+19 |
| IBINS | EN+122~, EN+124*, EN+125, EN+128, EN+131 |
| IBJ | EN+1~, EN+28* |
| IBLCT | EN+1~, EN+70*, EN+72*, EN+102 |
| IBLOC | EN+1~, EN+25*, EN+26* |
| IBN | EN+1~, EN+25*, EN+29, EN+33*, EN+34, OCC10+4~, OCC10+5*, OCC10+16, OCC10+20*, OCC10+21* , OCC10Q+1 |
| >> IBNDTX | EN+104 |
| >> IBNDU2 | EN+54, EN+65, EN+73, EN+75, EN+79, EN+116 |
| IBNVFLG | EN+1~, EN+64*, EN+65*, EN+80 |
| IBOK | EN+127~, EN+129*, EN+130*, EN+131 |
| IBOLAB | EN+1~, EN+70*, EN+84*, EN+116 |
| IBPS | EN+1~, EN+70*, EN+74*, EN+115 |
| IBSP | EN+1~, EN+70* |
| IBTX | EN+1~, EN+3*, EN+26, EN+43, EN+102 |
| IBU3 | EN+1~, EN+105*, EN+109, EN+110, EN+111 |
| IBXDATA | EN+6!, EN+68!, EN+117!, EN+121, OCC10+4~ |
| IBXDATA( | EN+71, EN+74, EN+75, EN+79, EN+80, EN+82, EN+83, EN+84, EN+87, EN+91 , EN+99 |
| IBXSAVE | EN+1~, EN+60, OCC10+4~ |
| IBXSAVE("OCC" | OCC10+14 |
| IBY | EN+1~, EN+25*, EN+28* |
| IBZ | EN+122~ |
| >> IBZPRC92( | EN+9 |
| Q0 | EN+127~, EN+130* |
| U | EN+9, EN+12, EN+15, EN+16, EN+26, EN+27, EN+54, EN+65, EN+73, EN+74 , EN+75, EN+79, EN+80, EN+84, EN+87, EN+91, EN+99, EN+104, EN+105, EN+109 , EN+110, EN+111, EN+116, EN+121, EN+126, EN+130, OCC10+20, OCC10+21 |
| Z | EN+1~, EN+9*, EN+18*, EN+20*, EN+26*, EN+60*, EN+125*, EN+126, EN+130, OCC10+4~ , OCC10+14*, OCC10+17~, OCC10+19*, OCC10+20, OCC10+21 |
| Z1 | OCC10+17~, OCC10+19*, OCC10+20, OCC10+21 |
| ZC | OCC10+17~, OCC10+19*, OCC10+20, OCC10+21 |
