Routine: AMHLRDSP

Package	Total	Call Graph
VA Fileman	3	DD^%DT $$GET1^DIQ ^DIR
Kernel	1	HOME^%ZIS
Mental Health Social Services	1	$$PPINI^AMHUTIL

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No records currently on file for ",$P(^DIC(4,AMHLOC,0),U)," on " Line Location: AMHLRDSP+13
Function Call: WRITE	Prompt: Y,".",! Line Location: AMHLRDSP+13
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: !,AMHDASH Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,"Program: ",AMHPROGN,?35,"Date of Encounter: " Line Location: HEAD1+4
Function Call: WRITE	Prompt: Y,!,"Location of Encounter: ",$P(^DIC(4,AMHLOC,0),U),!,AMHDASH Line Location: HEAD1+4
Function Call: WRITE	Prompt: !," #",?6,"PROV",?12,"COMMUNITY",?24,"ACT",?29,"VISIT",?37,"AT",?41,"PATIENT",?51,"PROB",?58,"NARRATIVE",!,AMHDASH Line Location: HEAD1+5
Function Call: WRITE	Prompt: ?41,$P(^AUTTLOC($P(AMHREC,U,4),0),U,7)," ",$P(^AUPNPAT($P(AMHREC,U,8),41,$P(AMHREC,U,4),0),U,2) Line Location: DISPRECS+6
Function Call: WRITE	Prompt: ?41,$P(^AUTTLOC($P(AMHREC,U,4),0),U,7)," ",$P(^AUPNPAT($P(AMHREC,U,8),41,$P(AMHREC,U,4),0),U,2) Line Location: DISPRECS+7
Function Call: WRITE	Prompt: ?42,"-----" Line Location: DISPRECS+9
Function Call: WRITE	Prompt: ?56,"No Problems recorded." Line Location: DISPRECS+10
Function Call: WRITE	Prompt: ?58,$E($$GET1^DIQ(9002011.01,AMHP,.04),1,21) Line Location: DISPRECS+11
Routine Call	%ZIS Line Location: AMHLRDSP+11
Routine Call	DIR Line Location: HEAD+2

FileNo	Call Tags
^AMHRPRO - [#9002011.01]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AMHPROB - [#9002012.2]	DISPRECS+11
^AMHREC - [#9002011]	DISPRECS+1
^AMHREC("AA"	AMHLRDSP+13, DISPRECS+1
^AMHRPRO - [#9002011.01]	DISPRECS+11
^AMHRPRO("AD"	DISPRECS+10
^AMHTACT - [#9002012]	DISPRECS+4
^AMHTSET - [#9002012.1]	DISPRECS+4
^AUPNPAT - [#9000001]	DISPRECS+6, DISPRECS+7
^AUTTCOM - [#9999999.05]	DISPRECS+3
^AUTTLOC - [#9999999.06]	DISPRECS+6, DISPRECS+7
^DIC(4 - [#4]	AMHLRDSP+13, HEAD1+4

Name	Field # of Occurrence
>> AMHDASH	HEAD1+3, HEAD1+4, HEAD1+5
>> AMHDATE	AMHLRDSP+13, HEAD1+4, DISPRECS+1
>> AMHLOC	AMHLRDSP+13, HEAD1+4, DISPRECS+1
AMHP	AMHLRDSP+17!, DISPRECS+10*, DISPRECS+11
AMHPG	AMHLRDSP+12, AMHLRDSP+17!, HEAD+1, HEAD1+1
>> AMHPROGN	HEAD1+4
AMHQUIT	AMHLRDSP+12!, AMHLRDSP+17!, HEAD+2*, DISPRECS+1, DISPRECS+2
AMHRCNT	AMHLRDSP+12!, DISPRECS+1*, DISPRECS+3
AMHREC	AMHLRDSP+17!, DISPRECS+1*, DISPRECS+3, DISPRECS+4, DISPRECS+5, DISPRECS+6, DISPRECS+7
AMHV	AMHLRDSP+17!, DISPRECS+1*, DISPRECS+3, DISPRECS+10
AMHVRECS	AMHLRDSP+12!
AMHVRECS(	DISPRECS+1*
DIR	HEAD+2!
DIR(0	HEAD+2*
>> DTOUT	HEAD+2
DUZ(2	DISPRECS+7
IO	HEAD+2
IO(0	HEAD+2
IOF	AMHLRDSP+11, AMHLRDSP+14, HEAD1+2
IOSL	DISPRECS+2
IOST	HEAD+2
U	AMHLRDSP+13, HEAD1+4, DISPRECS+3, DISPRECS+4, DISPRECS+5, DISPRECS+6, DISPRECS+7, DISPRECS+11
>> Y	AMHLRDSP+13, HEAD+2, HEAD1+4