Routine: IBCRHBR6

Information

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

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:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

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

Customize PDF page

Package: Integrated Billing