Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: IBATEI

Package: Integrated Billing

Routine: IBATEI


Information

IBATEI ;ALB/BGA - TRANSFER PRICING INPATIENT TRACKER ; 02-FEB-99

Source Information

Source file <IBATEI.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Integrated Billing 6 $$DRG^IBACSV  $$INPT^IBATCM  ($$ADM,$$DIS,$$DISC,DEL)^IBATFILE  ($$FINDT,$$PPF,$$TPP)^IBATUTL  $$ITCHG^IBCRCI  $$MCCRUTL^IBCRU1  
Registration 1 ^DGPMLOS  
VA FileMan 1 EN^DIQ1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Integrated Billing 3 IBAMTD  IBATEI1  IBATLM1B  

Entry Points

Name Comments DBIA/ICR reference
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
TYPRATE(X) ; Pass in PTF ien and return either DRG or Bedsection or ERROR
; see if PTF has a DRG
EN ; Main Entry Point
FINDRT(PTF,ADMIS,IBDFN) ; Find the Rate
END ;

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Updating Transfer Pricing has been...completed."
  • Line Location: END+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPT - [#45] Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$CALCRT FINDRT+24, FINDRT+30
$$TYPRATE FINDRT+13
END EN+9, EN+29, EN+39

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All