Routine: DGREG0

Package	Total	Call Graph
Registration	11	EN1^DGEN EN^DGMTCOR EDT^DGMTCOU THRESH^DGMTCOU1 (AFTER,EN,PRIOR)^DGMTEVT EN^DGMTR ($$LST,$$MTS,EDT)^DGMTU A^DGREG ^DGREG00 HL7A08^VAFCDD01 $$SEND^VAFHUTL
VA Fileman	2	^DIE ($$GET1,DT)^DIQ

Package	Total	Caller Graph
Integrated Billing	1	DISPOSITION LOG-IN DATE/TIME
Registration	1	DGREG

Entry Points

External References

Name	Field # of Occurrence
EN1^DGEN	MOVE+8
EN^DGMTCOR	CP+5
EDT^DGMTCOU	CP+7
THRESH^DGMTCOU1	CP+7
AFTER^DGMTEVT	MTDT+6
EN^DGMTEVT	MTDT+6
PRIOR^DGMTEVT	MTDT+4
EN^DGMTR	MT+3
$$LST^DGMTU	MTDT+2
$$MTS^DGMTU	MT+4
EDT^DGMTU	MT+4
A^DGREG	QE+2
^DGREG00	W1+2
^DIE	MTDT+5
$$GET1^DIQ	REFILE+7
DT^DIQ	DT
HL7A08^VAFCDD01	Q1+4
$$SEND^VAFHUTL	Q1+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^DGMT(408.31 - [#408.31]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	REFILE+1, REFILE+3
^DG(43 - [#43]	CP+3
^DIC(36 - [#36]	REFILE+9
^DIC(5 - [#5]	MOVE
^DPT - [#2]	REFILE, REFILE+6, MOVE+4*, SSD
^DPT("ASDPSD"	SSD+2, SSDK

Label References

Name	Line Occurrences
CP	MOVE+7
MT	MOVE+6
MTDT	MT+4
MTDTQ	MTDT+2
QTCP	CP+3

Naked Globals

Name	Field # of Occurrence
^(	REFILE, REFILE+6, SSD+2*, SSDK!
^("DEV"	REFILE+3
^(0	REFILE+9, MOVE

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	QE!
%DT	QE!
A	QE!
A(	REFILE*, MOVE
A(0	REFILE+1, REFILE+3, REFILE+7, REFILE+8
A(1	REFILE+9
A(2	REFILE+9
A(3	MOVE+3
ANS	QE!
APD	QE!, MT+4, MTDT+3
B	MOVE+5!, QE!
B(	REFILE+6, REFILE+8, REFILE+9, MOVE+3, MOVE+4
CURR	QE!
D0	QE+1!
D1	QE+1!
DA	QE!, SSD+2, SSDK, MTDT+1~, MTDT+5*
DA(1	SSD, SSD+2, SSDK
DB	QE!
DE	QE!
DEF	MOVE+5!, QE!
DFMD	QE!
>> DFN	REFILE, REFILE+6, MOVE+4, MOVE+8, CP+7, MT+4, MTDT+2
>> DFN1	REFILE, CP+4
>> DGASKDEV	Q
DGCLPR	QE!
DGDAY	QE!
DGDFN	QE!
DGE	QE!
DGERR	QE!
DGHIO	W1+1!
DGHIO(	REFILE+5*, W1
DGIB	CP+2~
DGIBDT	CP+2~, CP+4*, CP+7
DGIO	Q!
DGIO(	REFILE+3, REFILE+5, W1
DGIO("HS"	REFILE+4*
DGIO("PRF"	REFILE+4
DGL	QE!
DGLL	QE!
DGMT	MTDT+1~, MTDT+2*, MTDT+3
DGMTA	MTDT+1~
DGMTACT	MTDT+1~, MTDT+4*
>> DGMTCOR	CP+6*, CP+7
DGMTDT	MTDT+1~, MTDT+3*, MTDT+5
DGMTI	MTDT+1~, MTDT+3*, MTDT+5
DGMTINF	MTDT+1~, MTDT+6*
DGMTP	MTDT+1~
DGMTYPT	MTDT+1~, MTDT+3*
DGNEW	QE!
DGNOCOPF	CP+6, CP+8!
DGO	QE!
DGREQF	MT+2~, MT+4
>> DGRPFEE	QE+2
DGX	CP+2~
DGZ1	SSD*, SSD+1!, SSD+3!
DIC	QE!
DIE	QE!, MTDT+1~, MTDT+5*
DINUM	QE!
DIRUT	CP+2~
DIV	REFILE+1*, QE+1!, CP+2~, MT+2~
DLAYGO	QE+1!
DOW	QE!
DP	QE!
DR	MOVE+5!, QE!, MTDT+1~, MTDT+5*
DT	CP+4, CP+7, MT+4, MTDT+2
DTOUT	CP+2~
I	REFILE, REFILE+3, REFILE+5, REFILE+6, REFILE+8, REFILE+9, MOVE+2, MOVE+3, MOVE+4, MOVE+5! , W1, QE!, SSD*
I1	REFILE+9, MOVE+2, MOVE+3*, MOVE+5!, QE!
>> INTL	REFILE+7*, REFILE+8
IOZBK	QE!
IOZFO	QE!
J	QE+1!
L	MOVE+5!, QE!
L1	MOVE+5!, QE!
L2	MOVE+5!, QE!
LL	MOVE+5!, QE!
LL1	MOVE+5!, QE!
LL2	MOVE+5!, QE!
MDCARD	QE!
PARA	QE!
PGM	QE+1!
PRF	QE!
>> RGMPI	QE+2
RT	QE!
S	MOVE+5!, QE!
S(	MOVE, MOVE+1, MOVE+2
S(1	MOVE+2
SC	QE!
>> SDIV	SSD+2, SSDK
>> SDX	SSD+2, SSDK
SEEN	QE!
U	REFILE+3, CP+3, MT+4
VAFHBEF	QE+1!
VAFHFLG	QE+1!
VAFHMRG	QE+1!
VET	QE+1!
X	REFILE+3, REFILE+10, MOVE, QE+1!, CP+2~
X1	REFILE+10*, MOVE, MOVE+1, QE+1!
X2	REFILE+10*, MOVE, QE+1!
Y	QE+1!, DT
Y1	QE+1!
Z	QE+1!
ZTSK	QE+1!

Customize PDF page

Package: Registration

Routine: DGREG0

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 2

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
Q1	;If Send HL7 V2.3 messaging flag is set to SEND or SUSPEND and
SSDK
QTCP
MTDT	;Date of Test should be the same as the Registration Date
MOVE
Q
MT	;Check if user requires a means test. Ask user if s/he wants to
REFILE
QE
W1
SSD
DT
CP	;If not (autoexempt or MTested) & no CP test this year then
MTDTQ