Routine: DGMTDELS

Information

DGMTDELS ;ALB/GAH - Delete means test for deceased patient; August 14, 2006 14:35:54

Source file <DGMTDELS.m>

Package	Total	Caller Graph
Registration	1	^DPT

Name	Comments	DBIA/ICR reference
QTIME()	; Get the run time for queuing
OK2DEL(DFN,DGMTI)	; ; Returns 1 and the last mean test IEN if the patient has a date of death and ; the means test has a status of REQUIRED.
START(DFN)	;Start process
DELMT(DGMTI)	; ; Delete the means test
CHECK(DFN)	; Check that the criteria to delete a means test is met
NAMSPC()	;
QUEUE(ZTDTH)

Name	Line Occurrences (* Changed, ! Killed)
^DGMT(408.31 - [#408.31]	DELMT+4
^DPT - [#2]	OK2DEL+12

Name	Field # of Occurrence
%	QTIME+1~, QTIME+3
%H	QTIME+1~
%I	QTIME+1~
DFN	START~, QUEUE+3, CHECK~, CHECK+2, OK2DEL~, OK2DEL+5, OK2DEL+12, DELMT+2~, DELMT+6*
DGMT	OK2DEL+3~, OK2DEL+5*, OK2DEL+6, OK2DEL+7, OK2DEL+8
DGMT0	DELMT+2~, DELMT+4*, DELMT+5, DELMT+6, DELMT+7, DELMT+8
DGMTD	DELMT+2~, DELMT+7*
DGMTI	CHECK+1~, CHECK+2, OK2DEL~, OK2DEL+8*, DELMT~, DELMT+4
DGMTYPT	DELMT+2~, DELMT+8*
DQ	DELMT+2~
NAMSPC	START+1~, QUEUE+1~, QUEUE+2*, QUEUE+4
STATUS	OK2DEL+3~, OK2DEL+7*, OK2DEL+10
TASK	START+1~
U	START+1~, START+2, OK2DEL+3~, OK2DEL+4, OK2DEL+7, OK2DEL+8, OK2DEL+12, DELMT+2~, DELMT+3*, DELMT+6 , DELMT+7, DELMT+8
X	QTIME+1~
ZTDESC	QUEUE+1~, QUEUE+4*
ZTDTH	QUEUE~
ZTIO	QUEUE+1~, QUEUE+5*
ZTRTN	QUEUE+1~, QUEUE+3*
ZTSK	QUEUE+1~

Name	Field # of Occurrence
$T(	NAMSPC+1