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
Print Page as PDF
Routine: DGREGTED

Package: Registration

Routine: DGREGTED


Information

DGREGTED ;ALB/BAJ,BDB,JAM,ARF,JAM - Temporary & Confidential Address Edits API ;23 May 2017 12:48 PM

Source Information

Source file <DGREGTED.m>

Entry Points

Name Comments DBIA/ICR reference
EN(DFN,TYPE,RET) ;Entry point
; This routine controls Edits to Temp & Conf addresses
;
; Input
; DFN = Patient DFN
; TYPE = Type of address: "TEMP" or "CONF"
; RET = Flag to signal return to first prompt
;
; Output
; RET 0 = Return to first prompt in the address edit group
; 1 = Do not return (address was saved)
RETRY ; Tag for reentering the address
CHK ; DG*5.3*1014; Prompt user and allow them to correct the address or continue to Validation service
SVADD ; Save the address - SVADD tag added for DG*5.3*1014; jam; ** End of 1014 changes **
; DG*5.3*1143 - If RTA update is active, save the data for RTA.
CLEAN(DGTYPE) ; Clean edit data for Conf or Temp Address when user saves or discards
; DGTYPE: "CONF" or "TEMP" address edit vars to clean out
SAVERTA ; DG*5.3*1143 - Save the address edits with RTA updates active
; If adddress is active, save the data in local array DGADDGRP3 (TEMP) or DGADDGRP4 (CONF)
ASK ; Give user the option to retry edits
SAVETOLOCAL(DGTYPE) ; DG*5.3*1143 - Save DGINPUT array to RTA group array
SENDRTAU(DGTYPE) ; DG*5.3*1143 - send data to ES via webservice
SAVEFROMLOCAL(DGTYPE) ; DG*5.3*1143 Save data to the DB from the local array (TEMP or CONF)
INPUT(DGINPUT,DFN,FSTR) ;Let user input address changes
; Input:
; DGINPUT - Array to hold field values DGINPUT(field#)
; DFN - Patient DFN
; FSTR - String of fields (foreign or domestic) to work with
;
; Output:
; DGINPUT(field#)=external^internal(if any)
;
READ(DFN,DGOLD,DGN,Y,REP) ;Read input, return success
; Input:
; DFN - Patient DFN
; DGOLD - Array of current field values.
; DGN - Current field to read
; Y - Current Field value
; REP - Flag -- should prompt be repeated
;
; Output
; SUCCESS 1 = Input successful go to next prompt
; 0 = Input unsuccessful Repeat or Abort as indicated by REP variable
; REP 1 = Error - Repeat prompt
; 0 = Error - Do not repeat
; Y New field value
;
SAVE(DGINPUT,DFN,FSTR,CNTRY) ;Save changes
ANSW(YIN,DGOLD,DGN,MSG,YOUT,REP,RET,REVERSE) ;analyze input commands
; This API will process reads and set bits, messages and flags accordingly.
; Because there is different behavior depending on prompt and input, the input
; of each field needs to be evaluated separately at the time of input and before
; deciding to continue the edit. Input rules are loaded into array RPROC at the
; beginning of this routine in call to INIT^DGREGTE2.
;
; Input
; N - User input "Y" value
; DGOLD - Array of current values
; DGN - Current field
; MSG - Variable for Text message
; YOUT - User input ("Y") value
; REP - Flag to repeat prompt
; RET - Flag to return success or failure to calling module
; REVERSE - Flag to revert to first prompt in sequence
;
; Output
; MSG - Text message (for incorrect entries)
; REP - Repeat current prompt
; REVERSE - Revert to first prompt in sequence
;
REVERSE ;
; DG*5.3*1040; LINE message for NULL "FSLINE1" is moved to REPEAT
REPEAT ;
OK ;
QUES ;
CONFIRM ;
INSTRUCT ;
PROC(VAL) ;process the input and return a type of value
; input
; VAL - The value to examine
;
; output
; a value type
; VALUE = input - validation is a separate task and is not done here
; NULL = NULL input
; UPCAR = the "^" character
; DELETE = the "@" character
EOP ;End of page prompt
ZIPINP(DGINPUT,DFN) ;get ZIP+4 input
SKIP(DGN,DGINPUT,FLG) ; determine whether or not to skip this step
UPCT ;Indicate "^" or "^^" are unacceptable inputs.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,*7,"CONFIDENTIAL ADDRESS [LINE 1], CITY, STATE, and ZIP CODE fields are required."
  • Line Location: RETRY+11
Function Call: WRITE
  • Prompt: !!?3,*7,"CONFIDENTIAL ADDRESS [LINE 1] and CITY fields are required."
  • Line Location: RETRY+12
Function Call: WRITE
  • Prompt: !!?3,*7,"TEMPORARY STREET [LINE 1], CITY, STATE, and ZIP CODE fields are required."
  • Line Location: RETRY+16
Function Call: WRITE
  • Prompt: !!?3,*7,"TEMPORARY STREET [LINE 1] and CITY fields are required."
  • Line Location: RETRY+17
Function Call: WRITE
  • Prompt: !
  • Line Location: RETRY+24
Function Call: WRITE
  • Prompt: !,"Changes not saved."
  • Line Location: CHK+11
Function Call: WRITE
  • Prompt: !!,"No Results - UAM Address Validation Service is unable to validate the address.",!,"Please verify the address entered. "
  • Line Location: CHK+23
Function Call: WRITE
  • Prompt: !,"Change saved."
  • Line Location: SAVERTA+11
Function Call: WRITE
  • Prompt: !!,"** Webservice call failed:"
  • Line Location: SENDRTAU+12
Function Call: WRITE
  • Prompt: DGLINE(DGL,0),!
  • Line Location: SENDRTAU+12
Function Call: WRITE
  • Prompt: !,"("_DGI_") "
  • Line Location: SENDRTAU+15
Function Call: WRITE
  • Prompt: DGLINE(DGL,0),!
  • Line Location: SENDRTAU+20
Function Call: WRITE
  • Prompt: !,RMSG("REVERSE")
  • Line Location: REVERSE+5
Function Call: WRITE
  • Prompt: !,RMSG(MSUB)
  • Line Location: REPEAT+3
Function Call: WRITE
  • Prompt: RMSG("QUES")
  • Line Location: QUES+1
Function Call: WRITE
  • Prompt: !,"EXIT NOT ALLOWED ??"
  • Line Location: UPCT+1
Info |  Source |  Entry Points |  Interaction Calls