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 ;1/6/21 10:30

Source Information

Source file <DGREGRED.m>

Call Graph

Call Graph

Call Graph Total: 9

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

Entry Points

Name Comments DBIA/ICR reference
EN(DFN,FLG) ;Entry point
RETRY
CHK ; DG*5.3*1014; Prompt user and allow them to correct the address or continue to Validation service
PHONE ; Process the phone number changes IF FLG(1) = 1
INPUT(DGINPUT,DFN,FSTR,CNTRY) ;Let user input address changes
; Output: DGINPUT(field#)=external^internal(if any)
GETOLD(DGCMP,DFN) ;populate array with existing address info
COMPARE(DGINPUT,DGCMP) ;Display before & after address fields.
COMPAREP(DGINPUT,DGCMP) ;Display before & after phone fields.
DISPUS(DGCMP,DGM) ;tag to display US data
DISPFGN(DGCMP,DGM) ;tag to display Foreign data
CONFIRM(TYPE) ;Confirm if user wants to save the changes
; TYPE - used for the query message displayed to the user: "address" or "phone number"
SAVE(DGINPUT,DFN,FSTR,FORGN) ;Save changes
SAVEPH(DGINPUT,DFN) ;Save phone changes
READ(DFN,DGN,Y) ;Read input, return success
INPT1(FORGN,PSTR) ; first address input prompts
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.
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+13, DISPUS+10, DISPFGN+8
$$FOREIGN^DGADDUTL RETRY+5
$$FORIEN^DGADDUTL GETOLD+6, COMPARE+5
$$EN^DGADDVAL CHK+15
$$UPD^DGENDBS SAVE+22
$$CNTY^DGREGAZL GETOLD+18
$$POBOXRES^DGREGCP2 CHK+36
EN^DGREGTZL ZIPINP+9
FILE^DIE SAVE+13, SAVEPH+8
$$GET1^DIQ GETOLD+5
GETS^DIQ GETOLD+11
^DIR CHK+6, CONFIRM+6, READ+6, EOP+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,*7,"RESIDENTIAL ADDRESS [LINE 1], CITY, and ZIP CODE fields are required."
  • Line Location: RETRY+15
Function Call: WRITE
  • Prompt: !!?3,*7,"RESIDENTIAL ADDRESS [LINE 1] and CITY fields are required."
  • Line Location: RETRY+16
Function Call: WRITE
  • Prompt: !
  • Line Location: RETRY+20
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: CHK+29
Function Call: WRITE
  • Prompt: !!?3,*7,"RESIDENTIAL ADDRESS [LINE 1], ZIP CODE and CITY fields are required."
  • Line Location: CHK+32
Function Call: WRITE
  • Prompt: !!?3,*7,"RESIDENTIAL ADDRESS [LINE 1] and CITY fields are required."
  • Line Location: CHK+33
Function Call: WRITE
  • Prompt: !!?3,*7,"You cannot enter 'P. O. Box' or 'General Delivery' for a Residential Address."
  • Line Location: CHK+37
Function Call: WRITE
  • Prompt: !,"Phone changes not saved."
  • Line Location: PHONE+7
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,.1154)),U)_" "_$P($G(DGCMP(DGM,.11571)),U)_" "_$P($G(DGCMP(DGM,.11572)),U)
  • Line Location: DISPFGN+7
Function Call: WRITE
  • Prompt: !?16,DGCNTRY
  • Line Location: DISPFGN+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPFGN+11
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:
    • CHK+6
    • 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+10

Label References

Name Line Occurrences
$$CONFIRM CHK+27, PHONE+5
$$INPT1 RETRY+6, GETOLD+8
$$READ INPUT+8
$$SKIP INPUT+4
CHK CHK+12
COMPARE CHK+25
COMPAREP PHONE+3
DISPFGN RETRY+21, COMPARE+5
DISPUS RETRY+22, COMPARE+10
EOP CHK+10, CHK+19, PHONE+7, SAVE+24, SAVEPH+16
GETOLD RETRY+1
INPUT RETRY+7
PHONE CHK+10, CHK+29, CHK+31, CHK+36
RETRY RETRY+14, CHK+11, PHONE+10
SAVE CHK+39
SAVEPH PHONE+8
UPCT READ+8
ZIPINP INPUT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BAD EN+6~, RETRY+9*, CHK+31*, CHK+36*, PHONE+10
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+5, RETRY+7, INPUT~, INPUT+10
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+5, RETRY+7, CHK+39, PHONE+8, INPUT~, INPUT+6
, INPUT+8, 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
DGADVRET CHK+14~, CHK+15*, CHK+17, CHK+19
DGCIEN GETOLD+2~, GETOLD+16*, GETOLD+18
DGCMP EN+6~, RETRY+1, CHK+25, 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+7, DISPFGN+8
DGCMP("NEW" COMPARE+2*, COMPARE+7, COMPARE+8*, COMPARE+9*, COMPAREP+2*
DGCMP("OLD" RETRY+5, GETOLD+12*, GETOLD+14*, GETOLD+20*
DGCNTRY DISPUS+1~, DISPUS+10*, DISPUS+11, DISPFGN+1~, DISPFGN+8*, DISPFGN+9*, DISPFGN+10
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
DGCONFIRM CHK+27~*, CHK+29, PHONE+5~*, PHONE+7
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+7!*, RETRY+19, CHK+15, CHK+25, CHK+39, PHONE+3, PHONE+8, INPUT~, INPUT+3
, INPUT+4, INPUT+6, INPUT+8*, INPUT+10, COMPARE~, COMPARE+2, COMPAREP~, COMPAREP+2, SAVE~, SAVEPH~
, ZIPINP~, ZIPINP+10*, SKIP~
DGINPUT( RETRY+14, CHK+31, CHK+36, INPUT+3*, INPUT+9*, INPUT+10*, 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+7, DISPFGN+8, SAVE+1~, SAVE+15*
, SAVE+17*, SAVE+18, SAVEPH+1~, SAVEPH+10*, SAVEPH+12*, SAVEPH+13
DGN INPUT+2~, INPUT+3*, INPUT+4, INPUT+6, INPUT+8, INPUT+9, 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
DGNEWADD RETRY+18~, RETRY+21, RETRY+22, RETRY+23!
DGNEWADD("NEW" RETRY+19*
DGR INPUT+2~, ZIPINP+4~, ZIPINP+9, ZIPINP+10
DGST GETOLD+2~, GETOLD+17*, GETOLD+18
>> DGTMOT RETRY+5*, CHK+8*, CHK+10, CHK+17*, CHK+19, CHK+27*, CHK+39, PHONE+5*, PHONE+7, PHONE+8
, INPUT+6*, INPUT+8*, SAVE+24, SAVEPH+16, EOP+6*
DIR CHK+1~, CHK+6!, INPUT+2~, CONFIRM+2~, READ+1~, EOP+1~
DIR("?" CHK+5*, CONFIRM+5*
DIR("A" CHK+2*, CHK+3*, CONFIRM+4*, EOP+3*
DIR(0 CHK+4*, CONFIRM+3*, READ+4*, EOP+2*
DIROUT INPUT+2~, CONFIRM+2~, CONFIRM+10, READ+1~, READ+8, EOP+1~
DTOUT CHK+8, INPUT+2~, CONFIRM+2~, CONFIRM+8, READ+1~, READ+7, EOP+1~, EOP+6
DUOUT CHK+10, INPUT+2~, CONFIRM+2~, CONFIRM+10, 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*, CHK+25, PHONE+3
FORGN EN+6~, RETRY+5*, RETRY+6, RETRY+14, RETRY+15, RETRY+16, RETRY+21, RETRY+22, CHK+31, CHK+32
, CHK+33, CHK+39, SAVE~, SAVE+5, INPT1~, INPT1+6
FSTATE ZIPINP+4~, ZIPINP+8*
FSTR EN+6~, RETRY+6!*, RETRY+7, CHK+39, 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+5
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+5*
POP READ+1~, READ+2*, READ+3, READ+7*, READ+9*
PSTR EN+6~, RETRY+6!, 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+7, DISPFGN+8, SAVE+10, SAVE+11
, SAVEPH+5, SAVEPH+6
X EN+7~, CHK+11, CHK+12, INPUT+2~, CONFIRM+2~, EOP+1~
Y EN+7~, INPUT+2~, INPUT+8, INPUT+9, CONFIRM+2~, CONFIRM+9, 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