Routine: AMHLETP1

Package	Total	Call Graph
Mental Health Social Services	6	^AMHDPP CALLDIE^AMHLEIN (GATHER,HDR)^AMHLETP EP^AMHLETPS EN1^AMHLETPU ($$DSMCS,$$DSMVDT)^AMHUTIL1
VA Fileman	5	EN^DDIOL FILE^DICN ^DIE ^DIK ^DIR
IHS VA Utilities	2	$$VAL^XBDIQ1 VIEWR^XBLM
Kernel	2	$$FMTE^XLFDT $$REPEAT^XLFSTR
Registration	2	TERM^VALM0 ($$FTIME,FULL)^VALM1

Package	Total	Caller Graph
Mental Health Social Services	1	AMHLETPS

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;EP
HS	;EP - Display Patient Profile
REV	;EP
DC	;
EDITR	;EP
DEL	;
BROWSE	;
SCD	;
SHARE	;EP
PB	;print or browse
FM12	;
FM13	;
PAUSE	;EP
REVCH	;
HEADER	;
ADD	;EP
FMD	;
FME	;
FMA	;
EDITTP	;
EDIT	;
NRD	;
PART	;
EXIT	;
SC	;
DELETE	;EP

External References

Name	Field # of Occurrence
^AMHDPP	HS+3
CALLDIE^AMHLEIN	EDITTP+4, EDITTP+10, NRD+1, NRD+3, SC+1, SCD+1, SCD+3, DC+2, DC+4, REV+14
GATHER^AMHLETP	EXIT+3
HDR^AMHLETP	EXIT+5
EP^AMHLETPS	SHARE+1
EN1^AMHLETPU	PB+4
$$DSMCS^AMHUTIL1	EDITTP+3
$$DSMVDT^AMHUTIL1	EDITTP+2
EN^DDIOL	PART+3, FM12+1, FME+1, FMD+1
FILE^DICN	ADD+10
^DIE	FME+7, FMD+6, FMA+15
^DIK	DEL+4, DEL+5
^DIR	ADD+7, FM12+4, FME+3, FMD+3, FMA+3, FMA+7, EDITR+1, DISP+1, REVCH+2, REVCH+15 , PB+1, REV+1, DELETE+3, DEL+1, PAUSE+1
TERM^VALM0	EXIT+1
$$FTIME^VALM1	HEADER+2
FULL^VALM1	ADD+1, EDITR+7, DISP+7, REV+7, DELETE+9
$$VAL^XBDIQ1	HEADER+2
VIEWR^XBLM	BROWSE+1
$$FMTE^XLFDT	REVCH+11
$$REPEAT^XLFSTR	PART+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO Patient selected!",! Line Location: HS+2
Function Call: WRITE	Prompt: !!,"Patient not entered." Line Location: ADD+2
Function Call: WRITE	Prompt: !,"Creating new Treatment Plan..." Line Location: ADD+5
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Behavioral Health Treatment Plan is NOT complete!! Deleting Record.",! Line Location: ADD+11
Function Call: WRITE	Prompt: !!?3,"Participants in the development of this plan:" Line Location: PART+1
Function Call: WRITE	Prompt: " None recorded" Line Location: PART+2
Function Call: WRITE	Prompt: !!,"Treatment Plan is NOT COMPLETE!! Deleting Plan...",! Line Location: EDITTP+14
Function Call: WRITE	Prompt: ! Line Location: NRD+1
Function Call: WRITE	Prompt: !!,"Next Review Date cannot be earlier than the date established." Line Location: NRD+3
Function Call: WRITE	Prompt: ! Line Location: SC+1
Function Call: WRITE	Prompt: !!,"Date Concurred cannot be earlier than the date established." Line Location: SCD+3
Function Call: WRITE	Prompt: ! Line Location: DC+2
Function Call: WRITE	Prompt: !!,"Date Completed/Closed cannot be earlier than the date established." Line Location: DC+4
Function Call: WRITE	Prompt: !,"No treatment plan selected." Line Location: EDITR+2
Function Call: WRITE	Prompt: !,"No treatment plan selected." Line Location: EDITR+3
Function Call: WRITE	Prompt: !,"Not a valid TREATMENT PLAN." Line Location: EDITR+6
Function Call: WRITE	Prompt: !,"No treatment plan selected." Line Location: DISP+2
Function Call: WRITE	Prompt: !,"No treatment plan selected." Line Location: DISP+3
Function Call: WRITE	Prompt: !,"Not a valid TREATMENT PLAN." Line Location: DISP+6
Function Call: WRITE	Prompt: !!,"There are no reviews on file to print." Line Location: REVCH+7
Function Call: WRITE	Prompt: !?4,AMHC,") ALL Reviews" Line Location: REVCH+13
Function Call: WRITE	Prompt: ! Line Location: PB+1
Function Call: WRITE	Prompt: !,"No treatment plan selected." Line Location: REV+2
Function Call: WRITE	Prompt: !,"No treatment plan selected." Line Location: REV+3
Function Call: WRITE	Prompt: !,"Not a valid TREATMENT PLAN." Line Location: REV+6
Function Call: WRITE	Prompt: !!,"You do not have the security access to delete a Treatment Plan.",!,"Please see your supervisor or program manager.",! Line Location: DELETE+2
Function Call: WRITE	Prompt: !,"No treatment plan selected." Line Location: DELETE+4
Function Call: WRITE	Prompt: !,"No treatment plan selected." Line Location: DELETE+5
Function Call: WRITE	Prompt: !,"Not a valid TREATMENT PLAN." Line Location: DELETE+8
Function Call: WRITE	Prompt: !! Line Location: DEL+1
Function Call: WRITE	Prompt: !,"Deleting Treatment Plan..." Line Location: DEL+5
Function Call: WRITE	Prompt: !!,"Treatment Plan for ",$P(^DPT(DFN,0),U)," DELETED." Line Location: DEL+6
Function Call: WRITE	Prompt: !,$TR($J(" ",80)," ","-"),!,"Patient Name: ",$P(^DPT(DFN,0),U)," DOB: ",$$FTIME^VALM1($P(^DPT(DFN,0),U,3))," Sex: ",$$VAL^XBDIQ1(2,DFN,.02),!,$TR($J(" ",80)," ","-") Line Location: HEADER+2
Routine Call	DIE Line Location: FME+7 FMD+6 FMA+15
Routine Call	DIR Line Location: ADD+7 FM12+4 FME+3 FMD+3 FMA+3 FMA+7 EDITR+1 DISP+1 REVCH+2 REVCH+15 PB+1 REV+1 DELETE+3 DEL+1 PAUSE+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AMHPTXP - [#9002011.56]	Classic Fileman Calls
^AMHPTPP - [#9002011.62]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPTXP - [#9002011.56]	ADD+11, ADD+15, PART+2, PART+4, PART+6, EDITTP+1, NRD+2, NRD+3, SC+2, SCD+2 , SCD+3, DC+3, DC+4, EDITR+6, EDIT+3, DISP+6, REVCH+7, REVCH+9, REVCH+11, REV+6 , REV+8, DELETE+8
^DPT - [#2]	DEL+6, HEADER+2
^XUSEC("AMHZ DELETE RECORD"	DELETE+2

Label References

Name	Line Occurrences
@(	FM12+8
BROWSE	PB+3
DC	SC+2, DC+4
DEL	ADD+11
EDITTP	ADD+14, EDIT+2
EXIT	HS+5, ADD+16, SHARE+2, EDITR+2, EDITR+3, EDITR+4, EDITR+5, EDITR+6, EDIT+4, DISP+2 , DISP+3, DISP+4, DISP+5, DISP+6, REVCH+3, PB+2, PB+3, PB+5, REV+2, REV+3 , REV+4, REV+5, REV+6, REV+15, DELETE+2, DELETE+4, DELETE+5, DELETE+6, DELETE+7, DELETE+8 , DEL+7
FM12	PART+2
FM13	FM12+5, FM12+6
HEADER	ADD+4
NRD	NRD+3
PART	FM12+9, DC+1
PAUSE	HS+2, HS+4, EDITR+4, EDITR+5, EDITR+6, DISP+4, DISP+5, DISP+6, REVCH+3, REVCH+7 , PB+2, REV+4, REV+5, REV+6, REV+9, DELETE+2, DELETE+6, DELETE+7, DELETE+8, DEL+6
PB	REVCH+5, REVCH+17
REVCH	REVCH+7, REVCH+16
SCD	SCD+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	REVCH+19*
AMHBROW	BROWSE+1*!
AMHC	PART+2, PART+4, PART+5, PART+6, FM12+3, FME+3, FMD+3, REVCH+9, REVCH+10, REVCH+11 , REVCH+13, REVCH+15, REVCH+17, REVCH+18, EXIT+6!
AMHCM	PART+4!
AMHCM(	PART+5*, FME+6, FMD+5
AMHCS	EDITTP+3*, EXIT+7!
AMHDA	EXIT+6!
>> AMHDONE	FM12+6*
AMHDSMVD	EDITTP+2*, EXIT+7!
AMHFILE	EXIT+6!
AMHG	EXIT+6!
AMHGIEN	EXIT+6!
AMHINADD	ADD+13*, EXIT+7!
AMHLEC	EXIT+6!
AMHLETP	EXIT+6!
AMHLETXT	EXIT+6!
>> AMHLINE	EXIT+4
AMHMETH0	EXIT+6!
AMHNODE	EXIT+6!
>> AMHPAT	HS+1*, HS+2
AMHPCNT	EXIT+6!
>> AMHPREV	REVCH+1, REVCH+4, REVCH+5, REVCH+7
AMHPRNM	EXIT+6!
>> AMHPTN	FMA+2, FMA+6, FMA+13
>> AMHPTP("IDX"	EDITR+4, EDITR+5, DISP+4, DISP+5, REV+4, REV+5, DELETE+6, DELETE+7
>> AMHPTREL	FMA+2, FMA+10, FMA+14
AMHQUIT	ADD+3*, ADD+8!, EXIT+6!
>> AMHRCNT	EDITR+1, DISP+1, REV+1, DELETE+3
AMHREVP	REVCH+6!
AMHREVP(	REVCH+18, REVCH+19
AMHREVS	REVCH+6!, REVCH+17!, REVCH+20!
AMHREVS(	REVCH+10*, REVCH+18, REVCH+19
AMHRMETH	EXIT+6!
AMHTP	ADD+11, ADD+12, ADD+15, PART+2, PART+4, PART+6, FME+7, FMD+6, FMA+12, EDITTP+1 , EDITTP+4, EDITTP+10, NRD+1, NRD+2, NRD+3, SC+1, SC+2, SCD+1, SCD+2, SCD+3 , DC+2, DC+3, DC+4, EDITR+3!, EDITR+4!, EDITR+5!, EDITR+6!, EDIT+3, DISP+3!, DISP+4! , DISP+5!, DISP+6!, REVCH+7, REVCH+9, REVCH+11, REV+3!, REV+4!, REV+5!, REV+6!, REV+8 , REV+14, DELETE+5!, DELETE+6!, DELETE+7*!, DELETE+8!, DEL+4, DEL+5, EXIT+6!
AMHTPDEL	EDITR+4!, EDITR+6!, DISP+4!, DISP+6!, REV+4!, REV+6!, DELETE+6!, DELETE+8!
>> AMHTPN	EDITR+3, EDITR+4, EDITR+5, DISP+3, DISP+4, DISP+5, REV+3, REV+4, REV+5, DELETE+5 , DELETE+6, DELETE+7
AMHTXDT	EXIT+7!
AMHTXPF	EDITTP+1, EDITTP+4, EDITTP+5, REV+8, REV+9, EXIT+7!
AMHX	EXIT+6!
>> C	REVCH+19*
D	EXIT+8!
D0	ADD+10!, EXIT+8!
DA	ADD+7!, ADD+10!, FM12+4!, FME+3!, FME+5!, FME+6, FME+7!, FMD+3!, FMD+5, FMD+6! , FMD+7!, FMA+3!, FMA+7!, FMA+12, FMA+16!, EDITTP+4, EDITTP+10, NRD+1, NRD+3, SC+1 , SCD+1, SCD+3, DC+2, DC+4, REVCH+2!, REVCH+15!, PB+1!, REV+14, DEL+4, DEL+5*! , EXIT+8!
DA(1	FME+7, FMD+6
DD	ADD+10!, EXIT+8!
>> DFN	HS+1, ADD+2, ADD+10, ADD+15, EDIT+3, DEL+6, HEADER+2
DIADD	ADD+10*!, EXIT+8!
DIC	ADD+10!*, FME+5!, FMD+7!, EXIT+8!
DIC("DR"	ADD+10*
DIC(0	ADD+10*
DICR	EXIT+8!
DIE	ADD+10!, FME+7!, FMD+6!, FMA+11, FMA+16!, EDITTP+4, EDITTP+10, NRD+1, NRD+3, SC+1 , SCD+1, SCD+3, DC+2, DC+4, REV+14*, EXIT+8!
DIE("NO^"	EDITTP+4, EDITTP+10
DIG	EXIT+8!
DIH	EXIT+8!
DIK	DEL+4, DEL+5!, EXIT+8!
DINUM	ADD+10!, EXIT+8!
DIR	ADD+6!, ADD+7!, ADD+8!, FM12+2!, FM12+4!, FME+2!, FME+3!, FMD+2!, FMD+3!, FMA+3! , FMA+7!, EDITR+1!, DISP+1!, REVCH+2!, REVCH+14!, REVCH+15!, PB+1!, REV+1!, DELETE+3!, DEL+1! , PAUSE+1!, EXIT+8!
DIR("A"	ADD+7, FM12+4, FME+3, FMD+3, FMA+3, FMA+7, EDITR+1, DISP+1, REVCH+2, REVCH+15 , PB+1, REV+1, DELETE+3, DEL+1, PAUSE+1*
DIR("B"	FM12+4, REVCH+2, REVCH+15, PB+1, DEL+1*
DIR(0	ADD+7, FM12+3, FME+3, FMD+3, FMA+3, FMA+7, EDITR+1, DISP+1, REVCH+2, REVCH+15 , PB+1, REV+1, DELETE+3, DEL+1, PAUSE+1*
DIRUT	ADD+8, FM12+5, FME+4, FMD+4, FMA+5, FMA+9, EDITR+1, EDITR+2, DISP+1, DISP+2 , REVCH+3, REVCH+16, PB+2, REV+1, REV+2, DELETE+3, DELETE+4, DEL+1, DEL+2, PAUSE+1 , EXIT+8!
DIU	EXIT+8!
DIV	EXIT+8!
DIW	EXIT+8!
DIWF	EXIT+8!
DIWL	EXIT+8!
DIWR	EXIT+8!
DIY	EXIT+8!
DLAYGO	ADD+10*!, EXIT+8!
DO	ADD+10!, EXIT+8!
DQ	EXIT+8!
DR	ADD+10!, FME+5!, FME+7!, FMD+6!, FMD+7!, FMA+13, FMA+16!, EDITTP+4, EDITTP+10, NRD+1 , NRD+3, SC+1, SCD+1, SCD+3, DC+2, DC+4, REV+14*, EXIT+8!
DR(2	FMA+14*
DT	EDITTP+3
DTOUT	EXIT+8!
DUOUT	EDITR+1, DISP+1, REV+1, DELETE+3, DEL+1, PAUSE+1, EXIT+8!
DUZ	DELETE+2
DUZ(2	EDITTP+2, EDITTP+3
I	REVCH+18, REVCH+19, EXIT+9!
IOF	EDIT+1, DISP+8, REV+13, HEADER+1
>> J	REVCH+19*
U	ADD+11, ADD+15, PART+6, EDITTP+1, NRD+2, NRD+3, SC+2, SCD+2, SCD+3, DC+3 , DC+4, EDIT+3, REVCH+11, REV+8, DEL+6, HEADER+2
>> VALMBCK	EXIT+2*
>> VALMCNT	EXIT+4*
VALMY	EDITR+3!, DISP+3!, REV+3!, DELETE+5!
X	ADD+9, ADD+10!, PART+4, PART+5, PART+6, FMA+4, FMA+8, NRD+2, NRD+3, SCD+2 , SCD+3, DC+3, DC+4, REVCH+9, REVCH+10, REVCH+11, EXIT+9!
XQORNOD	EDITR+3!, DISP+3!, REV+3!, DELETE+5!
Y	ADD+9, ADD+11, ADD+12, FM12+6, FM12+7*, FM12+8, FM13+1!, FME+6, FMD+5, FMA+6 , FMA+10, EDITR+3, DISP+3, REVCH+4, REVCH+17, REVCH+19, PB+3, REV+3, DELETE+5, DEL+3 , EXIT+9!
Z	EXIT+9!

Customize PDF page

Package: Mental Health Social Services

Routine: AMHLETP1

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: