Routine: BDGCPT

Package	Total	Call Graph
IHS Changes To ADT	2	(AMB,PRV,TRAN)^BDGCPT1 $$HRCN^BDGF2
Kernel	2	$$FMTE^XLFDT $$REPEAT^XLFSTR
IHS VA Utilities	1	ENPM^XBDIQ1
Lab Service	1	($$EN,EN)^LRZBILL
Patient Care Component Reports	1	$$SC^APCLV
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Changes To ADT	2	BDGCPT1 BDGCRB1

Entry Points

Name	Comments	DBIA/ICR reference
SET(LINE,SECTION,DATE,IEN)	; -- put display line into date order under section
MED	; -- find all v med entries
RAD	; -- find all v radiology entries
PAD(D,L)	; -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	; -- SUBRTN to pad N number of spaces
SECTION	;;
TRAN	; -- find all trans codes
IMM	; -- find all v immunization entries
COST(IEN,QTY,TOTAL)	; -- find total cost for supply item(s)
LAB	; -- find all v lab entries
HDG2(CAT)	; -- heading for each category
HEAD	; -- page heading
PRV	; -- find all providers
DSCDT(ADM)
SUP	; -- get pyxis supply items
PRINT	; -- print line
DATE(FILE,IEN)	; -- find date for item
CPT	; -- find all v cpt entries
AMB(V)	; -- is this visit an ambulatory one?

External References

Name	Field # of Occurrence
$$SC^APCLV	AMB+1
AMB^BDGCPT1	BDGCPT+29
PRV^BDGCPT1	PRV+1
TRAN^BDGCPT1	TRAN+1
$$HRCN^BDGF2	HEAD+1
$$GET1^DIQ	BDGCPT+15, TRAN+6, TRAN+7, TRAN+8, TRAN+9, TRAN+10, RAD+5, RAD+6, RAD+7, RAD+8 , MED+9, MED+15, MED+16, MED+17, MED+19, MED+38, MED+44, MED+45, MED+46, MED+47 , MED+60, MED+61, MED+62, SUP+8, SUP+13, SUP+14, SUP+15, COST+2, COST+4, CPT+4 , CPT+5, CPT+6, CPT+7, CPT+8, CPT+9, IMM+4, IMM+5, LAB+11, LAB+12, LAB+13 , LAB+14, LAB+20, LAB+23, LAB+24, LAB+29, LAB+30, LAB+31, LAB+35, DATE+2, DATE+3 , DATE+4, DSCDT+3, DSCDT+4, HEAD+2, HEAD+3
$$EN^LRZBILL	LAB+7
EN^LRZBILL	LAB+6
ENPM^XBDIQ1	MED+51
$$FMTE^XLFDT	TRAN+4, RAD+3, MED+24, MED+43, MED+59, SUP+12, CPT+3, IMM+3, LAB+17, LAB+32
$$REPEAT^XLFSTR	HEAD+4, PAD+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^TMP("BDGCPT",$J,DGI,DGDT,DGN) Line Location: PRINT+6
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: !,"CPT DATA FOR HOSPITALIZATION: #",$$HRCN^BDGF2(DFN,DUZ(2)) Line Location: HEAD+1
Function Call: WRITE	Prompt: " ",$E($$GET1^DIQ(2,DFN,.01),1,20) Line Location: HEAD+2
Function Call: WRITE	Prompt: " ",$$GET1^DIQ(405,DGPMCA,.01) Line Location: HEAD+3
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80),! Line Location: HEAD+4
Function Call: WRITE	Prompt: !,$P($T(SECTION+X),";;",3) Line Location: HDG2+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DGPM - [#405]	GET1^DIQ
^AUPNVSIT - [#9000010]	GET1^DIQ
^AUPNVLAB - [#9000010.09]	GET1^DIQ
^AUPNVIMM - [#9000010.11]	GET1^DIQ
^AUPNVMED - [#9000010.14]	GET1^DIQ
^AUPNVCPT - [#9000010.18]	GET1^DIQ
^AUPNVRAD - [#9000010.22]	GET1^DIQ
^AUPNVMIC - [#9000010.25]	GET1^DIQ
^AUPNVTC - [#9000010.33]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVCPT("AD"	CPT+2
^AUPNVIMM("AD"	IMM+2
^AUPNVLAB("AD"	LAB+2
^AUPNVMED("AD"	MED+58
^AUPNVMIC("AD"	LAB+28
^AUPNVRAD("AD"	RAD+2
^AUPNVSIT("AD"	BDGCPT+23
^AUPNVTC("AD"	TRAN+3
^DIZ(111700	COST+2
^TMP("BDGCPT"	BDGCPT+13!, BDGCPT+35!, PRINT+1, PRINT+4, PRINT+5, PRINT+6, SET+1*
^VEFS(19234.2	MED+10, MED+14
^VEFS(19234.3	SUP+9, SUP+10
^VEFS(19234.35	MED+39, MED+40

Label References

Name	Line Occurrences
$$AMB	TRAN+5, RAD+4, LAB+18, LAB+33
$$COST	SUP+17
$$DATE	TRAN+4, RAD+3, MED+59, CPT+3, IMM+3, LAB+17, LAB+32
$$DSCDT	MED+8, MED+37, SUP+7
$$PAD	TRAN+6, TRAN+7, TRAN+9, TRAN+10, RAD+5, RAD+6, RAD+7, RAD+8, MED+25, MED+26 , MED+27, MED+28, MED+44, MED+45, MED+46, MED+47, MED+60, MED+61, MED+62, SUP+13 , SUP+16, SUP+17, CPT+4, CPT+5, CPT+7, CPT+8, CPT+9, IMM+4, IMM+5, LAB+19 , LAB+20, LAB+34, LAB+35, SP+1
$$SP	MED+53, SUP+20, LAB+25
@(	BDGCPT+19, BDGCPT+20, BDGCPT+25, BDGCPT+26
HDG2	PRINT+2
HEAD	BDGCPT+32, PRINT+7
PRINT	BDGCPT+33, BDGCPT+34
SET	TRAN+11, RAD+9, MED+29, MED+48, MED+54, MED+63, SUP+18, SUP+20, CPT+10, IMM+6 , LAB+21, LAB+25, LAB+36

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADM	DSCDT~, DSCDT+3
ARRAY	MED+3~, MED+11!, MED+51!
ARRAY(	MED+18*, MED+22, MED+23, MED+26, MED+52, MED+53
ARRAY1	MED+3~, MED+11!
ARRAY1(	MED+19*, MED+25
>> BDGFIN	BDGCPT+19, BDGCPT+25, BDGCPT+33, TRAN+1
CAT	HDG2~, HDG2+3
CPT	LAB+1~, LAB+6, LAB+7, LAB+10, LAB+11, LAB+12, LAB+13, LAB+14, LAB+19, LAB+29 , LAB+30, LAB+34
D	PAD~, PAD+2
DATE	MED+3~, MED+24, MED+29, MED+32~, MED+43, MED+48, MED+54, SUP+1~, SUP+12, SUP+18 , DATE+1~, DATE+2, DATE+3, DATE+4, DATE+5, SET~, SET+1
>> DFN	MED+10, MED+14, MED+39, MED+40, SUP+9, SUP+10, HEAD+1, HEAD+2
DGDT	PRINT+3, PRINT+4, PRINT+5, PRINT+6, TRAN+2~, TRAN+4, TRAN+11, RAD+1~, RAD+3, RAD+9 , MED+57~, MED+59, MED+63, CPT+1~, CPT+3, CPT+10, IMM+1~, IMM+3, IMM+6, LAB+1~ , LAB+17, LAB+21, LAB+25, LAB+32*, LAB+36
DGI	BDGCPT+14~, BDGCPT+19, BDGCPT+20, BDGCPT+25, BDGCPT+26, BDGCPT+33, BDGCPT+34, PRINT+1, PRINT+2, PRINT+4 , PRINT+5, PRINT+6
DGN	PRINT+5, PRINT+6, TRAN+2~, TRAN+3, TRAN+4, TRAN+6, TRAN+7, TRAN+8, TRAN+9, TRAN+10 , TRAN+11, RAD+1~, RAD+2, RAD+3, RAD+5, RAD+6, RAD+7, RAD+8, RAD+9, MED+57~ , MED+58, MED+59, MED+60, MED+61, MED+62, MED+63, CPT+1~, CPT+2, CPT+3, CPT+4 , CPT+5, CPT+6, CPT+7, CPT+8, CPT+9, CPT+10, IMM+1~, IMM+2, IMM+3, IMM+4 , IMM+5, IMM+6, LAB+1~, LAB+2, LAB+7, LAB+11, LAB+12, LAB+13, LAB+14, LAB+17 , LAB+20, LAB+21, LAB+23, LAB+24, LAB+25, LAB+28, LAB+29, LAB+30, LAB+31, LAB+32 , LAB+35, LAB+36
>> DGPMCA	BDGCPT+15, MED+8, MED+9, MED+37, MED+38, SUP+7, SUP+8, HEAD+3
DGV	BDGCPT+14~, BDGCPT+15*, BDGCPT+18, BDGCPT+23
DGVN	BDGCPT+14~, BDGCPT+23*, BDGCPT+24
DGVV	BDGCPT+14~, BDGCPT+18, BDGCPT+24, TRAN+3, TRAN+5, RAD+2, RAD+4, MED+58, CPT+2, IMM+2 , LAB+2, LAB+18, LAB+28, LAB+33
DRUGID	MED+3~, MED+16, MED+18, MED+19, MED+22, MED+23, MED+25, MED+26, MED+27, MED+29
DSC	DSCDT+2~, DSCDT+3*, DSCDT+4
DT	MED+8, MED+37, SUP+7
DUZ(2	HEAD+1
FIELD	LAB+1~, LAB+22*, LAB+23, LAB+24, LAB+25
FILE	DATE~, DATE+2, DATE+3
IEN	MED+3~, MED+14, MED+15, MED+16, MED+17, MED+19, MED+32~, MED+40, MED+44, MED+45 , MED+46, MED+47, MED+48, MED+51, MED+54, SUP+1~, SUP+10*, SUP+13, SUP+14, SUP+15 , SUP+17, SUP+18, COST~, COST+2, DATE~, DATE+2, DATE+3, SET~, SET+1
IOF	HEAD+1
IOSL	PRINT+7
ITEM	COST+1~, COST+2*, COST+3, COST+4
L	PAD~, PAD+2
LAST	MED+3~, MED+9, MED+10, MED+32~, MED+38, MED+39, SUP+1~, SUP+8*, SUP+9
LINE	TRAN+2~, TRAN+4, TRAN+5, TRAN+6, TRAN+7, TRAN+9, TRAN+10, TRAN+11, RAD+1~, RAD+3* , RAD+4, RAD+5, RAD+6, RAD+7, RAD+8, RAD+9, MED+3~, MED+24, MED+25, MED+26 , MED+27, MED+28, MED+29, MED+32~, MED+43, MED+44, MED+45, MED+46, MED+47, MED+48 , MED+53, MED+54, MED+57~, MED+59, MED+60, MED+61, MED+62, MED+63, SUP+1~, SUP+12* , SUP+13, SUP+14, SUP+16, SUP+17, SUP+18, SUP+20, CPT+1~, CPT+3, CPT+4, CPT+5* , CPT+6, CPT+7, CPT+8, CPT+9, CPT+10, IMM+1~, IMM+3, IMM+4, IMM+5, IMM+6 , LAB+1~, LAB+17, LAB+18, LAB+19, LAB+20, LAB+21, LAB+32, LAB+33, LAB+34, LAB+35* , LAB+36, SET~, SET+1
MEDSTN	MED+3~, MED+17, MED+18, MED+19, MED+23, MED+25, MED+26, MED+28, MED+29
N	SP~, SP+1
QTY	MED+3~, MED+15, MED+18, SUP+1~, SUP+15, SUP+16, SUP+17, COST~, COST+5, COST+6
RDT	MED+3~, MED+8, MED+10, MED+14, MED+24, MED+32~, MED+37, MED+39, MED+40, MED+43 , SUP+1~, SUP+7, SUP+9, SUP+10, SUP+12
SECTION	SET~, SET+1
TOTAL	SUP+1~, SUP+2, SUP+17, SUP+20, COST~, COST+5
TRAN	TRAN+2~, TRAN+8*, TRAN+11
UNITCOST	COST+1~, COST+4*, COST+5, COST+6
V	AMB~, AMB+1
X	MED+52, MED+53, MED+54, LAB+1~, LAB+23, LAB+24, LAB+25, HDG2+1~, HDG2+2*
>> Y	LAB+24*

Marked Items

Name	Field # of Occurrence
$T(EN^LRZBILL	LAB+6
$T(SECTION+X	HDG2+2, HDG2+3

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGCPT

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items