Routine: ADGDMM

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	^%DT ^DIR

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),U),1,15) Line Location: PRINT+2
Function Call: WRITE	Prompt: ?17,$J($P(^(0),U,2),6) Line Location: PRINT+3
Function Call: WRITE	Prompt: ?25,MCDN Line Location: PRINT+4
Function Call: WRITE	Prompt: ?37,MCRN Line Location: PRINT+5
Function Call: WRITE	Prompt: ?49,$E(INSNM,1,6)," ",INSN Line Location: PRINT+6
Function Call: WRITE	Prompt: ?68,$P(Y,"@") Line Location: PRINT+7
Function Call: WRITE	Prompt: ! Line Location: PRINT+8
Function Call: WRITE	Prompt: !,"MEDICARE/MEDICAID LIST for Discharges from " Line Location: HDH+1
Function Call: WRITE	Prompt: Y," to " Line Location: HDH+2
Function Call: WRITE	Prompt: Y Line Location: HDH+2
Function Call: WRITE	Prompt: !!,"Patient Name",?19,"HRCN",?25,"MCAID #",?37,"MCARE #" Line Location: HDH+3
Function Call: WRITE	Prompt: ?49,"Insurer /#",?68,"DISCHARGED" Line Location: HDH+4
Function Call: WRITE	Prompt: !,LN Line Location: HDH+5
Function Call: WRITE	Prompt: ! Line Location: PG+1
Function Call: WRITE	Prompt: @IOF Line Location: PG+1
Function Call: WRITE	Prompt: @IOF Line Location: HD+1
Routine Call	DIR Line Location: PG+1
Routine Call	%ZIS Line Location: ZIS+1

Name	Line Occurrences (* Changed, ! Killed)
^AUPNMCD - [#9000004]	MCD+1, MCD+2, MCD+3
^AUPNMCD("B"	1+3
^AUPNMCR - [#9000003]	MCR+1, MCR+2, MCR+3
^AUPNMCR("B"	1+2
^AUPNPAT - [#9000001]	PRINT+3
^AUPNPRVT - [#9000006]	INS+1, INS+2, INS+3, INS+4
^AUPNPRVT("B"	1+4
^AUTNINS - [#9999999.18]	INS+4
^AUTTMCS - [#9999999.32]	MCR+3
^DD("DD"	PRINT+7, HDH+2
^DGPM - [#405]	PRINT+7
^DGPM("AMV3"	L3+1, L3+2, L3+3
^DPT - [#2]	PRINT+2

Name	Field # of Occurrence
^(	1+2, 1+3, 1+4
^(0	MCR+3, PRINT+3

Name	Field # of Occurrence
>> %DT	BD+1, ED+1
>> %DT("A"	BD+1, ED+1
>> %ZIS	ZIS+1*
D	ADGDMM+4~, 1+1, 1+5, MCD+2, MCD+3*, PRINT+4
DFN	ADGDMM+4~, L3+2*, L3+3, 1+2, 1+3, 1+4, PRINT+2, PRINT+3
DGBD	ADGDMM+4~, BD+2*, L3+1, HDH+2
>> DGDT	L3+1*, L3+2, L3+3, MCR+2, MCD+3, INS+2
DGED	ADGDMM+4~, ED+2*, L3+1, HDH+2
DGIFN	ADGDMM+4~, L3+3*, PRINT+7
DIR	PG+1!
DIR(0	PG+1*
DUZ(2	PRINT+3
>> ED	MCR+1, MCR+2, MCD+1, MCD+2, INS+1*, INS+2, INS+3, INS+4
EED	ADGDMM+4~, MCR+2, MCD+2, MCD+3, INS+2*
I	ADGDMM+4~, 1+1, 1+5, INS+2, INS+3*, PRINT+6
IFN	ADGDMM+4~, 1+2, 1+3, 1+4*, MCR+1, MCR+2, MCR+3, MCD+1, MCD+2, MCD+3 , INS+1, INS+2, INS+3, INS+4
INSN	ADGDMM+4~, INS+3*, PRINT+6
INSNM	ADGDMM+4~, INS+4*, PRINT+6
IO	Q+1, HDH+1
IO("Q"	A+4
IO("S"	Q+1
IO(0	Q+1
IOF	Q+1, PG+1, HD+1
IOM	HDH+5
ION	QUE+1
IOSL	PRINT+1
IOST	PG+1, HD+1
LN	ADGDMM+4~, HDH+5*
MCDN	ADGDMM+4~, MCD+3*, PRINT+4
MCRN	ADGDMM+4~, MCR+3*, PRINT+5
>> POP	A+3
R	ADGDMM+4~, 1+1, 1+5, MCR+2, MCR+3*, PRINT+5
U	MCR+2, MCR+3, MCD+2, MCD+3, INS+2, INS+3, INS+4, PRINT+2, PRINT+3
X	ADGDMM+4~, BD+1, ED+1, PG+1~
Y	ADGDMM+4~, A+1, A+2, BD+2, ED+2, PRINT+7, HDH+2, PG+1~
Z	PG~, PG+1
>> ZTDESC	QUE+2*
>> ZTIO	QUE+1*
>> ZTRTN	QUE+1*
>> ZTSAVE("DGBD"	QUE+3*
>> ZTSAVE("DGED"	QUE+3*
ZTSK	QUE+3!