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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DGRPCADD

Package: Registration

Routine: DGRPCADD


Information

DGRPCADD ;ALB/MRL,BAJ,TDM,JAM,ARF - REGISTRATION SCREEN 1.1/CONFIDENTIAL ADDRESS INFORMATION ;19 Jul 2017 3:05 PM

Source Information

Source file <DGRPCADD.m>

Entry Points

Name Comments DBIA/ICR reference
CAACT(DFN,ACTDT) ;Determines if the Confidential Address is active
COUNTY(DGRP,FNODE) ;retrieve County info if a US address

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DGRPCADD+8
Function Call: WRITE
  • Prompt: " Residential Address: "
  • Line Location: DGRPCADD+8
Function Call: WRITE
  • Prompt: " Mailing Address: "
  • Line Location: DGRPCADD+10
Function Call: WRITE
  • Prompt: !?5
  • Line Location: DGRPCADD+14
Function Call: WRITE
  • Prompt: $S($D(DGA(2)):DGA(2),1:"NO PERMANENT MAILING ADDRESS")
  • Line Location: DGRPCADD+15
Function Call: WRITE
  • Prompt: DGA(I)
  • Line Location: DGRPCADD+17
Function Call: WRITE
  • Prompt: !?5,"County: "_DGCC
  • Line Location: DGRPCADD+20
Function Call: WRITE
  • Prompt: ?44,"County: "_DGCC
  • Line Location: DGRPCADD+22
Function Call: WRITE
  • Prompt: !?6,"Phone: ",$S($P(DGRP(.13),U,1)]"":$P(DGRP(.13),U,1),1:DGRPU)
  • Line Location: DGRPCADD+23
Function Call: WRITE
  • Prompt: ?42,"Bad Addr: ",$$EXTERNAL^DILFD(2,.121,"",$P(DGRP(.11),U,16))
  • Line Location: DGRPCADD+24
Function Call: WRITE
  • Prompt: !?5,"Office: ",$S($P(DGRP(.13),U,2)]"":$P(DGRP(.13),U,2),1:DGRPU)
  • Line Location: DGRPCADD+25
Function Call: WRITE
  • Prompt: !!
  • Line Location: DGRPCADD+26
Function Call: WRITE
  • Prompt: " Temporary Mailing Address: "
  • Line Location: DGRPCADD+30
Function Call: WRITE
  • Prompt: " Confidential Mailing Address: "
  • Line Location: DGRPCADD+31
Function Call: WRITE
  • Prompt: !?5
  • Line Location: DGRPCADD+32
Function Call: WRITE
  • Prompt: $S($D(DGA(2)):DGA(2),1:"NONE ON FILE")
  • Line Location: DGRPCADD+33
Function Call: WRITE
  • Prompt: DGA(I)
  • Line Location: DGRPCADD+35
Function Call: WRITE
  • Prompt: !
  • Line Location: DGRPCADD+36
Function Call: WRITE
  • Prompt: ?45,"Phone: ",$S($P(DGRP(.141),U,9)'="Y":"NOT APPLICABLE",'$P($$CAACT(DFN),U):"NOT APPLICABLE",$P(DGRP(.13),U,15)]"":$P(DGRP(.13),U,15),1:DGRPU)
  • Line Location: DGRPCADD+44
Function Call: WRITE
  • Prompt: !?2,"From/To: ",X
  • Line Location: DGRPCADD+50
Function Call: WRITE
  • Prompt: ?43,"From/To: "_DGX
  • Line Location: DGRPCADD+56
Function Call: WRITE
  • Prompt: !?38,"Categories: "
  • Line Location: DGRPCADD+57
Function Call: WRITE
  • Prompt: !
  • Line Location: DGRPCADD+73

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] EXTERNAL^DILFD
2.141 GET1^DID
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call