Routine: BDGCPT1

Package	Total	Call Graph
Kernel	2	($$FMADD,$$FMTE)^XLFDT $$REPEAT^XLFSTR
IHS Changes To ADT	1	$$DATE^BDGCPT
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Changes To ADT	1	BDGCPT

Entry Points

Name	Comments	DBIA/ICR reference
SET(LINE,SECTION,DATE,IEN)	; -- put display line into date order under section
TRAN	; -- find all trans codes & display in M/M format
PAD(D,L)	; -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	; -- SUBRTN to pad N number of spaces
AMB	;EP; find all ambulatory visits within hosp date range
PRV	; -- find all v provider entries for hospitalization
VSIT	; -- find visit data

Name	Field # of Occurrence
$$DATE^BDGCPT	PRV+4, TRAN+4
$$GET1^DIQ	AMB+2, AMB+4, AMB+10, VSIT+4, VSIT+5, VSIT+11, VSIT+12, VSIT+20, VSIT+21, PRV+3 , PRV+5, PRV+6, PRV+7, TRAN+3, TRAN+5, TRAN+6, TRAN+7, TRAN+8, TRAN+10
$$FMADD^XLFDT	AMB+3
$$FMTE^XLFDT	VSIT+2, PRV+4, TRAN+4
$$REPEAT^XLFSTR	PAD+2

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVINP("AD"	AMB+4
^AUPNVPOV("AD"	VSIT+19
^AUPNVPRV("AD"	VSIT+10, PRV+2
^AUPNVSIT("AA"	AMB+8, AMB+9
^AUPNVTC("AD"	TRAN+2
^TMP("BDGCPT"	SET+1*

Name	Line Occurrences
$$PAD	VSIT+3, VSIT+12, VSIT+21, VSIT+27, PRV+5, PRV+6, TRAN+5, TRAN+6, TRAN+9, TRAN+10 , SP+1
$$SP	VSIT+27, VSIT+32
@(	AMB+14, AMB+17
SET	VSIT+15, VSIT+28, VSIT+32, PRV+8, TRAN+11
VSIT	AMB+20

Name	Field # of Occurrence
ARRPOV	VSIT+1~, VSIT+22
ARRPOV(	VSIT+20, VSIT+21, VSIT+26, VSIT+27
ARRPOV(1	VSIT+22*
ARRPRC	VSIT+1~
ARRPRV	VSIT+1~
ARRPRV(	VSIT+13*, VSIT+27, VSIT+31, VSIT+32
>> BDGFIN	AMB+14, AMB+20
CNT	VSIT+1~, VSIT+9, VSIT+13, VSIT+18, VSIT+20, VSIT+21, VSIT+25, VSIT+26, VSIT+27, VSIT+28 , VSIT+30, VSIT+31, VSIT+32
D	PAD~, PAD+2
DATE	SET~, SET+1
>> DFN	AMB+8, AMB+9
DGADM	AMB+1~, AMB+2*, AMB+3
DGBEG	AMB+1~, AMB+3, AMB+6, AMB+8
DGDSC	AMB+1~, AMB+4, AMB+5, AMB+6*
DGDT	AMB+1~, AMB+6, AMB+8, AMB+9, VSIT+2, VSIT+15, VSIT+28, VSIT+32, PRV+1~, PRV+4* , PRV+8, TRAN+1~, TRAN+4*, TRAN+11
DGI	AMB+1~, AMB+14, AMB+17
DGN	VSIT+1~, VSIT+9, VSIT+10, VSIT+11, VSIT+12, VSIT+18, VSIT+19, VSIT+20, VSIT+21, VSIT+28 , VSIT+32, PRV+1~, PRV+2, PRV+3, PRV+4, PRV+5, PRV+6, PRV+7, PRV+8, TRAN+1~ , TRAN+2, TRAN+3, TRAN+4, TRAN+5, TRAN+6, TRAN+7, TRAN+8, TRAN+10, TRAN+11
>> DGV	AMB+2, AMB+4
DGVN	AMB+1~, AMB+9*, AMB+10, AMB+11
>> DGVV	AMB+11*, VSIT+4, VSIT+5, VSIT+10, VSIT+15, VSIT+19, PRV+2, TRAN+2
DT	AMB+5
FIRST	VSIT+1~
>> HIGH	VSIT+25, VSIT+27, VSIT+30
IEN	SET~, SET+1
L	PAD~, PAD+2
LINE	VSIT+1~, VSIT+2, VSIT+3, VSIT+4, VSIT+6, VSIT+12, VSIT+15, VSIT+27, VSIT+28, VSIT+32* , PRV+1~, PRV+4, PRV+5, PRV+6, PRV+7, PRV+8, TRAN+1~, TRAN+4, TRAN+5, TRAN+6* , TRAN+8, TRAN+9, TRAN+10*, TRAN+11, SET~, SET+1
N	SP~, SP+1
SECTION	SET~, SET+1
TRAN	TRAN+1~, TRAN+7*
X	VSIT+1~, VSIT+5, VSIT+6, VSIT+11, VSIT+12, VSIT+13