DGREGRED ;ALB/JAM - Residential Address Edit API ;1/6/21 10:30
Source file <DGREGRED.m>
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.
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ, GETS^DIQ |