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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBCRHBR6

Package: Integrated Billing

Routine: IBCRHBR6


Information

IBCRHBR6 ;ALB/ARH - RATES: UPLOAD (RC) SITE CALCULATIONS ; 10-OCT-1998

Source Information

Source file <IBCRHBR6.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Integrated Billing 3 CGROUP^IBCRHBR  $$VERSION^IBCRHBRV  ($$CS,$$RG,$$USECS)^IBCRHU2  
Kernel 1 ($$FMADD,$$HTE)^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBCRHBR5  

Entry Points

Name Comments DBIA/ICR reference
INPT(SITE) ; use Inpatient Facility National Rates to calculate Site Specific Rates
SNF(SITE) ; Skilled Nursing
OPT(SITE) ; use Outpatient Facility National Rates to calculate Site Specific Rates
PCE(SITE) ; use Physician (General) National Rates to calculate Site Specific Rates
PCF(SITE) ; use Physician (Path & Anesthesia) National Rates to calculate Site Specific Rates
PCG(SITE) ; use Physician (Total RVU) National Rates to calculate Site Specific Rates
SITE(IBSXIFN,IBXTMP,IBCHGTYP) ; return site data: XTMP file IFN ^ div num ^ name ^ 3-digit zip
SETHDR(IBXRF1) ; set up header for XTMP file
SET(IBXRF1,IBXRF2,ITEM,EFFDT,INACTDT,CHRG,MOD,CS,ITYPE) ; set calculated charges into XTMP
CGP(CG,TXT) ; if Code Group is defined return benefit category number in list
DATE(X) ; return yyyymmdd in FM format
ENDDT(X) ; return yyyymmdd date in FM format, check version inactive date
RND() ;

External References

Name Field # of Occurrence
CGROUP^IBCRHBR CGP+1
$$VERSION^IBCRHBRV SETHDR+2, RND+1
$$CS^IBCRHU2 INPT+13, INPT+14, SNF+12, OPT+11, PCE+11
$$RG^IBCRHU2 INPT+9, SNF+8, OPT+7, PCE+7
$$USECS^IBCRHU2 PCF+7, PCG+7
$$FMADD^XLFDT SETHDR+3
$$HTE^XLFDT SETHDR+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$P(IBSITE,U,2)," ",$P(IBSITE,U,3)," - Inpatient Facility Charges"
  • Line Location: INPT+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: INPT+16
Function Call: WRITE
  • Prompt: !,$P(IBSITE,U,2)," ",$P(IBSITE,U,3)," - Inpatient Skilled Nursing Charges"
  • Line Location: SNF+6
Function Call: WRITE
  • Prompt: !,$P(IBSITE,U,2)," ",$P(IBSITE,U,3)," - Outpatient Facility Charges"
  • Line Location: OPT+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: OPT+15
Function Call: WRITE
  • Prompt: !,$P(IBSITE,U,2)," ",$P(IBSITE,U,3)," - Physician Charges E"
  • Line Location: PCE+5
Function Call: WRITE
  • Prompt: !,$P(IBSITE,U,2)," ",$P(IBSITE,U,3)," - Physician Charges F"
  • Line Location: PCF+5
Function Call: WRITE
  • Prompt: !,$P(IBSITE,U,2)," ",$P(IBSITE,U,3)," - Physician Charges G"
  • Line Location: PCG+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: PCG+12
Function Call: WRITE
  • Prompt: !,"There are no ",$G(IBCHGTYP)," charges for ",$P(IBSITEN,U,1)," ",$P(IBSITEN,U,2),"!",!
  • Line Location: SITE+4
Function Call: WRITE
  • Prompt: !," *** Fatal Error: ",$G(TXT),!,?21,"could not find Code Group: ",CG
  • Line Location: CGP+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J CGP+1, CGP+2
^VA(200 - [#200] SETHDR+2
^XTMP( INPT+7, INPT+16, INPT+17, SNF+14, SNF+16, SNF+17, OPT+13, OPT+15, OPT+16, PCE+13
, PCE+14, PCE+16, PCE+17, PCF+9, PCF+10, PCF+12, PCF+13, PCG+9, PCG+12, PCG+13
, SITE+2, SETHDR+1!, SETHDR+3*, SET+2, SET+3*, SET+4*, SET+6*
^XTMP("IBCR RC H" PCG+10
^XTMP("IBCR RC SITE" ENDDT+1

Label References

Name Line Occurrences
$$CGP PCE+18, PCF+14, PCG+14
$$DATE SET+6, ENDDT+1
$$ENDDT SET+6
$$RND INPT+24, INPT+28, SNF+22, SNF+24
$$SITE INPT+3, SNF+4, OPT+3, PCE+3, PCF+3, PCG+3
SET INPT+25, INPT+29, SNF+23, SNF+25, OPT+24, PCE+27, PCF+20, PCG+20
SETHDR SET+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CG CGP~, CGP+2, CGP+3
CHRG SET~, SET+6
CS SET~, SET+4
DT SETHDR+3
DUZ SETHDR+2
EFFDT SET~, SET+6
IBAA INPT+1~, INPT+7*, INPT+19, INPT+20, INPT+23, INPT+27, SNF+1~, SNF+14*, SNF+19, SNF+20
, SNF+22, SNF+24, OPT+1~, OPT+13*, OPT+18, OPT+20, OPT+21, OPT+23, PCE+1~, PCE+13*
, PCE+20, PCE+21, PCE+23, PCE+24, PCF+1~, PCF+9*, PCF+16, PCF+17, PCG+1~, PCG+9*
, PCG+16, PCG+17, PCG+19
IBAAM PCE+1~, PCE+14*, PCE+25, PCF+1~, PCF+10*, PCF+19, PCG+1~, PCG+10*, PCG+19
IBBS INPT+1~, INPT+12*, INPT+13, INPT+14, SNF+1~, SNF+11*, SNF+12, OPT+1~, OPT+10*, OPT+11
, PCE+1~, PCE+10*, PCE+11
IBC1 PCE+1~, PCE+23*, PCE+26
IBC2 PCE+1~, PCE+24*, PCE+26
IBC3 PCE+1~, PCE+25*, PCE+26
IBCGP PCE+1~, PCE+18*, PCE+25, PCF+1~, PCF+14*, PCF+19, PCG+1~, PCG+14*, PCG+19, CGP+1~
, CGP+2*, CGP+3, CGP+4
IBCHGTYP SITE~, SITE+4
IBCHRG INPT+1~, INPT+24*, INPT+25, INPT+28*, INPT+29, SNF+1~, SNF+22*, SNF+23, SNF+24*, SNF+25
, OPT+1~, OPT+23*, OPT+24, PCE+1~, PCE+26*, PCE+27, PCF+1~, PCF+19*, PCF+20, PCG+1~
, PCG+19*, PCG+20
IBCPT OPT+1~, OPT+16*, OPT+18, OPT+20, OPT+21, OPT+23, OPT+24, PCE+1~, PCE+17*, PCE+18
, PCE+20, PCE+21, PCE+23, PCE+24, PCE+25, PCE+27, PCF+1~, PCF+13*, PCF+14, PCF+16
, PCF+17, PCF+19, PCF+20, PCG+1~, PCG+13*, PCG+14, PCG+16, PCG+17, PCG+19, PCG+20
IBCS SNF+1~, SNF+12*, SNF+23, SNF+25, OPT+1~, OPT+11*, OPT+24, PCE+1~, PCE+11*, PCE+27
, PCF+1~, PCF+7*, PCF+20, PCG+1~, PCG+7*, PCG+20
IBCSAN INPT+1~, INPT+14*, INPT+29
IBCSRB INPT+1~, INPT+13*, INPT+25
IBDANC INPT+1~, INPT+27*, INPT+28
IBDRG INPT+1~, INPT+17*, INPT+19, INPT+20, INPT+22, INPT+23, INPT+25, INPT+27, INPT+29, SNF+1~
, SNF+17*, SNF+19, SNF+20, SNF+22, SNF+24
IBDRMB INPT+1~, INPT+23*, INPT+24
IBEFF INPT+1~, INPT+19*, INPT+25, INPT+29, SNF+1~, SNF+19*, SNF+23, SNF+25, OPT+1~, OPT+20*
, OPT+24, PCE+1~, PCE+20*, PCE+27, PCF+1~, PCF+16*, PCF+20, PCG+1~, PCG+16*, PCG+20
IBEVNT INPT+1~, INPT+11*, INPT+13, INPT+14, SNF+1~, SNF+10*, SNF+12, OPT+1~, OPT+9*, OPT+11
, PCE+1~, PCE+9*, PCE+11
IBI INPT+1~, INPT+16*, INPT+17, SNF+1~, SNF+16*, SNF+17, OPT+1~, OPT+15*, OPT+16, PCE+1~
, PCE+16*, PCE+17, PCF+1~, PCF+12*, PCF+13, PCG+1~, PCG+12*, PCG+13
IBINA INPT+1~, INPT+20*, INPT+25, INPT+29, SNF+1~, SNF+20*, SNF+23, SNF+25, OPT+1~, OPT+21*
, OPT+24, PCE+1~, PCE+21*, PCE+27, PCF+1~, PCF+17*, PCF+20, PCG+1~, PCG+17*, PCG+20
IBINACT SET+2~
IBK SET+2~, SET+3*, SET+6
IBOK PCE+1~*, PCE+16, PCE+18*, PCF+1~*, PCF+12, PCF+14*, PCG+14*
IBRATE INPT+1~, INPT+10*, INPT+13, INPT+14, SNF+1~, SNF+9*, SNF+12, OPT+1~, OPT+8*, OPT+11
, PCE+1~, PCE+8*, PCE+11
IBRG INPT+1~, INPT+9*, INPT+13, INPT+14, SNF+1~, SNF+8*, SNF+12, OPT+1~, OPT+7*, OPT+11
, PCE+1~, PCE+7*, PCE+11
IBSANC INPT+1~, INPT+27*, INPT+28
IBSITE INPT+1~, INPT+3*, INPT+4, INPT+5, INPT+7, INPT+9, INPT+13, INPT+14, SNF+1~, SNF+4*
, SNF+5, SNF+6, SNF+8, SNF+12, SNF+14, OPT+1~, OPT+3*, OPT+4, OPT+5, OPT+7
, OPT+11, OPT+13, PCE+1~, PCE+3*, PCE+4, PCE+5, PCE+7, PCE+11, PCE+13, PCE+14
, PCF+1~, PCF+3*, PCF+4, PCF+5, PCF+7, PCF+9, PCF+10, PCG+1~, PCG+3*, PCG+4
, PCG+5, PCG+7, PCG+9, PCG+10, SITE+1~*, SITE+2*, SITE+3*, SITE+4, SITE+5
IBSITEN SITE+1~, SITE+2*, SITE+3, SITE+4
IBSNS INPT+1~, INPT+22*, INPT+23, INPT+27
IBSRMB INPT+1~, INPT+23*, INPT+24
IBSXIFN SITE~, SITE+2
IBSXTMP SITE+1~*, SITE+2
IBX SETHDR+1~, SETHDR+2*, SETHDR+3, SET+2~*, SET+3
IBXRF1 INPT+1~, INPT+4*, INPT+25, INPT+29, SNF+1~, SNF+5*, SNF+23, SNF+25, OPT+1~, OPT+4*
, OPT+24, PCE+1~, PCE+4*, PCE+27, PCF+1~, PCF+4*, PCF+20, PCG+1~, PCG+4*, PCG+20
, SETHDR~, SETHDR+1, SETHDR+2, SETHDR+3, SET~, SET+2, SET+3, SET+4, SET+6
IBXRF2 INPT+1~, INPT+4*, INPT+25, INPT+29, SNF+1~, SNF+5*, SNF+23, SNF+25, OPT+1~, OPT+4*
, OPT+24, PCE+1~, PCE+4*, PCE+27, PCF+1~, PCF+4*, PCF+20, PCG+1~, PCG+4*, PCG+20
, SET~, SET+4, SET+6
IBXTMP SITE~, SITE+2
IBXTMPA INPT+1~, INPT+3*, INPT+7, SNF+1~, SNF+4*, SNF+14, OPT+1~, OPT+3*, OPT+13, PCE+1~
, PCE+3*, PCE+13, PCE+14, PCF+1~, PCF+3*, PCF+9, PCF+10, PCG+1~, PCG+3*, PCG+9
IBXTMPC INPT+1~, INPT+3*, INPT+16, INPT+17, SNF+1~, SNF+4*, SNF+16, SNF+17, OPT+1~, OPT+3*
, OPT+15, OPT+16, PCE+1~, PCE+3*, PCE+16, PCE+17, PCE+18, PCF+1~, PCF+3*, PCF+12
, PCF+13, PCF+14, PCG+1~, PCG+3*, PCG+12, PCG+13, PCG+14
INACTDT SET~, SET+6
ITEM SET~, SET+6
ITYPE SET~, SET+4
MOD SET~, SET+6
SITE INPT~, INPT+3, SNF~, SNF+4, OPT~, OPT+3, PCE~, PCE+3, PCF~, PCF+3
, PCG~, PCG+3
TXT CGP~, CGP+3
U INPT+4, INPT+5, INPT+9, INPT+13, INPT+14, INPT+19, INPT+20, INPT+22, INPT+23, INPT+25
, INPT+27, INPT+29, SNF+5, SNF+6, SNF+8, SNF+12, SNF+17, SNF+19, SNF+20, SNF+22
, SNF+24, OPT+4, OPT+5, OPT+7, OPT+11, OPT+18, OPT+20, OPT+21, OPT+23, OPT+24
, PCE+4, PCE+5, PCE+7, PCE+11, PCE+18, PCE+20, PCE+21, PCE+23, PCE+24, PCE+25
, PCE+27, PCF+4, PCF+5, PCF+7, PCF+14, PCF+16, PCF+17, PCF+19, PCF+20, PCG+4
, PCG+5, PCG+7, PCG+14, PCG+16, PCG+17, PCG+19, PCG+20, SITE+3, SITE+4, SETHDR+2
, SETHDR+3, SET+3, SET+4, SET+6
V ENDDT+1~*
X DATE~, DATE+1, ENDDT~, ENDDT+1
Y DATE+1~*, DATE+2, ENDDT+1~*, ENDDT+2, RND+1~*, RND+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All