Routine: AMHLETN

Package	Total	Call Graph
VA Fileman	2	^DIK $$GET1^DIQ
IHS VA Utilities	1	EN^XBNEW

Package

Total

Call Graph

^DIK $$GET1^DIQ

EN^XBNEW

Package	Total	Caller Graph
Mental Health Social Services	3	AMHBPL1 AMHBPL2 AMHGSBPL

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
DISP	;EP - display current Treatment plans for this problem
GETNUM(AMHPROBN)	;EP - get next TP NUMBER
PRTTXT	; GENERALIZED TEXT PRINTER
GETFRAG
EN1	;EP - called from xbnew
DEL	;EP - called from template to delete all TP's for a PROBLEM
PRTTXT2

Name	Line Occurrences
Function Call: WRITE	Prompt: ?AMHLETP("ICL") Line Location: PRTTXT2+0
Function Call: WRITE	Prompt: AMHLETP("F"),! Line Location: PRTTXT2+0
Function Call: WRITE	Prompt: !!,"Problem #",+$P(AMHLETP("PROB REC"),U,7),?17,"Problem Diagnosis: ",$P(^AMHPROB($P(AMHLETP("PROB REC"),U),0),U),?45,"Patient: ",$E($P(^DPT($P(AMHLETP("PROB REC"),U,2),0),U),1,25) Line Location: DISP+5
Function Call: WRITE	Prompt: !,"Provider Narrative: " Line Location: DISP+6
Function Call: WRITE	Prompt: !,"TREATMENT NOTES:",! Line Location: DISP+7
Function Call: WRITE	Prompt: !!,"No Treatment Plans recorded for this problem.",! Line Location: DISP+8

FileNo	Call Tags
^AMHPPROB - [#9002011.51]	GET1^DIQ
^AMHPTP - [#9002011.53]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AMHPPROB - [#9002011.51]	DISP+4
^AMHPROB - [#9002012.2]	DISP+5
^AMHPTP - [#9002011.53]	DISP+13
^AMHPTP("AD"	EN1+1
^AMHPTP("AE"	GETNUM+2, DISP+7, DISP+10, DISP+11
^DPT - [#2]	DISP+5
^VA(200 - [#200]	DISP+16

Name	Field # of Occurrence
%	GETNUM+1~, GETNUM+2, DISP+9~, DISP+10, DISP+11
AMHLETP	GETNUM+1~, DISP+20!
AMHLETP("AUTH"	DISP+16*, DISP+17
AMHLETP("C"	PRTTXT+3!, GETFRAG+1*, GETFRAG+2
AMHLETP("DLT"	PRTTXT+1, PRTTXT+3!, PRTTXT2
AMHLETP("DON"	DISP+14*, DISP+17
AMHLETP("F"	PRTTXT+3!, PRTTXT2, GETFRAG, GETFRAG+2
AMHLETP("ICL"	PRTTXT+1, PRTTXT2, DISP+6, DISP+18*
AMHLETP("ILN"	PRTTXT+1, PRTTXT+3!, PRTTXT2, GETFRAG, GETFRAG+1
AMHLETP("NRQ"	PRTTXT+2, DISP+6, DISP+18*
AMHLETP("NUM"	GETNUM+3*, GETNUM+4
AMHLETP("PROB	IEN" , DISP+3, DISP+4, DISP+6, DISP+7, DISP+10, DISP+11, REC" , DISP+4*, DISP+5
AMHLETP("PT"	DISP+15*, DISP+17
AMHLETP("Q"	PRTTXT+2*
AMHLETP("TN"	DISP+13*, DISP+14, DISP+15, DISP+16, DISP+17, DISP+18
AMHLETP("TP I	EN" , DISP+11*, DISP+12, DISP+13
AMHLETP("TXT"	PRTTXT+2, PRTTXT+3!, GETFRAG, GETFRAG+1, GETFRAG+2, DISP+6, DISP+18*
>> AMHPDFN	EN1+1
AMHPROBN	GETNUM~, GETNUM+2
AMHTDOO	PRTTXT+3!
AMHX	EN1+1*, EN1+2!
>> DA	EN1+1*
>> DIK	EN1+1*
U	DISP+5, DISP+14, DISP+15, DISP+16, DISP+18
X	GETNUM+1~, GETNUM+2*, GETNUM+3
Y	GETNUM+1~, DISP+20!

Information