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 |  Local Variables  | All
Print Page as PDF
Routine: DGREGAED

Package: Registration

Routine: DGREGAED


Information

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

Source Information

Source file <DGREGAED.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Registration 4 ($$CNTRYI,$$FILEYN,$$FOREIGN,$$FORIEN,GETPRIOR,GETUPDTS,UPDADDLG)^DGADDUTL  $$EN^DGADDVAL  $$UPD^DGENDBS  ($$CNTY,EN)^DGREGAZL  
VA FileMan 3 FILE^DIE  ($$GET1,GETS)^DIQ  ^DIR  

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

Package Total Caller Graph
Registration 5 DGADDUTL  DGREGARP  DGREGAZL  DGREGTZL  DPTLK7  
Fee Basis 1 FBAACO0  
Integrated Billing 1 IBCSCE  
Outpatient Pharmacy 1 PSOBAI  
Scheduling 1 SDM  

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*1040 - Set variable DGTMOT to 1 to track timeout
    CHK ; DG*5.3*1014; Prompt user and allow them to correct the address or continue to Validation service
    CONF
    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.

    External References

    Name Field # of Occurrence
    $$CNTRYI^DGADDUTL GETOLD+15, DISPUS+10, DISPFGN+8
    $$FILEYN^DGADDUTL CONF+10
    $$FOREIGN^DGADDUTL RETRY+2
    $$FORIEN^DGADDUTL GETOLD+8, COMPARE+4
    GETPRIOR^DGADDUTL CONF+8
    GETUPDTS^DGADDUTL CONF+11
    UPDADDLG^DGADDUTL CONF+12
    $$EN^DGADDVAL CHK+15
    $$UPD^DGENDBS SAVE+21
    $$CNTY^DGREGAZL GETOLD+20
    EN^DGREGAZL ZIPINP+2
    FILE^DIE SAVE+12
    $$GET1^DIQ INPUT+11, GETOLD+6
    GETS^DIQ GETOLD+13
    ^DIR CHK+6, CONFIRM+5, READ+6, EOP+4

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!?3,*7,"ADDRESS [LINE 1], CITY, and ZIP CODE fields are required."
    • Line Location: RETRY+8
    Function Call: WRITE
    • Prompt: !!?3,*7,"ADDRESS [LINE 1] and CITY fields are required."
    • Line Location: RETRY+9
    Function Call: WRITE
    • Prompt: !
    • Line Location: RETRY+13
    Function Call: WRITE
    • Prompt: !,"Address changes not saved."
    • Line Location: CHK+10
    Function Call: WRITE
    • Prompt: !!,"No Results - UAM Address Validation Service is unable to validate the address.",!,"Please verify the address entered. "
    • Line Location: CHK+19
    Function Call: WRITE
    • Prompt: !,"Address changes not saved."
    • Line Location: CONF+6
    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+15
    Function Call: WRITE
    • Prompt: $G(MSG("DIERR",1,"TEXT",DGM))
    • Line Location: SAVE+17
    Function Call: WRITE
    • Prompt: !,"Change saved."
    • Line Location: SAVE+18
    Function Call: WRITE
    • Prompt: !,"EXIT NOT ALLOWED ??"
    • Line Location: UPCT+1
    Routine Call
    • DIE
    • Line Location:
      • SAVE+12
    Routine Call
    • DIR
    • Line Location:
      • CHK+6
      • CONFIRM+5
      • READ+6
      • EOP+4

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] GET1^DIQ,  GETS^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DPT - [#2] EN+15
    ^HL(779.004 - [#779.004] INPUT+14

    Label References

    Name Line Occurrences
    $$CONFIRM CONF+2
    $$INPT1 RETRY+3, GETOLD+10
    $$READ INPUT+8
    $$SKIP INPUT+4
    CHK CHK+12
    COMPARE CONF
    DISPFGN RETRY+14, COMPARE+4
    DISPUS RETRY+15, COMPARE+9
    EOP CHK+10, CHK+19, CONF+6, SAVE+22
    GETOLD EN+14
    INPUT RETRY+4
    RETRY RETRY+7, CHK+11
    SAVE CONF+9
    UPCT READ+8
    ZIPINP INPUT+6

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    CCIEN GETOLD+1~, GETOLD+6*, GETOLD+8, GETOLD+15, GETOLD+16
    CFORGN GETOLD+1~, GETOLD+2*, GETOLD+8*, GETOLD+10, GETOLD+12, GETOLD+17
    CFSTR GETOLD+1~, GETOLD+10*, GETOLD+12*, GETOLD+13, GETOLD+14
    CNTRY EN+9~, EN+15*, RETRY+2, RETRY+4, INPUT~, INPUT+14
    COUNTRY GETOLD+1~, GETOLD+15*, GETOLD+16
    DA INPUT+2~, READ+1~, READ+5*
    DATA SAVE+1~, SAVE+21
    DATA( SAVE+20*
    DFN EN~, EN+11*, EN+14, EN+15, RETRY+2, RETRY+4, RETRY+5, CONF+8, CONF+9, CONF+11
    , CONF+12, INPUT~, INPUT+6, INPUT+8, INPUT+11, GETOLD~, GETOLD+6, GETOLD+13, GETOLD+14, GETOLD+18
    , GETOLD+19, SAVE~, SAVE+11, SAVE+21, READ~, READ+5, ZIPINP~, ZIPINP+2
    DGADVRET CHK+14~, CHK+15*, CHK+17, CHK+19
    DGCIEN GETOLD+1~, GETOLD+18*, GETOLD+20
    DGCMP EN+9~, EN+14, CONF, GETOLD~, COMPARE~, COMPARE+4, COMPARE+9, DISPUS~, DISPFGN~
    DGCMP( COMPARE+4, DISPUS+3, DISPUS+4, DISPUS+5, DISPUS+6, DISPUS+7, DISPUS+8, DISPUS+9, DISPUS+10, DISPUS+12
    , DISPUS+14, DISPUS+15, DISPUS+16, DISPFGN+3, DISPFGN+4, DISPFGN+5, DISPFGN+7, DISPFGN+8, DISPFGN+12, DISPFGN+13
    , DISPFGN+14
    DGCMP("NEW" COMPARE+2*, COMPARE+6, COMPARE+7*, COMPARE+8*
    DGCMP("OLD" RETRY+2, GETOLD+14*, GETOLD+16*, GETOLD+22*
    DGCNTRY DISPUS+1~, DISPUS+10*, DISPUS+11, DISPFGN+1~, DISPFGN+8*, DISPFGN+9*, DISPFGN+10
    DGCNTY GETOLD+1~, GETOLD+20*, GETOLD+21*, GETOLD+22, COMPARE+6*, COMPARE+7
    DGCODE SAVE+8~, SAVE+9*, SAVE+11, SAVE+12
    DGCONFIRM CONF+2~*, CONF+4, CONF+6
    DGCURR GETOLD+1~
    DGCURR(2 GETOLD+14, GETOLD+18, GETOLD+19
    DGER SAVE+1~, SAVE+2*, SAVE+14*, SAVE+18
    DGINPUT EN+9~, RETRY+4*, RETRY+5, RETRY+12, CHK+15, CONF, CONF+9, CONF+10, CONF+11, CONF+12
    , INPUT~, INPUT+3, INPUT+4, INPUT+6, INPUT+8*, INPUT+14, COMPARE~, COMPARE+2, SAVE~, ZIPINP~
    , ZIPINP+5*, ZIPINP+6*, SKIP~
    DGINPUT( RETRY+7, INPUT+3*, INPUT+10, INPUT+11*, INPUT+12*, INPUT+13*, INPUT+14*, SAVE+9, SAVE+10, SKIP+3
    , SKIP+4
    DGM COMPARE+1~, COMPARE+3*, COMPARE+4, COMPARE+5, COMPARE+9, DISPUS~, DISPUS+2, DISPUS+3, DISPUS+4, DISPUS+5
    , DISPUS+6, DISPUS+7, DISPUS+8, DISPUS+9, DISPUS+10, DISPUS+12, DISPUS+14, DISPUS+15, DISPUS+16, DISPFGN~
    , DISPFGN+2, DISPFGN+3, DISPFGN+4, DISPFGN+5, DISPFGN+7, DISPFGN+8, DISPFGN+12, DISPFGN+13, DISPFGN+14, SAVE+1~
    , SAVE+14*, SAVE+16*, SAVE+17
    DGN INPUT+2~, INPUT+3*, INPUT+4, INPUT+6, INPUT+8, INPUT+9, INPUT+10, INPUT+11, INPUT+12, INPUT+13
    , SAVE+1~, SAVE+6*, SAVE+7, SAVE+9, SAVE+10, SAVE+11, READ~, READ+4, SKIP~, SKIP+3
    , SKIP+4, SKIP+5
    DGNAME SAVE+8~, SAVE+10*, SAVE+11
    >> DGNEW CONF+9
    DGNEWADD RETRY+11~, RETRY+14, RETRY+15, RETRY+16!
    DGNEWADD("NEW" RETRY+12*
    DGPRIOR CONF+7~, CONF+8, CONF+10, CONF+12
    DGR INPUT+2~, ZIPINP+1~, ZIPINP+2, ZIPINP+5, ZIPINP+6
    DGRET EN~, EN+8!, RETRY+5*
    DGST GETOLD+1~, GETOLD+19*, GETOLD+20
    >> DGTMOT RETRY+2*, CHK+8*, CHK+17*, CHK+19, INPUT+6*, INPUT+8*, CONFIRM+7*, EOP+6*
    DIR CHK+1~, CHK+6!, INPUT+2~, CONFIRM+1~, READ+1~, EOP+1~
    DIR("?" CHK+5*, CONFIRM+4*
    DIR("A" CHK+2*, CHK+3*, CONFIRM+3*, EOP+3*
    DIR(0 CHK+4*, CONFIRM+2*, READ+4*, EOP+2*
    DIROUT INPUT+2~, CONFIRM+1~, CONFIRM+10, READ+1~, READ+8, EOP+1~
    DTOUT CHK+8, INPUT+2~, CONFIRM+1~, CONFIRM+7, READ+1~, READ+7, EOP+1~, EOP+6
    DUOUT CHK+10, INPUT+2~, CONFIRM+1~, CONFIRM+10, READ+1~, READ+8, EOP+1~
    EASZIPLK EN+8!
    FDA SAVE+8~
    FDA(2 SAVE+11*
    FLG EN~, CONF, INPUT+4, COMPARE~, COMPARE+4, COMPARE+9, DISPUS~, DISPFGN~, SKIP~
    FLG(1 EN+13*, DISPUS+13, DISPFGN+11, SAVE+7, SKIP+5
    FLG(2 EN+13*, CONF
    FORGN EN+9~, RETRY+2*, RETRY+3, RETRY+7, RETRY+8, RETRY+9, RETRY+14, RETRY+15, CONF+9, SAVE~
    , SAVE+5, INPT1~, INPT1+6
    FSTR RETRY+3*, RETRY+4, CONF+9, INPUT~, INPUT+3, SAVE~, SAVE+5*, SAVE+6, INPT1+1~, INPT1+5*
    , INPT1+6*, INPT1+7
    I EN+10~
    ICNTRY EN+9~, EN+15*, EN+16*, RETRY+2
    L INPUT+2~, INPUT+3*, GETOLD+1~, GETOLD+14*, SAVE+1~, SAVE+6*, READ+1~, READ+3*
    MSG SAVE+8~, SAVE+13
    MSG("DIERR" SAVE+16, SAVE+17
    OLDC EN+9~, RETRY+2*
    POP READ+1~, READ+2*, READ+3, READ+7*, READ+9*
    PSTR EN+9~, RETRY+3, INPT1~, INPT1+4*
    SKIP SKIP+1~, SKIP+2*, SKIP+3*, SKIP+4*, SKIP+5*, SKIP+6
    SRC EN~, CONF+9
    SUCCESS READ+1~, READ+2*, READ+7*, READ+10
    T GETOLD+1~, GETOLD+14*
    U INPUT+11, INPUT+12, GETOLD+22, COMPARE+4, COMPARE+6, DISPUS+3, DISPUS+4, DISPUS+5, DISPUS+6, DISPUS+7
    , DISPUS+8, DISPUS+10, DISPUS+12, DISPUS+14, DISPUS+15, DISPUS+16, DISPFGN+3, DISPFGN+4, DISPFGN+5, DISPFGN+7
    , DISPFGN+8, DISPFGN+12, DISPFGN+13, DISPFGN+14, SAVE+9, SAVE+10
    X EN+10~, CHK+11, CHK+12, INPUT+2~, CONFIRM+1~, EOP+1~
    Y EN+10~, INPUT+2~, INPUT+8, INPUT+9*, INPUT+10, INPUT+11, INPUT+12, INPUT+13, CONFIRM+1~, CONFIRM+9
    , READ~, EOP+1~
    Y(0 INPUT+12
    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 |  Local Variables  | All