Routine: ADGWMM2

Package	Total	Call Graph
IHS Changes To ADT	1	CONF^ADGUTIL
IHS VA Utilities	1	$$VAL^XBDIQ1
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Changes To ADT	1	ADGWMM1

Entry Points

Name	Comments	DBIA/ICR reference
IDATE(X)	; -- inverse date
RANGE()	; -- printable date range
MCD	; -- medicaid
INS	; -- private insurance
NEWPG	; -- end of page control
DWD()	; -- find disch ward
LDT	;EP; -- loop by disch date
PRINT	; -- print
TMPLP	; -- loop thru tmp file
MCR	; -- medicare
CHECK	; -- check for insurance types requested
HDH	; -- heading

External References

Name	Field # of Occurrence
CONF^ADGUTIL	HDH+2
^DIR	NEWPG+1
$$VAL^XBDIQ1	LDT+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),U),1,20) Line Location: PRINT+3
Function Call: WRITE	Prompt: ?22,$J($P(^(0),U,2),6) Line Location: PRINT+4
Function Call: WRITE	Prompt: ?32,Y Line Location: PRINT+6
Function Call: WRITE	Prompt: ?50,Y Line Location: PRINT+7
Function Call: WRITE	Prompt: ?72,$E(W,1,5) Line Location: PRINT+8
Function Call: WRITE	Prompt: !?2,"Admit Dx: ",$P(^DGPM(DGPMCA,0),U,10) Line Location: PRINT+9
Function Call: WRITE	Prompt: ?40,"MCAID #: ",MD Line Location: PRINT+11
Function Call: WRITE	Prompt: ?61,"MCARE #: ",MR Line Location: PRINT+12
Function Call: WRITE	Prompt: !?2,"Insurer: ",PVN," #",PV Line Location: PRINT+13
Function Call: WRITE	Prompt: ! Line Location: PRINT+14
Function Call: WRITE	Prompt: @IOF Line Location: HDH+1
Function Call: WRITE	Prompt: !?24,"MEDICARE/MEDICAID/INSURANCE LIST" Line Location: HDH+3
Function Call: WRITE	Prompt: ?69,Y Line Location: HDH+5
Function Call: WRITE	Prompt: !?17,"for Discharge Dates: ",$$RANGE Line Location: HDH+6
Function Call: WRITE	Prompt: !?2,"Patient Name",?23,"HRCN",?32,"Admit Date",?50,"Dsch Date" Line Location: HDH+7
Function Call: WRITE	Prompt: ?72,"Ward" Line Location: HDH+8
Function Call: WRITE	Prompt: !,LN Line Location: HDH+9
Routine Call	DIR Line Location: NEWPG+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNMCD - [#9000004]	MCD+2, MCD+3, MCD+4
^AUPNMCD("B"	CHECK+3
^AUPNMCR - [#9000003]	MCR+2, MCR+3, MCR+4
^AUPNMCR("B"	CHECK+2
^AUPNPAT - [#9000001]	PRINT+4
^AUPNPRVT - [#9000006]	INS+2, INS+3, INS+4, INS+5
^AUPNPRVT("B"	CHECK+4
^AUTNINS - [#9999999.18]	INS+5
^AUTTMCS - [#9999999.32]	MCR+4
^DD("DD"	PRINT+6, PRINT+7, HDH+5, RANGE+2, RANGE+3
^DGPM - [#405]	LDT+6, PRINT+6, PRINT+9, DWD+1, DWD+3, DWD+6
^DGPM("ATID2"	DWD+2, DWD+4
^DGPM("ATT3"	LDT+4, LDT+5
^DPT - [#2]	PRINT+3
^TMP("ADGWMM"	LDT+1!, LDT+10*, TMPLP+4, TMPLP+5, TMPLP+7, TMPLP+8

Label References

Name	Line Occurrences
$$DWD	LDT+8
$$IDATE	DWD+1, DWD+3
$$RANGE	HDH+6
CHECK	LDT+7
HDH	LDT+12, NEWPG+2
INS	CHECK+4
MCD	CHECK+3
MCR	CHECK+2
NEWPG	PRINT+2
PRINT	TMPLP+9
TMPLP	LDT+12

Naked Globals

Name	Field # of Occurrence
^(	CHECK+2, CHECK+3, CHECK+4
^(0	LDT+6, MCR+4, PRINT+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	LDT+6, LDT+10, TMPLP+8, CHECK+2, CHECK+3, CHECK+4, PRINT+3, PRINT+4, DWD+2, DWD+4
>> DGBD	LDT+3, RANGE+2
DGD	LDT+2~, LDT+3, LDT+4, LDT+5, LDT+10, TMPLP+5*, TMPLP+7, TMPLP+8, PRINT+7
>> DGED	LDT+3, RANGE+3
>> DGMD	LDT+7, LDT+10, CHECK+1, MCD+3, MCD+4*
>> DGMR	LDT+7, LDT+10, CHECK+1, MCR+3, MCR+4*
DGN	LDT+2~, LDT+5, LDT+6, LDT+10, TMPLP+6, TMPLP+7*, TMPLP+8
>> DGPG	HDH+1, HDH+4*
>> DGPI	LDT+7, LDT+10, CHECK+1, INS+3, INS+4*
>> DGPINM	LDT+10, CHECK+1, INS+5
>> DGPMCA	LDT+6, LDT+10, PRINT+5, PRINT+6, PRINT+9, DWD+1, DWD+3, DWD+5
>> DGS	TMPLP+8*, PRINT+5, PRINT+10
>> DGSTOP	TMPLP+4, TMPLP+5, TMPLP+7, PRINT+2, NEWPG+1*
>> DGW	LDT+9
DIR	NEWPG+1!
DIR(0	NEWPG+1*
DT	MCR+3, MCD+4, INS+3, HDH+5
DUZ(2	PRINT+4
ED	MCR+1~, MCR+2, MCR+3, MCD+1~, MCD+2, MCD+3, INS+1~, INS+2*, INS+3, INS+4 , INS+5
EED	MCR+1~, MCR+3, MCD+1~, MCD+3, MCD+4, INS+1~, INS+3*
END	LDT+2~, LDT+3*, LDT+4
>> IFN	CHECK+2, CHECK+3, CHECK+4*, MCR+2, MCR+3, MCR+4, MCD+2, MCD+3, MCD+4, INS+2 , INS+3, INS+4, INS+5
IOF	HDH+1
IOM	HDH+9
IOSL	PRINT+2
IOST	HDH+1, NEWPG+1
>> LN	HDH+9*
MD	PRINT+1~, PRINT+10*, PRINT+11
MR	PRINT+1~, PRINT+10*, PRINT+12
PV	PRINT+1~, PRINT+10*, PRINT+13
PVN	PRINT+1~, PRINT+10*, PRINT+13
R	RANGE+1~, RANGE+2, RANGE+3, RANGE+4
U	LDT+6, LDT+10, TMPLP+4, TMPLP+5, TMPLP+7, MCR+3, MCR+4, MCD+3, MCD+4, INS+3 , INS+4, INS+5, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+9, PRINT+10, NEWPG+1, DWD+1 , DWD+6
>> W	LDT+8, LDT+9, LDT+10, TMPLP+4*, TMPLP+5, TMPLP+7, TMPLP+8, PRINT+8
X	TMPLP+1~, NEWPG+1, RANGE+1~, DWD+1~, DWD+2*, DWD+3, DWD+4, DWD+5, IDATE~, IDATE+1
Y	PRINT+6, PRINT+7, HDH+5, RANGE+1~, RANGE+2, RANGE+3, DWD+1~, DWD+2
Z	DWD+1~, DWD+3, DWD+4, DWD+5*, DWD+6

Customize PDF page

Package: IHS Changes To ADT

Routine: ADGWMM2

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: