Routine: AMHRC5

Call Graph

Package	Total	Call Graph
IHS VA Utilities	3	^XBDBQUE $$VAL^XBDIQ1 EN^XBVK
Mental Health Social Services	3	EOP^AMHRDE1 ($$ALLOWP,DBHUSRP)^AMHUTIL ($$DEMO,DEMOCHK)^AMHUTIL1
Kernel	2	HOME^%ZIS ($$FMTE,$$NOW)^XLFDT
IHS Patient	1	($$AGE,$$HRN)^AUPNPAT
VA Fileman	1	^DIR

Name	Comments	DBIA/ICR reference
HEAD
PROC1	;
ZIS	;
HEAD1	;
BROWSE	;
DEMO	;
START	;
XIT	;
PRINT	;EP - CALLED FROM XBDBQUE
DONE	;
PROC	;EP - entry point for processing

Name	Line Occurrences
Function Call: WRITE	Prompt: @(IOF),!! Line Location: START+2
Function Call: WRITE	Prompt: "***** LIST OF PATIENTS WITH PERSONAL HISTORY ITEMS *****",!! Line Location: START+3
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),U,2),?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),! Line Location: HEAD1+2
Function Call: WRITE	Prompt: "PERSONAL HISTORY LIST BY PATIENT",?44,$$FMTE^XLFDT($$NOW^XLFDT),?72,"Page ",AMHPG,! Line Location: HEAD1+3
Function Call: WRITE	Prompt: ?10,"PATIENT",?42,"SEX",?52,"AGE",?57,"CHART NUMBER",! Line Location: HEAD1+4
Function Call: WRITE	Prompt: AMH80D,! Line Location: HEAD1+5
Routine Call	%ZIS Line Location: START+1
Routine Call	DIR Line Location: ZIS+1 HEAD+1

Name	Line Occurrences (* Changed, ! Killed)
^AMHPPHX - [#9002011.52]	PROC+3, PROC1+1
^AMHTPHF - [#9002012.7]	PROC1+6, PROC1+7
^DIC(4 - [#4]	HEAD1+2
^DPT - [#2]	PROC1+8
^VA(200 - [#200]	HEAD1+2

Name	Field # of Occurrence
>> AMH80D	PRINT+1*, HEAD1+5
>> AMHBT	PROC+1*
AMHCASE	PROC+2, PROC+3, PROC+5!, PROC1+1
>> AMHDEMO	DEMO+1, DEMO+2, PROC1+3
AMHDISP	PROC+1!
AMHDISP(	PROC1+8*, PRINT+4, PRINT+7, PRINT+8, PRINT+11
>> AMHET	PROC+4*
>> AMHNAME	PRINT+7*, PRINT+8, PRINT+10
>> AMHP	PRINT+8*, PRINT+10
>> AMHPG	PRINT+2, HEAD, HEAD1+1, HEAD1+3
AMHQ	PRINT+3!, PRINT+4, PRINT+5, PRINT+7, PRINT+8, HEAD+1*
>> AMHR	PROC1+1*, PROC1+2, PROC1+3, PROC1+4, PROC1+5, PROC1+8
>> AMHX	PRINT+4*, PRINT+6, PRINT+7, PRINT+8, PRINT+11
DA	ZIS+1!
DIR	ZIS+1!, HEAD+1!
DIR("A"	ZIS+1*
DIR("B"	ZIS+1*
DIR(0	ZIS+1, HEAD+1
>> DIRUT	ZIS+2
DT	PRINT+10
>> DTOUT	HEAD+1
DUZ	PROC1+2, HEAD1+2
DUZ(2	PRINT+10, HEAD1+2
IO	HEAD+1
IO(0	HEAD+1
IOF	START+1, START+2, HEAD1+1
IOSL	PRINT+5, PRINT+9
IOST	HEAD+1
U	PROC1+2, PROC1+3, PROC1+4, PROC1+5, PROC1+7, PROC1+8, HEAD1+2
>> X	PROC1+5, PROC1+6, PROC1+7, PROC1+8
>> XBIOP	BROWSE+2*
>> XBNS	ZIS+4, BROWSE+2
>> XBRC	ZIS+4, BROWSE+2
>> XBRP	ZIS+4, BROWSE+1
>> XBRX	ZIS+4, BROWSE+2
>> Y	ZIS+3, HEAD+1