Routine: DGMTDEL1

Package	Total	Call Graph
Registration	6	EN^DGMTAUD ($$S,$$SR)^DGMTAUD1 LKP^DGMTDEL (AFTER,EN)^DGMTEVT $$MTS^DGMTU PID^VADPT6
Income Verification Match	2	DELETE^IVMPLOG ^IVMPMTE
VA Fileman	2	^DIE ^DIK
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Registration	2	DGMTDEL DGMTDELS

Entry Points

Name	Comments	DBIA/ICR reference
PID(X)	;function to return pid
ID	;write identifiers
DELLNK	;Deletion of Linked tests
DEL	;delete
VAR	;set variables
DATE(X)	;function to return date in external format
LOOP	;loop through all means test for patient and delete

Name	Line Occurrences
Function Call: WRITE	Prompt: ?21,$S(DGMTYPT=1:"MEANS",DGMTYPT=2:"COPAY",DGMTYPT=4:"LTC Copay Exemption",1:"")_" TEST DATE" Line Location: ID+2
Function Call: WRITE	Prompt: ?40,"SOURCE: ",$S($L(DGMTSRC)>10:$E(DGMTSRC,1,10),1:DGMTSRC),?60,"PRIMARY TEST: ",$S($G(^DGMT(408.31,DGI,"PRIM"))=1:"YES",1:"NO") Line Location: ID+5
Routine Call	DIE Line Location: DEL+11 DEL+22 DELLNK+10 DELLNK+23

Name	Line Occurrences (* Changed, ! Killed)
^DGMT(408.21 - [#408.21]	DEL+19, DEL+20
^DGMT(408.22 - [#408.22]	DEL+9, DEL+17
^DGMT(408.31 - [#408.31]	ID+1, ID+5, ID+6, VAR+1, LOOP+1, DELLNK+4, DELLNK+5, DELLNK+9, DELLNK+14, DELLNK+22

Name	Field # of Occurrence
^(0	ID+6

Name	Field # of Occurrence
AMTFLG	DEL+16~, DEL+21*, DEL+22
CNT	DEL+16~, DEL+21*
DA	DEL+10, DEL+11, DEL+16~, DEL+17, DEL+18, DEL+19, DEL+20, VAR+1, DELLNK+1~, DELLNK+10 , DELLNK+15, DELLNK+23
DE	DEL+12!
>> DFN	DEL+5, DEL+9, VAR+1, LOOP+1, DELLNK+12
>> DGCAT	VAR+1*
>> DGCT	LOOP+1*, LOOP+2
>> DGI	ID+1, ID+5, ID+6, LOOP+1
>> DGMT0	VAR+1, LOOP+1*
DGMTA	DELLNK+13~
DGMTACT	DEL+8, DELLNK+13~, DELLNK+16
>> DGMTD	DEL+5, VAR+1*
DGMTI	DEL+9, VAR+1, LOOP+1, DELLNK+4, DELLNK+13~, DELLNK+14, DELLNK+15, DELLNK+22
DGMTINF	DEL+23, DELLNK+13~, DELLNK+16
DGMTP	VAR+1, LOOP+1, DELLNK+13~, DELLNK+14*
>> DGMTSRC	ID+3, ID+4, ID+5
>> DGMTX	DEL+9*, DEL+10, DEL+17
>> DGMTY	DEL+9*
DGMTYPT	ID+2, DEL+5, DEL+24, DEL+25, VAR+1, LOOP+2, DELLNK+2, DELLNK+13~, DELLNK+17, DELLNK+18
>> DGN	ID+1*, ID+3
>> DGP	VAR+1*, LOOP+1
DIE	DEL+11, DEL+16~, DEL+22, DELLNK+1~, DELLNK+10, DELLNK+23
DIK	DEL+8, DEL+12!, DELLNK+1~, DELLNK+15
DQ	DEL+12!
DR	DEL+11, DEL+12!, DEL+16~, DEL+22, DELLNK+1~, DELLNK+10, DELLNK+23
GIEN	DELLNK+1~, DELLNK+9, DELLNK+10, DELLNK+22, DELLNK+23
IEN4	DELLNK+1~, DELLNK+4*, DELLNK+5, DELLNK+9, DELLNK+14
LTCDT	DELLNK+1~, DELLNK+5*, DELLNK+12
NODE0	DEL+16~, DEL+20*, DEL+21
U	ID+6, VAR+1
>> VA("PID"	PID+4
X	DATE~, DATE+3, PID~
>> Y	ID+1