Routine: DGREGCP1

Package	Total	Call Graph
Registration	4	($$CNTRYI,$$FORIEN)^DGADDUTL $$CNTY^DGREGAZL (P2R,P2RLOCAL,R2P,R2PLOCAL)^DGREGCOP $$POBOXPM^DGREGCP2
VA FileMan	1	^DIR

Package	Total	Caller Graph
Registration	1	DGRPE1

Name	Comments	DBIA/ICR reference
RESDISP(DFN)	;DISPLAY THE RESIDENTIAL ADDRESS
PERMDISP(DFN)	;DISPLAY MAILING ADDRESS
RESMVQ(DFN)	;DISPLAY RESIDENTIAL ADDRESS AND QUESTION IF COPY TO PERM IS DESIRED ; If Real-time address updates are active, copy using local arrays holding the data
PERMMVQ(DFN)	;DISPLAY MAILING ADDRESS AND QUESTION IF COPY TO RESIDENTIAL IS DESIRED ; If Real-time address updates are active, copy using local arrays holding the data
ASK	;
EOP	;End of page prompt
RESMVQRTA(DFN)	;DISPLAY RESIDENTIAL ADDRESS AND QUESTION IF COPY TO PERM IS DESIRED ; If both the local array and database LINE1 fields for Residential address are not defined, quit
RESDISPRTA(DFN)	;DG5.31043 - Residential address display operation for Real-time address update
PERMMVQRTA(DFN)	;DISPLAY MAILING ADDRESS AND QUESTION IF COPY TO RESIDENTIAL IS DESIRED ; If both the local array line 1 and database line 1 field for Mailing address are not defined, quit
RTAASK	;
PERMDISPRTA(DFN)	;DG5.31143 - Display Mailing Address operation for Real-time address update

Name	Field # of Occurrence
$$CNTRYI^DGADDUTL	RESDISP+11, PERMDISP+11, RESDISPRTA+9, PERMDISPRTA+10
$$FORIEN^DGADDUTL	RESDISP+11, PERMDISP+11, PERMMVQ+13, RESDISPRTA+9, PERMMVQRTA+9, PERMMVQRTA+19, PERMDISPRTA+10
$$CNTY^DGREGAZL	RESDISP+21, PERMDISP+21, RESDISPRTA+20, PERMDISPRTA+21
P2R^DGREGCOP	ASK+26
P2RLOCAL^DGREGCOP	RTAASK+23
R2P^DGREGCOP	RESMVQ+23
R2PLOCAL^DGREGCOP	RESMVQRTA+20
$$POBOXPM^DGREGCP2	PERMMVQ+22, PERMMVQRTA+24
^DIR	RESMVQ+9, RESMVQ+17, ASK+6, ASK+20, EOP+4, RESMVQRTA+6, RESMVQRTA+16, RTAASK+5, RTAASK+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Residential Address to copy to the Mailing Address:",! Line Location: RESDISP+4
Function Call: WRITE	Prompt: ! Line Location: RESDISP+15
Function Call: WRITE	Prompt: ?43,"County: " Line Location: RESDISP+17
Function Call: WRITE	Prompt: "UNKNOWN" Line Location: RESDISP+18
Function Call: WRITE	Prompt: $P(DGCNTY,"^",1),"(",$P(DGCNTY,"^",3),")" Line Location: RESDISP+21
Function Call: WRITE	Prompt: ?43,"Province: " Line Location: RESDISP+23
Function Call: WRITE	Prompt: !?3,DGA9_" "_DGA4 Line Location: RESDISP+25
Function Call: WRITE	Prompt: !?3,DGA4_" "_DGA9 Line Location: RESDISP+26
Function Call: WRITE	Prompt: !?3,DGA4 Line Location: RESDISP+27
Function Call: WRITE	Prompt: ",",$P(^DIC(5,+$P(^DPT(DFN,.115),"^",5),0),"^",2) Line Location: RESDISP+28
Function Call: WRITE	Prompt: " ",DGZIP Line Location: RESDISP+30
Function Call: WRITE	Prompt: !?3,DGCNTRY,! Line Location: RESDISP+31
Function Call: WRITE	Prompt: !,"Mailing Address to copy to Residential Address:",! Line Location: PERMDISP+4
Function Call: WRITE	Prompt: ! Line Location: PERMDISP+15
Function Call: WRITE	Prompt: ?43,"County: " Line Location: PERMDISP+17
Function Call: WRITE	Prompt: "UNKNOWN" Line Location: PERMDISP+18
Function Call: WRITE	Prompt: $P(DGCNTY,"^",1),"(",$P(DGCNTY,"^",3),")" Line Location: PERMDISP+21
Function Call: WRITE	Prompt: ?43,"Province: " Line Location: PERMDISP+23
Function Call: WRITE	Prompt: !?3,DGA9_" "_DGA4 Line Location: PERMDISP+25
Function Call: WRITE	Prompt: !?3,DGA4_" "_DGA9 Line Location: PERMDISP+26
Function Call: WRITE	Prompt: !?3,DGA4 Line Location: PERMDISP+27
Function Call: WRITE	Prompt: ",",$P(^DIC(5,+$P(^DPT(DFN,.11),"^",5),0),"^",2) Line Location: PERMDISP+28
Function Call: WRITE	Prompt: " ",DGZIP Line Location: PERMDISP+30
Function Call: WRITE	Prompt: !?3,DGCNTRY,! Line Location: PERMDISP+31
Function Call: WRITE	Prompt: ! Line Location: RESMVQ+13
Function Call: WRITE	Prompt: !,"Copy completed." Line Location: RESMVQ+24
Function Call: WRITE	Prompt: !!?3,*7,"P.O. Box and GENERAL DELIVERY cannot be used in residential address." Line Location: PERMMVQ+23
Function Call: WRITE	Prompt: ! Line Location: PERMMVQ+23
Function Call: WRITE	Prompt: !,"Because the Mailing Address line 1 contains P.O. Box" Line Location: PERMMVQ+25
Function Call: WRITE	Prompt: " or General",!,"Delivery the Mailing Address cannot be copied to" Line Location: PERMMVQ+26
Function Call: WRITE	Prompt: !,"the Residential Address." Line Location: PERMMVQ+27
Function Call: WRITE	Prompt: ! Line Location: ASK+1
Function Call: WRITE	Prompt: ! Line Location: ASK+15
Function Call: WRITE	Prompt: !! Line Location: ASK+16
Function Call: WRITE	Prompt: ! Line Location: ASK+16
Function Call: WRITE	Prompt: !,"Copy completed." Line Location: ASK+27
Function Call: WRITE	Prompt: ! Line Location: RESMVQRTA+10
Function Call: WRITE	Prompt: !,"Copy completed." Line Location: RESMVQRTA+21
Function Call: WRITE	Prompt: !,"Residential Address to copy to the Mailing Address:",! Line Location: RESDISPRTA+3
Function Call: WRITE	Prompt: ! Line Location: RESDISPRTA+13
Function Call: WRITE	Prompt: ?43,"County: " Line Location: RESDISPRTA+15
Function Call: WRITE	Prompt: "UNKNOWN" Line Location: RESDISPRTA+17
Function Call: WRITE	Prompt: $P(DGCNTY,"^",1),"(",$P(DGCNTY,"^",3),")" Line Location: RESDISPRTA+20
Function Call: WRITE	Prompt: ?43,"Province: " Line Location: RESDISPRTA+22
Function Call: WRITE	Prompt: !?3,DGA4_" "_DGA9 Line Location: RESDISPRTA+24
Function Call: WRITE	Prompt: !?3,DGA4 Line Location: RESDISPRTA+25
Function Call: WRITE	Prompt: ",",$P(^DIC(5,DGADDGRP1(.1155),0),"^",2) Line Location: RESDISPRTA+26
Function Call: WRITE	Prompt: " ",DGZIP Line Location: RESDISPRTA+28
Function Call: WRITE	Prompt: !?3,DGCNTRY,! Line Location: RESDISPRTA+29
Function Call: WRITE	Prompt: !!?3,*7,"P.O. Box and GENERAL DELIVERY cannot be used in residential address." Line Location: PERMMVQRTA+25
Function Call: WRITE	Prompt: ! Line Location: PERMMVQRTA+25
Function Call: WRITE	Prompt: !,"Because the Mailing Address line 1 contains P.O. Box" Line Location: PERMMVQRTA+26
Function Call: WRITE	Prompt: " or General",!,"Delivery the Mailing Address cannot be copied to the Residential Address." Line Location: PERMMVQRTA+27
Function Call: WRITE	Prompt: ! Line Location: RTAASK+13
Function Call: WRITE	Prompt: !,"Copy completed." Line Location: RTAASK+24
Function Call: WRITE	Prompt: !,"Mailing Address to copy to Residential Address:",! Line Location: PERMDISPRTA+3
Function Call: WRITE	Prompt: ! Line Location: PERMDISPRTA+14
Function Call: WRITE	Prompt: ?43,"County: " Line Location: PERMDISPRTA+16
Function Call: WRITE	Prompt: "UNKNOWN" Line Location: PERMDISPRTA+18
Function Call: WRITE	Prompt: $P(DGCNTY,"^",1),"(",$P(DGCNTY,"^",3),")" Line Location: PERMDISPRTA+21
Function Call: WRITE	Prompt: ?43,"Province: " Line Location: PERMDISPRTA+23
Function Call: WRITE	Prompt: !?3,DGA9_" "_DGA4 Line Location: PERMDISPRTA+25
Function Call: WRITE	Prompt: !?3,DGA4_" "_DGA9 Line Location: PERMDISPRTA+26
Function Call: WRITE	Prompt: !?3,DGA4 Line Location: PERMDISPRTA+27
Function Call: WRITE	Prompt: ",",$P(^DIC(5,+DGADDGRP2(.115),0),"^",2) Line Location: PERMDISPRTA+28
Function Call: WRITE	Prompt: " ",DGZIP Line Location: PERMDISPRTA+30
Function Call: WRITE	Prompt: !?3,DGCNTRY,! Line Location: PERMDISPRTA+31
Routine Call	DIR Line Location: RESMVQ+9 RESMVQ+17 ASK+6 ASK+20 EOP+4 RESMVQRTA+6 RESMVQRTA+16 RTAASK+5 RTAASK+19

Name	Line Occurrences (* Changed, ! Killed)
^DIC(5 - [#5]	RESDISP+19, RESDISP+28, PERMDISP+19, PERMDISP+28, RESDISPRTA+18, RESDISPRTA+26, PERMDISPRTA+19, PERMDISPRTA+28
^DPT - [#2]	RESDISP+5, RESDISP+8, RESDISP+28, RESDISP+29, PERMDISP+5, PERMDISP+8, PERMDISP+28, PERMDISP+29, RESMVQ+4, PERMMVQ+6 , RESMVQRTA+2, PERMMVQRTA+2, PERMMVQRTA+16

Name	Line Occurrences
ASK	ASK+13
EOP	RESMVQ+25, PERMMVQ+28, ASK+28, RESMVQRTA+22, PERMMVQRTA+28, RTAASK+25
PERMDISP	ASK+16, RTAASK+15
PERMDISPRTA	RTAASK+16
PERMMVQRTA	PERMMVQ+2
RESDISP	RESMVQ+14, RESMVQRTA+12
RESDISPRTA	RESMVQRTA+13
RESMVQRTA	RESMVQ+2
RTAASK	RTAASK+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	RESDISP~, RESDISP+5, RESDISP+8, RESDISP+28, RESDISP+29, PERMDISP~, PERMDISP+5, PERMDISP+8, PERMDISP+28, PERMDISP+29 , RESMVQ~, RESMVQ+2, RESMVQ+4, RESMVQ+14, RESMVQ+23, PERMMVQ~, PERMMVQ+2, PERMMVQ+6, ASK+16, ASK+26 , RESMVQRTA~, RESMVQRTA+2, RESMVQRTA+12, RESMVQRTA+13, RESMVQRTA+20, RESDISPRTA~, PERMMVQRTA~, PERMMVQRTA+2, PERMMVQRTA+16, RTAASK+15 , RTAASK+16, RTAASK+23, PERMDISPRTA~
DFORGN	PERMMVQ+5~, PERMMVQRTA+4~
DGA1	RESDISP+1~, RESDISP+8, RESDISP+13, RESDISP+15, PERMDISP+1~, PERMDISP+8, PERMDISP+13, PERMDISP+15, RESDISPRTA+1~, RESDISPRTA+5* , RESDISPRTA+11, RESDISPRTA+13, PERMMVQRTA+4~, PERMMVQRTA+10, PERMMVQRTA+20, PERMMVQRTA+24, PERMDISPRTA+1~, PERMDISPRTA+5*, PERMDISPRTA+12, PERMDISPRTA+14
DGA10	RESDISP+1~, RESDISP+10, RESDISP+11, PERMDISP+1~, PERMDISP+10, PERMDISP+11, PERMMVQ+5~, PERMMVQ+12, PERMMVQ+13, PERMMVQ+22 , RESDISPRTA+1~, RESDISPRTA+8, RESDISPRTA+9, PERMMVQRTA+4~, PERMMVQRTA+8, PERMMVQRTA+9, PERMMVQRTA+18, PERMMVQRTA+19, PERMMVQRTA+24, PERMDISPRTA+1~ , PERMDISPRTA+9*, PERMDISPRTA+10
DGA1315	RESDISP+1~, PERMDISP+1~, RESDISPRTA+1~, PERMDISPRTA+1~
DGA2	RESDISP+1~, RESDISP+8, RESDISP+13, PERMDISP+1~, PERMDISP+8, PERMDISP+13, RESDISPRTA+1~, RESDISPRTA+5, RESDISPRTA+11, PERMDISPRTA+1~ , PERMDISPRTA+5, PERMDISPRTA+12
DGA3	RESDISP+1~, RESDISP+8, RESDISP+13, PERMDISP+1~, PERMDISP+8, PERMDISP+13, RESDISPRTA+1~, RESDISPRTA+5, RESDISPRTA+11, PERMDISPRTA+1~ , PERMDISPRTA+5, PERMDISPRTA+12
DGA4	RESDISP+1~, RESDISP+8, RESDISP+26, RESDISP+27, PERMDISP+1~, PERMDISP+8, PERMDISP+26, PERMDISP+27, RESDISPRTA+1~, RESDISPRTA+5* , RESDISPRTA+24, RESDISPRTA+25, PERMDISPRTA+1~, PERMDISPRTA+5*, PERMDISPRTA+26, PERMDISPRTA+27
DGA5	PERMMVQ+18~, PERMMVQ+20, PERMMVQ+22, PERMMVQRTA+4~, PERMMVQRTA+11, PERMMVQRTA+21*, PERMMVQRTA+24
DGA9	RESDISP+1~, RESDISP+9, RESDISP+26, PERMDISP+1~, PERMDISP+9, PERMDISP+26, RESDISPRTA+1~, RESDISPRTA+7, RESDISPRTA+24, PERMDISPRTA+1~ , PERMDISPRTA+7, PERMDISPRTA+26
DGADD	PERMMVQ+18~
>> DGADDGRP1(	RESMVQRTA+2, RESMVQRTA+12, RESDISPRTA+5, RESDISPRTA+7, RESDISPRTA+8, RESDISPRTA+17, RESDISPRTA+18, RESDISPRTA+19, RESDISPRTA+23, RESDISPRTA+26 , RESDISPRTA+27
>> DGADDGRP2(	PERMMVQRTA+2, PERMMVQRTA+6, PERMMVQRTA+8, PERMMVQRTA+10, PERMMVQRTA+11, PERMMVQRTA+14, RTAASK+15, RTAASK+16, PERMDISPRTA+5, PERMDISPRTA+7 , PERMDISPRTA+9, PERMDISPRTA+18, PERMDISPRTA+19, PERMDISPRTA+20, PERMDISPRTA+24, PERMDISPRTA+28, PERMDISPRTA+29
DGCIEN	RESDISP+2~, RESDISP+20, RESDISP+21, PERMDISP+2~, PERMDISP+20, PERMDISP+21, RESDISPRTA+2~, RESDISPRTA+19, RESDISPRTA+20, PERMDISPRTA+2~ , PERMDISPRTA+20, PERMDISPRTA+21
DGCNTRY	RESDISP+2~, RESDISP+11, RESDISP+12, RESDISP+31, PERMDISP+2~, PERMDISP+11, PERMDISP+12, PERMDISP+31, RESDISPRTA+2~, RESDISPRTA+9* , RESDISPRTA+10, RESDISPRTA+29, PERMDISPRTA+2~, PERMDISPRTA+10, PERMDISPRTA+11*, PERMDISPRTA+31
DGCNTY	RESDISP+2~, RESDISP+21, PERMDISP+2~, PERMDISP+21, RESDISPRTA+2~, RESDISPRTA+20, PERMDISPRTA+2~, PERMDISPRTA+21
DGE	RESDISP+2~, PERMDISP+2~, RESDISPRTA+2~, PERMDISPRTA+2~
DGFORGN	RESDISP+2~, RESDISP+11, RESDISP+16, RESDISP+26, RESDISP+27, PERMDISP+2~, PERMDISP+11, PERMDISP+16, PERMDISP+26, PERMDISP+27 , PERMMVQ+13, PERMMVQ+14, RESDISPRTA+2~, RESDISPRTA+9, RESDISPRTA+14, RESDISPRTA+24, RESDISPRTA+25, PERMMVQRTA+9, PERMMVQRTA+19, PERMDISPRTA+2~ , PERMDISPRTA+10*, PERMDISPRTA+15, PERMDISPRTA+26, PERMDISPRTA+27
DGLINE1	PERMMVQ+18~, PERMMVQ+20*, PERMMVQ+22
DGRESADD	PERMMVQ+18~
DGRESX	PERMMVQ+18~
>> DGRTAON	RESMVQ+2, PERMMVQ+2
DGST	RESDISP+2~, RESDISP+20, RESDISP+21, PERMDISP+2~, PERMDISP+20, PERMDISP+21, RESDISPRTA+2~, RESDISPRTA+19, RESDISPRTA+20, PERMDISPRTA+2~ , PERMDISPRTA+20, PERMDISPRTA+21
>> DGTMOT	RESMVQ+11, RESMVQ+19, PERMMVQ+30, ASK+9, ASK+22, ASK+30, EOP+6, RESMVQRTA+8, RESMVQRTA+17, RTAASK+8 , RTAASK+20*
DGXX	RESDISP+2~, RESDISP+8, RESDISP+9, RESDISP+10, RESDISP+18, RESDISP+19, RESDISP+20, RESDISP+24, PERMDISP+2~, PERMDISP+8 , PERMDISP+9, PERMDISP+10, PERMDISP+18, PERMDISP+19, PERMDISP+20, PERMDISP+24, PERMMVQ+5~, PERMMVQ+6, PERMMVQ+8, PERMMVQ+10 , PERMMVQ+12, PERMMVQ+14, PERMMVQ+20, RESDISPRTA+2~, PERMMVQRTA+15~, PERMMVQRTA+16, PERMMVQRTA+18, PERMMVQRTA+20, PERMMVQRTA+21, PERMDISPRTA+2~
DGZIP	RESDISP+1~, RESDISP+29, RESDISP+30, PERMDISP+1~, PERMDISP+29, PERMDISP+30, RESDISPRTA+1~, RESDISPRTA+27, RESDISPRTA+28, PERMDISPRTA+1~ , PERMDISPRTA+29, PERMDISPRTA+30
DIR	RESMVQ+5~, PERMMVQ+18~, EOP+1~, RESMVQRTA+3~, RESMVQRTA+7!, RTAASK+1~, RTAASK+6!
DIR("?"	RESMVQ+8, RESMVQ+16, ASK+4, ASK+19, RESMVQRTA+5, RESMVQRTA+15, RTAASK+3, RTAASK+18
DIR("A"	RESMVQ+7, RESMVQ+15, ASK+3, ASK+17, EOP+3, RESMVQRTA+4, RESMVQRTA+14, RTAASK+2, RTAASK+17*
DIR("B"	RESMVQ+7, RESMVQ+15, ASK+5, ASK+17, RESMVQRTA+4, RESMVQRTA+14, RTAASK+4, RTAASK+17
DIR(0	RESMVQ+7, RESMVQ+15, ASK+3, ASK+17, EOP+2, RESMVQRTA+4, RESMVQRTA+14, RTAASK+2, RTAASK+17*
DIROUT	RESMVQ+22, ASK+12, ASK+25, EOP+1~, RESMVQRTA+19, RTAASK+10, RTAASK+22
DIRUT	PERMMVQ+19!, ASK+13, RTAASK+11
DTOUT	RESMVQ+5~, RESMVQ+11, RESMVQ+19, ASK+9, ASK+22, EOP+1~, EOP+6, RESMVQRTA+3~, RESMVQRTA+8, RESMVQRTA+17 , RTAASK+1~, RTAASK+8, RTAASK+20
DUOUT	RESMVQ+5~, RESMVQ+22, ASK+12, ASK+25, EOP+1~, RESMVQRTA+3~, RESMVQRTA+19, RTAASK+1~, RTAASK+10, RTAASK+22
U	RESDISP+18, RESDISP+19, RESDISP+20, RESDISP+24, PERMDISP+18, PERMDISP+19, PERMDISP+20, PERMDISP+24
X	RESDISP+2~, PERMDISP+2~, RESMVQ+5~, PERMMVQ+18~, ASK+7, EOP+1~, RESMVQRTA+3~, RESDISPRTA+2~, RTAASK+1~, RTAASK+7 , PERMDISPRTA+2~
Y	RESDISP+2~, PERMDISP+2~, RESMVQ+5~, RESMVQ+12, RESMVQ+21, PERMMVQ+18~, ASK+7, ASK+11, ASK+14, ASK+24 , EOP+1~, RESMVQRTA+3~, RESMVQRTA+9, RESMVQRTA+18, RESDISPRTA+2~, RTAASK+1~, RTAASK+7, RTAASK+9, RTAASK+12, RTAASK+21 , PERMDISPRTA+2~
Y(0	ASK+7, RTAASK+7

Customize PDF page

Package: Registration

Routine: DGREGCP1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: