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,JAM - 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
CCATPRT ; DG*5.3*1143 - Add tag for printout out the categories
CAACT(DFN,ACTDT) ;Determines if the Confidential Address is active
COUNTY(DGRP,FNODE) ;retrieve County info if a US address
LOADLOCAL ; DG*5.3*1143
; If local array(s) holding address data exist, load the data from the array(s) into DGRP
; DGADDGRP1 is the local array holding data entered into group 1 - Residential Address (see DGREGRED)
RTASEND(DFN) ; Send data to ES via the RTA update service and save if valid response
; Returns: 1 - Real-time address update was successful
; 0 - unsuccessful save - Error messages are displayed on the screen indicating the reason for the failure
; The caller can determine how to handle the failure
; One or more of these arrays are created by edit routines to send to ES when RTA is active.
; DGADDGRP1 - Residential Address group, filled by DGREGRED
; DGADDGRP2 - Mailing Address group, filled by DGREGAED
; DGADDGRP3 - Temp Address group, filled by DGREGTED for Temp address
; DGADDGRP4 - Confidential Address group, filled by DGREGTED for Conf address
; DGADDGRP5 - Email and cell phone, filled by DR115^DGRPE1 when editing group 5 on screen 1.1
;
SAVEFROMLOCAL ; DG*5.3*1143 - Save screen 1.1 group 5 data into the database
DISCARD ; DG*5.3*1143 - Discard action on screen 1.1 (called from ^DGRPP)
; Call each edit routine to clean out their RTA variables
CLEANGRP5 ; Clean Group 5 RTA variables
CLEAN ; Clean out RTA variables used by all routines from screen 1.1 - called by ^DGRPP when user is leaving screen 1.1
EOP ; DG*5.3*1143

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DGRPCADD+17
Function Call: WRITE
  • Prompt: " Residential Address: "
  • Line Location: DGRPCADD+17
Function Call: WRITE
  • Prompt: " Mailing Address: "
  • Line Location: DGRPCADD+19
Function Call: WRITE
  • Prompt: !?4
  • Line Location: DGRPCADD+31
Function Call: WRITE
  • Prompt: $S($D(DGA(2)):DGA(2),1:"NO PERMANENT MAILING ADDRESS")
  • Line Location: DGRPCADD+32
Function Call: WRITE
  • Prompt: DGA(I)
  • Line Location: DGRPCADD+34
Function Call: WRITE
  • Prompt: !?4,"County: "_DGCC
  • Line Location: DGRPCADD+37
Function Call: WRITE
  • Prompt: ?44,"County: "_DGCC
  • Line Location: DGRPCADD+39
Function Call: WRITE
  • Prompt: !?5,"Phone: ",$S($P(DGRP(.13),U,1)]"":$P(DGRP(.13),U,1),1:DGRPU)
  • Line Location: DGRPCADD+40
Function Call: WRITE
  • Prompt: ?42,"Bad Addr: ",$$EXTERNAL^DILFD(2,.121,"",$P(DGRP(.11),U,16))
  • Line Location: DGRPCADD+41
Function Call: WRITE
  • Prompt: !?4,"Office: ",$S($P(DGRP(.13),U,2)]"":$P(DGRP(.13),U,2),1:DGRPU)
  • Line Location: DGRPCADD+42
Function Call: WRITE
  • Prompt: !!
  • Line Location: DGRPCADD+43
Function Call: WRITE
  • Prompt: " Temporary Mailing Address: "
  • Line Location: DGRPCADD+47
Function Call: WRITE
  • Prompt: " Confidential Mailing Address: "
  • Line Location: DGRPCADD+48
Function Call: WRITE
  • Prompt: !?4
  • Line Location: DGRPCADD+49
Function Call: WRITE
  • Prompt: $S($D(DGA(2)):DGA(2),1:"NONE ON FILE")
  • Line Location: DGRPCADD+50
Function Call: WRITE
  • Prompt: DGA(I)
  • Line Location: DGRPCADD+52
Function Call: WRITE
  • Prompt: !
  • Line Location: DGRPCADD+53
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+61
Function Call: WRITE
  • Prompt: !?3,"From/To: ",X
  • Line Location: DGRPCADD+67
Function Call: WRITE
  • Prompt: ?43,"From/To: "_DGX
  • Line Location: DGRPCADD+73
Function Call: WRITE
  • Prompt: !?38,"Categories: "
  • Line Location: DGRPCADD+85
Function Call: WRITE
  • Prompt: !
  • Line Location: CCATPRT+6
Function Call: WRITE
  • Prompt: " Cell Phone/Email Address: "
  • Line Location: CCATPRT+6
Function Call: WRITE
  • Prompt: !," Cell Phone: "
  • Line Location: CCATPRT+9
Function Call: WRITE
  • Prompt: ?19,$P(DGRP(.13),U,4)
  • Line Location: CCATPRT+10
Function Call: WRITE
  • Prompt: ?19,"UNANSWERED"
  • Line Location: CCATPRT+11
Function Call: WRITE
  • Prompt: !," Email Address: "
  • Line Location: CCATPRT+14
Function Call: WRITE
  • Prompt: ?19,$P(DGRP(.13),U,3)
  • Line Location: CCATPRT+15
Function Call: WRITE
  • Prompt: ?19,"UNANSWERED"
  • Line Location: CCATPRT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: CCATPRT+20
Function Call: WRITE
  • Prompt: !!,"** Webservice call failed:"
  • Line Location: RTASEND+22
Function Call: WRITE
  • Prompt: DGLINE(DGL,0),!
  • Line Location: RTASEND+22
Function Call: WRITE
  • Prompt: !,"("_DGI_") "
  • Line Location: RTASEND+25
Function Call: WRITE
  • Prompt: DGLINE(DGL,0),!
  • Line Location: RTASEND+30

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