Routine: DGREGAED

Package	Total	Call Graph
VA Fileman	3	FILE^DIE ($$GET1,GETS)^DIQ ^DIR
Registration	2	($$CNTRYI,$$FILEYN,$$FOREIGN,$$FORIEN,GETPRIOR,GETUPDTS,UPDADDLG)^DGADDUTL ($$CNTY,EN)^DGREGAZL

Package	Total	Caller Graph
Registration	3	DGADDUTL DGREGARP DGREGAZL
Outpatient Pharmacy	1	PSOBAI
Scheduling	1	SDM

Entry Points

Name	Comments	DBIA/ICR reference
READ(DFN,DGN,Y)	;Read input, return success
SKIP(DGN,DGINPUT,FLG)	; determine whether or not to skip this step
DISPUS(DGCMP,DGM,FLG)	;tag to display US data
COMPARE(DGINPUT,DGCMP,FLG)	;Display before & after address fields.
SAVE(DGINPUT,DFN,FSTR,FORGN)	;Save changes
DISPFGN(DGCMP,DGM,FLG)	;tag to display Foreign data
INPT1(DFN,FORGN,PSTR)	; first address input prompts
EN(DFN,FLG,SRC)	;Entry point	ICR #4198 Status: Active Usage: Controlled Subscription
ZIPINP(DGINPUT,DFN)	; get ZIP+4 input
EOP	;End of page prompt
CONFIRM()	;Confirm if user wants to save the change
INPUT(DGINPUT,DFN,FSTR,CNTRY)	;Let user input address changes
UPCT	;Indicate "^" or "^^" are unacceptable inputs.
GETOLD(DGCMP,DFN)	;populate array with existing address info

External References

Name	Field # of Occurrence
$$CNTRYI^DGADDUTL	GETOLD+15, DISPUS+10, DISPFGN+7
$$FILEYN^DGADDUTL	EN+22
$$FOREIGN^DGADDUTL	EN+14
$$FORIEN^DGADDUTL	GETOLD+8, COMPARE+4
GETPRIOR^DGADDUTL	EN+20
GETUPDTS^DGADDUTL	EN+23
UPDADDLG^DGADDUTL	EN+24
$$CNTY^DGREGAZL	GETOLD+20
EN^DGREGAZL	ZIPINP+2
FILE^DIE	SAVE+12
$$GET1^DIQ	INPUT+9, GETOLD+6
GETS^DIQ	GETOLD+13
^DIR	CONFIRM+5, READ+6, EOP+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Change aborted." Line Location: EN+18
Function Call: WRITE	Prompt: !,?2,"[",DGM," ADDRESS]" Line Location: DISPUS+2
Function Call: WRITE	Prompt: ?16,$P($G(DGCMP(DGM,.111)),U) Line Location: DISPUS+3
Function Call: WRITE	Prompt: !,?16,$P($G(DGCMP(DGM,.112)),U) Line Location: DISPUS+4
Function Call: WRITE	Prompt: !,?16,$P($G(DGCMP(DGM,.113)),U) Line Location: DISPUS+5
Function Call: WRITE	Prompt: !,?16,$P($G(DGCMP(DGM,.114)),U) Line Location: DISPUS+6
Function Call: WRITE	Prompt: $P($G(DGCMP(DGM,.115)),U) Line Location: DISPUS+8
Function Call: WRITE	Prompt: " ",$G(DGCMP(DGM,.1112)) Line Location: DISPUS+9
Function Call: WRITE	Prompt: !?16,DGCNTRY Line Location: DISPUS+11
Function Call: WRITE	Prompt: !,?6," County: ",$P($G(DGCMP(DGM,.117)),U) Line Location: DISPUS+12
Function Call: WRITE	Prompt: !,?6," Phone: ",?16,$P($G(DGCMP(DGM,.131)),U) Line Location: DISPUS+14
Function Call: WRITE	Prompt: !,?6," Office: ",?16,$P($G(DGCMP(DGM,.132)),U) Line Location: DISPUS+15
Function Call: WRITE	Prompt: !,?6,"Bad Addr: ",?16,$P($G(DGCMP(DGM,.121)),U) Line Location: DISPUS+16
Function Call: WRITE	Prompt: ! Line Location: DISPUS+17
Function Call: WRITE	Prompt: !,?2,"[",DGM," ADDRESS]" Line Location: DISPFGN+2
Function Call: WRITE	Prompt: ?16,$P($G(DGCMP(DGM,.111)),U) Line Location: DISPFGN+3
Function Call: WRITE	Prompt: !,?16,$P($G(DGCMP(DGM,.112)),U) Line Location: DISPFGN+4
Function Call: WRITE	Prompt: !,?16,$P($G(DGCMP(DGM,.113)),U) Line Location: DISPFGN+5
Function Call: WRITE	Prompt: !,?16,$P($G(DGCMP(DGM,.1172)),U)_" "_$P($G(DGCMP(DGM,.114)),U)_" "_$P($G(DGCMP(DGM,.1171)),U) Line Location: DISPFGN+6
Function Call: WRITE	Prompt: !?16,DGCNTRY Line Location: DISPFGN+9
Function Call: WRITE	Prompt: !,?6," Phone: ",?16,$P($G(DGCMP(DGM,.131)),U) Line Location: DISPFGN+11
Function Call: WRITE	Prompt: !,?6," Office: ",?16,$P($G(DGCMP(DGM,.132)),U) Line Location: DISPFGN+12
Function Call: WRITE	Prompt: !,?6,"Bad Addr: ",?16,$P($G(DGCMP(DGM,.121)),U) Line Location: DISPFGN+13
Function Call: WRITE	Prompt: ! Line Location: DISPFGN+14
Function Call: WRITE	Prompt: !,"Please review the saved changes!!",! Line Location: SAVE+15
Function Call: WRITE	Prompt: $G(MSG("DIERR",1,"TEXT",DGM)) Line Location: SAVE+17
Function Call: WRITE	Prompt: !,"Change saved." Line Location: SAVE+18
Function Call: WRITE	Prompt: !,"EXIT NOT ALLOWED ??" Line Location: UPCT+1
Routine Call	DIE Line Location: SAVE+12
Routine Call	DIR Line Location: CONFIRM+5 READ+6 EOP+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ, GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	EN+13
^HL(779.004 - [#779.004]	INPUT+12

Label References

Name	Line Occurrences
$$CONFIRM	EN+18
$$INPT1	EN+15, GETOLD+10
$$READ	INPUT+6
$$SKIP	INPUT+4
COMPARE	EN+17
DISPFGN	COMPARE+4
DISPUS	COMPARE+9
EOP	EN+18, SAVE+19
GETOLD	EN+12
INPUT	EN+16
SAVE	EN+21
UPCT	READ+8
ZIPINP	INPUT+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CCIEN	GETOLD+1~, GETOLD+6*, GETOLD+8, GETOLD+15, GETOLD+16
CFORGN	GETOLD+1~, GETOLD+2, GETOLD+8, GETOLD+10, GETOLD+12, GETOLD+17
CFSTR	GETOLD+1~, GETOLD+10, GETOLD+12, GETOLD+13, GETOLD+14
CNTRY	EN+7~, EN+13*, EN+14, EN+16, INPUT~, INPUT+12
COUNTRY	GETOLD+1~, GETOLD+15*, GETOLD+16
DA	INPUT+2~, READ+1~, READ+5*
DFN	EN~, EN+9, EN+12, EN+13, EN+14, EN+15, EN+16, EN+20, EN+21, EN+23 , EN+24, INPUT~, INPUT+5, INPUT+6, INPUT+9, GETOLD~, GETOLD+6, GETOLD+10, GETOLD+13, GETOLD+14 , GETOLD+18, GETOLD+19, SAVE~, SAVE+11, READ~, READ+5, INPT1~, ZIPINP~, ZIPINP+2
DGCIEN	GETOLD+1~, GETOLD+18*, GETOLD+20
DGCMP	EN+7~, EN+12, EN+17, GETOLD~, COMPARE~, COMPARE+4, COMPARE+9, DISPUS~, DISPFGN~
DGCMP(	COMPARE+4, DISPUS+3, DISPUS+4, DISPUS+5, DISPUS+6, DISPUS+7, DISPUS+8, DISPUS+9, DISPUS+10, DISPUS+12 , DISPUS+14, DISPUS+15, DISPUS+16, DISPFGN+3, DISPFGN+4, DISPFGN+5, DISPFGN+6, DISPFGN+7, DISPFGN+11, DISPFGN+12 , DISPFGN+13
DGCMP("NEW"	COMPARE+2, COMPARE+6, COMPARE+7, COMPARE+8*
DGCMP("OLD"	EN+14, GETOLD+14, GETOLD+16, GETOLD+22*
DGCNTRY	DISPUS+1~, DISPUS+10, DISPUS+11, DISPFGN+1~, DISPFGN+7, DISPFGN+8*, DISPFGN+9
DGCNTY	GETOLD+1~, GETOLD+20, GETOLD+21, GETOLD+22, COMPARE+6*, COMPARE+7
DGCODE	SAVE+8~, SAVE+9*, SAVE+11, SAVE+12
DGCURR	GETOLD+1~
DGCURR(2	GETOLD+14, GETOLD+18, GETOLD+19
DGER	SAVE+1~, SAVE+2, SAVE+14, SAVE+18
DGINPUT	EN+7~, EN+16, EN+17, EN+21, EN+22, EN+23, EN+24, INPUT~, INPUT+3, INPUT+4 , INPUT+5, INPUT+6, INPUT+12, COMPARE~, COMPARE+2, SAVE~, ZIPINP~, ZIPINP+4*, SKIP~
DGINPUT(	INPUT+3, INPUT+8, INPUT+9, INPUT+10, INPUT+11, INPUT+12*, SAVE+9, SAVE+10, SKIP+3, SKIP+4
DGM	COMPARE+1~, COMPARE+3, COMPARE+4, COMPARE+5, COMPARE+9, DISPUS~, DISPUS+2, DISPUS+3, DISPUS+4, DISPUS+5 , DISPUS+6, DISPUS+7, DISPUS+8, DISPUS+9, DISPUS+10, DISPUS+12, DISPUS+14, DISPUS+15, DISPUS+16, DISPFGN~ , DISPFGN+2, DISPFGN+3, DISPFGN+4, DISPFGN+5, DISPFGN+6, DISPFGN+7, DISPFGN+11, DISPFGN+12, DISPFGN+13, SAVE+1~ , SAVE+14, SAVE+16*, SAVE+17
DGN	INPUT+2~, INPUT+3, INPUT+4, INPUT+5, INPUT+6, INPUT+7, INPUT+8, INPUT+9, INPUT+10, INPUT+11 , SAVE+1~, SAVE+6, SAVE+7, SAVE+9, SAVE+10, SAVE+11, READ~, READ+4, SKIP~, SKIP+3 , SKIP+4, SKIP+5
DGNAME	SAVE+8~, SAVE+10*, SAVE+11
>> DGNEW	EN+21
DGPRIOR	EN+19~, EN+20, EN+22, EN+24
DGR	INPUT+2~, ZIPINP+1~, ZIPINP+2, ZIPINP+3, ZIPINP+4
DGST	GETOLD+1~, GETOLD+19*, GETOLD+20
DIR	INPUT+2~, CONFIRM+1~, READ+1~, EOP+1~
DIR("?"	CONFIRM+4*
DIR("A"	CONFIRM+3, EOP+3
DIR(0	CONFIRM+2, READ+4, EOP+2*
DIROUT	INPUT+2~, CONFIRM+1~, CONFIRM+7, READ+1~, READ+8, EOP+1~
DTOUT	INPUT+2~, CONFIRM+1~, CONFIRM+6, READ+1~, READ+7, EOP+1~
DUOUT	INPUT+2~, CONFIRM+1~, CONFIRM+7, READ+1~, READ+8, EOP+1~
EASZIPLK	EN+6!
FDA	SAVE+8~
FDA(2	SAVE+11*
FLG	EN~, EN+17, INPUT+4, COMPARE~, COMPARE+4, COMPARE+9, DISPUS~, DISPFGN~, SKIP~
FLG(1	EN+11*, DISPUS+13, DISPFGN+10, SAVE+7, SKIP+5
FLG(2	EN+11*, EN+17
FORGN	EN+7~, EN+14*, EN+15, EN+21, SAVE~, SAVE+5, INPT1~, INPT1+6
FSTR	EN+15, EN+16, EN+21, INPUT~, INPUT+3, SAVE~, SAVE+5, SAVE+6, INPT1+1~, INPT1+5* , INPT1+6*, INPT1+7
I	EN+8~
ICNTRY	EN+7~, EN+13*, EN+14
L	INPUT+2~, INPUT+3, GETOLD+1~, GETOLD+14, SAVE+1~, SAVE+6, READ+1~, READ+3
MSG	SAVE+8~, SAVE+13
MSG("DIERR"	SAVE+16, SAVE+17
OLDC	EN+7~, EN+14*
POP	READ+1~, READ+2, READ+3, READ+7, READ+9*
PSTR	EN+7~, EN+15, INPT1~, INPT1+4*
SKIP	SKIP+1~, SKIP+2, SKIP+3, SKIP+4, SKIP+5, SKIP+6
SRC	EN~, EN+21
SUCCESS	READ+1~, READ+2, READ+7, READ+10
T	GETOLD+1~, GETOLD+14*
U	INPUT+9, INPUT+10, GETOLD+22, COMPARE+4, COMPARE+6, DISPUS+3, DISPUS+4, DISPUS+5, DISPUS+6, DISPUS+7 , DISPUS+8, DISPUS+10, DISPUS+12, DISPUS+14, DISPUS+15, DISPUS+16, DISPFGN+3, DISPFGN+4, DISPFGN+5, DISPFGN+6 , DISPFGN+7, DISPFGN+11, DISPFGN+12, DISPFGN+13, SAVE+9, SAVE+10
X	EN+8~, INPUT+2~, CONFIRM+1~, EOP+1~
Y	EN+8~, INPUT+2~, INPUT+6, INPUT+7*, INPUT+8, INPUT+9, INPUT+10, INPUT+11, CONFIRM+1~, CONFIRM+6 , READ~, EOP+1~
Y(0	INPUT+10

Customize PDF page

Package: Registration

Routine: DGREGAED

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: