DGREGTED ;ALB/BAJ,BDB,JAM,ARF - Temporary & Confidential Address Edits API ;23 May 2017 12:48 PM
Source file <DGREGTED.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(DFN,TYPE,RET) | ;Entry point
; This routine controls Edits to Temporary & Confidential 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 **
|
|
| 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.
|
|
| DISPUS(DGCMP,DGM) | ;tag to display US data
|
|
| DISPFGN(DGCMP,DGM) | ;tag to display Foreign data
|
| 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 |
|
