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

Package: Registration

Routine: DGREGRED


Information

DGREGRED ;ALB/JAM,ARF - Residential Address Edit API ;1/6/21 10:30

Source Information

Source file <DGREGRED.m>

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.

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+22
Function Call: WRITE
  • Prompt: !,"Address changes not saved."
  • Line Location: CHK+32
Function Call: WRITE
  • Prompt: !!?3,*7,"RESIDENTIAL ADDRESS [LINE 1], ZIP CODE and CITY fields are required."
  • Line Location: CHK+35
Function Call: WRITE
  • Prompt: !!?3,*7,"RESIDENTIAL ADDRESS [LINE 1] and CITY fields are required."
  • Line Location: CHK+36
Function Call: WRITE
  • Prompt: !!?3,*7,"You cannot enter 'P. O. Box' or 'General Delivery' for a Residential Address."
  • Line Location: CHK+40
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+17
Function Call: WRITE
  • Prompt: $G(MSG("DIERR",1,"TEXT",DGM))
  • Line Location: SAVE+19
Function Call: WRITE
  • Prompt: !,"Change saved."
  • Line Location: SAVE+20
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

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