Routine: DG53285

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Naked Globals
Local Variables

Information

DG53285 ;ALB/PAK-DG*5.3*285 POST-INSTALL TO CLEAN MEANS TEST ;4/24/2000

Source Information

Source file <DG53285.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Registration	7	MAIL^DG53285M $$UPD^DGENDBS EN^DGMTCOR ($$SC,ADD,DOM,NOL,REQ)^DGMTR $$LST^DGMTU $$OLD^DGMTU4 $$SITE^VASITE
Kernel	2	($$DT,$$FMTE,$$NOW)^XLFDT ($$COMCP,$$NEWCP,$$PARCP,$$UPCP,$$VERCP,BMES,MES)^XPDUTL
Income Verification Match	1	$$EN^IVMCMD
VA Fileman	1	(,C)^%DTC

Entry Points

Name	Comments	DBIA/ICR reference
EN	; begin processing...
REQ(DFN,DGMTI,DGCS,IDT)	; Determine if test is Required
COUNT(DATE)	; update process tracking mechanisms... ; Input: ; DATE = inverse date from "AS" x-ref in 408.31
DELMT(MTIDT,DFN,ENTR,ERRS)	; ; Input: ; MTIDT - Inverse Means Tets Date ; DFN - Patient identifier ; ENTR - Entry # to ignore ; ERRS - DBS file error {by reference}
EN1	; begin purge... ; write message to installation device and to INSTALL file (#9.7)
SCOPE(X1,X2)	; Check if dates within 365 days of one another
POST	; ; post-install set up checkpoints and tracking global...
RQ2NPRM(IDT,DFN,STA,YR,NODE,ERRS)	; change Required test to NON primary

External References

Name	Field # of Occurrence
^%DTC	SCOPE+1
C^%DTC	POST+16
MAIL^DG53285M	EN1+48
$$UPD^DGENDBS	RQ2NPRM+30, RQ2NPRM+36
EN^DGMTCOR	REQ+35
$$SC^DGMTR	REQ+21
ADD^DGMTR	REQ+30
DOM^DGMTR	REQ+24
NOL^DGMTR	REQ+31
REQ^DGMTR	REQ+29
$$LST^DGMTU	EN1+23, RQ2NPRM+13
$$OLD^DGMTU4	REQ+26
$$EN^IVMCMD	DELMT+12
$$SITE^VASITE	EN1+15
$$DT^XLFDT	POST+17
$$FMTE^XLFDT	EN1+8, EN1+50
$$NOW^XLFDT	EN1+8, EN1+50
$$COMCP^XPDUTL	EN1+49
$$NEWCP^XPDUTL	POST+6, POST+8
$$PARCP^XPDUTL	EN1+14
$$UPCP^XPDUTL	EN1+43, EN1+45
$$VERCP^XPDUTL	POST+5, POST+7, EN+3
BMES^XPDUTL	EN1+2, EN1+8
MES^XPDUTL	EN1+3, EN1+4, EN1+5, EN1+6, EN1+7, EN1+50

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGMT(408.31 - [#408.31]	EN1+16, EN1+19, EN1+32, DELMT+10, RQ2NPRM+27, RQ2NPRM+28, RQ2NPRM+41, REQ+25
^DIC(8 - [#8]	REQ+21
^DPT - [#2]	REQ+20, REQ+23
^XTMP(	POST+13
^XTMP("DG-"	POST+17*
^XTMP("DG-MTERR"	EN1+41*
^XTMP("DG-MTIY"	COUNT+6*

Name	Line Occurrences
$$SCOPE	RQ2NPRM+33
COUNT	DELMT+14
DELMT	EN1+33
EN1	EN+5
REQ	RQ2NPRM+43
RQ2NPRM	EN1+38

Name	Field # of Occurrence
^(	REQ+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	POST+2~, POST+6, POST+8, EN+1~, EN+3, EN+4, EN+5, EN1+43, EN1+45, EN1+49* , COUNT+4~
DATA	RQ2NPRM+10~, RQ2NPRM+30, RQ2NPRM+36
DATA(2	RQ2NPRM+29, RQ2NPRM+35
DATE	COUNT~, COUNT+5
DFN	DELMT~, DELMT+10, RQ2NPRM~, RQ2NPRM+13, RQ2NPRM+27, RQ2NPRM+43, REQ~, REQ+20, REQ+21, REQ+23
DGADDF	RQ2NPRM+10~, REQ+30
DGCS	REQ~, REQ+26, REQ+29, REQ+30, REQ+31
DGDFN	EN1+11~, EN1+14, EN1+17, EN1+19*, EN1+23, EN1+32, EN1+33, EN1+38, EN1+43
DGDOM	REQ+17~, REQ+24, REQ+31
DGMSGF	REQ+17~, REQ+19*
DGMT0	REQ+17~, REQ+25*
DGMTI	REQ~, REQ+25
DGMTIDT	EN1+11~, EN1+13, EN1+14, EN1+16*, EN1+18, EN1+19, EN1+31, EN1+32, EN1+33, EN1+38 , EN1+45
DGMTYPT	REQ+17~, REQ+19*
DGQSENT	REQ+17~, REQ+19*
DGREQF	RQ2NPRM+10~, REQ+19, REQ+21, REQ+22, REQ+23, REQ+24*, REQ+29, REQ+30, REQ+31
DGRGAUTO	REQ+17~
DT	POST+14
ENTR	DELMT~, DELMT+11
ERR	DELMT+7~, RQ2NPRM+10~, RQ2NPRM+30, RQ2NPRM+36
ERRS	DELMT~, RQ2NPRM~
ERRS(	DELMT+12, RQ2NPRM+30, RQ2NPRM+36*
FILERR	EN1+11~, EN1+20~, EN1+33, EN1+38, EN1+41
I	POST+2~, POST+12*, POST+13, POST+17
IDT	RQ2NPRM~, RQ2NPRM+27, RQ2NPRM+33, RQ2NPRM+43, REQ~, REQ+26
IEN	DELMT+7~, DELMT+9, DELMT+10, DELMT+11, DELMT+12
IY	COUNT+4~, COUNT+5*, COUNT+6
MTIDT	DELMT~, DELMT+10, DELMT+14
MTIEN	EN1+11~, EN1+31, EN1+32, EN1+33
NODE	EN1+23*, EN1+31, EN1+38, RQ2NPRM~, RQ2NPRM+28
NODE1	RQ2NPRM+10~, RQ2NPRM+13*, RQ2NPRM+33, RQ2NPRM+36
NODE2	RQ2NPRM+10~, RQ2NPRM+41*, RQ2NPRM+42
OLD	REQ+17~, REQ+19, REQ+26, REQ+29, REQ+30
REC31	RQ2NPRM+10~, RQ2NPRM+27*, RQ2NPRM+28, RQ2NPRM+30, RQ2NPRM+40, RQ2NPRM+41, RQ2NPRM+43
STA	EN1+11~, EN1+15*, EN1+38, RQ2NPRM~, RQ2NPRM+42
U	EN1+31, RQ2NPRM+28, RQ2NPRM+33, RQ2NPRM+42
X	POST+2~, POST+17, SCOPE+2, REQ+20*, REQ+21, REQ+22
X1	POST+2~, POST+14*, SCOPE~
X2	POST+2~, POST+15*, SCOPE~
>> XPDNM	POST+3, EN+3, EN1+13, EN1+14, EN1+43, EN1+45, EN1+49
YR	EN1+11~, EN1+18*, EN1+23, EN1+38, RQ2NPRM~, RQ2NPRM+13, RQ2NPRM+33

Customize PDF page

Package: Registration

Routine: DG53285

Call Graph Total: 11