Routine: DGREG00

Package	Total	Call Graph
Registration	6	($$MTPRMPT,$$SEL1010,EF)^DG1010P $$PROMPRN^DG1010PA A^DGREG $$EN^VAFCA04 EN^VAFHLA04 $$SEND^VAFHUTL
VA Fileman	4	NOW^%DTC YN^DICN ($$GET1,DT)^DIQ ^DIR
Kernel	1	^%ZTLOAD

Package	Total	Caller Graph
Registration	1	DGREG0

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	W1
^%ZTLOAD	QU+5, QUPRF+3, QUHS+2, QURT
$$MTPRMPT^DG1010P	W1+18
$$SEL1010^DG1010P	W1+3
EF^DG1010P	EMBOS+1
$$PROMPRN^DG1010PA	PRO, PRO+1
A^DGREG	Q1+4
YN^DICN	RT
$$GET1^DIQ	W1+8
DT^DIQ	DT
^DIR	W1+16
$$EN^VAFCA04	CIRN+5
EN^VAFHLA04	EVNT+3
$$SEND^VAFHUTL	EVNT+3, CIRN+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No data have been found for the selected patient, or" Line Location: W1+13
Function Call: WRITE	Prompt: !,"the patient may have an on-line 10-10EZ application" Line Location: W1+14
Function Call: WRITE	Prompt: !,"in progress. The 10-10EZ form shall not be printed." Line Location: W1+15
Function Call: WRITE	Prompt: !!,"CHOOSE FROM",!?4,"YES - To include a copy of the ",DGPRINT," for this patient.",!?4,"NO - If you don't want to print a copy of the ",DGPRINT,"." Line Location: HLP+0
Routine Call	DIR Line Location: W1+16

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	SSD
^DG(43 - [#43]	W3
^DPT - [#2]	EVNT+2, CIRN+4
^EAS(712	W1+7, W1+10

Label References

Name	Line Occurrences
CIRN	Q1+2
EVNT	Q1+1
HLP	RT
Q	RT
QU	W3
RT	RT

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	W1, RT*, RT+1, Q1+3!
%DT	Q1+3!
A	W1!, Q1+3!
A(0	SSD
ANS	Q1+3!
APD	Q1+3!
B	Q1+3!
CURR	Q1+3!
D0	Q1+4!
D1	Q1+4!
DA	Q1+3!
DB	W1+19*, QU, Q1+3!
DE	Q1+3!
DEF	Q1+3!
DFMD	Q1+3!
>> DFN	W1+7, W1+18, QU+2, QU+3, QUPRF+2, QUHS+1, QURT, EVNT+2, EVNT+3, CIRN+4 , CIRN+5
>> DFN1	QU+2, QUPRF+2, EVNT+2, CIRN+4
DG1	Q1+3!
>> DGASKDEV	Q
DGCLPR	Q1+3!
DGDAY	Q1+3!
DGDFN	Q1+3!
DGE	Q1+3!
DGHS	PRO+1*, QUHS, QUHS+3!
DGIO	Q!
DGIO("PRF"	QUPRF+2
DGIO("RT"	QURT
DGIO(10	QU+5, QUHS+1
DGL	Q1+3!
DGLL	Q1+3!
>> DGMTI	W1+18
DGNEW	Q1+3!
DGNOW	W1*, QU+1, QUPRF+1, QUHS+1, QURT, Q1+3!
DGO	Q1+3!
DGOPT	W1!
DGPRINT	RT, HLP!
>> DGRPFEE	Q1+4
DGZDATE	CIRN+3~, CIRN+4*, CIRN+5
DIC	Q1+3!
DIE	Q1+3!
DINUM	Q1+3!
DIR	W1+12~
DIR(0	W1+16*
DIV	QURT, Q1+4!, SSD*
DLAYGO	Q1+4!
DOW	Q1+3!
DP	Q1+3!
DR	Q1+3!
DT	QURT
DUZ	QU+3
EADT	W1+9~, W1+10*
EAIP	W1+6~, W1+7, W1+9, W1+10, W1+11
EAIX	W1+9~*, W1+10
EAPP	W1+6~, W1+7*, W1+8, W1+10
EASMTIEN	W1+2~, W1+4, W1+18, QU+4, Q1+4!
ERR	CIRN+3~, CIRN+5*
FORM	W1+2~, W1+3, W1+5, W1+17, W1+19
GMTSTYP	QUHS, QUHS+1, QUHS+3!
I	Q1+3!
I1	Q1+3!
IOZBK	Q1+3!
IOZFO	Q1+3!
J	Q1+4!
L	Q1+3!
L1	Q1+3!
L2	Q1+3!
LL	Q1+3!
LL1	Q1+3!
LL2	Q1+3!
MDCARD	Q1+3!
PARA	Q1+3!
PGM	Q1+4!
PRF	W3, PRO, QUPRF, Q1+3!
>> PSOINST	QUPRF+1
>> PSONOPG	QUPRF+1
>> PSOPAR	QUPRF+2
>> PSTYPE	QUPRF+2
>> RGMPI	Q1+4
RT	W3, RT+1, QURT, Q1+3!
S	Q1+3!
SC	Q1+3!
SEEN	Q1+3!
VAFHDATE	EVNT+1~, EVNT+2*, EVNT+3
VAFHFLG	EVNT+3!
VAFHMRG	EVNT+4!
VET	Q1+4!
X	Q1+4!
X1	Q1+4!
X2	Q1+4!
Y	Q1+4!, DT
Y1	Q1+4!
Z	Q1+4!
>> ZTDESC	QU+1, QUPRF+1, QUHS+1, QURT
>> ZTDTH	QU+1, QUPRF+1, QUHS+1, QURT
>> ZTIO	QU+5, QUPRF+2, QUHS+1, QURT
>> ZTRTN	QU+1, QUPRF+1, QUHS+1, QURT
>> ZTSAVE("DA"	QU+2*
>> ZTSAVE("DFN"	QU+2, QUPRF+2, QUHS+1, QURT
>> ZTSAVE("DFN1"	QU+2, QUPRF+2
>> ZTSAVE("DIV"	QURT*
>> ZTSAVE("DT"	QURT*
>> ZTSAVE("EASDFN"	QU+3*
>> ZTSAVE("EASFLAG"	QU+3*
>> ZTSAVE("EASMTIEN"	QU+4*
>> ZTSAVE("GMTSTYP"	QUHS+1*
>> ZTSAVE("PSOINST"	QUPRF+1*
>> ZTSAVE("PSONOPG"	QUPRF+1*
>> ZTSAVE("PSOPAR"	QUPRF+2*
>> ZTSAVE("PSTYPE"	QUPRF+2*
>> ZTSAVE("ZUSR"	QU+3*
ZTSK	Q1+4!

Customize PDF page

Package: Registration

Routine: DGREG00

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
RT
Q
Q1	;
QU
PRO
EVNT	;list of external calls
HLP
QURT
W3
W1
SSD
QUHS
DT
EMBOS	;W ! D EMBOS^DGQEMA
CIRN	;
QUPRF