IBCEF22 ;ALB/TMP - FORMATTER SPECIFIC BILL FUNCTIONS ;06-FEB-96
Source file <IBCEF22.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 |
|---|---|---|
| HOS(IBIFN) | ; Extract rev codes for episode billed on a UB-04 into IBXDATA
; IBIFN = bill ien ; Format: IBXDATA(n) = ; rev cd ptr ^ CPT CODE ptr ^ unit chg ^ units ^ tot charge ; ^ tot uncov ^ FL49 value ; ^ ien of rev code multiple entry(s) (separated by ";") ; ^ modifiers specific to rev code/proc (separated by ",") ; ^ rev code date, if it can be determined by a corresponding proc ; ^ NDC from "CP" node of claim ^ Units/Quantity from "CP" node - vd/IB*2*577 ; ^ Units/Basis of Measurement for Drugs - vd/IB*2*577 |
|
| ACCRV(X) | ; Returns 1 if X is an accomodation RC, 0 if not
|
|
| RC2CP(IBIFN,IBRCIEN) | ; returns "CP" multiple pointer that corresponds to a given "RC" multiple pointer in file 399
; IBIFN - ien in file 399, top level ; IBRCIEN, ien in sub-file 399.042 (REVENUE CODE) |
|
| SPLIT | ||
| VC80I(LN) |
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | VC80I+23, VC80I+24, VC80I+36 |
| $$COBN^IBCEF | HOS+130 |
| $$INPAT^IBCEF | HOS+26 |
| F^IBCEF | HOS+27 |
| COMBO^IBCEU2 | HOS+130 |
| COBLINE^IBCEU6 | HOS+130 |
| SET^IBCSC5A | HOS+136 |
| $$PINB^IBCSC5B | HOS+156 |
| SET^IBCSC5B | HOS+149 |
| $$GETMOD^IBEFUNC | HOS+35, HOS+50, HOS+64 |
| ZERO^IBRXUTL | HOS+142 |
| $$FMDIFF^XLFDT | VC80I+38 |
| $$FMTE^XLFDT | HOS+143, HOS+156 |
| FileNo | Call Tags |
|---|---|
| ^DGCR(399 - [#399] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | HOS+34, HOS+44, HOS+48, HOS+62, HOS+77, HOS+125, HOS+126, RC2CP+9, RC2CP+15, RC2CP+17 , RC2CP+22, VC80I+37 |
| ^DGCR(399.2 - [#399.2] | HOS+45 |
| ^IBA(362.4 - [#362.4] | HOS+132 |
| ^IBA(362.5 - [#362.5] | HOS+132 |
| ^TMP($J | HOS+143, HOS+146! |
| Name | Line Occurrences |
|---|---|
| $$ACCRV | HOS+80, HOS+92 |
| $$RC2CP | HOS+117 |
| SPLIT | HOS+106 |
| Name | Field # of Occurrence |
|---|---|
| ^( | HOS+34, HOS+44 |
| ^(2 | HOS+126 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CHRG | SPLIT+6~, SPLIT+13*, SPLIT+16, SPLIT+21, SPLIT+30, SPLIT+31 |
| CNTR | RC2CP+18~*, RC2CP+19*, RC2CP+20 |
| CPT | SPLIT+6~ |
| DATA | SPLIT+6~, SPLIT+12*, SPLIT+13, SPLIT+14 |
| FST | SPLIT+6~ |
| IBACC | HOS+89~, HOS+92*, HOS+94 |
| IBARRAY | HOS+133~, HOS+136, HOS+137, HOS+138, HOS+149, HOS+150, HOS+152 |
| IBARRAY( | HOS+141, HOS+155, HOS+156 |
| IBCOMB | HOS+25~ |
| IBCOMB( | HOS+80*, HOS+90 |
| IBCPIEN | RC2CP+6~, RC2CP+9*, RC2CP+10*, RC2CP+11*, RC2CP+12, RC2CP+15, RC2CP+21*, RC2CP+22*, RC2CP+23 |
| IBCPTIEN | RC2CP+14~*, RC2CP+15*, RC2CP+17 |
| IBCTLAST | VC80I+35~, VC80I+36*, VC80I+39 |
| IBDA | HOS+25~, HOS+34*, HOS+35, HOS+44*, HOS+72, HOS+77*, HOS+79, HOS+80, HOS+84 |
| IBDEF | HOS+25~, HOS+28*, HOS+72 |
| IBDOS | VC80I+10~, VC80I+23*, VC80I+24*, VC80I+25 |
| IBIFN | HOS~, HOS+26, HOS+27, HOS+34, HOS+35, HOS+44, HOS+48, HOS+50, HOS+62, HOS+64 , HOS+77, HOS+117, HOS+125, HOS+126, HOS+130, HOS+132, HOS+136, HOS+149, RC2CP~, RC2CP+7 , RC2CP+9, RC2CP+15, RC2CP+17, RC2CP+22 |
| IBINPAT | HOS+25~, HOS+26*, HOS+27, HOS+80, HOS+96 |
| IBLCNT | HOS+133~, HOS+134*, HOS+139*, HOS+140*, HOS+143*, HOS+144*, HOS+145*, HOS+151*, HOS+153*, HOS+154* , HOS+156* |
| IBLN | HOS+25~, HOS+111*, HOS+114*, HOS+116, HOS+117, HOS+122, HOS+125, HOS+126, HOS+127, HOS+130 , SPLIT+7* |
| IBLOOP | VC80I+10~, VC80I+11*, VC80I+12*, VC80I+13 |
| IBLOS | VC80I+35~, VC80I+38*, VC80I+39*, VC80I+42 |
| IBMOD | HOS+25~, HOS+44*, HOS+57*, HOS+64*, HOS+65, HOS+67, HOS+72 |
| IBP | HOS+25~ |
| IBP( | HOS+35*, HOS+51, HOS+53, HOS+55, HOS+56!, HOS+59, HOS+61, HOS+62, HOS+67! |
| IBP1 | HOS+25~ |
| IBP1( | HOS+51, HOS+53, HOS+55, HOS+56* |
| IBPO | HOS+25~, HOS+45*, HOS+57*, HOS+62, HOS+66*, HOS+71*, HOS+72, HOS+76*, HOS+77, HOS+79 , HOS+80, HOS+81, HOS+82, HOS+83, HOS+84, HOS+86*, HOS+90, HOS+91, HOS+97, HOS+99 , HOS+100, HOS+101, HOS+102, HOS+103, HOS+112*, HOS+113, HOS+114, HOS+116 |
| >> IBRC | RC2CP+13*, RC2CP+14, RC2CP+15 |
| IBRC0 | RC2CP+6~, RC2CP+9*, RC2CP+10, RC2CP+11, RC2CP+13 |
| IBRCIEN | RC2CP~, RC2CP+8, RC2CP+9 |
| IBRX | HOS+133~, HOS+141*, HOS+142, HOS+143, HOS+144, HOS+145 |
| IBS | HOS+25~, HOS+76*, HOS+77, HOS+79, HOS+80, HOS+81, HOS+82, HOS+83, HOS+84, HOS+86* , HOS+90, HOS+91, HOS+92, HOS+95, HOS+97, HOS+99, HOS+100, HOS+101, HOS+102, HOS+103 , HOS+104, HOS+111*, HOS+112*, HOS+113, HOS+114, HOS+116, SPLIT+6~, SPLIT+7*, SPLIT+8*, SPLIT+9 , SPLIT+11, SPLIT+12, SPLIT+27, SPLIT+29, SPLIT+30, SPLIT+31, SPLIT+32 |
| IBSS | HOS+25~, HOS+112*, HOS+113, HOS+114, HOS+116, SPLIT+6~, SPLIT+11*, SPLIT+12, SPLIT+29, SPLIT+30 , SPLIT+31, SPLIT+32 |
| IBSS1 | SPLIT+6~ |
| IBUNODE | VC80I+35~, VC80I+37*, VC80I+38 |
| IBX | HOS+25~, HOS+45*, HOS+69, HOS+71, HOS+72, HOS+77*, HOS+81, HOS+113*, HOS+114, HOS+133~ , HOS+138*, HOS+141*, HOS+143, HOS+152*, HOS+155*, HOS+156 |
| IBX( | HOS+76, HOS+77, HOS+79, HOS+84 |
| IBX(" " | HOS+71, HOS+72* |
| IBX1 | HOS+25~, HOS+45*, HOS+57*, HOS+66*, HOS+72 |
| IBX1( | HOS+81*, HOS+82*, HOS+83*, HOS+84*, HOS+86, HOS+90, HOS+91, HOS+95, HOS+97, HOS+99* , HOS+100*, HOS+101*, HOS+102*, HOS+103*, HOS+104!, HOS+112, HOS+113, HOS+114, HOS+116, SPLIT+8 , SPLIT+9, SPLIT+11, SPLIT+12, SPLIT+27, SPLIT+29*, SPLIT+30*, SPLIT+31*, SPLIT+32* |
| >> IBXDATA | HOS+130 |
| >> IBXDATA( | HOS+114*, HOS+116*, HOS+117*, HOS+122, HOS+125*, HOS+126*, HOS+127*, RC2CP+19, RC2CP+20 |
| >> IBXIEN | VC80I+23, VC80I+24, VC80I+36, VC80I+37 |
| IBXS | HOS+25~, HOS+79*, HOS+80, HOS+81, HOS+82, HOS+83, HOS+84 |
| >> IBXSAVE("INPT" | VC80I+19*, VC80I+25*, VC80I+42*, VC80I+44*, VC80I+47* |
| >> IBXSAVE("PROS-UB-04" | HOS+153*, HOS+154*, HOS+156* |
| >> IBXSAVE("RX-UB-04" | HOS+139*, HOS+140*, HOS+143*, HOS+144*, HOS+145* |
| >> IBXSV("VC80" | VC80I+12, VC80I+13 |
| IBXTRA | HOS+25~, HOS+130 |
| IBY | HOS+25~, HOS+141*, HOS+143, HOS+155*, HOS+156 |
| IBZ | HOS+25~, HOS+28, HOS+34*, HOS+35, HOS+44*, HOS+45, HOS+47, HOS+48, HOS+50, HOS+52 , HOS+55, HOS+56, HOS+59, HOS+61, HOS+77*, HOS+79, HOS+80, HOS+81, HOS+82, HOS+83 , HOS+113*, HOS+114, HOS+116, HOS+133~, HOS+144*, HOS+145* |
| IBZ1 | HOS+87~, HOS+90* |
| IBZ2 | HOS+87~, HOS+90* |
| >> L | SPLIT+25*, SPLIT+28, SPLIT+32 |
| LN | VC80I~, VC80I+17 |
| LNK | SPLIT+6~, SPLIT+10*, SPLIT+11*, SPLIT+12, SPLIT+28, SPLIT+29 |
| LNS | SPLIT+6~, SPLIT+18*, SPLIT+20*, SPLIT+21*, SPLIT+22, SPLIT+23, SPLIT+25 |
| LST | HOS+25~, HOS+28*, HOS+70*, HOS+71*, SPLIT+6~, SPLIT+9*, SPLIT+11 |
| LTOT | SPLIT+6~ |
| LUNT | SPLIT+6~, SPLIT+22*, SPLIT+24*, SPLIT+30, SPLIT+31, SPLIT+33* |
| MOD | SPLIT+6~, SPLIT+19*, SPLIT+20, SPLIT+23*, SPLIT+24 |
| OK | RC2CP+16~*, RC2CP+17, RC2CP+19, RC2CP+20*, RC2CP+21* |
| Q | HOS+87~, HOS+90*, HOS+91, HOS+95, HOS+97, HOS+99, HOS+100, HOS+101, HOS+103, HOS+104 , SPLIT+26~, SPLIT+27*, SPLIT+28*, SPLIT+29, SPLIT+30, SPLIT+31, SPLIT+32 |
| Q0 | HOS+87~, HOS+93*, HOS+94, HOS+95, HOS+96, HOS+97 |
| Q1 | HOS+87~, HOS+92*, HOS+93, HOS+97*, HOS+98 |
| HOS+25~, HOS+62*, HOS+65 | |
| REC | SPLIT+6~ |
| RLNK | SPLIT+6~ |
| TOT | SPLIT+6~, SPLIT+16*, SPLIT+17, SPLIT+18, SPLIT+19 |
| U | HOS+35, HOS+47, HOS+48, HOS+50, HOS+52, HOS+55, HOS+56, HOS+57, HOS+59, HOS+61 , HOS+65, HOS+66, HOS+67, HOS+71, HOS+72, HOS+79, HOS+80, HOS+82, HOS+83, HOS+95 , HOS+97, HOS+99, HOS+100, HOS+101, HOS+102, HOS+114, HOS+116, HOS+117, HOS+125, HOS+126 , HOS+127, HOS+137, HOS+138, HOS+142, HOS+143, HOS+144, HOS+145, HOS+150, HOS+152, HOS+156 , RC2CP+10, RC2CP+11, RC2CP+13, SPLIT+13, SPLIT+14, SPLIT+30, SPLIT+31, SPLIT+32, VC80I+12, VC80I+16 , VC80I+19, VC80I+25, VC80I+38, VC80I+42, VC80I+44, VC80I+47 |
| UNIT | VC80I+15~, VC80I+16* |
| UNTS | SPLIT+6~, SPLIT+14*, SPLIT+15, SPLIT+16, SPLIT+21, SPLIT+22, SPLIT+23, SPLIT+33* |
| VC80LN | VC80I+15~, VC80I+17*, VC80I+19, VC80I+25, VC80I+42, VC80I+44, VC80I+47 |
| VC80REC | VC80I+10~, VC80I+11*, VC80I+13*, VC80I+16 |
| X | ACCRV~, ACCRV+1 |
| Z | HOS+25~, HOS+48*, HOS+49, HOS+50, HOS+52, HOS+57, HOS+62*, HOS+67, HOS+71*, HOS+87~ , HOS+88*, HOS+90*, HOS+91, HOS+95, HOS+97, HOS+99, HOS+100, HOS+101, HOS+102, HOS+103 , HOS+104, RC2CP+16~*, RC2CP+17*, RC2CP+20, RC2CP+21 |
| Z0 | HOS+25~, HOS+53*, HOS+54*, HOS+55, HOS+56, HOS+57, HOS+62*, HOS+64, HOS+67, HOS+71* , HOS+87~ |
| Z1 | HOS+25~, HOS+62*, HOS+65, HOS+66, HOS+67, HOS+87~ |
| Z2 | HOS+87~ |
| ZX | HOS+25~, HOS+50*, HOS+51, HOS+53, HOS+55, HOS+56, HOS+57, HOS+61*, HOS+62 |
