Routine: DGADDUTL

Package	Total	Call Graph
Registration	6	(UPDADDLG,UPDDTTM)^DGADDUT2 $$CNTRYI^DGADDUTL EN^DGREGAED ^DGRPE CHOICE^DGRPP $$UPPER^DGUTL
VA Fileman	4	^DIC YN^DICN GETS^DIQ ^DIR
Kernel	1	$$FMTE^XLFDT

Package

Total

Call Graph

Registration

(UPDADDLG,UPDDTTM)^DGADDUT2 $$CNTRYI^DGADDUTL EN^DGREGAED ^DGRPE CHOICE^DGRPP $$UPPER^DGUTL

VA Fileman

^DIC YN^DICN GETS^DIQ ^DIR

Kernel

$$FMTE^XLFDT

Package	Total	Caller Graph
Registration	22	DG ADDRESS UPDATE DG10 DGADDUT2 DGADDUTL DGCNTRY DGPTAE01 DGPTF1 DGPTR1 DGREG DGREGAED DGREGARP DGREGTE2 DGREGTED DGRP1 DGRPC DGRPC2 DGRPC3 DGRPCADD DGRPD DGRPEIS DGRPEIS3 VADPT1
Scheduling	4	SCMSVPID SDAMEP2 SDPPAT2 SDROUT2
Outpatient Pharmacy	1	PSOBAI

Package

Total

Caller Graph

Registration

DG ADDRESS UPDATE  DG10  DGADDUT2  DGADDUTL  DGCNTRY  DGPTAE01  DGPTF1  DGPTR1
DGREG  DGREGAED  DGREGARP  DGREGTE2  DGREGTED  DGRP1  DGRPC  DGRPC2
DGRPC3  DGRPCADD  DGRPD  DGRPEIS  DGRPEIS3  VADPT1

Scheduling

SCMSVPID SDAMEP2 SDPPAT2 SDROUT2

Outpatient Pharmacy

PSOBAI

Entry Points

Name	Comments	DBIA/ICR reference
ADDRLOOP	;
ADDR	; validate/edit Patient address (entry for DG ADDRESS UPDATE option)
FILEYN(DGOLD,DGNEW)	; Determine whether or not to file to #301.7
FOREIGN(DFN,CIEN,FILE,FIELD,COUNTRY)	; ; ** NOTE we have to default the value for "US" into the prompt if it is blank
ADDYN(PROMPT)	; Yes/No Prompt to Edit/Validate Address ; Input -- None ; Output -- 1 = YES ; 2 = NO ; -1 = Aborted
GETTADR(DFN,DGPRIOR)	; Get prior temporary address fields.
FOR(DGC)	;returns a 1 if address is foreign, a 0 if domestic, -1 if DGC is not valid ; DGC is the external value of the country (.01 field of file 779.004)
EDITTADR(DFN)	; Edit Temporary Address
ADD(DFN)	; validate/edit Patient address (entry point for routine DGREG) ; Input -- DFN
GETPRIOR(DFN,DGPRIOR)	; Get prior address fields.
FORIEN(DGC)	;returns a 1 if address is foreign, a 0 if domestic, -1 if DGC is invalid
UPDATE(DFN,TYPE)	; Update the Address ; Input -- TYPE = "PERM" for Permanent Address ; = "TEMP" for Temporary Address ; Output -- None ;	ICR #4886 Status: Active Usage: Controlled Subscription
UPDADDLG(DFN,DGPRIOR,DGINPUT)	; Update the IVM ADDRESS CHANGE LOG file #301.7
COUNTRY(DGC)	;
CNTRYI(DGIEN)	;where DGC is the internal value of the country
ADDRED(DFN,FLG)	; Address Edit (Code copied from DGREGAED and modified)
UPDDTTM(DFN,TYPE)	; Update the PATIENT file #2 with the current date and time
GETUPDTS(DFN,DGINPUT)	; Get current address fields.
DISPTADR(DFN,DGARRY)	; Display Temporary Address

External References

Name	Field # of Occurrence
UPDADDLG^DGADDUT2	UPDADDLG+2
UPDDTTM^DGADDUT2	UPDDTTM+2
$$CNTRYI^DGADDUTL	FOREIGN+5
EN^DGREGAED	ADDRED+8
^DGRPE	EDITTADR+12
CHOICE^DGRPP	EDITTADR+11
$$UPPER^DGUTL	COUNTRY+13, CNTRYI+11
^DIC	ADDRLOOP+3
YN^DICN	ADDYN+8
GETS^DIQ	GETPRIOR+2, GETUPDTS+2, GETTADR+2
^DIR	FOREIGN+7
$$FMTE^XLFDT	DISPTADR+22, DISPTADR+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: ADDRLOOP+1
Function Call: WRITE	Prompt: !!,"Patient is being edited. Try again later." Line Location: ADDRLOOP+8
Function Call: WRITE	Prompt: ! Line Location: ADDRLOOP+17
Function Call: WRITE	Prompt: !?5,"Enter 'YES' to validate/edit Patient's Address or 'NO' to continue." Line Location: ADD+9
Function Call: WRITE	Prompt: !,PROMPT Line Location: ADDYN+7
Function Call: WRITE	Prompt: !,"EXIT NOT ALLOWED" Line Location: FOREIGN+9
Function Call: WRITE	Prompt: !,"This is a required response." Line Location: FOREIGN+10
Function Call: WRITE	Prompt: !! Line Location: EDITTADR+8
Function Call: WRITE	Prompt: !!,"Temporary Address: " Line Location: DISPTADR+25
Function Call: WRITE	Prompt: !?9,$S(DGPCODE'="":DGPCODE,1:"")_" "_$S(DGCITY'="":DGCITY,1:"")_$S(DGCITY'="":",",1:" ")_$S(DGPROV'="":DGPROV,1:"") Line Location: DISPTADR+32
Routine Call	DIC Line Location: ADDRLOOP+3
Routine Call	DIR Line Location: FOREIGN+7

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls, GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DIC(5 - [#5]	DISPTADR+12, DISPTADR+13, DISPTADR+15
^DPT - [#2]	ADDRLOOP+8, ADDRLOOP+20, ADD+10
^HL(779.004 - [#779.004]	COUNTRY+8, COUNTRY+10, COUNTRY+13, FOR+5, CNTRYI+6, CNTRYI+8, CNTRYI+11, FORIEN+6, FORIEN+7

Label References

Name	Line Occurrences
$$ADDYN	ADD+6
$$CNTRYI	DISPTADR+20
$$FORIEN	FOREIGN+11, DISPTADR+19
ADDR	ADDRLOOP+8
ADDRED	UPDATE+9
ADDRLOOP	ADDRLOOP+21
DISPTADR	EDITTADR+7
EDITTADR	UPDATE+12
GETTADR	EDITTADR+6
UPDATE	ADDRLOOP+17, ADDRLOOP+18, ADD+11
UPDDTTM	ADDRED+11, EDITTADR+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ADDR+1~, ADDYN+6~, ADDYN+9, ADDRED+6~
ADDYN	ADD+3~, ADD+4, ADD+5, ADD+6, ADD+7, ADD+8*, ADD+9, ADD+10
CIEN	FOREIGN~, FOREIGN+5
COUNTRY	FOREIGN~, FOREIGN+11*
DA	FOREIGN+2~, FOREIGN+4*
DFN	ADDR+1~, ADDRLOOP+2!, ADDRLOOP+7*, ADDRLOOP+8, ADDRLOOP+17, ADDRLOOP+18, ADDRLOOP+20, ADD~, ADD+10, ADD+11 , UPDATE~, UPDATE+9, UPDATE+12, UPDDTTM~, UPDDTTM+2, ADDRED~, ADDRED+8, ADDRED+11, GETPRIOR~, GETPRIOR+2 , GETPRIOR+4, GETUPDTS~, GETUPDTS+2, GETUPDTS+4, FOREIGN~, FOREIGN+4, UPDADDLG~, UPDADDLG+2, EDITTADR~, EDITTADR+2 , EDITTADR+6, EDITTADR+7, EDITTADR+14, GETTADR~, GETTADR+2, GETTADR+4, DISPTADR~
DGADR1	DISPTADR+1~, DISPTADR+5*, DISPTADR+27
DGADR2	DISPTADR+1~, DISPTADR+6*, DISPTADR+28
DGADR3	DISPTADR+1~, DISPTADR+7*, DISPTADR+29
DGADRACT	DISPTADR+1~, DISPTADR+4*, DISPTADR+14, DISPTADR+26
DGARRY	GETPRIOR+1~, GETUPDTS+1~, GETTADR+1~, DISPTADR~
DGARRY(	DISPTADR+4, DISPTADR+5, DISPTADR+6, DISPTADR+7, DISPTADR+8, DISPTADR+9, DISPTADR+10, DISPTADR+11, DISPTADR+16, DISPTADR+17 , DISPTADR+18, DISPTADR+21, DISPTADR+22, DISPTADR+23, DISPTADR+38, DISPTADR+39, DISPTADR+40
DGARRY("NEW"	GETUPDTS+4*, GETUPDTS+5
DGARRY("OLD"	GETPRIOR+4, GETPRIOR+5, GETTADR+4, GETTADR+5
DGC	COUNTRY~, COUNTRY+6*, COUNTRY+8, FOR~, FOR+4, FOR+5, FOR+6, FORIEN~, FORIEN+4, FORIEN+5 , FORIEN+6, FORIEN+7
DGCC	COUNTRY+4~, COUNTRY+10, COUNTRY+12, COUNTRY+13, COUNTRY+14, CNTRYI+4~, CNTRYI+8, CNTRYI+10, CNTRYI+11, CNTRYI+12
DGCH	EDITTADR+1~, EDITTADR+10*
DGCIEN	GETPRIOR+1~, GETTADR+1~
DGCITY	DISPTADR+1~, DISPTADR+8*, DISPTADR+31, DISPTADR+32, DISPTADR+33
DGCNTRY	DISPTADR+2~, DISPTADR+18, DISPTADR+19, DISPTADR+20
DGCNTY	GETPRIOR+1~, GETTADR+1~
DGCOUNTY	DISPTADR+2~, DISPTADR+11, DISPTADR+12, DISPTADR+13, DISPTADR+14*, DISPTADR+34
DGCURR	GETPRIOR+1~, GETUPDTS+1~, GETTADR+1~
DGCURR(2	GETPRIOR+4, GETUPDTS+4, GETTADR+4
DGDR	EDITTADR+1~, EDITTADR+10*
DGFOR	FOR+2~, FOR+3, FOR+4, FOR+6, FOR+7, FORIEN+2~, FORIEN+3, FORIEN+4, FORIEN+7, FORIEN+8
DGFORN	DISPTADR+2~, DISPTADR+19*, DISPTADR+30, DISPTADR+32
DGFROMDT	DISPTADR+2~, DISPTADR+22*, DISPTADR+36
DGIEN	COUNTRY+4~, COUNTRY+8*, COUNTRY+10, COUNTRY+13, CNTRYI~, CNTRYI+5, CNTRYI+6, CNTRYI+8, CNTRYI+11
DGINPUT	ADDRED+6~, GETUPDTS~, GETUPDTS+5*, UPDADDLG~, UPDADDLG+2
DGN	GETPRIOR+1~, GETPRIOR+3, GETPRIOR+4, GETUPDTS+1~, GETUPDTS+3, GETUPDTS+4, GETTADR+1~, GETTADR+3*, GETTADR+4
DGNEW	FILEYN~
DGNEW(	FILEYN+4, FILEYN+5, FILEYN+6, FILEYN+7, FILEYN+8, FILEYN+9, FILEYN+10, FILEYN+11, FILEYN+12, FILEYN+13 , FILEYN+14, FILEYN+15
DGOLD	FILEYN~
DGOLD(	FILEYN+4, FILEYN+5, FILEYN+6, FILEYN+7, FILEYN+8, FILEYN+9, FILEYN+10, FILEYN+11, FILEYN+12, FILEYN+13 , FILEYN+14, FILEYN+15
DGPCODE	DISPTADR+2~, DISPTADR+17*, DISPTADR+32
DGPHONE	DISPTADR+2~, DISPTADR+21*, DISPTADR+35
DGPRIOR	GETPRIOR~, GETPRIOR+5, UPDADDLG~, UPDADDLG+2, EDITTADR+1~, EDITTADR+6, EDITTADR+7, GETTADR~, GETTADR+5
DGPROV	DISPTADR+2~, DISPTADR+16*, DISPTADR+32
DGRPAN	EDITTADR+1~, EDITTADR+10*
DGRPS	EDITTADR+1~, EDITTADR+10*
DGST	GETPRIOR+1~, GETTADR+1~
DGSTATE	DISPTADR+1~, DISPTADR+9, DISPTADR+12, DISPTADR+13, DISPTADR+15, DISPTADR+31, DISPTADR+33
DGTODT	DISPTADR+2~, DISPTADR+23*, DISPTADR+36
DGZIP	DISPTADR+1~, DISPTADR+10*, DISPTADR+31, DISPTADR+33
DIC	ADDR+1~, ADDRLOOP+2!, ADDRLOOP+3*
DIC("A"	ADDRLOOP+3*
DIC(0	ADDRLOOP+3*
DIR	FOREIGN+2~
DIR("B"	FOREIGN+5*
DIR(0	FOREIGN+4*
DIROUT	FOREIGN+2~, FOREIGN+9
>> DIRUT	FOREIGN+10
DONE	FOREIGN+2~, FOREIGN+4, FOREIGN+6, FOREIGN+8, FOREIGN+11*
DTOUT	ADDRLOOP+4, FOREIGN+2~, FOREIGN+8
DUOUT	ADDRLOOP+4, FOREIGN+2~, FOREIGN+9
FIELD	FOREIGN~, FOREIGN+3*, FOREIGN+4
FILE	FOREIGN~, FOREIGN+3*, FOREIGN+4
FLG	UPDATE+8~, UPDATE+9, ADDRED~, ADDRED+8
FLG(1	UPDATE+8*
FLG(2	UPDATE+8*
FORGN	FOREIGN+2~, FOREIGN+8, FOREIGN+11, FOREIGN+12
I	ADDRED+6~
INDX	FOREIGN+2~
PROMPT	ADDYN~, ADDYN+7
QUIT	ADDR+1~, ADDRLOOP+7, ADDRLOOP+9, ADDRLOOP+13, ADDRLOOP+19*
RETVAL	ADD+3~, ADD+4, ADD+7, ADD+8, ADD+12, ADD+13, FILEYN+1~, FILEYN+2, FILEYN+4, FILEYN+5* , FILEYN+6, FILEYN+7, FILEYN+8, FILEYN+9, FILEYN+10, FILEYN+11, FILEYN+12, FILEYN+13, FILEYN+14, FILEYN+15 , FILEYN+16
SRC	ADDRED+6~, ADDRED+7*, ADDRED+8
TYPE	UPDATE~, UPDATE+5, UPDATE+6, UPDATE+11, UPDDTTM~, UPDDTTM+2, ADDRED+11, EDITTADR+14
U	COUNTRY+10, COUNTRY+13, CNTRYI+8, CNTRYI+11
USERSEL	ADDR+1~, ADDRLOOP+2!, ADDRLOOP+11, ADDRLOOP+12, ADDRLOOP+13, ADDRLOOP+14*, ADDRLOOP+15, ADDRLOOP+17, ADDRLOOP+18
X	ADDRED+6~
Y	ADDR+1~, ADDRLOOP+2!, ADDRLOOP+5, ADDRLOOP+7, ADDRED+6~, FOREIGN+11

Customize PDF page

Package: Registration

Routine: DGADDUTL

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 27

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: