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

Call Graph

Registration

EN^DGMTAUD ($$S,$$SR)^DGMTAUD1 LKP^DGMTDEL (AFTER,EN)^DGMTEVT $$MTS^DGMTU PID^VADPT6

Income Verification Match

DELETE^IVMPLOG ^IVMPMTE

VA Fileman

^DIE ^DIK

Kernel

$$FMTE^XLFDT

Package	Total	Caller Graph
Registration	2	DGMTDEL DGMTDELS

Package

Total

Caller Graph

Registration

DGMTDEL DGMTDELS

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

External References

Name	Field # of Occurrence
EN^DGMTAUD	DEL+26, DELLNK+17
$$S^DGMTAUD1	ID+6
$$SR^DGMTAUD1	ID+3
LKP^DGMTDEL	LOOP+1
AFTER^DGMTEVT	DEL+23, DELLNK+16
EN^DGMTEVT	DEL+24
$$MTS^DGMTU	VAR+1
^DIE	DEL+11, DEL+22, DELLNK+10, DELLNK+23
^DIK	DEL+8, DELLNK+15
DELETE^IVMPLOG	DEL+5, DELLNK+12
^IVMPMTE	DEL+27
PID^VADPT6	PID+3
$$FMTE^XLFDT	DATE+3

Interaction Calls

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

FileNo	Call Tags
^DGMT(408.21 - [#408.21]	Classic Fileman Calls
^DGMT(408.22 - [#408.22]	Classic Fileman Calls
^DGMT(408.31 - [#408.31]	Classic Fileman Calls

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	Line Occurrences
$$DATE	ID+6
DEL	LOOP+1
DELLNK	DEL+7
VAR	LOOP+1

Name	Field # of Occurrence
^(0	ID+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Registration

Routine: DGMTDEL1

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: