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 - Address Edit API; 01/03/2006 ; 4/2/09 2:29pm

Source Information

Source file <DGREGAED.m>

Call Graph

Call Graph Total: 5

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

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Registration 3 DGADDUTL  DGREGARP  DGREGAZL  
Outpatient Pharmacy 1 PSOBAI  
Scheduling 1 SDM  

Entry Points

Name Comments DBIA/ICR reference
READ(DFN,DGN,Y) ;Read input, return success
SKIP(DGN,DGINPUT,FLG) ; determine whether or not to skip this step
DISPUS(DGCMP,DGM,FLG) ;tag to display US data
COMPARE(DGINPUT,DGCMP,FLG) ;Display before & after address fields.
SAVE(DGINPUT,DFN,FSTR,FORGN) ;Save changes
DISPFGN(DGCMP,DGM,FLG) ;tag to display Foreign data
INPT1(DFN,FORGN,PSTR) ; first address input prompts
EN(DFN,FLG,SRC) ;Entry point
  • ICR #4198
    • Status: Active
    • Usage: Controlled Subscription
    ZIPINP(DGINPUT,DFN) ; get ZIP+4 input
    EOP ;End of page prompt
    CONFIRM() ;Confirm if user wants to save the change
    INPUT(DGINPUT,DFN,FSTR,CNTRY) ;Let user input address changes
    UPCT ;Indicate "^" or "^^" are unacceptable inputs.
    GETOLD(DGCMP,DFN) ;populate array with existing address info

    External References

    Name Field # of Occurrence
    $$CNTRYI^DGADDUTL GETOLD+15, DISPUS+10, DISPFGN+7
    $$FILEYN^DGADDUTL EN+22
    $$FOREIGN^DGADDUTL EN+14
    $$FORIEN^DGADDUTL GETOLD+8, COMPARE+4
    GETPRIOR^DGADDUTL EN+20
    GETUPDTS^DGADDUTL EN+23
    UPDADDLG^DGADDUTL EN+24
    $$CNTY^DGREGAZL GETOLD+20
    EN^DGREGAZL ZIPINP+2
    FILE^DIE SAVE+12
    $$GET1^DIQ INPUT+9, GETOLD+6
    GETS^DIQ GETOLD+13
    ^DIR CONFIRM+5, READ+6, EOP+4

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Change aborted."
    • Line Location: EN+18
    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,.1172)),U)_" "_$P($G(DGCMP(DGM,.114)),U)_" "_$P($G(DGCMP(DGM,.1171)),U)
    • Line Location: DISPFGN+6
    Function Call: WRITE
    • Prompt: !?16,DGCNTRY
    • Line Location: DISPFGN+9
    Function Call: WRITE
    • Prompt: !,?6," Phone: ",?16,$P($G(DGCMP(DGM,.131)),U)
    • Line Location: DISPFGN+11
    Function Call: WRITE
    • Prompt: !,?6," Office: ",?16,$P($G(DGCMP(DGM,.132)),U)
    • Line Location: DISPFGN+12
    Function Call: WRITE
    • Prompt: !,?6,"Bad Addr: ",?16,$P($G(DGCMP(DGM,.121)),U)
    • Line Location: DISPFGN+13
    Function Call: WRITE
    • Prompt: !
    • Line Location: DISPFGN+14
    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:
      • 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+13
    ^HL(779.004 - [#779.004] INPUT+12

    Label References

    Name Line Occurrences
    $$CONFIRM EN+18
    $$INPT1 EN+15, GETOLD+10
    $$READ INPUT+6
    $$SKIP INPUT+4
    COMPARE EN+17
    DISPFGN COMPARE+4
    DISPUS COMPARE+9
    EOP EN+18, SAVE+19
    GETOLD EN+12
    INPUT EN+16
    SAVE EN+21
    UPCT READ+8
    ZIPINP INPUT+5

    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+7~, EN+13*, EN+14, EN+16, INPUT~, INPUT+12
    COUNTRY GETOLD+1~, GETOLD+15*, GETOLD+16
    DA INPUT+2~, READ+1~, READ+5*
    DFN EN~, EN+9, EN+12, EN+13, EN+14, EN+15, EN+16, EN+20, EN+21, EN+23
    , EN+24, INPUT~, INPUT+5, INPUT+6, INPUT+9, GETOLD~, GETOLD+6, GETOLD+10, GETOLD+13, GETOLD+14
    , GETOLD+18, GETOLD+19, SAVE~, SAVE+11, READ~, READ+5, INPT1~, ZIPINP~, ZIPINP+2
    DGCIEN GETOLD+1~, GETOLD+18*, GETOLD+20
    DGCMP EN+7~, EN+12, EN+17, 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+6, DISPFGN+7, DISPFGN+11, DISPFGN+12
    , DISPFGN+13
    DGCMP("NEW" COMPARE+2*, COMPARE+6, COMPARE+7*, COMPARE+8*
    DGCMP("OLD" EN+14, GETOLD+14*, GETOLD+16*, GETOLD+22*
    DGCNTRY DISPUS+1~, DISPUS+10*, DISPUS+11, DISPFGN+1~, DISPFGN+7*, DISPFGN+8*, DISPFGN+9
    DGCNTY GETOLD+1~, GETOLD+20*, GETOLD+21*, GETOLD+22, COMPARE+6*, COMPARE+7
    DGCODE SAVE+8~, SAVE+9*, SAVE+11, SAVE+12
    DGCURR GETOLD+1~
    DGCURR(2 GETOLD+14, GETOLD+18, GETOLD+19
    DGER SAVE+1~, SAVE+2*, SAVE+14*, SAVE+18
    DGINPUT EN+7~, EN+16*, EN+17, EN+21, EN+22, EN+23, EN+24, INPUT~, INPUT+3, INPUT+4
    , INPUT+5, INPUT+6*, INPUT+12, COMPARE~, COMPARE+2, SAVE~, ZIPINP~, ZIPINP+4*, SKIP~
    DGINPUT( INPUT+3*, INPUT+8, INPUT+9*, INPUT+10*, INPUT+11*, INPUT+12*, 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+6, DISPFGN+7, DISPFGN+11, DISPFGN+12, DISPFGN+13, SAVE+1~
    , SAVE+14*, SAVE+16*, SAVE+17
    DGN INPUT+2~, INPUT+3*, INPUT+4, INPUT+5, INPUT+6, INPUT+7, INPUT+8, INPUT+9, INPUT+10, INPUT+11
    , 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 EN+21
    DGPRIOR EN+19~, EN+20, EN+22, EN+24
    DGR INPUT+2~, ZIPINP+1~, ZIPINP+2, ZIPINP+3, ZIPINP+4
    DGST GETOLD+1~, GETOLD+19*, GETOLD+20
    DIR INPUT+2~, CONFIRM+1~, READ+1~, EOP+1~
    DIR("?" CONFIRM+4*
    DIR("A" CONFIRM+3*, EOP+3*
    DIR(0 CONFIRM+2*, READ+4*, EOP+2*
    DIROUT INPUT+2~, CONFIRM+1~, CONFIRM+7, READ+1~, READ+8, EOP+1~
    DTOUT INPUT+2~, CONFIRM+1~, CONFIRM+6, READ+1~, READ+7, EOP+1~
    DUOUT INPUT+2~, CONFIRM+1~, CONFIRM+7, READ+1~, READ+8, EOP+1~
    EASZIPLK EN+6!
    FDA SAVE+8~
    FDA(2 SAVE+11*
    FLG EN~, EN+17, INPUT+4, COMPARE~, COMPARE+4, COMPARE+9, DISPUS~, DISPFGN~, SKIP~
    FLG(1 EN+11*, DISPUS+13, DISPFGN+10, SAVE+7, SKIP+5
    FLG(2 EN+11*, EN+17
    FORGN EN+7~, EN+14*, EN+15, EN+21, SAVE~, SAVE+5, INPT1~, INPT1+6
    FSTR EN+15*, EN+16, EN+21, INPUT~, INPUT+3, SAVE~, SAVE+5*, SAVE+6, INPT1+1~, INPT1+5*
    , INPT1+6*, INPT1+7
    I EN+8~
    ICNTRY EN+7~, EN+13*, EN+14
    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+7~, EN+14*
    POP READ+1~, READ+2*, READ+3, READ+7*, READ+9*
    PSTR EN+7~, EN+15, INPT1~, INPT1+4*
    SKIP SKIP+1~, SKIP+2*, SKIP+3*, SKIP+4*, SKIP+5*, SKIP+6
    SRC EN~, EN+21
    SUCCESS READ+1~, READ+2*, READ+7*, READ+10
    T GETOLD+1~, GETOLD+14*
    U INPUT+9, INPUT+10, 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+6
    , DISPFGN+7, DISPFGN+11, DISPFGN+12, DISPFGN+13, SAVE+9, SAVE+10
    X EN+8~, INPUT+2~, CONFIRM+1~, EOP+1~
    Y EN+8~, INPUT+2~, INPUT+6, INPUT+7*, INPUT+8, INPUT+9, INPUT+10, INPUT+11, CONFIRM+1~, CONFIRM+6
    , READ~, EOP+1~
    Y(0 INPUT+10
    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