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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: DGREGTED

Package: Registration

Routine: DGREGTED


Information

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

Source Information

Source file <DGREGTED.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Registration 5 ($$CNTRYI,$$FOREIGN)^DGADDUTL  $$EN^DGADDVAL  $$UPD^DGENDBS  ($$INPT1,$$SKIP,$$SURE,GETOLD,INIT)^DGREGTE2  EN^DGREGTZL  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGREGTZL  

Entry Points

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

External References

Name Field # of Occurrence
$$CNTRYI^DGADDUTL DISPUS+12, DISPFGN+7
$$FOREIGN^DGADDUTL RETRY+1
$$EN^DGADDVAL CHK+15
$$UPD^DGENDBS SAVE+11
$$INPT1^DGREGTE2 RETRY+3
$$SKIP^DGREGTE2 INPUT+12
$$SURE^DGREGTE2 CONFIRM+1
GETOLD^DGREGTE2 EN+19
INIT^DGREGTE2 EN+18
EN^DGREGTZL ZIPINP+2
^DIR CHK+6, READ+29, EOP+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,*7,"CONFIDENTIAL ADDRESS [LINE 1], CITY, and ZIP CODE fields are required."
  • Line Location: RETRY+8
Function Call: WRITE
  • Prompt: !!?3,*7,"CONFIDENTIAL ADDRESS [LINE 1] and CITY fields are required."
  • Line Location: RETRY+9
Function Call: WRITE
  • Prompt: !
  • Line Location: RETRY+15
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: !,RMSG("REVERSE")
  • Line Location: REVERSE+5
Function Call: WRITE
  • Prompt: !,RMSG(MSUB)
  • Line Location: REPEAT+4
Function Call: WRITE
  • Prompt: RMSG("QUES")
  • Line Location: QUES+1
Function Call: WRITE
  • Prompt: !,"EXIT NOT ALLOWED ??"
  • Line Location: UPCT+1
Function Call: WRITE
  • Prompt: !,?2,"[",DGM," CONFIDENTIAL ADDRESS]"
  • Line Location: DISPUS+4
Function Call: WRITE
  • Prompt: !?16,$G(DGCMP(DGM,.1411))
  • Line Location: DISPUS+5
Function Call: WRITE
  • Prompt: !,?16,$G(DGCMP(DGM,.1412))
  • Line Location: DISPUS+6
Function Call: WRITE
  • Prompt: !,?16,$G(DGCMP(DGM,.1413))
  • Line Location: DISPUS+7
Function Call: WRITE
  • Prompt: !,?16,$G(DGCMP(DGM,.1414))
  • Line Location: DISPUS+8
Function Call: WRITE
  • Prompt: $P($G(DGCMP(DGM,.1415)),U,2)
  • Line Location: DISPUS+10
Function Call: WRITE
  • Prompt: " ",$G(DGCMP(DGM,.1416))
  • Line Location: DISPUS+11
Function Call: WRITE
  • Prompt: !?16,DGCNTRY
  • Line Location: DISPUS+13
Function Call: WRITE
  • Prompt: !,?6," County: ",$P($G(DGCMP(DGM,.14111)),U,2)
  • Line Location: DISPUS+14
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPUS+15
Function Call: WRITE
  • Prompt: !,?2,"[",DGM," CONFIDENTIAL ADDRESS]"
  • Line Location: DISPFGN+2
Function Call: WRITE
  • Prompt: !?16,$G(DGCMP(DGM,.1411))
  • Line Location: DISPFGN+3
Function Call: WRITE
  • Prompt: !,?16,$G(DGCMP(DGM,.1412))
  • Line Location: DISPFGN+4
Function Call: WRITE
  • Prompt: !,?16,$G(DGCMP(DGM,.1413))
  • Line Location: DISPFGN+5
Function Call: WRITE
  • Prompt: !,?16,$G(DGCMP(DGM,.1414))_" "_$G(DGCMP(DGM,.14114))_" "_$G(DGCMP(DGM,.14115))
  • Line Location: DISPFGN+6
Function Call: WRITE
  • Prompt: !?16,DGCNTRY
  • Line Location: DISPFGN+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPFGN+10
Routine Call
  • DIR
  • Line Location:
    • CHK+6
    • READ+29
    • EOP+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] EN+18, EN+20
^HL(779.004 - [#779.004] RETRY+13, SAVE+4

Label References

Name Line Occurrences
$$PROC ANSW+31
$$READ INPUT+15
@( ANSW+35, INSTRUCT+1
ANSW READ+31
CHK CHK+12
DISPFGN RETRY+18
DISPUS RETRY+19
EOP CHK+10, CHK+19
INPUT RETRY+3
RETRY RETRY+7, CHK+11
SAVE SVADD+1
SVADD RETRY+11
ZIPINP INPUT+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACT ANSW+22~, ANSW+34*, ANSW+35
CNTRY EN+12~, EN+20*, RETRY+1, RETRY+2, RETRY+13, SVADD+1, SAVE~, SAVE+4
CNTYFLD READ+15~, READ+16*, READ+26
CPEICE EN+14~, EN+20
DA INPUT+9~, READ+15~, READ+18*
DATA SAVE+1~, SAVE+11
DATA( SAVE+7*, SAVE+9*, SAVE+10*
DFN EN~, EN+16, EN+18, EN+19, EN+20, RETRY+1, RETRY+3, SVADD+1, INPUT~, INPUT+14
, INPUT+15, READ~, READ+18, SAVE~, SAVE+2, ZIPINP~, ZIPINP+2
DGADVRET CHK+14~, CHK+15*, CHK+17, CHK+19
DGCMP EN+12~, EN+19!, DISPUS~, DISPFGN~
DGCMP( DISPUS+5, DISPUS+6, DISPUS+7, DISPUS+8, DISPUS+9, DISPUS+10, DISPUS+11, DISPUS+12, DISPUS+14, DISPFGN+3
, DISPFGN+4, DISPFGN+5, DISPFGN+6, DISPFGN+7
DGCMP("OLD" EN+19
DGCNTRY DISPUS+1~, DISPUS+12*, DISPUS+13, DISPFGN+1~, DISPFGN+7*, DISPFGN+8*, DISPFGN+9
DGENDA SAVE+1~, SAVE+2*, SAVE+11
DGINPUT EN+12~, RETRY+3*, RETRY+4, RETRY+17, CHK+15, SVADD+1, INPUT~, INPUT+10, INPUT+12, INPUT+14
, INPUT+17*, SAVE~, ZIPINP~, ZIPINP+5*, ZIPINP+6*, SKIP~
DGINPUT( RETRY+7, RETRY+13*, INPUT+22*, READ+22, READ+23, READ+25, SAVE+4*, SAVE+7, ZIPINP+7*, ZIPINP+8*
, SKIP+3, SKIP+4
DGM DISPUS~, DISPUS+4, DISPUS+5, DISPUS+6, DISPUS+7, DISPUS+8, DISPUS+9, DISPUS+10, DISPUS+11, DISPUS+12
, DISPUS+14, DISPFGN~, DISPFGN+2, DISPFGN+3, DISPFGN+4, DISPFGN+5, DISPFGN+6, DISPFGN+7
DGN INPUT+9~, INPUT+10*, INPUT+12, INPUT+14, INPUT+15, INPUT+22, READ~, READ+17, READ+22, READ+23
, READ+24, READ+28, READ+31, ANSW~, ANSW+31, ANSW+32, REPEAT+3, CONFIRM+1, SKIP~, SKIP+3
, SKIP+4, SKIP+5
DGNEWADD RETRY+16~, RETRY+18, RETRY+19, RETRY+20!
DGNEWADD("NEW" RETRY+17*
DGOLD EN+12~, EN+19*, INPUT+15, READ~, READ+31, ANSW~
DGOLD( READ+17, READ+23, READ+28, ANSW+31, CONFIRM+1
DGR INPUT+9~, ZIPINP+1~, ZIPINP+2, ZIPINP+5, ZIPINP+6
DGST READ+15~
>> DGTMOT RETRY+1*, CHK+8*, CHK+17*, CHK+19, INPUT+14*, INPUT+17*, EOP+6*
DGX ZIPINP+1~, ZIPINP+7*, ZIPINP+8*
DIE EN+12~
DIR CHK+1~, CHK+6!, INPUT+9~, READ+15~, EOP+1~
DIR("?" CHK+5*
DIR("A" CHK+2*, CHK+3*, READ+26*, EOP+3*
DIR("B" READ+17*, READ+23*, READ+28*
DIR(0 CHK+4*, READ+17*, READ+25*, EOP+2*
DIROUT INPUT+9~, READ+15~, READ+20!, EOP+1~
DIRUT READ+15~, READ+31, ANSW+22~
DR EN+12~
DTOUT CHK+8, INPUT+9~, READ+15~, READ+20!, READ+30, ANSW+22~, EOP+1~, EOP+6
DUOUT CHK+10, INPUT+9~, READ+15~, READ+20!, ANSW+22~, EOP+1~
ERROR SAVE+1~, SAVE+11
FCITY EN+13~, SAVE+6
FCNTRY EN+14~, RETRY+1, RETRY+13, SAVE+4, SAVE+5
FCOUNTY EN+13~, READ+22, READ+24, SAVE+6, ZIPINP+7
FILE SAVE+1~, SAVE+2*, SAVE+11
FLG SKIP~
FLG(1 SKIP+5
FNODE1 EN+14~, EN+18
FNODE2 EN+14~, EN+20
FORGN EN+12~, RETRY+1*, RETRY+3, RETRY+7, RETRY+8, RETRY+9, RETRY+18, RETRY+19
FPHONE EN+13~, SKIP+5
FPROV EN+14~
FPSTAL EN+14~
FSLINE1 EN+13~, REPEAT+3, SKIP+3
FSLINE2 EN+13~, SKIP+3, SKIP+4
FSLINE3 EN+13~, SKIP+3, SKIP+4
FSTATE EN+13~, READ+22, READ+25, SAVE+6, ZIPINP+8
FSTR EN+12~, RETRY+3*, SVADD+1, INPUT~, INPUT+10, SAVE~, SAVE+5*, SAVE+6*, SAVE+7
FZIP EN+13~, INPUT+14
I EN+15~
ICNTRY EN+12~, EN+20*, RETRY+1
L INPUT+9~, INPUT+10*, INPUT+19*, READ+15~, SAVE+1~, SAVE+7*
LOOP SAVE+1~
LOOP1 SAVE+1~
LOOP2 SAVE+1~
MSG READ+21*, READ+31*, ANSW~
MSUB REPEAT+2~, REPEAT+3*, REPEAT+4
NEWVAL ANSW+23~, ANSW+31*, ANSW+32, ANSW+33, ANSW+34
OLDC EN+14~
OLDVAL ANSW+23~, ANSW+31*, ANSW+32, ANSW+33, ANSW+34
POP READ+15~, READ+16*, READ+19, READ+22*, READ+30*, READ+33*
PRMPT ANSW+22~, ANSW+25*, ANSW+26
PSTR EN+12~, RETRY+3
REP INPUT+9~, INPUT+11*, INPUT+15, INPUT+17, READ~, READ+31, READ+32*, ANSW~, REPEAT+5*, QUES+2*
, CONFIRM+1*, CONFIRM+2*, INSTRUCT+2*
RET EN~, RETRY+1*, RETRY+4*, READ+31, ANSW~
REVERSE READ+15~, READ+16*, READ+31*, READ+32, ANSW~, REVERSE+6*
RMSG ANSW+22~
RMSG( REPEAT+4
RMSG("INSTRUCT" ANSW+30*, INSTRUCT+1
RMSG("LINE" ANSW+26*
RMSG("QUES" ANSW+29*, QUES+1
RMSG("REPEAT" ANSW+28*
RMSG("REVERSE" ANSW+27*, REVERSE+5
RPROC EN+14~
RPROC( ANSW+32, ANSW+33*, ANSW+34
SKIP SKIP+1~, SKIP+2*, SKIP+3*, SKIP+4*, SKIP+5*, SKIP+6
SUCCESS INPUT+9~, INPUT+15*, READ+15~, READ+16*, READ+30*, READ+31*, READ+32*, READ+34
T READ+15~, READ+28*, SAVE+1~, SAVE+7*
TDGN ANSW+22~, ANSW+32*, ANSW+33, ANSW+34
TYPE EN~, EN+19, RETRY+7, RETRY+11, READ+16, SAVE+6, SAVE+9, SAVE+10, ANSW+25, ANSW+30
U EN+18, READ+25, SAVE+7, DISPUS+9, DISPUS+10, DISPUS+12, DISPUS+14, DISPFGN+7
VAL PROC~, PROC+10
X EN+15~, CHK+11, CHK+12, INPUT+9~, READ+15~, READ+31, ANSW+22~, EOP+1~
Y EN+15~, INPUT+9~, INPUT+15, INPUT+21*, INPUT+22, READ~, READ+31, ANSW+22~, EOP+1~
YIN ANSW~, ANSW+31, CONFIRM+2
YOUT ANSW~, CONFIRM+1*, CONFIRM+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All