Routine: AMHLEI3

Package	Total	Call Graph
IHS VA Utilities	3	^XBDBQUE $$VAL^XBDIQ1 VIEWR^XBLM
Mental Health Social Services	2	BACK^AMHLEI WP^AMHLETP4
Kernel	1	($$FMTE,$$NOW)^XLFDT
Registration	1	FULL^VALM1
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
PRINT1	;EP - called from xbdbque
HEAD	;ENTRY POINT
PAUSE	;EP
HEAD1	;EP
BROWSE	;
EN1	;EP - called from protocol
XIT	;
PRINT	;EP

External References

Name	Field # of Occurrence
BACK^AMHLEI	PRINT+5, PRINT+6, PRINT+8, EN1+7
WP^AMHLETP4	PRINT1+11, PRINT1+15
^DIR	PRINT+4, PAUSE+1, HEAD+3
FULL^VALM1	PRINT+2
^XBDBQUE	EN1+6
$$VAL^XBDIQ1	PRINT1+5, PRINT1+6, PRINT1+7, PRINT1+8
VIEWR^XBLM	BROWSE+1
$$FMTE^XLFDT	HEAD1+5, HEAD1+7
$$NOW^XLFDT	HEAD1+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"ERROR - Patient not defined!" Line Location: PRINT+1
Function Call: WRITE	Prompt: ! Line Location: PRINT+4
Function Call: WRITE	Prompt: !!,"No INTAKE Document on file for ",$P(^DPT(DFN,0),U) Line Location: PRINT1+2
Function Call: WRITE	Prompt: !!?2,"Initial Intake: ",?27,$$VAL^XBDIQ1(9002011.07,DFN,.07) Line Location: PRINT1+5
Function Call: WRITE	Prompt: !?2," Provider: ",?27,$$VAL^XBDIQ1(9002011.07,DFN,.08) Line Location: PRINT1+6
Function Call: WRITE	Prompt: !!?2," Last Update: ",?27,$$VAL^XBDIQ1(9002011.07,DFN,.02) Line Location: PRINT1+7
Function Call: WRITE	Prompt: !?2," Provider: ",?27,$$VAL^XBDIQ1(9002011.07,DFN,.02) Line Location: PRINT1+8
Function Call: WRITE	Prompt: ?5,AMHPRNM(X),! Line Location: PRINT1+12
Function Call: WRITE	Prompt: !!?2,"Intake Documentation/Narrative:",! Line Location: PRINT1+14
Function Call: WRITE	Prompt: ?5,AMHPRNM(X),! Line Location: PRINT1+16
Function Call: WRITE	Prompt: ! Line Location: PRINT1+19
Function Call: WRITE	Prompt: !,"________________________________________",?52,"__________________" Line Location: PRINT1+20
Function Call: WRITE	Prompt: !?60,"DATE" Line Location: PRINT1+21
Function Call: WRITE	Prompt: !!!,"________________________________________",?52,"__________________" Line Location: PRINT1+22
Function Call: WRITE	Prompt: !?60,"DATE" Line Location: PRINT1+23
Function Call: WRITE	Prompt: ! Line Location: HEAD+3
Function Call: WRITE	Prompt: !?13,"******** CONFIDENTIAL PATIENT INFORMATION ********" Line Location: HEAD1+2
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","*") Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,"",?79,"" Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,"* INTAKE DOCUMENT",?45,"Printed: ",$$FMTE^XLFDT($$NOW^XLFDT),?79,"*" Line Location: HEAD1+5
Function Call: WRITE	Prompt: !,"* Name: ",$P(^DPT(DFN,0),U),?68,"Page ",AMHPG,?79,"*" Line Location: HEAD1+6
Function Call: WRITE	Prompt: !,"* ",$E($P(^DIC(4,DUZ(2),0),U),1,25),?30,"DOB: ",$$FMTE^XLFDT($P(^DPT(DFN,0),U,3),"2D"),?46,"Sex: ",$P(^DPT(DFN,0),U,2),?54," Chart #: ",$P(^AUTTLOC(DUZ(2),0),U,7),$P($G(^AUPNPAT(DFN,41,DUZ(2),0)),U,2),?79,"*" Line Location: HEAD1+7
Function Call: WRITE	Prompt: !,"",?79,"" Line Location: HEAD1+8
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","*"),! Line Location: HEAD1+9
Routine Call	DIR Line Location: PRINT+4 PAUSE+1 HEAD+3

Name	Line Occurrences (* Changed, ! Killed)
^AMHPINTK - [#9002011.07]	PRINT1+2, PRINT1+9
^AUPNPAT - [#9000001]	HEAD1+7
^AUTTLOC - [#9999999.06]	HEAD1+7
^DIC(4 - [#4]	HEAD1+7
^DPT - [#2]	EN1+3, PRINT1+2, HEAD1+6, HEAD1+7

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMHBROW	BROWSE+1*!, PRINT1+17, HEAD+3
>> AMHDA	PRINT1+11, PRINT1+15
AMHFILE	PRINT1+11, PRINT1+15, PRINT1+24!
AMHNODE	PRINT1+11, PRINT1+15, PRINT1+24!
>> AMHPAT	PRINT+1
AMHPCNT	PRINT1+11!, PRINT1+15!, PRINT1+24!
AMHPG	PRINT1+3, PRINT1+24!, HEAD+1, HEAD1+1, HEAD1+6
AMHPRNM	PRINT1+11!, PRINT1+12, PRINT1+15!, PRINT1+16, PRINT1+24!
AMHPRNM(	PRINT1+12, PRINT1+16
AMHQUIT	PRINT1+3, PRINT1+9, PRINT1+12, PRINT1+13, PRINT1+16, PRINT1+18, PRINT1+24!, HEAD+3
DA	PRINT+4!
>> DFN	EN1+2, EN1+3, PRINT1+1, PRINT1+2, PRINT1+5, PRINT1+6, PRINT1+7, PRINT1+8, PRINT1+9, PRINT1+11 , PRINT1+15, HEAD1+6, HEAD1+7
DIR	PRINT+4!, PAUSE+1!, HEAD+3!
DIR("A"	PRINT+4, PAUSE+1
DIR("B"	PRINT+4*
DIR(0	PRINT+4, PAUSE+1, HEAD+3*
>> DIRUT	PRINT+5, PAUSE+1*
>> DTOUT	HEAD+3
>> DUOUT	PAUSE+1
DUZ(2	HEAD1+7
>> I	PRINT1+19*
IO	HEAD+3
IO(0	HEAD+3
IOF	HEAD1+1
IOSL	PRINT1+12, PRINT1+16, PRINT1+18, PRINT1+19
IOST	HEAD+3
U	PRINT1+2, HEAD1+6, HEAD1+7
X	PRINT1+12, PRINT1+16, PRINT1+19*, HEAD+2~
>> XBNS	EN1+5*
>> XBRC	EN1+5*
>> XBRP	EN1+5*
>> XBRX	EN1+5*
>> Y	PRINT+6, HEAD+3

Customize PDF page

Package: Mental Health Social Services

Routine: AMHLEI3

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
BROWSE	PRINT+6
EN1	PRINT+7
HEAD	PRINT1+2, PRINT1+4, PRINT1+12, PRINT1+16, PRINT1+18
HEAD1	HEAD+1
PAUSE	PRINT+5