Routine: AGED8

Package	Total	Call Graph
IHS Patient Registration	6	(,UPDATE1)^AGED READ^AGED1 ^AGED11 ^AGED13 $$DECEASED^AGEDERR2 $$AGE^AGUTILS
VA Fileman	4	DD^%DT ^DIE $$GET1^DIQ EN^DIQ1
Immunization Tracking	1	AUTOADD^BIPATE

Package

Total

Call Graph

IHS Patient Registration

(,UPDATE1)^AGED READ^AGED1 ^AGED11 ^AGED13 $$DECEASED^AGEDERR2 $$AGE^AGUTILS

VA Fileman

DD^%DT ^DIE $$GET1^DIQ EN^DIQ1

Immunization Tracking

AUTOADD^BIPATE

Package	Total	Caller Graph
IHS Patient Registration	3	AGED10 AGED13 AGED9

Package

Total

Caller Graph

IHS Patient Registration

AGED10 AGED13 AGED9

Name	Comments	DBIA/ICR reference
C	;EP - Edit multiple fields on a Reg edit page.
END
CC
CERT	;EP (string in AGED8).
1	;
DATE	;EP (string in AGED8).
STATE	;EP (string in AGED8).
VAR
DRAW	;EP
LEGNAM	;

Name	Field # of Occurrence
DD^%DT	DRAW+18
^AGED	DRAW+3
UPDATE1^AGED	C+2
READ^AGED1	VAR+12
^AGED11	END+6
^AGED13	VAR+15, END+5
$$DECEASED^AGEDERR2	DATE+4
$$AGE^AGUTILS	DATE+4
AUTOADD^BIPATE	DATE+4
^DIE	DATE+1, STATE+1, CERT+1
$$GET1^DIQ	DRAW+14
EN^DIQ1	DRAW+31

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?10,"Enter ""4"" to edit OTHER NAMES or ""5"" to edit LEGAL NAMES." Line Location: VAR+2
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: VAR+3
Function Call: WRITE	Prompt: !!,"You must enter a number from 1 to ",AG("N") Line Location: VAR+16
Function Call: WRITE	Prompt: !! Line Location: VAR+17
Function Call: WRITE	Prompt: !,"CHANGED TO" Line Location: LEGNAM+6
Function Call: WRITE	Prompt: ?32,"BY" Line Location: LEGNAM+7
Function Call: WRITE	Prompt: ?38,"PROOF" Line Location: LEGNAM+8
Function Call: WRITE	Prompt: ?54,"DOC. #" Line Location: LEGNAM+9
Function Call: WRITE	Prompt: ?70,"DATE" Line Location: LEGNAM+10
Function Call: WRITE	Prompt: !,"5. " Line Location: LEGNAM+11
Function Call: WRITE	Prompt: ?4,$E(CHGTO,1,30) Line Location: LEGNAM+20
Function Call: WRITE	Prompt: ?32,$P($G(^VA(200,USER,0)),U,2) Line Location: LEGNAM+21
Function Call: WRITE	Prompt: ?38,$E(PROOF,1,15) Line Location: LEGNAM+22
Function Call: WRITE	Prompt: ?54,$E(DOCNUM,1,15) Line Location: LEGNAM+23
Function Call: WRITE	Prompt: ?70,$E(DTCHG,4,5)_"/"_$E(DTCHG,6,7)_"/"_($E(DTCHG,1,3)+1700),! Line Location: LEGNAM+24
Function Call: WRITE	Prompt: $$GET1^DIQ(DIC,DFN,DR) Line Location: DRAW+14
Function Call: WRITE	Prompt: ?45,"Edited by "_$P($G(^VA(200,$P($G(^DPT(DFN,.35)),U,2),0)),U,2) Line Location: DRAW+17
Function Call: WRITE	Prompt: " on "_Y Line Location: DRAW+19
Function Call: WRITE	Prompt: !,$E(AGLINE("-"),1,33) Line Location: DRAW+20
Function Call: WRITE	Prompt: ?33," Other Names ",$E(AGLINE("-"),1,34) Line Location: DRAW+20
Function Call: WRITE	Prompt: !,"4. " Line Location: DRAW+21
Function Call: WRITE	Prompt: !,$E(AGLINE("-"),1,33) Line Location: DRAW+34
Function Call: WRITE	Prompt: ?33," Legal Names ",$E(AGLINE("-"),1,34) Line Location: DRAW+34
Routine Call	DIE Line Location: DATE+1 STATE+1 CERT+1

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^AUPNPAT - [#9000001]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNELM - [#9000030]	LEGNAM+19
^AUPNNAMC - [#9000033]	LEGNAM+13
^AUPNNAMC("C"	LEGNAM+3, LEGNAM+12
^AUPNPAT - [#9000001]	DATE+2*, DRAW+18
^DD(	DRAW+13
^DPT - [#2]	DATE+2, DATE+4, DRAW+16, DRAW+17, DRAW+22, DRAW+28
^UTILITY("DIQ1"	DRAW+4!
^VA(200 - [#200]	LEGNAM+21, DRAW+17

Name	Line Occurrences
@(	VAR+15, C+1
DRAW	VAR
END	VAR+15
LEGNAM	DRAW+35
VAR	VAR+15, VAR+16, C+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	DATE+1!
AG	END!, DRAW+5*, DRAW+13, DRAW+15
AG("C"	CC*, C+1
AG("ED"	VAR+15
AG("ERR"	VAR+15
AG("N"	AGED8+3*, VAR+11, VAR+16, C+1
AG("PG"	DRAW+1*
AG("SEL"	C+1*
>> AGERR	DATE+4
AGI	C+1*, C+2!
>> AGLINE("-"	DRAW+20, DRAW+34
>> AGLINE("EQ"	VAR+3
>> AGPATDFN	DATE+4
AGRES	DRAW+30!, DRAW+33!
AGRES(	DRAW+32
AGSCRN	END!, DRAW+5, DRAW+6*, DRAW+7, DRAW+8, DRAW+9, DRAW+10, DRAW+11, DRAW+12
>> AGSEENLY	VAR+1, VAR+4, END+4
>> AGXTERN	VAR+14, VAR+15, END+2
AGY	C+1*, C+2!
>> CAPDENT	DRAW+12*, DRAW+13
>> CAPTION	DRAW+8*, DRAW+13
>> CHGTO	LEGNAM+5, LEGNAM+15, LEGNAM+20
DA	END!, DATE+1, STATE+1, CERT+1, LEGNAM+1~, DRAW+26
DA(	DRAW+29*
>> DAIEN	DRAW+27, DRAW+28, DRAW+29, DRAW+32
>> DFN	C+2, DATE+1, DATE+2, DATE+4, STATE+1, CERT+1, LEGNAM+3, LEGNAM+12, DRAW+14, DRAW+16 , DRAW+17, DRAW+18, DRAW+22, DRAW+26, DRAW+28
DFOUT	VAR+13, END!
DIC	END!, LEGNAM+1~, DRAW+9, DRAW+13, DRAW+14, DRAW+23
DIE	END!, DATE+1, STATE+1, CERT+1*
>> DIQ	DRAW+31*
>> DIQ(0	DRAW+31*
DIR	VAR+5!, LEGNAM+1~
DIR("?"	VAR+6, VAR+7, VAR+8, VAR+9, VAR+10*
DIR("A"	VAR+11*
>> DIROUT	END+3
DLOUT	VAR+15, END!
>> DOCNUM	LEGNAM+17*, LEGNAM+23
DQOUT	VAR+16, END!
DR	END!, DATE+1, STATE+1, CERT+1, DRAW+10, DRAW+13, DRAW+14, DRAW+25*
DR(	DRAW+24*
DT	DATE+2
>> DTCHG	LEGNAM+5, LEGNAM+14, LEGNAM+24
DTOUT	VAR+13, END!, LEGNAM+2!
DUOUT	VAR+14, VAR+15, END+5, LEGNAM+2!
DUZ(2	C+2, DATE+4
>> NEWLINE	DRAW+11*, DRAW+13
>> PRFPTR	LEGNAM+4, LEGNAM+16, LEGNAM+19, LEGNAM+22
>> PROOF	LEGNAM+5, LEGNAM+19, LEGNAM+22
>> PTR	LEGNAM+4, LEGNAM+12, LEGNAM+13
>> REC	LEGNAM+4, LEGNAM+13, LEGNAM+14, LEGNAM+15, LEGNAM+16, LEGNAM+17, LEGNAM+18
ROUTID	END+1!, DRAW+2*
TEMPDIC	DRAW+33!
U	DATE+2, DATE+4, LEGNAM+14, LEGNAM+15, LEGNAM+16, LEGNAM+17, LEGNAM+18, LEGNAM+19, LEGNAM+21, DRAW+8 , DRAW+9, DRAW+10, DRAW+11, DRAW+12, DRAW+13, DRAW+16, DRAW+17, DRAW+18
>> USER	LEGNAM+18*, LEGNAM+21
X	LEGNAM+1~
Y	VAR+15, VAR+16, C+1, END!, LEGNAM+1~, DRAW+18*, DRAW+19

Customize PDF page

Package: IHS Patient Registration

Routine: AGED8

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(	DRAW+2
$T(@1+AG	DRAW+6