Routine: AMHLEIV3

Package	Total	Call Graph
IHS VA Utilities	3	^XBDBQUE ($$VAL,$$VALI)^XBDIQ1 (GUIR,VIEWR)^XBLM
Kernel	1	($$FMTE,$$NOW)^XLFDT
Mental Health Social Services	1	($$D,EXIT)^AMHLEIV
Registration	1	FULL^VALM1
VA Fileman	1	^DIR

Package	Total	Caller Graph
Mental Health Social Services	3	AMHGR AMHLEIV AMHLEIVP

Entry Points

Name	Comments	DBIA/ICR reference
PRINT1	;EP - called from xbdbque
HEAD	;ENTRY POINT
PAUSE	;EP
HEAD1	;EP
EN1	;EP - called from protocol
BROWSE	;
CTR(X,Y)	;EP - Center X in a field Y wide.
DEVICE	;print or browse
PRINT2	;
XIT	;
GUI(AMHDPT,DFN,AMHRINTI,AMHREVP,AMHARRAY)	;EP - gui call
PRINT	;EP
SIG

External References

Name	Field # of Occurrence
$$D^AMHLEIV	PRINT+20
EXIT^AMHLEIV	DEVICE+2, DEVICE+3, DEVICE+5, EN1+5
^DIR	PRINT+6, PRINT+23, DEVICE+1, PAUSE+1, HEAD+3
FULL^VALM1	PRINT+4
^XBDBQUE	EN1+4
$$VAL^XBDIQ1	PRINT+20, PRINT2+6, PRINT2+7, PRINT2+8, PRINT2+9
$$VALI^XBDIQ1	PRINT+20
GUIR^XBLM	GUI+5
VIEWR^XBLM	BROWSE+1
$$FMTE^XLFDT	SIG+3, HEAD1+7, HEAD1+9
$$NOW^XLFDT	HEAD1+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"ERROR - IEN OF INTAKE not defined!" Line Location: PRINT+2
Function Call: WRITE	Prompt: !!,"There are no updates on file to print." Line Location: PRINT+13
Function Call: WRITE	Prompt: !!,"There are no updates to print...printing intake only." Line Location: PRINT+14
Function Call: WRITE	Prompt: !?4,"0) ",?10,"Quit/Exit (or type '^')" Line Location: PRINT+16
Function Call: WRITE	Prompt: !?4,AMHC,") ",?10,"ALL Updates" Line Location: PRINT+21
Function Call: WRITE	Prompt: ! Line Location: DEVICE+1
Function Call: WRITE	Prompt: !!,"No INTAKE Document on file for ",$P(^DPT(DFN,0),U) Line Location: PRINT1+6
Function Call: WRITE	Prompt: !?2,"Date "_$S(AMHINTT="I":"Established",1:"Updated")_": ",?22,$$VAL^XBDIQ1(9002011.13,AMHRP,.01) Line Location: PRINT2+6
Function Call: WRITE	Prompt: !?2,"Provider: ",?22,$$VAL^XBDIQ1(9002011.13,AMHRP,.04) Line Location: PRINT2+7
Function Call: WRITE	Prompt: !?2,"Program:",?22,$$VAL^XBDIQ1(9002011.13,AMHRP,.05) Line Location: PRINT2+8
Function Call: WRITE	Prompt: !?2,"Type of Document:",?22,$$VAL^XBDIQ1(9002011.13,AMHRP,.09) Line Location: PRINT2+9
Function Call: WRITE	Prompt: !!?2,"Intake Documentation/Narrative:",! Line Location: PRINT2+10
Function Call: WRITE	Prompt: $TR(AMHPRNM(X),$C(10)),! Line Location: PRINT2+13
Function Call: WRITE	Prompt: ! Line Location: PRINT2+16
Function Call: WRITE	Prompt: !?29,$P(^AMHRINTK(AMHRP,0),U,16) Line Location: SIG+2
Function Call: WRITE	Prompt: !!!,"________________________________________",?52,"__________________" Line Location: SIG+4
Function Call: WRITE	Prompt: !?60,"DATE" Line Location: SIG+5
Function Call: WRITE	Prompt: ! Line Location: HEAD+3
Function Call: WRITE	Prompt: !?13,"******** CONFIDENTIAL PATIENT INFORMATION ********" Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","*") Line Location: HEAD1+5
Function Call: WRITE	Prompt: !,"",?79,"" Line Location: HEAD1+6
Function Call: WRITE	Prompt: !,"* INTAKE DOCUMENT "_$S(AMHINTT="U":"UPDATE",1:""),?45,"Printed: ",$$FMTE^XLFDT($$NOW^XLFDT),?79,"*" Line Location: HEAD1+7
Function Call: WRITE	Prompt: !,"* Name: ",$P(^DPT(DFN,0),U),?68,"Page ",AMHPG,?79,"*" Line Location: HEAD1+8
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+9
Function Call: WRITE	Prompt: !,"",?79,"" Line Location: HEAD1+10
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","*"),! Line Location: HEAD1+11
Routine Call	DIR Line Location: PRINT+6 PRINT+23 DEVICE+1 PAUSE+1 HEAD+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHRINTK - [#9002011.13]	PRINT+3, PRINT+19, PRINT1+4, PRINT1+5, PRINT2+3, PRINT2+5, PRINT2+12, PRINT2+17, SIG, SIG+1 , SIG+2, SIG+3
^AMHRINTK("AI"	PRINT+13, PRINT+14, PRINT+17
^AUPNPAT - [#9000001]	HEAD1+9
^AUTTLOC - [#9999999.06]	HEAD1+9
^DIC(4 - [#4]	HEAD1+9
^DPT - [#2]	HEAD1+8, HEAD1+9

Label References

Name	Line Occurrences
BROWSE	DEVICE+3
DEVICE	PRINT+10, PRINT+14, PRINT+26
EN1	DEVICE+4
HEAD	PRINT2+4, PRINT2+13, PRINT2+15
HEAD1	HEAD+1
PAUSE	PRINT+13, DEVICE+2
PRINT	PRINT+13, PRINT+24, PRINT+25
PRINT2	PRINT1+10
SIG	PRINT2+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	PRINT+28*
AMHAO	PRINT+1~, PRINT+11*
AMHARRAY	GUI~, GUI+5
AMHBROW	PRINT+1~, BROWSE+1*!, PRINT2+14, HEAD+3
>> AMHC	PRINT+17, PRINT+18, PRINT+20, PRINT+21*, PRINT+23, PRINT+26, PRINT+27
>> AMHDA	PRINT2+11*, PRINT2+12
AMHDPT	PRINT+1~, PRINT+5, PRINT+9, PRINT+10, PRINT+13, PRINT+14, GUI~, PRINT1+5
AMHFILE	PRINT1+7~
AMHGUI	GUI+3~, GUI+4*, PRINT1+2, HEAD1+3
AMHINTR	PRINT+1~, PRINT+19, PRINT2+1~, PRINT2+5
AMHINTT	PRINT2+1~, PRINT2+3*, PRINT2+6, HEAD1+7
>> AMHIOSL	PRINT1+2*, PRINT2+13, PRINT2+15, PRINT2+16
AMHNOD	PRINT1+7~
>> AMHNODE	PRINT2+11*, PRINT2+12
AMHPAT	PRINT+1~, PRINT+3*
AMHPCNT	PRINT1+7~, PRINT2+11!, PRINT2+12
AMHPG	PRINT1+7~, PRINT1+8, HEAD+1, HEAD1+1, HEAD1+2, HEAD1+8
AMHPRNM	PRINT1+7~, PRINT2+11!, PRINT2+13
AMHPRNM(	PRINT2+12*, PRINT2+13
AMHQUIT	PRINT1+7~, PRINT1+8, PRINT1+9, PRINT1+10, PRINT2+13, PRINT2+15, HEAD+3
AMHRD	PRINT1+7~, PRINT1+9*, PRINT1+10
AMHREVD	PRINT1+3!
AMHREVD(	PRINT1+4, PRINT1+5, PRINT1+9, PRINT1+10
AMHREVP	PRINT+12!, GUI~
AMHREVP(	PRINT+27, PRINT+28, PRINT1+4
AMHREVS	PRINT+12!, PRINT+26!, PRINT+29!
AMHREVS(	PRINT+18*, PRINT+27, PRINT+28
AMHRINTI	PRINT+2, PRINT+3, PRINT+13, PRINT+14, PRINT+17, GUI~, GUI+2, PRINT1+5
AMHRP	PRINT1+7~, PRINT1+10*, PRINT2+3, PRINT2+5, PRINT2+6, PRINT2+7, PRINT2+8, PRINT2+9, PRINT2+11, PRINT2+17 , SIG, SIG+1, SIG+2, SIG+3
AMHV	PRINT1+7~
AMHX	PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT1+7~, PRINT2+12
>> C	PRINT+28*
DA	PRINT+6!, PRINT+23!, DEVICE+1!
DFN	PRINT+1~, PRINT+3*, GUI~, GUI+1, HEAD1+8, HEAD1+9
DIR	PRINT+6!, PRINT+22!, PRINT+23!, DEVICE+1!, PAUSE+1!, HEAD+3!
DIR("A"	PRINT+6, PRINT+23, DEVICE+1, PAUSE+1
DIR("B"	PRINT+6, PRINT+23, DEVICE+1*
DIR(0	PRINT+6, PRINT+23, DEVICE+1, PAUSE+1, HEAD+3*
>> DIRUT	PRINT+7, PRINT+24, DEVICE+2, PAUSE+1*
>> DTOUT	HEAD+3
>> DUOUT	PAUSE+1
DUZ(2	HEAD1+9
I	PRINT+27, PRINT+28, PRINT2+1~, PRINT2+16*
IO	HEAD+3
IO(0	HEAD+3
IOF	HEAD1+1
IOM	CTR+1
IOSL	PRINT1+2
IOST	HEAD+3
>> J	PRINT+28*
U	PRINT+3, PRINT+19, PRINT1+4, PRINT1+5, PRINT2+3, PRINT2+5, PRINT2+17, SIG, SIG+1, SIG+2 , SIG+3, HEAD1+8, HEAD1+9
X	PRINT+1~, PRINT1+4, PRINT2+1~, PRINT2+13, PRINT2+16*, HEAD+2~, CTR~, CTR+1
>> XBNS	EN1+3*
>> XBRC	EN1+3*
>> XBRP	EN1+3*
>> XBRX	EN1+3*
Y	PRINT+1~, PRINT+8, PRINT+9, PRINT+25, PRINT+26, PRINT+28, DEVICE+3, PRINT2+1~, HEAD+3, CTR~ , CTR+1

Customize PDF page

Package: Mental Health Social Services

Routine: AMHLEIV3

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: