Routine: DGMTDEL

Package	Total	Call Graph
Registration	3	($$DATE,$$PID,DEL,LOOP,VAR)^DGMTDEL1 (AFTER,EN)^DGMTEVT ($$LST,DIS)^DGMTU
Kernel	2	HOME^%ZIS $$FMTE^XLFDT
VA Fileman	2	(,IX)^DIC ^DIR

Package

Total

Call Graph

Registration

($$DATE,$$PID,DEL,LOOP,VAR)^DGMTDEL1 (AFTER,EN)^DGMTEVT ($$LST,DIS)^DGMTU

Kernel

HOME^%ZIS $$FMTE^XLFDT

VA Fileman

(,IX)^DIC ^DIR

Package	Total	Caller Graph
Registration	5	DG CO-PAY TEST DELETE DG MEANS TEST DELETE DGMTCOM DGMTDEL1 DGMTM

Package

Total

Caller Graph

Registration

DG CO-PAY TEST DELETE DG MEANS TEST DELETE DGMTCOM DGMTDEL1 DGMTM

Entry Points

Name	Comments	DBIA/ICR reference
VET	;determine if patient is a vet; set dgnvet flag (1=nonvet,0=vet)
EN	;Entry point to delete means test
MTTXT	;informational text displayed to user if type of test = means test
CTTXT	;informational text displayed to user if type of test = copay test
LTCTXT	;informational text displayed to user if type of test = LTC copay test
LKM	;Means test lookup
EXIT
TXT	;informational text displayed to user
LKP	;Patient lookup

External References

Name	Field # of Occurrence
HOME^%ZIS	LKP+2
$$DATE^DGMTDEL1	LKP+7, LKM+9
$$PID^DGMTDEL1	LKP+7
DEL^DGMTDEL1	LKM+10
LOOP^DGMTDEL1	VET+5
VAR^DGMTDEL1	LKM+8
AFTER^DGMTEVT	LKM+14
EN^DGMTEVT	LKM+15
$$LST^DGMTU	LKM+11
DIS^DGMTU	LKP+8
^DIC	LKP+2
IX^DIC	LKM+2
^DIR	VET+5, LKM+10
$$FMTE^XLFDT	LKP+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"ACCESS TO THIS OPTION IS RESTRICTED!!",*7 Line Location: EN+1
Function Call: WRITE	Prompt: !,J Line Location: EN+2
Function Call: WRITE	Prompt: !,J Line Location: EN+4
Function Call: WRITE	Prompt: !,J Line Location: EN+6
Function Call: WRITE	Prompt: !,J Line Location: EN+8
Function Call: WRITE	Prompt: !?5,$P(Y(0),U)," has no "_$S(DGMTYPT=1:"means",DGMTYPT=2:"copay",DGMTYPT=4:"LTC copay exemption",1:"")_" tests on file." Line Location: LKP+3
Function Call: WRITE	Prompt: !,*7,"Patient died on: ",$$FMTE^XLFDT(DGMDOD,"1D") Line Location: LKP+6
Function Call: WRITE	Prompt: @IOF,"Name: ",$P(DGNAM,U),?40,"DOB: ",$$DATE^DGMTDEL1($P(DG0,U,3)),?60,"PT ID: ",$$PID^DGMTDEL1(DFN),!!! Line Location: LKP+7
Function Call: WRITE	Prompt: !! Line Location: LKP+8
Function Call: WRITE	Prompt: ! Line Location: LKM+2
Function Call: WRITE	Prompt: !,"Enter appropriate corresponding number." Line Location: LKM+2
Function Call: WRITE	Prompt: !?5,*7,"This "_$S(DGMTYPT=1:"means",DGMTYPT=2:"copay")_" test is uneditable and cannot be deleted." Line Location: LKM+5
Function Call: WRITE	Prompt: !,?5,*7,"This LTC Copay Exemption Test is uneditable and cannot be deleted." Line Location: LKM+7
Function Call: WRITE	Prompt: !,$S(DGMTYPT=1:"Means",DGMTYPT=2:"Copay",DGMTYPT=4:"LTC copay exemption",1:"")_" test deleted." Line Location: LKM+10
Routine Call	%ZIS Line Location: LKP+2
Routine Call	DIC Line Location: LKP+2
Routine Call	DIR Line Location: VET+5 LKM+10
Routine Call	DIC Line Location: LKM+2

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^DGMT(408.31 - [#408.31]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DG(408.34 - [#408.34]	LKM+5, LKM+7
^DGMT(408.31 - [#408.31]	LKP+3, LKM+5
^DIC(8 - [#8]	VET+2
^DPT - [#2]	LKP+5, VET+2, VET+3
^XUSEC("DG MTDELETE"	EN+1

Name	Line Occurrences
EXIT	EN+1, LKP+2, LKP+6
LKM	VET+4, LKM+2
LKP	LKP+3, VET+5, LKM+3, LKM+4, LKM+6, LKM+10

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
D	LKM+2*, EXIT+1!
DA	EXIT+1!
DFN	LKP+4*, LKP+5, LKP+7, LKP+8, VET+2, VET+3, LKM+2, LKM+11, EXIT!
DG0	LKP+4*, LKP+7, EXIT!
DGCAT	LKM+12, LKM+13, EXIT!
DGCT	EXIT!
DGFLG	LKP+1~, LKM+4, LKM+5, LKM+6, LKM+7
DGI	EXIT!
DGMDOD	LKP+1~, LKP+5*, LKP+6
DGMT	LKM+11*, LKM+12, LKM+13, LKM+14, EXIT!
DGMT0	LKM+8*, EXIT!
DGMTA	EXIT!, EXIT+1!
DGMTACT	LKM+14*, EXIT!
DGMTATYP	EXIT!
DGMTD	LKM+9, LKM+11, EXIT!
DGMTI	LKM+8, LKM+14, EXIT!
DGMTINF	LKM+15*, EXIT!
DGMTP	LKM+14*, EXIT+1!
DGMTSRC	EXIT!
DGMTY	EXIT!
DGMTYPT	EN+4, EN+6, EN+8, LKP+3, VET+5, LKM+4, LKM+5, LKM+6, LKM+10, LKM+11 , EXIT!
DGN	EXIT!
DGNAM	LKP+4*, LKP+7, EXIT!
DGNVET	VET+1, VET+2, VET+3*, VET+4, EXIT!
DGP	LKM+14, EXIT!
DIC	LKP+2, LKP+3!, LKP+4!, LKM+2!, LKM+8!, EXIT+1!
DIC("S"	LKM+1*
DIC("W"	LKM+1*
DIC(0	LKP+2, LKM+2
DIE	EXIT+1!
DIK	EXIT+1!
DIR	VET+5!, LKM+10!, EXIT+1!
DIR("A"	VET+5, LKM+9
DIR("B"	VET+5, LKM+9
DIR(0	VET+5, LKM+9
DIRUT	VET+5, LKM+10, EXIT+1!
DTOUT	LKP+2, LKM+3, EXIT+1!
DUOUT	LKP+2, LKM+3, EXIT+1!
DUZ	EN+1
I	EN+2, EN+4, EN+6, EN+8, EXIT+1!
IOF	LKP+7
J	EN+2, EN+4, EN+6, EN+8, EXIT+1!
U	LKP+3, LKP+4, LKP+5, LKP+7, VET+2, LKM+5, LKM+7, LKM+11, LKM+12, LKM+13
VA	EXIT+1!
VADAT	EXIT+1!
VADATE	EXIT+1!
X	LKM+2*, EXIT+1!
Y	LKP+2, LKP+3!, LKP+4!, VET+5, LKM+3, LKM+5, LKM+8!, LKM+10, EXIT+1!
Y(0	LKP+3, LKP+4, LKM+5, LKM+7, LKM+8

Customize PDF page

Package: Registration

Routine: DGMTDEL

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items