Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DGREGCP1

Package: Registration

Routine: DGREGCP1


Information

DGREGCP1 ;ALB/CLT - ADDRESS COPY UTILITIES ;18 May 2017 2:54 PM

Source Information

Source file <DGREGCP1.m>

Call Graph

Call Graph

Call Graph Total: 5

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGRPE  

Entry Points

Name Comments DBIA/ICR reference
PERMMVQ(DFN) ;DISPLAY PERMANENT ADDRESS AND QUESTION IF COPY TO RESIDENTIAL IS DESIRED
; First check for a valid Permanent Address that can be copied to residential address
RESMVQ(DFN) ;DISPLAY RESIDENTIAL ADDRESS AND QUESTION IF COPY TO PERM IS DESIRED
EOP ;End of page prompt
ASK ;
PERMDISP(DFN) ;DISPLAY PERMANENT MAILING ADDRESS
RESDISP(DFN) ;DISPLAY THE RESIDENTIAL ADDRESS

External References

Name Field # of Occurrence
$$CNTRYI^DGADDUTL RESDISP+10, PERMDISP+10
$$FORIEN^DGADDUTL RESDISP+10, PERMDISP+10, PERMMVQ+10
$$CNTY^DGREGAZL RESDISP+20, PERMDISP+20
P2R^DGREGCOP ASK+17
R2P^DGREGCOP RESMVQ+14
$$POBOXPM^DGREGCP2 PERMMVQ+16
^DIR RESMVQ+5, RESMVQ+11, ASK+4, ASK+14, EOP+4

Interaction Calls

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(5 - [#5] RESDISP+18, RESDISP+26, PERMDISP+18, PERMDISP+26
^DPT - [#2] RESDISP+4, RESDISP+7, RESDISP+26, RESDISP+27, PERMDISP+4, PERMDISP+7, PERMDISP+26, PERMDISP+27, RESMVQ+1, PERMMVQ+3

Label References

Name Line Occurrences
ASK ASK+8
EOP RESMVQ+16, PERMMVQ+21, ASK+19
PERMDISP ASK+11
RESDISP RESMVQ+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN RESDISP~, RESDISP+4, RESDISP+7, RESDISP+26, RESDISP+27, PERMDISP~, PERMDISP+4, PERMDISP+7, PERMDISP+26, PERMDISP+27
, RESMVQ~, RESMVQ+1, RESMVQ+8, RESMVQ+14, PERMMVQ~, PERMMVQ+3, PERMMVQ+16, ASK+11, ASK+17
DFORGN PERMMVQ+2~
DGA1 RESDISP+1~, RESDISP+7*, RESDISP+12, RESDISP+14, PERMDISP+1~, PERMDISP+7*, PERMDISP+12, PERMDISP+14
DGA10 RESDISP+1~, RESDISP+9*, RESDISP+10, PERMDISP+1~, PERMDISP+9*, PERMDISP+10, PERMMVQ+2~, PERMMVQ+9*, PERMMVQ+10
DGA1315 RESDISP+1~, PERMDISP+1~
DGA2 RESDISP+1~, RESDISP+7*, RESDISP+12, PERMDISP+1~, PERMDISP+7*, PERMDISP+12
DGA3 RESDISP+1~, RESDISP+7*, RESDISP+12, PERMDISP+1~, PERMDISP+7*, PERMDISP+12
DGA4 RESDISP+1~, RESDISP+7*, RESDISP+24, RESDISP+25, PERMDISP+1~, PERMDISP+7*, PERMDISP+24, PERMDISP+25
DGA9 RESDISP+1~, RESDISP+8*, RESDISP+24, PERMDISP+1~, PERMDISP+8*, PERMDISP+24
DGADD PERMMVQ+14~
DGCIEN RESDISP+2~, RESDISP+19*, RESDISP+20, PERMDISP+2~, PERMDISP+19*, PERMDISP+20
DGCNTRY RESDISP+2~, RESDISP+10*, RESDISP+11*, RESDISP+29, PERMDISP+2~, PERMDISP+10*, PERMDISP+11*, PERMDISP+29
DGCNTY RESDISP+2~, RESDISP+20*, PERMDISP+2~, PERMDISP+20*
DGE RESDISP+2~, PERMDISP+2~
DGFORGN RESDISP+2~, RESDISP+10*, RESDISP+15, RESDISP+24, RESDISP+25, PERMDISP+2~, PERMDISP+10*, PERMDISP+15, PERMDISP+24, PERMDISP+25
, PERMMVQ+10*, PERMMVQ+11
DGRESADD PERMMVQ+14~
DGRESX PERMMVQ+14~
DGST RESDISP+2~, RESDISP+19*, RESDISP+20, PERMDISP+2~, PERMDISP+19*, PERMDISP+20
DGXX RESDISP+2~, RESDISP+7*, RESDISP+8, RESDISP+9, RESDISP+17, RESDISP+18, RESDISP+19, RESDISP+23, PERMDISP+2~, PERMDISP+7*
, PERMDISP+8, PERMDISP+9, PERMDISP+17, PERMDISP+18, PERMDISP+19, PERMDISP+23, PERMMVQ+2~, PERMMVQ+3*, PERMMVQ+5, PERMMVQ+7
, PERMMVQ+9, PERMMVQ+11
DGZIP RESDISP+1~, RESDISP+27*, RESDISP+28, PERMDISP+1~, PERMDISP+27*, PERMDISP+28
DIR RESMVQ+2~, PERMMVQ+14~, EOP+1~
DIR("?" RESMVQ+4*, RESMVQ+10*, ASK+3*, ASK+13*
DIR("A" RESMVQ+3*, RESMVQ+9*, ASK+2*, ASK+12*, EOP+3*
DIR("B" RESMVQ+3*, RESMVQ+9*, ASK+12*
DIR(0 RESMVQ+3*, RESMVQ+9*, ASK+2*, ASK+12*, EOP+2*
DIROUT RESMVQ+13, ASK+7, ASK+16, EOP+1~
DIRUT PERMMVQ+15!, ASK+8
DTOUT RESMVQ+2~, RESMVQ+12, ASK+6, ASK+15, EOP+1~
DUOUT RESMVQ+2~, RESMVQ+13, ASK+7, ASK+16, EOP+1~
U RESDISP+17, RESDISP+18, RESDISP+19, RESDISP+23, PERMDISP+17, PERMDISP+18, PERMDISP+19, PERMDISP+23
X RESDISP+2~, PERMDISP+2~, RESMVQ+2~, PERMMVQ+14~, ASK+5, EOP+1~
Y RESDISP+2~, PERMDISP+2~, RESMVQ+2~, RESMVQ+6, RESMVQ+12, PERMMVQ+14~, ASK+5*, ASK+6, ASK+9, ASK+15
, EOP+1~
Y(0 ASK+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All