IBATEI ;ALB/BGA - TRANSFER PRICING INPATIENT TRACKER ; 02-FEB-99
Source file <IBATEI.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 | ; Main Entry Point
|
|
| FINDRT(PTF,ADMIS,IBDFN) | ; Find the Rate
|
|
| TYPRATE(X) | ; Pass in PTF ien and return either DRG or Bedsection or ERROR
; see if PTF has a DRG |
|
| CALCRT(Z,Y,V,R) | ; Calculate LOS, and price out claim.
; INPUT: ; Z = a string either "BED" or "DRG" ; Y = ien for the admission movement ; V = value either bedsection NAME or the drg NUMBER ; R = used only with DRG and it is the dollar value of the drg. ; OUTPUT: ; IBCALC=" if 0^ 2nd piece is error message ; if 1^ there are 2 possible options that can be returned ; Option 1 - If we are calculating a Bed Section ; 1^calculated amount^"B" ; Option 2 - If we are calculating a DRG ; 1^calculated amt^ien drg^los^hightrim^outlier days ; ^bedsection rate for the outliers |
|
| END | ;
|
| Name | Field # of Occurrence |
|---|---|
| ^DGPMLOS | CALCRT+21 |
| EN^DIQ1 | TYPRATE+4, TYPRATE+5 |
| $$DRG^IBACSV | CALCRT+40 |
| $$INPT^IBATCM | FINDRT+21, TYPRATE+10 |
| $$ADM^IBATFILE | EN+36, EN+46 |
| $$DIS^IBATFILE | EN+26, EN+54 |
| $$DISC^IBATFILE | EN+16 |
| DEL^IBATFILE | EN+13 |
| $$FINDT^IBATUTL | EN+8 |
| $$PPF^IBATUTL | EN+33, EN+43, FINDRT+18 |
| $$TPP^IBATUTL | EN+31, EN+40 |
| $$ITCHG^IBCRCI | CALCRT+31, CALCRT+50 |
| $$MCCRUTL^IBCRU1 | CALCRT+27, CALCRT+48 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DGPT - [#45] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPM - [#405] | EN+21, EN+24, EN+49, EN+52, FINDRT+11, CALCRT+19, CALCRT+24, CALCRT+49 |
| ^DGPT - [#45] | EN+22, EN+50 |
| ^DIC(42.4 - [#42.4] | TYPRATE+13, CALCRT+47 |
| ^IBAT(351.61 - [#351.61] | EN+10 |
| ^IBE(350.9 - [#350.9] | EN+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADMIS | EN+4~, FINDRT~, FINDRT+10, FINDRT+11, FINDRT+12, FINDRT+24, FINDRT+30 |
| CALCDATE | CALCRT+15~, CALCRT+29*, CALCRT+31 |
| CHARGE | FINDRT+9~, FINDRT+21*, FINDRT+22, FINDRT+24 |
| DA | EN+3~, TYPRATE+3~, TYPRATE+4*, TYPRATE+7, TYPRATE+8, TYPRATE+10, TYPRATE+12 |
| DFN | EN+3~, EN+10* |
| >> DGPMA | EN+2, EN+5, EN+12, EN+15, EN+18, EN+20, EN+21, EN+24, EN+29, EN+31 , EN+32, EN+33, EN+34, EN+36, EN+39, EN+40, EN+42, EN+43, EN+44, EN+46 , EN+48, EN+49, EN+52 |
| DGPMIFN | CALCRT+15~, CALCRT+21* |
| >> DGPMP | EN+2, EN+5, EN+12, EN+15, EN+18, EN+29, EN+39 |
| DIC | TYPRATE+3~, TYPRATE+4* |
| DIQ | TYPRATE+3~, TYPRATE+4*, TYPRATE+5* |
| DIQ(0 | TYPRATE+4*, TYPRATE+5! |
| DISSPEC | FINDRT+9~, TYPRATE+8*, CALCRT+45, CALCRT+47 |
| DR | TYPRATE+3~, TYPRATE+4* |
| DRG | FINDRT+9~, FINDRT+16*, FINDRT+21, FINDRT+24 |
| DRGHIGH | CALCRT+15~, CALCRT+40*, CALCRT+41, CALCRT+53 |
| IBA | EN+3~, EN+5*, EN+6 |
| IBADMDT | EN+4~, EN+32*, EN+36, EN+42*, EN+46, FINDRT+9~, FINDRT+11*, FINDRT+12, FINDRT+21, TYPRATE+10 |
| IBATERR | FINDRT+9~, FINDRT+11* |
| IBATFILE | EN+3~, EN+16*, EN+26*, EN+36*, EN+46*, EN+48, EN+49, EN+54* |
| IBATIEN | EN+3~, EN+8*, EN+9, EN+10, EN+13, EN+16, EN+26, EN+49*, EN+54 |
| IBBED | TYPRATE+3~, TYPRATE+13*, TYPRATE+14, CALCRT+15~, CALCRT+47*, CALCRT+48 |
| IBBEDPTR | CALCRT+15~, CALCRT+27*, CALCRT+28, CALCRT+31, CALCRT+48*, CALCRT+50 |
| IBBEDRT | CALCRT+15~, CALCRT+50*, CALCRT+51*, CALCRT+52*, CALCRT+53 |
| IBCALC | FINDRT+9~, CALCRT+16*, CALCRT+17*, CALCRT+19*, CALCRT+20*, CALCRT+22*, CALCRT+25, CALCRT+28*, CALCRT+31*, CALCRT+32* , CALCRT+33*, CALCRT+34, CALCRT+35*, CALCRT+38, CALCRT+42*, CALCRT+53*, CALCRT+55 |
| IBDATE | CALCRT+15~, CALCRT+24*, CALCRT+29, CALCRT+40 |
| IBDFN | EN+4~, FINDRT~, FINDRT+10, FINDRT+18 |
| IBDIFF | CALCRT+15~, CALCRT+41*, CALCRT+45, CALCRT+53 |
| IBDISCH | TYPRATE+3~, TYPRATE+12*, TYPRATE+13 |
| IBDISDT | EN+3~, EN+22*, EN+23, EN+26, EN+50*, EN+51, EN+54 |
| IBDISPT | EN+3~, EN+24*, EN+26, EN+52*, EN+54 |
| IBIND | EN+3~, EN+6*, EN+8 |
| IBLOS | CALCRT+15~, CALCRT+23*, CALCRT+35, CALCRT+41, CALCRT+53 |
| IBOUTDT | CALCRT+15~, CALCRT+49*, CALCRT+50 |
| IBPREF | EN+4~, EN+33*, EN+36, EN+43*, EN+46, FINDRT+9~, FINDRT+18*, FINDRT+21 |
| IBPTF | EN+3~, EN+21*, EN+22, EN+26, EN+49*, EN+50, EN+54, TYPRATE+3~, TYPRATE+6 |
| IBPTF(45 | TYPRATE+7, TYPRATE+8, TYPRATE+12 |
| IBPTFD | TYPRATE+3~, TYPRATE+6 |
| IBPTFD(45 | TYPRATE+7, TYPRATE+10 |
| IBREST | EN+4~, FINDRT+10*, FINDRT+12*, FINDRT+15, FINDRT+18*, FINDRT+22*, FINDRT+24*, FINDRT+29, FINDRT+30* |
| IBRTYPE | EN+3~, FINDRT+9~, FINDRT+13*, FINDRT+14, FINDRT+15, FINDRT+16, FINDRT+29, FINDRT+30 |
| IBSOURCE | EN+4~, EN+32*, EN+34, EN+35*, EN+36, EN+42*, EN+44, EN+45*, EN+46 |
| PTF | EN+4~, FINDRT~, FINDRT+10, FINDRT+13 |
| R | CALCRT~, CALCRT+20, CALCRT+42 |
| TYPE | EN+3~, FINDRT+9~, TYPRATE+2*, TYPRATE+6*, TYPRATE+7*, TYPRATE+10*, TYPRATE+14*, TYPRATE+15 |
| U | EN+5, EN+10, EN+12, EN+15, EN+18, EN+20, EN+21, EN+22, EN+24, EN+29 , EN+31, EN+32, EN+33, EN+34, EN+36, EN+39, EN+40, EN+42, EN+43, EN+44 , EN+46, EN+48, EN+49, EN+50, EN+52, FINDRT+11, FINDRT+15, FINDRT+16, FINDRT+22, FINDRT+24 , FINDRT+29, FINDRT+30, TYPRATE+10, TYPRATE+13, TYPRATE+14, CALCRT+22, CALCRT+23, CALCRT+24, CALCRT+32, CALCRT+35 , CALCRT+40, CALCRT+47, CALCRT+49, CALCRT+51, CALCRT+53 |
| V | CALCRT~, CALCRT+16, CALCRT+27, CALCRT+28, CALCRT+40, CALCRT+53 |
| X | TYPRATE~, TYPRATE+2, TYPRATE+4, CALCRT+15~, CALCRT+22, CALCRT+23 |
| Y | CALCRT~, CALCRT+16, CALCRT+19, CALCRT+20, CALCRT+21, CALCRT+22, CALCRT+24, CALCRT+33, CALCRT+49 |
| Z | CALCRT~, CALCRT+16, CALCRT+17, CALCRT+20, CALCRT+25, CALCRT+38 |
