Routine: AMHLEPAT

Information

AMHLEPAT ; IHS/CMI/LAB - UPDATE PATIENT RELATED DATA ;

Source file <AMHLEPAT.m>

Package	Total	Call Graph
Mental Health Social Services	3	^AMHEKL OTHER^AMHLEA ^AMHLEIN
VA Fileman	3	^%DT ^DIC ^DIR
IHS Patient	1	KILL^AUPNPAT
Kernel	1	$$FMTE^XLFDT

Name	Comments	DBIA/ICR reference
GETLOC	; GET LOCATION OF ENCOUNTER
START	;
GETPAT	;
GETPROV	;get provider/author for notes
GETDATE	; GET DATE OF ENCOUNTER

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GETPAT+1
Function Call: WRITE	Prompt: !!?10,"***** PATIENT'S DATE OF DEATH IS ",$$FMTE^XLFDT(AUPNDOD),!! Line Location: GETPAT+5
Function Call: WRITE	Prompt: " <Future dates not allowed>",$C(7),$C(7) Line Location: GETDATE+6
Routine Call	DIC Line Location: GETPAT+2 GETLOC+1
Routine Call	DIR Line Location: GETDATE+3 GETPROV+2

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^VA(200 - [#200]	GETPROV+4

Name	Field # of Occurrence
>> %DT	GETDATE+5*
AMHACTN	AMHLEPAT+7!, START+2*
AMHAUTH	AMHLEPAT+7!, START+6, GETPROV+1, GETPROV+4
AMHDATE	AMHLEPAT+7!, START+5, GETDATE+2, GETDATE+7
AMHHIGH	AMHLEPAT+7!
AMHLOC	AMHLEPAT+7!, START+4, GETLOC+1, GETLOC+3
AMHLOOK	AMHLEPAT+7!
AMHMHPL	AMHLEPAT+7!
AMHNONE	AMHLEPAT+7!
AMHOTH	AMHLEPAT+7!
AMHPAT	AMHLEPAT+7!, START+3, GETPAT+4*
AMHSELS	AMHLEPAT+7!
>> AUPNDOD	GETPAT+5
DIC	GETPAT+2!, GETLOC+1!
DIC(0	GETPAT+2, GETLOC+1
DIR	GETDATE+3!, GETPROV+2!
DIR("A"	GETDATE+3, GETPROV+2
DIR(0	GETDATE+3, GETPROV+2
>> DIRUT	GETDATE+3, GETDATE+4, GETPROV+2, GETPROV+3
DT	GETDATE+3, GETDATE+6
>> DUOUT	GETDATE+3, GETPROV+2
U	GETPROV+4
X	GETDATE+6!
>> Y	GETPAT+3, GETPAT+4, GETLOC+2, GETLOC+3, GETDATE+5, GETDATE+6, GETDATE+7, GETPROV+4