Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: DGREGCP1

Package: Registration

Routine: DGREGCP1


Information

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

Source Information

Source file <DGREGCP1.m>

Entry Points

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
PERMMVQ(DFN) ;DISPLAY MAILING ADDRESS AND QUESTION IF COPY TO RESIDENTIAL IS DESIRED
; First check for a valid Mailing Address that can be copied to residential address
ASK ;
EOP ;End of page prompt

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+10
Function Call: WRITE
  • Prompt: !,"Copy completed."
  • Line Location: RESMVQ+21
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 Mailing Address line 1 contains P.O. Box"
  • Line Location: PERMMVQ+19
Function Call: WRITE
  • Prompt: " or General",!,"Delivery the Mailing Address cannot be copied to"
  • Line Location: PERMMVQ+20
Function Call: WRITE
  • Prompt: !,"the Residential Address."
  • Line Location: PERMMVQ+21
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+15
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+15
Function Call: WRITE
  • Prompt: !,"Copy completed."
  • Line Location: ASK+26
Info |  Source |  Entry Points |  Interaction Calls