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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Registration 8 $$FORIEN^DGADDUTL  (CLEAN,SAVEFROMLOCAL)^DGREGAED  (CLEAN,SAVEFROMLOCAL)^DGREGRED  (CLEAN,SAVEFROMLOCAL)^DGREGTED  ^DGRPP  (AL,H)^DGRPU  (WW,WW1)^DGRPV  ($$EN,$$ISRTAUON)^DGRTAUPD  
VA FileMan 5 $$GET1^DID  FILE^DIE  $$EXTERNAL^DILFD  ^DIR  ^DIWP  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Registration 7 DGADDUTL  DGREGTE2  DGRPC2  DGRPD  DGRPP  DGRPP1  DGRPU1  

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

External References

Name Field # of Occurrence
$$FORIEN^DGADDUTL COUNTY+10
CLEAN^DGREGAED DISCARD+5
SAVEFROMLOCAL^DGREGAED RTASEND+36
CLEAN^DGREGRED DISCARD+4
SAVEFROMLOCAL^DGREGRED RTASEND+35
CLEAN^DGREGTED DISCARD+2, DISCARD+3
SAVEFROMLOCAL^DGREGTED RTASEND+37, RTASEND+38
^DGRPP CCATPRT+21
AL^DGRPU DGRPCADD+30, DGRPCADD+45, DGRPCADD+46
H^DGRPU DGRPCADD+7
WW^DGRPV DGRPCADD+17, DGRPCADD+19, DGRPCADD+47, DGRPCADD+48, CCATPRT+6
WW1^DGRPV DGRPCADD+19, DGRPCADD+32, DGRPCADD+48, DGRPCADD+50
$$EN^DGRTAUPD RTASEND+12
$$ISRTAUON^DGRTAUPD DGRPCADD+15
$$GET1^DID DGRPCADD+78, DGRPCADD+89
FILE^DIE SAVEFROMLOCAL+8
$$EXTERNAL^DILFD DGRPCADD+41
^DIR EOP+4
^DIWP RTASEND+20, RTASEND+28

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
Routine Call
  • DIE
  • Line Location:
    • SAVEFROMLOCAL+8
Routine Call
  • DIR
  • Line Location:
    • EOP+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] EXTERNAL^DILFD
2.141 GET1^DID

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DGRPCADD+64, DGRPCADD+65, DGRPCADD+71, DGRPCADD+72
^DIC(5 - [#5] COUNTY+11
^DPT - [#2] DGRPCADD+21, DGRPCADD+85, DGRPCADD+90, DGRPCADD+91, DGRPCADD+92, CAACT+22, CAACT+30, CAACT+31
^UTILITY($J RTASEND+19!, RTASEND+21, RTASEND+27!, RTASEND+29

Label References

Name Line Occurrences
$$CAACT DGRPCADD+46, DGRPCADD+57, DGRPCADD+61, DGRPCADD+69, DGRPCADD+88
$$COUNTY DGRPCADD+36, DGRPCADD+38, DGRPCADD+55, DGRPCADD+58
CCATPRT DGRPCADD+75
CLEANGRP5 SAVEFROMLOCAL+10
EOP RTASEND+31, RTASEND+41
LOADLOCAL DGRPCADD+28
SAVEFROMLOCAL RTASEND+39

Naked Globals

Name Field # of Occurrence
^( DGRPCADD+21
^(0 COUNTY+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTDT CAACT~, CAACT+14*, CAACT+19, CAACT+26
CNODE COUNTY+1~, COUNTY+4*, COUNTY+6*, COUNTY+9
CNT DGRPCADD+6~, CCATPRT+1*, CCATPRT+2, CCATPRT+4*
DFN DGRPCADD+21, DGRPCADD+46, DGRPCADD+57, DGRPCADD+61, DGRPCADD+69, DGRPCADD+85, DGRPCADD+88, DGRPCADD+90, DGRPCADD+91, DGRPCADD+92
, CAACT~, CAACT+13, CAACT+22, CAACT+30, CAACT+31, RTASEND~, RTASEND+12, SAVEFROMLOCAL+5, SAVEFROMLOCAL+7
DGA DGRPCADD+6~, DGRPCADD+44!
DGA( DGRPCADD+34, DGRPCADD+52
DGA(1 DGRPCADD+32, DGRPCADD+50, DGRPCADD+54
DGA(2 DGRPCADD+32, DGRPCADD+50, DGRPCADD+57
DGA1 DGRPCADD+6~, DGRPCADD+30*, DGRPCADD+44!, DGRPCADD+45*, DGRPCADD+46*
DGA2 DGRPCADD+6~, DGRPCADD+30*, DGRPCADD+44!, DGRPCADD+45*, DGRPCADD+46*
DGACT DGRPCADD+6~, DGRPCADD+80*, DGRPCADD+81*, DGRPCADD+83, DGRPCADD+92*, DGRPCADD+93*, DGRPCADD+95
DGAD DGRPCADD+6~, DGRPCADD+30*, DGRPCADD+45*, DGRPCADD+46*
DGADDEDIT DGRPCADD+15~
DGADDEDIT(5 CLEANGRP5+1!
DGADDGRP1 DGRPCADD+15~, RTASEND+12, RTASEND+35
DGADDGRP1( LOADLOCAL+3, LOADLOCAL+5, LOADLOCAL+7, LOADLOCAL+9, LOADLOCAL+11, LOADLOCAL+13, LOADLOCAL+15, LOADLOCAL+17, LOADLOCAL+19, LOADLOCAL+21
, LOADLOCAL+23, LOADLOCAL+25, LOADLOCAL+27, LOADLOCAL+29, LOADLOCAL+31
DGADDGRP2 DGRPCADD+15~, RTASEND+12, RTASEND+36
DGADDGRP2( LOADLOCAL+34, LOADLOCAL+36, LOADLOCAL+38, LOADLOCAL+40, LOADLOCAL+42, LOADLOCAL+44, LOADLOCAL+46, LOADLOCAL+48, LOADLOCAL+50, LOADLOCAL+52
, LOADLOCAL+54, LOADLOCAL+56, LOADLOCAL+58, LOADLOCAL+60
DGADDGRP3 DGRPCADD+15~, RTASEND+12, RTASEND+37
DGADDGRP3( LOADLOCAL+63, LOADLOCAL+65, LOADLOCAL+67, LOADLOCAL+69, LOADLOCAL+71, LOADLOCAL+73, LOADLOCAL+75, LOADLOCAL+77, LOADLOCAL+79, LOADLOCAL+81
, LOADLOCAL+83, LOADLOCAL+85, LOADLOCAL+87, LOADLOCAL+89, LOADLOCAL+91, LOADLOCAL+93, LOADLOCAL+95
DGADDGRP4 DGRPCADD+15~, DGRPCADD+75, RTASEND+12, RTASEND+38
DGADDGRP4( DGRPCADD+77, CAACT+16, CAACT+17, CAACT+18, CAACT+22, LOADLOCAL+98, LOADLOCAL+100, LOADLOCAL+102, LOADLOCAL+104, LOADLOCAL+106
, LOADLOCAL+108, LOADLOCAL+110, LOADLOCAL+112, LOADLOCAL+114, LOADLOCAL+116, LOADLOCAL+118, LOADLOCAL+120, LOADLOCAL+122, LOADLOCAL+124, LOADLOCAL+126
, LOADLOCAL+128
DGADDGRP4("CCATS" DGRPCADD+79, DGRPCADD+80
DGADDGRP5 DGRPCADD+15~, RTASEND+12, RTASEND+39, CLEANGRP5+1!
DGADDGRP5( LOADLOCAL+131, LOADLOCAL+133, SAVEFROMLOCAL+3, SAVEFROMLOCAL+4, SAVEFROMLOCAL+7
DGBEG DGRPCADD+6~, DGRPCADD+71*
DGCA CAACT+11~, CAACT+22*, CAACT+23, CAACT+24, CAACT+25
DGCABEG CAACT+11~, CAACT+17*, CAACT+19, CAACT+24*, CAACT+26
DGCAEND CAACT+11~, CAACT+18*, CAACT+19, CAACT+25*, CAACT+26
DGCAN DGRPCADD+6~, DGRPCADD+79*, DGRPCADD+80, DGRPCADD+90*, DGRPCADD+91, DGRPCADD+92
DGCAT DGRPCADD+6~, DGRPCADD+78*, DGRPCADD+82, DGRPCADD+89*, DGRPCADD+94
DGCC DGRPCADD+35~, DGRPCADD+36*, DGRPCADD+37, DGRPCADD+38*, DGRPCADD+39, DGRPCADD+55*, DGRPCADD+56, DGRPCADD+58*, DGRPCADD+59, COUNTY+1~
, COUNTY+2*, COUNTY+11*, COUNTY+12*, COUNTY+13
DGEND DGRPCADD+6~, DGRPCADD+72*
DGERRS RTASEND+11~, RTASEND+12
DGERRS( RTASEND+24, RTASEND+26
DGFLG CAACT+11~, CAACT+29*, CAACT+30, CAACT+32*, CAACT+33
DGI DGRPCADD+6~, DGRPCADD+70*, DGRPCADD+71, DGRPCADD+72, DGRPCADD+82*, DGRPCADD+94*, CCATPRT+1*, RTASEND+15~, RTASEND+24*, RTASEND+25
, RTASEND+26
DGIEN CAACT+11~, CAACT+29*, CAACT+30*, CAACT+31
DGL RTASEND+15~, RTASEND+22*, RTASEND+30*
DGLINE RTASEND+15~, RTASEND+21*, RTASEND+22, RTASEND+29*, RTASEND+30
DGLINE( RTASEND+22, RTASEND+30
DGN SAVEFROMLOCAL+1~, SAVEFROMLOCAL+2*, SAVEFROMLOCAL+3*, SAVEFROMLOCAL+4, SAVEFROMLOCAL+5, SAVEFROMLOCAL+7
DGRP DGRPCADD+6~, DGRPCADD+36, DGRPCADD+38, DGRPCADD+55, DGRPCADD+58, COUNTY~
DGRP( DGRPCADD+20, DGRPCADD+21*, DGRPCADD+40, DGRPCADD+41, DGRPCADD+42, DGRPCADD+45, DGRPCADD+46, DGRPCADD+60, DGRPCADD+61, DGRPCADD+63
, DGRPCADD+64, DGRPCADD+65, DGRPCADD+69, DGRPCADD+70, DGRPCADD+87, CCATPRT+10, CCATPRT+11, CCATPRT+15, CCATPRT+16, COUNTY+9
, COUNTY+11, LOADLOCAL+5*, LOADLOCAL+7*, LOADLOCAL+9*, LOADLOCAL+11*, LOADLOCAL+13*, LOADLOCAL+15*, LOADLOCAL+17*, LOADLOCAL+19*, LOADLOCAL+21*
, LOADLOCAL+23*, LOADLOCAL+25*, LOADLOCAL+27*, LOADLOCAL+29*, LOADLOCAL+31*, LOADLOCAL+36*, LOADLOCAL+38*, LOADLOCAL+40*, LOADLOCAL+42*, LOADLOCAL+44*
, LOADLOCAL+46*, LOADLOCAL+48*, LOADLOCAL+50*, LOADLOCAL+52*, LOADLOCAL+54*, LOADLOCAL+56*, LOADLOCAL+58*, LOADLOCAL+60*, LOADLOCAL+65*, LOADLOCAL+67*
, LOADLOCAL+69*, LOADLOCAL+71*, LOADLOCAL+73*, LOADLOCAL+75*, LOADLOCAL+77*, LOADLOCAL+79*, LOADLOCAL+81*, LOADLOCAL+83*, LOADLOCAL+85*, LOADLOCAL+87*
, LOADLOCAL+89*, LOADLOCAL+91*, LOADLOCAL+93*, LOADLOCAL+95*, LOADLOCAL+100*, LOADLOCAL+102*, LOADLOCAL+104*, LOADLOCAL+106*, LOADLOCAL+108*, LOADLOCAL+110*
, LOADLOCAL+112*, LOADLOCAL+114*, LOADLOCAL+116*, LOADLOCAL+118*, LOADLOCAL+120*, LOADLOCAL+122*, LOADLOCAL+124*, LOADLOCAL+126*, LOADLOCAL+128*, LOADLOCAL+131*
, LOADLOCAL+133*
>> DGRPOUT EOP+6*
DGRPS DGRPCADD+6~, DGRPCADD+7*
>> DGRPU DGRPCADD+40, DGRPCADD+42, DGRPCADD+60, DGRPCADD+61, DGRPCADD+65, DGRPCADD+66, COUNTY+11
DGRPW DGRPCADD+6~, DGRPCADD+17*, DGRPCADD+19*, DGRPCADD+48*, CCATPRT+6*
DGRTAHOLD DGRPCADD+15~*, CLEAN+1!
DGRTAON DGRPCADD+15~*, DGRPCADD+28, CLEAN+1!
DGRTARET RTASEND+11~, RTASEND+12*, RTASEND+14, RTASEND+18, RTASEND+33, RTASEND+42
DGSTAT CAACT+11~, CAACT+12*, CAACT+13, CAACT+20*, CAACT+27*, CAACT+33*, CAACT+34
>> DGTMOT EOP+6*
DGTYP DGRPCADD+6~, DGRPCADD+80*, DGRPCADD+83, DGRPCADD+92*, DGRPCADD+95, CAACT+11~, CAACT+31*, CAACT+32
DGTYPNAM DGRPCADD+6~, DGRPCADD+82*, DGRPCADD+83*, DGRPCADD+94*, DGRPCADD+95*
DGVALUE SAVEFROMLOCAL+1~, SAVEFROMLOCAL+4*, SAVEFROMLOCAL+5
DGX DGRPCADD+6~, DGRPCADD+68*, DGRPCADD+70*, DGRPCADD+71*, DGRPCADD+72*, DGRPCADD+73, DGRPCADD+79*, DGRPCADD+83*, DGRPCADD+90*, DGRPCADD+95*
, CCATPRT+1
DGXX DGRPCADD+6~, CCATPRT+1*, CCATPRT+3
DGZ DGRPCADD+6~, DGRPCADD+70*
DIR EOP+1~
DIR("A" EOP+3*
DIR(0 EOP+2*
DIWF RTASEND+15~, RTASEND+16*
DIWL RTASEND+15~, RTASEND+16*
DIWR RTASEND+15~, RTASEND+16*
DT CAACT+14
>> DTOUT EOP+6
FCPE COUNTY+1~, COUNTY+4*, COUNTY+6*, COUNTY+8*, COUNTY+9
FDA SAVEFROMLOCAL+1~
FDA(2 SAVEFROMLOCAL+5*, SAVEFROMLOCAL+7*
FNODE COUNTY~, COUNTY+4, COUNTY+6, COUNTY+8, COUNTY+11
I DGRPCADD+6~, DGRPCADD+21*, DGRPCADD+34*, DGRPCADD+52*
I1 DGRPCADD+6~, DGRPCADD+34*, DGRPCADD+52*
IEN COUNTY+1~, COUNTY+9*, COUNTY+10
PIECE COUNTY+1~, COUNTY+4*, COUNTY+6*, COUNTY+8*, COUNTY+11
U DGRPCADD+40, DGRPCADD+41, DGRPCADD+42, DGRPCADD+46, DGRPCADD+57, DGRPCADD+60, DGRPCADD+61, DGRPCADD+63, DGRPCADD+64, DGRPCADD+65
, DGRPCADD+69, DGRPCADD+87, DGRPCADD+88, CCATPRT+10, CCATPRT+11, CCATPRT+15, CCATPRT+16, CAACT+24, CAACT+25, CAACT+32
, CAACT+33, COUNTY+9, COUNTY+11, LOADLOCAL+131, LOADLOCAL+133
X DGRPCADD+6~, DGRPCADD+62*, DGRPCADD+65*, DGRPCADD+66*, DGRPCADD+67, RTASEND+15~, RTASEND+18*, RTASEND+26*, EOP+1~
Y DGRPCADD+6~, DGRPCADD+64*, DGRPCADD+65*, DGRPCADD+66, DGRPCADD+70*, DGRPCADD+71, DGRPCADD+72, EOP+1~
Z DGRPCADD+6~, DGRPCADD+17*, DGRPCADD+19*, DGRPCADD+32*, DGRPCADD+47*, DGRPCADD+48*, DGRPCADD+50*, CCATPRT+6*, RTASEND+15~
Z1 DGRPCADD+6~, DGRPCADD+17*, DGRPCADD+32*, DGRPCADD+47*, DGRPCADD+50*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All