Routine: AMHLETPP

Package	Total	Call Graph
Mental Health Social Services	3	GETTXT^AMHLETP (,REV)^AMHLETP3 WP^AMHLETP4
Kernel	1	($$FMTE,$$NOW)^XLFDT
VA Fileman	1	^DIR

Package	Total	Caller Graph
Mental Health Social Services	1	AMHLETP3

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	;ENTRY POINT
HEAD1	;EP
I	;
TPP	;
GATHER	;gather up and display all problems/goals/met
IV	;
II	;
DX	;
V	;
PRINT	;EP - called from xbdbque
NR	;
III	;
PL	;

External References

Name	Field # of Occurrence
GETTXT^AMHLETP	IV+5, V+3
^AMHLETP3	TPP+7
REV^AMHLETP3	PRINT+7
WP^AMHLETP4	NR+12, I+3, II+3, III+3, TPP+4
^DIR	HEAD+3
$$FMTE^XLFDT	PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+17, NR+1, HEAD1+7, HEAD1+9
$$NOW^XLFDT	HEAD1+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Date Established: ",?30,$$FMTE^XLFDT($P(^AMHPTXP(AMHTP,0),U)) Line Location: PRINT+10
Function Call: WRITE	Prompt: !,"Admit Date: ",?30,$$FMTE^XLFDT($P(^AMHPTXP(AMHTP,0),U,16)) Line Location: PRINT+11
Function Call: WRITE	Prompt: !,"Anticipated Completion Date: ",?30,$$FMTE^XLFDT($P(^AMHPTXP(AMHTP,0),U,3)) Line Location: PRINT+12
Function Call: WRITE	Prompt: !,"Date Closed: ",?30,$$FMTE^XLFDT($P(^AMHPTXP(AMHTP,0),U,12)) Line Location: PRINT+13
Function Call: WRITE	Prompt: !,"Provider: ",?30,$S($P(^AMHPTXP(AMHTP,0),U,4):$E($P(^VA(200,$P(^AMHPTXP(AMHTP,0),U,4),0),U),1,25),1:"<not recorded>") Line Location: PRINT+15
Function Call: WRITE	Prompt: !,"Supervisor: ",?30,$S($P(^AMHPTXP(AMHTP,0),U,5):$E($P(^VA(200,$P(^AMHPTXP(AMHTP,0),U,5),0),U),1,25),1:"<not recorded>") Line Location: PRINT+16
Function Call: WRITE	Prompt: !?3," Date Concurred: ",?30,$$FMTE^XLFDT($P(^AMHPTXP(AMHTP,0),U,6)) Line Location: PRINT+17
Function Call: WRITE	Prompt: !,"Review Date: ",?30,$$FMTE^XLFDT($P(^AMHPTXP(AMHTP,0),U,9)) Line Location: NR+1
Function Call: WRITE	Prompt: !!,"DIAGNOSIS",! Line Location: NR+9
Function Call: WRITE	Prompt: $TR(AMHPRNM(X),$C(10)),! Line Location: NR+13
Function Call: WRITE	Prompt: !,"AXIS I",! Line Location: I+2
Function Call: WRITE	Prompt: $TR(AMHPRNM(X),$C(10)),! Line Location: I+4
Function Call: WRITE	Prompt: !,"AXIS II",! Line Location: II+2
Function Call: WRITE	Prompt: $TR(AMHPRNM(X),$C(10)),! Line Location: II+4
Function Call: WRITE	Prompt: !,"AXIS III",! Line Location: III+2
Function Call: WRITE	Prompt: $TR(AMHPRNM(X),$C(10)),! Line Location: III+4
Function Call: WRITE	Prompt: !,"AXIS IV " Line Location: IV+2
Function Call: WRITE	Prompt: ?12,$TR(AMHLETXT(X),$C(10)),! Line Location: IV+6
Function Call: WRITE	Prompt: ?12,$P(^AMHTAXIV($P(^AMHPTXP(AMHTP,9,AMHX,0),U),0),U,1)_" "_$P(^AMHTAXIV($P(^AMHPTXP(AMHTP,9,AMHX,0),U),0),U,2),! Line Location: IV+8
Function Call: WRITE	Prompt: ?12,$TR(AMHLETXT(X),$C(10)),! Line Location: V+4
Function Call: WRITE	Prompt: !!!,"PROBLEM LIST" Line Location: PL+2
Function Call: WRITE	Prompt: !,$G(^AMHPTXP(AMHTP,11)),! Line Location: TPP+2
Function Call: WRITE	Prompt: !!,"TREATMENT PLAN (Problems/Goals/Objectives/Methods)",! Line Location: TPP+3
Function Call: WRITE	Prompt: $TR(AMHPRNM(X),$C(10)),! Line Location: TPP+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: !,"* TREATMENT PLAN",?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: HEAD+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPTXP - [#9002011.56]	PRINT+2, PRINT+3, PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+15, PRINT+16, PRINT+17, NR+1 , NR+2, NR+4, NR+6, NR+11, I+1, II+1, III+1, IV+1, IV+3, IV+4 , IV+7, IV+8, V+1, V+2, TPP+2
^AMHTAXIV - [#9002012.9]	IV+8
^AUPNPAT - [#9000001]	HEAD1+9
^AUTTLOC - [#9999999.06]	HEAD1+9
^DIC(4 - [#4]	HEAD1+9
^DPT - [#2]	HEAD1+8, HEAD1+9
^VA(200 - [#200]	PRINT+15, PRINT+16

Label References

Name	Line Occurrences
GATHER	V+1
HEAD	PRINT+8, PRINT+14, NR+5, NR+13, I+4, II+4, III+4, IV+6, IV+7, V+4 , PL+1, TPP+1, TPP+5
HEAD1	HEAD+1
I	NR+11
II	I+1
III	II+1
IV	III+1
V	IV+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AMHBROW	HEAD+3
>> AMHDA	NR+12, I+3, II+3, III+3, TPP+4*
>> AMHFILE	NR+12, I+3, II+3, III+3, TPP+4*
>> AMHGUI	PRINT+5, HEAD1+3
>> AMHIOSL	PRINT+5*, PRINT+14, NR+5, NR+13, I+4, II+4, III+4, IV+6, IV+7, V+4 , PL+1, TPP+1, TPP+5
>> AMHLEC	IV+4, V+2
>> AMHLETP("ICL"	IV+4, V+2
>> AMHLETP("LGTH"	IV+4, V+2
>> AMHLETP("NRQ"	IV+4, V+2
>> AMHLETP("TXT"	IV+4, V+2
AMHLETXT	IV+4!, V+2!
AMHLETXT(	IV+6, V+4
>> AMHNODE	NR+12, I+3, II+3, III+3, TPP+4*
AMHPCNT	NR+12!, I+3!, II+3!, III+3!, TPP+4!*
>> AMHPG	PRINT+4, HEAD+1, HEAD1+1, HEAD1+2, HEAD1+8
>> AMHPREV	PRINT+7
AMHPRNM	NR+12!, NR+13, I+3!, I+4, II+3!, II+4, III+3!, III+4, TPP+4!, TPP+5
AMHPRNM(	NR+13, I+4, II+4, III+4, TPP+5
>> AMHQUIT	PRINT+4, PRINT+14, NR+5, NR+7, NR+13, I+4, I+5, II+4, II+5, III+4 , III+5, IV+6, IV+7, IV+9, V+4, V+5, PL+1, TPP+1, TPP+5, TPP+6 , HEAD+3
>> AMHTP	PRINT+1, PRINT+2, PRINT+3, PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+15, PRINT+16, PRINT+17 , NR+1, NR+2, NR+4, NR+6, NR+11, NR+12, I+1, I+3, II+1, II+3 , III+1, III+3, IV+1, IV+3, IV+4, IV+7, IV+8, V+1, V+2, TPP+2 , TPP+4
>> AMHX	NR+4, NR+6, IV+7, IV+8
>> DFN	PRINT+3*, HEAD1+8, HEAD1+9
DIR	HEAD+3!
DIR(0	HEAD+3*
>> DTOUT	HEAD+3
DUZ(2	HEAD1+9
IO	HEAD+3
IO(0	HEAD+3
IOF	HEAD1+1
IOSL	PRINT+5
IOST	HEAD+3
U	PRINT+3, PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+15, PRINT+16, PRINT+17, NR+1, NR+6 , IV+8, V+1, V+2, HEAD1+8, HEAD1+9
X	NR+13, I+4, II+4, III+4, IV+6, V+4, TPP+5*, HEAD+2~
>> Y	HEAD+3

Customize PDF page

Package: Mental Health Social Services

Routine: AMHLETPP

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: