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,JAM - 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
; 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) ;DG*5.3*1043 - 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) ;DG*5.3*1143 - Display Mailing Address operation for Real-time address update

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
Info |  Source |  Entry Points |  Interaction Calls