Routine: GMRAHDR

Package	Total	Call Graph
Kernel	2	(,ISQED)^%ZTLOAD ($$FMADD,$$FMDIFF,$$HADD,$$NOW)^XLFDT
Registration	1	$$TESTPAT^VADPT
Uncategorized	1	($$QUEUE,QUEUE)^VDEFQM

Entry Points

Name	Comments	DBIA/ICR reference
SETADR	;Call here when updating data
TASK(TYPE,IEN)	;Create task, if needed, and add entry to list of items to be sent to HDR
SETAA	;Action taken when assessment is changed
SETOB	;Make call to HDR when observation data is added or edited
TSKOK(ZTSK)	;Check to see if task is active. Section added in patch 42
KILLADR	;Call here when data is deleted
UPDRDI	;Create flag to let RDI know that patient data has changed
KILLAA	;Action taken when value is deleted
KILLOB	;Action upon deletion of observation data
DQ	;Send data to HDR

Name	Field # of Occurrence
^%ZTLOAD	TASK+7
ISQED^%ZTLOAD	TSKOK+1
$$TESTPAT^VADPT	SETADR+5, KILLADR+5, SETAA+2, KILLAA+2, SETOB+6, KILLOB+6
$$QUEUE^VDEFQM	DQ+4
QUEUE^VDEFQM	DQ+4
$$FMADD^XLFDT	TASK+5
$$FMDIFF^XLFDT	TASK+4
$$HADD^XLFDT	TASK+7
$$NOW^XLFDT	TASK+4, TASK+5

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.8 - [#120.8]	SETADR+4, SETADR+5, SETADR+7, KILLADR+4, KILLADR+5, SETOB+5, SETOB+6, KILLOB+5, KILLOB+6, UPDRDI+2 , UPDRDI+5
^GMR(120.85 - [#120.85]	SETADR+7, SETOB+4, KILLOB+4
^XTMP("GMRAHDR"	TASK+2, TASK+4!, TASK+5, TASK+6, TASK+7, TASK+8*, TASK+9, DQ+2, DQ+3, DQ+4 , DQ+5!, DQ+6
^XTMP("GMRAOC"	UPDRDI+3, UPDRDI+4, UPDRDI+6*, UPDRDI+7

Name	Line Occurrences
$$TSKOK	TASK+4
TASK	SETADR+6, SETADR+7, KILLADR+6, SETAA+3, KILLAA+3, SETOB+7, KILLOB+7
UPDRDI	SETADR+6, KILLADR+6

Name	Field # of Occurrence
A	DQ+1~, DQ+4*
AIEN	SETOB+1~, SETOB+4, SETOB+5, SETOB+6, KILLOB+1~, KILLOB+4, KILLOB+5, KILLOB+6
>> DA	SETADR+3, KILLADR+3, SETAA+2, SETAA+3, KILLAA+2, KILLAA+3, SETOB+3, KILLOB+3
>> DA(	SETADR+3, KILLADR+3, SETOB+3, KILLOB+3
>> DA("?"	SETADR+3, KILLADR+3, SETOB+3, KILLOB+3
DT	TASK+5
ERR	UPDRDI+1~, UPDRDI+5*, UPDRDI+6
>> GMRADONT	SETADR+2, KILLADR+2, SETAA+1, KILLAA+1, SETOB+2, KILLOB+2
>> GMRAERR	DQ+4
IEN	SETADR+1~, SETADR+3, SETADR+4, SETADR+5, SETADR+6, SETADR+7, KILLADR+1~, KILLADR+3, KILLADR+4, KILLADR+5 , KILLADR+6, SETOB+1~, SETOB+3, SETOB+4, SETOB+7, KILLOB+1~, KILLOB+3, KILLOB+4, KILLOB+7, TASK~ , TASK+8, DQ+1~, DQ+4*, UPDRDI+2, UPDRDI+5
OIEN	SETADR+1~, SETADR+7*
PIEN	UPDRDI+1~, UPDRDI+2*, UPDRDI+3, UPDRDI+4, UPDRDI+6, UPDRDI+7
TYPE	TASK~, TASK+8, DQ+1~, DQ+3*, DQ+4
U	SETADR+4, SETADR+5, SETADR+7, KILLADR+4, KILLADR+5, SETOB+4, SETOB+5, SETOB+6, KILLOB+4, KILLOB+5 , KILLOB+6, TASK+4, TASK+5, UPDRDI+2
>> XDRDVALF	SETADR+2, KILLADR+2, SETAA+1, KILLAA+1, SETOB+2, KILLOB+2
ZTDESC	TASK+1~, TASK+7*
ZTDTH	TASK+1~, TASK+7*
ZTIO	TASK+1~, TASK+7*
ZTRTN	TASK+1~, TASK+7*
ZTSK	TASK+1~, TASK+7, TSKOK~
ZTSK(0	TSKOK+2

Name	Field # of Occurrence
$T(QUEUE^VDEFQM	DQ+4