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

Package: Registration

Routine: DGREGRED


Information

DGREGRED ;ALB/JAM - Residential Address Edit API ;23 Feb 2018 1:33 PM

Source Information

Source file <DGREGRED.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Registration 5 ($$CNTRYI,$$FOREIGN,$$FORIEN)^DGADDUTL  $$UPD^DGENDBS  $$CNTY^DGREGAZL  $$POBOXRES^DGREGCP2  EN^DGREGTZL  
VA FileMan 3 FILE^DIE  ($$GET1,GETS)^DIQ  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
EOP ;End of page prompt
SKIP(DGN,DGINPUT,FLG) ; determine whether or not to skip this step
RETRY
ZIPINP(DGINPUT,DFN) ; get ZIP+4 input
; This subroutine calls existing code to prompt for zip code and return corresponding city, state and county
; DFN must be the patient internal ID.
; DGINPUT - passed by reference - the array containing the resulting county, city, and state for the zipcode.
COMPARE(DGINPUT,DGCMP) ;Display before & after address fields.
UPCT ;Indicate "^" or "^^" are unacceptable inputs.
SAVE(DGINPUT,DFN,FSTR,FORGN) ;Save changes
INPT1(FORGN,PSTR) ; first address input prompts
READ(DFN,DGN,Y) ;Read input, return success
PHONE ; Process the phone number changes IF FLG(1) = 1
COMPAREP(DGINPUT,DGCMP) ;Display before & after phone fields.
CONFIRM(TYPE) ;Confirm if user wants to save the changes
; TYPE - used for the query message displayed to the user: "address" or "phone number"
EN(DFN,FLG) ;Entry point
SAVEPH(DGINPUT,DFN) ;Save phone changes
INPUT(DGINPUT,DFN,FSTR,CNTRY) ;Let user input address changes
; Output: DGINPUT(field#)=external^internal(if any)
DISPUS(DGCMP,DGM) ;tag to display US data
DISPFGN(DGCMP,DGM) ;tag to display Foreign data
GETOLD(DGCMP,DFN) ;populate array with existing address info

External References

Name Field # of Occurrence
$$CNTRYI^DGADDUTL GETOLD+13, DISPUS+10, DISPFGN+7
$$FOREIGN^DGADDUTL RETRY+4
$$FORIEN^DGADDUTL GETOLD+6, COMPARE+5
$$UPD^DGENDBS SAVE+22
$$CNTY^DGREGAZL GETOLD+18
$$POBOXRES^DGREGCP2 RETRY+18
EN^DGREGTZL ZIPINP+9
FILE^DIE SAVE+13, SAVEPH+8
$$GET1^DIQ GETOLD+5
GETS^DIQ GETOLD+11
^DIR CONFIRM+6, READ+6, EOP+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Address change aborted."
  • Line Location: RETRY+11
Function Call: WRITE
  • Prompt: !!?3,*7,"RESIDENTIAL ADDRESS [LINE 1], ZIP CODE and CITY fields are required."
  • Line Location: RETRY+14
Function Call: WRITE
  • Prompt: !!?3,*7,"RESIDENTIAL ADDRESS [LINE 1] and CITY fields are required."
  • Line Location: RETRY+15
Function Call: WRITE
  • Prompt: !!?3,*7,"You cannot enter 'P. O. Box' or 'General Delivery' for a Residential Address."
  • Line Location: RETRY+19
Function Call: WRITE
  • Prompt: !,"Phone changes aborted."
  • Line Location: PHONE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: COMPARE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: COMPAREP+3
Function Call: WRITE
  • Prompt: !,?2,"[",DGM," PHONE NUMBERS]"
  • Line Location: COMPAREP+5
Function Call: WRITE
  • Prompt: !,?6," Phone: ",?16,$P($G(DGCMP(DGM,.131)),U)
  • Line Location: COMPAREP+6
Function Call: WRITE
  • Prompt: !,?6," Office: ",?16,$P($G(DGCMP(DGM,.132)),U)
  • Line Location: COMPAREP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: COMPAREP+8
Function Call: WRITE
  • Prompt: !,?2,"[",DGM," RESIDENTIAL ADDRESS]"
  • Line Location: DISPUS+2
Function Call: WRITE
  • Prompt: !?16,$P($G(DGCMP(DGM,.1151)),U)
  • Line Location: DISPUS+3
Function Call: WRITE
  • Prompt: !,?16,$P($G(DGCMP(DGM,.1152)),U)
  • Line Location: DISPUS+4
Function Call: WRITE
  • Prompt: !,?16,$P($G(DGCMP(DGM,.1153)),U)
  • Line Location: DISPUS+5
Function Call: WRITE
  • Prompt: !,?16,$P($G(DGCMP(DGM,.1154)),U)
  • Line Location: DISPUS+6
Function Call: WRITE
  • Prompt: $P($G(DGCMP(DGM,.1155)),U)
  • Line Location: DISPUS+8
Function Call: WRITE
  • Prompt: " ",$G(DGCMP(DGM,.1156))
  • Line Location: DISPUS+9
Function Call: WRITE
  • Prompt: !?16,DGCNTRY
  • Line Location: DISPUS+11
Function Call: WRITE
  • Prompt: !,?6," County: ",$P($G(DGCMP(DGM,.1157)),U)
  • Line Location: DISPUS+12
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPUS+13
Function Call: WRITE
  • Prompt: !,?2,"[",DGM," RESIDENTIAL ADDRESS]"
  • Line Location: DISPFGN+2
Function Call: WRITE
  • Prompt: !?16,$P($G(DGCMP(DGM,.1151)),U)
  • Line Location: DISPFGN+3
Function Call: WRITE
  • Prompt: !,?16,$P($G(DGCMP(DGM,.1152)),U)
  • Line Location: DISPFGN+4
Function Call: WRITE
  • Prompt: !,?16,$P($G(DGCMP(DGM,.1153)),U)
  • Line Location: DISPFGN+5
Function Call: WRITE
  • Prompt: !,?16,$P($G(DGCMP(DGM,.11572)),U)_" "_$P($G(DGCMP(DGM,.1154)),U)_" "_$P($G(DGCMP(DGM,.11571)),U)
  • Line Location: DISPFGN+6
Function Call: WRITE
  • Prompt: !?16,DGCNTRY
  • Line Location: DISPFGN+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPFGN+10
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: !,"Please review the saved changes!!",!
  • Line Location: SAVEPH+11
Function Call: WRITE
  • Prompt: $G(MSG("DIERR",1,"TEXT",DGM))
  • Line Location: SAVEPH+13
Function Call: WRITE
  • Prompt: !,"Change saved."
  • Line Location: SAVEPH+14
Function Call: WRITE
  • Prompt: !,"EXIT NOT ALLOWED"
  • Line Location: UPCT+1
Routine Call
  • DIE
  • Line Location:
    • SAVE+13
    • SAVEPH+8
Routine Call
  • DIR
  • Line Location:
    • CONFIRM+6
    • 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] RETRY+2
^HL(779.004 - [#779.004] INPUT+8

Label References

Name Line Occurrences
$$CONFIRM RETRY+11, PHONE+4
$$INPT1 RETRY+5, GETOLD+8
$$READ INPUT+6
$$SKIP INPUT+4
COMPARE RETRY+10
COMPAREP PHONE+3
DISPFGN COMPARE+5
DISPUS COMPARE+10
EOP PHONE+4, SAVE+23, SAVEPH+15
GETOLD RETRY+1
INPUT RETRY+6
PHONE RETRY+11
RETRY PHONE+7
SAVE RETRY+21
SAVEPH PHONE+5
UPCT READ+8
ZIPINP INPUT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BAD EN+6~, RETRY+8*, RETRY+13*, RETRY+18*, RETRY+21, PHONE+7
CCIEN GETOLD+2~, GETOLD+5*, GETOLD+6, GETOLD+13, GETOLD+14
CFORGN GETOLD+2~, GETOLD+3*, GETOLD+6*, GETOLD+8, GETOLD+10, GETOLD+15
CFSTR GETOLD+2~, GETOLD+8*, GETOLD+10*, GETOLD+11, GETOLD+12
CNTRY EN+6~, RETRY+2*, RETRY+4, RETRY+6, INPUT~, INPUT+8
COUNTRY GETOLD+2~, GETOLD+13*, GETOLD+14
DA INPUT+2~, READ+1~, READ+5*
DATA SAVE+1~, SAVE+22, SAVEPH+1~
DATA( SAVE+21*
DFN EN~, EN+8, RETRY+1, RETRY+2, RETRY+4, RETRY+6, RETRY+21, PHONE+5, INPUT~, INPUT+5
, INPUT+6, GETOLD~, GETOLD+5, GETOLD+11, GETOLD+12, GETOLD+16, GETOLD+17, SAVE~, SAVE+12, SAVE+22
, SAVEPH~, SAVEPH+7, READ~, READ+5, ZIPINP~, ZIPINP+9
DGCIEN GETOLD+2~, GETOLD+16*, GETOLD+18
DGCMP EN+6~, RETRY+1, RETRY+10, PHONE+3, GETOLD~, GETOLD+1!, COMPARE~, COMPARE+5, COMPARE+10, COMPAREP~
, DISPUS~, DISPFGN~
DGCMP( COMPARE+5, COMPAREP+6, COMPAREP+7, DISPUS+3, DISPUS+4, DISPUS+5, DISPUS+6, DISPUS+7, DISPUS+8, DISPUS+9
, DISPUS+10, DISPUS+12, DISPFGN+3, DISPFGN+4, DISPFGN+5, DISPFGN+6, DISPFGN+7
DGCMP("NEW" COMPARE+2*, COMPARE+7, COMPARE+8*, COMPARE+9*, COMPAREP+2*
DGCMP("OLD" RETRY+4, GETOLD+12*, GETOLD+14*, GETOLD+20*
DGCNTRY DISPUS+1~, DISPUS+10*, DISPUS+11, DISPFGN+1~, DISPFGN+7*, DISPFGN+8*, DISPFGN+9
DGCNTY GETOLD+2~, GETOLD+18*, GETOLD+19*, GETOLD+20, COMPARE+1~, COMPARE+7*, COMPARE+8
DGCODE SAVE+9~, SAVE+10*, SAVE+12, SAVE+13, SAVEPH+4~, SAVEPH+5*, SAVEPH+7, SAVEPH+8
DGCURR GETOLD+2~
DGCURR(2 GETOLD+12, GETOLD+16, GETOLD+17
DGER SAVE+1~, SAVE+2*, SAVE+15*, SAVE+19, SAVEPH+1~, SAVEPH+2*, SAVEPH+10*, SAVEPH+14
DGINPUT EN+6~, RETRY+6!*, RETRY+10, RETRY+21, PHONE+3, PHONE+5, INPUT~, INPUT+3, INPUT+4, INPUT+5
, INPUT+6*, INPUT+8, COMPARE~, COMPARE+2, COMPAREP~, COMPAREP+2, SAVE~, SAVEPH~, ZIPINP~, ZIPINP+10*
, SKIP~
DGINPUT( RETRY+13, RETRY+18, INPUT+3*, INPUT+7*, INPUT+8*, SAVE+10, SAVE+11, SAVEPH+5, SAVEPH+6, SKIP+3
, SKIP+4
DGM COMPARE+1~, COMPARE+4*, COMPARE+5, COMPARE+6, COMPARE+10, COMPAREP+1~, COMPAREP+4*, COMPAREP+5, COMPAREP+6, COMPAREP+7
, DISPUS~, DISPUS+2, DISPUS+3, DISPUS+4, DISPUS+5, DISPUS+6, DISPUS+7, DISPUS+8, DISPUS+9, DISPUS+10
, DISPUS+12, DISPFGN~, DISPFGN+2, DISPFGN+3, DISPFGN+4, DISPFGN+5, DISPFGN+6, DISPFGN+7, SAVE+1~, SAVE+15*
, SAVE+17*, SAVE+18, SAVEPH+1~, SAVEPH+10*, SAVEPH+12*, SAVEPH+13
DGN INPUT+2~, INPUT+3*, INPUT+4, INPUT+5, INPUT+6, INPUT+7, SAVE+1~, SAVE+6*, SAVE+8, SAVE+10
, SAVE+11, SAVE+12, SAVEPH+1~, SAVEPH+3*, SAVEPH+5, SAVEPH+6, SAVEPH+7, READ~, READ+4, SKIP~
, SKIP+3, SKIP+4, SKIP+5
DGNAME SAVE+9~, SAVE+11*, SAVE+12, SAVEPH+4~, SAVEPH+6*, SAVEPH+7
DGR INPUT+2~, ZIPINP+4~, ZIPINP+9, ZIPINP+10
DGST GETOLD+2~, GETOLD+17*, GETOLD+18
DIR INPUT+2~, CONFIRM+2~, READ+1~, EOP+1~
DIR("?" CONFIRM+5*
DIR("A" CONFIRM+4*, EOP+3*
DIR(0 CONFIRM+3*, READ+4*, EOP+2*
DIROUT INPUT+2~, CONFIRM+2~, CONFIRM+8, READ+1~, READ+8, EOP+1~
DTOUT INPUT+2~, CONFIRM+2~, CONFIRM+7, READ+1~, READ+7, EOP+1~
DUOUT INPUT+2~, CONFIRM+2~, CONFIRM+8, READ+1~, READ+8, EOP+1~
FCITY ZIPINP+4~, ZIPINP+8*
FCOUNTY ZIPINP+4~, ZIPINP+8*
FDA SAVE+9~, SAVEPH+4~
FDA(2 SAVE+12*, SAVEPH+7*
FLG EN~, INPUT+4, SKIP~
FLG(1 EN+9*, PHONE+1, SKIP+5
FLG(2 EN+9*, RETRY+10, PHONE+3
FORGN EN+6~, RETRY+4*, RETRY+5, RETRY+14, RETRY+15, RETRY+21, SAVE~, SAVE+5, INPT1~, INPT1+6
FSTATE ZIPINP+4~, ZIPINP+8*
FSTR EN+6~, RETRY+5!*, RETRY+6, RETRY+21, INPUT~, INPUT+3, SAVE~, SAVE+5*, SAVE+6, INPT1+1~
, INPT1+5*, INPT1+6*, INPT1+7
FZIP ZIPINP+4~, ZIPINP+8*
I EN+7~
ICNTRY EN+6~, RETRY+2*, RETRY+3*, RETRY+4
L INPUT+2~, INPUT+3*, GETOLD+2~, GETOLD+12*, SAVE+1~, SAVE+6*, READ+1~, READ+3*
MSG SAVE+9~, SAVE+14, SAVEPH+4~, SAVEPH+9
MSG("DIERR" SAVE+17, SAVE+18, SAVEPH+12, SAVEPH+13
OLDC EN+6~, RETRY+4*
POP READ+1~, READ+2*, READ+3, READ+7*, READ+9*
PSTR EN+6~, RETRY+5!, INPT1~, INPT1+4*
SKIP SKIP+1~, SKIP+2*, SKIP+3*, SKIP+4*, SKIP+5*, SKIP+6
SUCCESS READ+1~, READ+2*, READ+7*, READ+10
T GETOLD+2~, GETOLD+12*
TYPE CONFIRM~, CONFIRM+4, ZIPINP+4~, ZIPINP+8*
U GETOLD+20, COMPARE+5, COMPARE+7, COMPAREP+6, COMPAREP+7, DISPUS+3, DISPUS+4, DISPUS+5, DISPUS+6, DISPUS+7
, DISPUS+8, DISPUS+10, DISPUS+12, DISPFGN+3, DISPFGN+4, DISPFGN+5, DISPFGN+6, DISPFGN+7, SAVE+10, SAVE+11
, SAVEPH+5, SAVEPH+6
X EN+7~, INPUT+2~, CONFIRM+2~, EOP+1~
Y EN+7~, INPUT+2~, INPUT+6, INPUT+7, CONFIRM+2~, CONFIRM+7, READ~, EOP+1~
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All