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: DGREGAED

Package: Registration

Routine: DGREGAED


Information

DGREGAED ;ALB/DW,PHH,BAJ,TDM,JAM,ARF,JAM - Address Edit API ;1/6/21 10:28

Source Information

Source file <DGREGAED.m>

Entry Points

Name Comments DBIA/ICR reference
EN(DFN,FLG,SRC,DGRET) ;Entry point
  • ICR #4198
    • Status: Active
    • Usage: Controlled Subscription
    RETRY ; DG*5.3*1014;jam ; Tag added for entry point to re-enter the address
    ; DG*5.3*1143 - Merge any current values being entered with the old values and overwrite the Country with what is in the local array for Country
    CHK ; DG*5.3*1014; Prompt user and allow them to correct the address or continue to Validation service
    CONF
    CLEAN ; DG*5.3*1143 - Clean out edit data when the user saves or discards the changes
    SAVERTA ; DG*5.3*1143 - Save the address edits with RTA updates active
    ; Hold the data in local array DGADDGRP2
    ASK ; Give the user the option to retry edits or quit
    SAVETOLOCAL ; DG*5.3*1143 - Save user input to local array DGADDGRP2
    ; Hold the data in the DGADDGRP2 array and save to the DB later
    SENDRTAU() ; DG*5.3*1143 - send edited address data to ES via webservice directly
    SAVEFROMLOCAL ; DG*5.3*1143 Save data to the DB from the local DGADDGRP2 array
    INPUT(DGINPUT,DFN,FSTR,CNTRY) ;Let user input address changes
    GETOLD(DGCMP,DFN) ;populate array with existing address info
    COMPARE(DGINPUT,DGCMP,FLG) ;Display before & after address fields.
    DISPUS(DGCMP,DGM,FLG) ;tag to display US data
    DISPFGN(DGCMP,DGM,FLG) ;tag to display Foreign data
    CONFIRM() ;Confirm if user wants to save the change
    SAVE(DGINPUT,DFN,FSTR,FORGN) ;Save changes
    READ(DFN,DGN,Y) ;Read input, return success
    INPT1(FORGN,PSTR) ; first address input prompts
    ZIPINP(DGINPUT,DFN) ; get ZIP+4 input
    SKIP(DGN,DGINPUT,FLG) ; determine whether or not to skip this step
    EOP ;End of page prompt
    UPCT ;Indicate "^" or "^^" are unacceptable inputs.

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!?3,*7,"ADDRESS [LINE 1], CITY, STATE, and ZIP CODE fields are required."
    • Line Location: RETRY+13
    Function Call: WRITE
    • Prompt: !!?3,*7,"ADDRESS [LINE 1] and CITY fields are required."
    • Line Location: RETRY+14
    Function Call: WRITE
    • Prompt: !
    • Line Location: RETRY+18
    Function Call: WRITE
    • Prompt: !,"Address changes not saved."
    • Line Location: CHK+11
    Function Call: WRITE
    • Prompt: !!,"No Results - UAM Address Validation Service is unable to validate the address.",!,"Please verify the address entered. "
    • Line Location: CHK+23
    Function Call: WRITE
    • Prompt: !,"Address changes not saved."
    • Line Location: CONF+7
    Function Call: WRITE
    • Prompt: !,"Address changes not saved."
    • Line Location: CONF+11
    Function Call: WRITE
    • Prompt: !,"Change saved."
    • Line Location: SAVERTA+10
    Function Call: WRITE
    • Prompt: !!,"** Webservice call failed:"
    • Line Location: SENDRTAU+11
    Function Call: WRITE
    • Prompt: DGLINE(DGL,0),!
    • Line Location: SENDRTAU+11
    Function Call: WRITE
    • Prompt: !,"("_DGI_") "
    • Line Location: SENDRTAU+14
    Function Call: WRITE
    • Prompt: DGLINE(DGL,0),!
    • Line Location: SENDRTAU+19
    Function Call: WRITE
    • Prompt: !,?2,"[",DGM," ADDRESS]"
    • Line Location: DISPUS+2
    Function Call: WRITE
    • Prompt: ?16,$P($G(DGCMP(DGM,.111)),U)
    • Line Location: DISPUS+3
    Function Call: WRITE
    • Prompt: !,?16,$P($G(DGCMP(DGM,.112)),U)
    • Line Location: DISPUS+4
    Function Call: WRITE
    • Prompt: !,?16,$P($G(DGCMP(DGM,.113)),U)
    • Line Location: DISPUS+5
    Function Call: WRITE
    • Prompt: !,?16,$P($G(DGCMP(DGM,.114)),U)
    • Line Location: DISPUS+6
    Function Call: WRITE
    • Prompt: $P($G(DGCMP(DGM,.115)),U)
    • Line Location: DISPUS+8
    Function Call: WRITE
    • Prompt: " ",$G(DGCMP(DGM,.1112))
    • Line Location: DISPUS+9
    Function Call: WRITE
    • Prompt: !?16,DGCNTRY
    • Line Location: DISPUS+11
    Function Call: WRITE
    • Prompt: !,?6," County: ",$P($G(DGCMP(DGM,.117)),U)
    • Line Location: DISPUS+12
    Function Call: WRITE
    • Prompt: !,?6," Phone: ",?16,$P($G(DGCMP(DGM,.131)),U)
    • Line Location: DISPUS+14
    Function Call: WRITE
    • Prompt: !,?6," Office: ",?16,$P($G(DGCMP(DGM,.132)),U)
    • Line Location: DISPUS+15
    Function Call: WRITE
    • Prompt: !,?6,"Bad Addr: ",?16,$P($G(DGCMP(DGM,.121)),U)
    • Line Location: DISPUS+16
    Function Call: WRITE
    • Prompt: !
    • Line Location: DISPUS+17
    Function Call: WRITE
    • Prompt: !,?2,"[",DGM," ADDRESS]"
    • Line Location: DISPFGN+2
    Function Call: WRITE
    • Prompt: ?16,$P($G(DGCMP(DGM,.111)),U)
    • Line Location: DISPFGN+3
    Function Call: WRITE
    • Prompt: !,?16,$P($G(DGCMP(DGM,.112)),U)
    • Line Location: DISPFGN+4
    Function Call: WRITE
    • Prompt: !,?16,$P($G(DGCMP(DGM,.113)),U)
    • Line Location: DISPFGN+5
    Function Call: WRITE
    • Prompt: !,?16,$P($G(DGCMP(DGM,.114)),U)_" "_$P($G(DGCMP(DGM,.1171)),U)_" "_$P($G(DGCMP(DGM,.1172)),U)
    • Line Location: DISPFGN+7
    Function Call: WRITE
    • Prompt: !?16,DGCNTRY
    • Line Location: DISPFGN+10
    Function Call: WRITE
    • Prompt: !,?6," Phone: ",?16,$P($G(DGCMP(DGM,.131)),U)
    • Line Location: DISPFGN+12
    Function Call: WRITE
    • Prompt: !,?6," Office: ",?16,$P($G(DGCMP(DGM,.132)),U)
    • Line Location: DISPFGN+13
    Function Call: WRITE
    • Prompt: !,?6,"Bad Addr: ",?16,$P($G(DGCMP(DGM,.121)),U)
    • Line Location: DISPFGN+14
    Function Call: WRITE
    • Prompt: !
    • Line Location: DISPFGN+15
    Function Call: WRITE
    • Prompt: !,"Please review the saved changes!!",!
    • Line Location: SAVE+16
    Function Call: WRITE
    • Prompt: $G(MSG("DIERR",1,"TEXT",DGM))
    • Line Location: SAVE+18
    Function Call: WRITE
    • Prompt: !,"Change saved."
    • Line Location: SAVE+19
    Function Call: WRITE
    • Prompt: !,*7,"Answer must be 10 numbers in length with an optional 'X' and 1-6 digit",!,"extension number allowed.",!!
    • Line Location: READ+16
    Function Call: WRITE
    • Prompt: !,"EXIT NOT ALLOWED ??"
    • Line Location: UPCT+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] GET1^DIQ,  GETS^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call