Routine: AMHRP11

Package	Total	Call Graph
VA Fileman	1	^DIR

Package

Total

Call Graph

^DIR

Package	Total	Caller Graph
Mental Health Social Services	1	AMHRP1

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
HEADER	;EP
HEADER1	;

Name	Field # of Occurrence
^DIR	HEADER+2

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !?13,"******** CONFIDENTIAL PATIENT INFORMATION ********" Line Location: HEADER1+2
Function Call: WRITE	Prompt: !?(AMHCW-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),?($S(AMHCW=132:120,1:72)),"Page ",AMHPG,! Line Location: HEADER1+3
Function Call: WRITE	Prompt: !?(AMHCW-$L(AMHTEXT)/2),AMHTEXT,! Line Location: HEADER1+5
Function Call: WRITE	Prompt: ?(AMHCW-$L(AMHTEXT)/2),AMHTEXT,! Line Location: HEADER1+7
Function Call: WRITE	Prompt: !?((AMHCW-AMHLENG)/2),AMHSORV,": ",AMHRSRT,! Line Location: HEADER1+8
Function Call: WRITE	Prompt: $TR($J(" ",AMHCW)," ","=") Line Location: HEADER1+9
Function Call: WRITE	Prompt: !," DATE",?10,"PROV",?15,"LOC",?20,"PATIENT NAME",?33,"ACT",?37,"CONT",?42,"AT",?46,"HRN",?57,"PROB",?66,"NARRATIVE" Line Location: HEADER1+10
Function Call: WRITE	Prompt: !,"DATE/TIME",?16,"PROVIDER",?34,"PD",?38,"PRG",?42,"LOC",?47,"PATIENT",?59,"ACT",?64,"AT",?68,"CONT",?75,"HRN",?84,"SEX",?89,"AGE",?93,"PROB",?102," NARRATIVE" Line Location: HEADER1+11
Function Call: WRITE	Prompt: !,$TR($J(" ",AMHCW)," ","-") Line Location: HEADER1+12
Routine Call	DIR Line Location: HEADER+2

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	HEADER1+3

Name	Line Occurrences
HEADER1	HEADER+1

Name	Field # of Occurrence
>> AMHBDD	HEADER1+6
>> AMHCW	HEADER1+3, HEADER1+5, HEADER1+7, HEADER1+8, HEADER1+9, HEADER1+12
>> AMHEDD	HEADER1+6
>> AMHLENG	HEADER1+8*
>> AMHPG	HEADER+1, HEADER1+1*, HEADER1+3
>> AMHQUIT	HEADER+2*
>> AMHRSRT	HEADER1+8
>> AMHRTYPE	HEADER1+10
>> AMHSORV	HEADER1+8
>> AMHSPAG	HEADER1+8
>> AMHSRTR	HEADER1+8
>> AMHTEXT	HEADER1+4, HEADER1+5, HEADER1+6, HEADER1+7
DIR	HEADER+2!
DIR(0	HEADER+2*
>> DTOUT	HEADER+2
DUZ(2	HEADER1+3
IO	HEADER+2
IO(0	HEADER+2
IOF	HEADER1+1
IOST	HEADER+2
U	HEADER1+3
>> Y	HEADER+2

Information