Routine: AGED11

Package	Total	Call Graph
IHS Patient Registration	5	(,UPDATE1)^AGED READ^AGED1 ^AGED11A ADD^AGED13 VERIF^AGUTILS
VA Fileman	5	^%DT ^DIE ^DIR ^DIWP ^DIWW
Kernel	1	$$CJ^XLFSTR

Package

Total

Call Graph

IHS Patient Registration

(,UPDATE1)^AGED READ^AGED1 ^AGED11A ADD^AGED13 VERIF^AGUTILS

VA Fileman

^%DT ^DIE ^DIR ^DIWP ^DIWW

Kernel

$$CJ^XLFSTR

Package	Total	Caller Graph
IHS Patient Registration	4	AGED10 AGED11A AGED8 AGED9

Package

Total

Caller Graph

IHS Patient Registration

AGED10 AGED11A AGED8 AGED9

Entry Points

Name	Comments	DBIA/ICR reference
FORK	;EP - WHICH TO DO ADD OR EDIT
DRAW	;EP - PRINT ADDITIONAL INFO LINE BY LINE. WITH WRAP FORMATTING
REVEDIT	;
HDR	;EP
ADDNEW(FIRSTLIN)	;EP - ADD ADDITIONAL REGISTRATION INFORMATION
DRAWLINE	;EP - PRINT ADDITIONAL INFO LINE BY LINE. NO FORMATTING
EDIT	;
ADD	;EP - Add a Patient.
VAR	;EP
END

External References

Name	Field # of Occurrence
^%DT	ADDNEW+8
^AGED	DRAWLINE+2, HDR+3
UPDATE1^AGED	REVEDIT+5, ADDNEW+20
READ^AGED1	VAR+15
^AGED11A	VAR+19
ADD^AGED13	ADD+2
VERIF^AGUTILS	DRAW+14, DRAWLINE+8
^DIE	REVEDIT+3, ADDNEW+2
^DIR	DRAW+11
^DIWP	DRAW+10
^DIWW	DRAW+12
$$CJ^XLFSTR	DRAWLINE+3, HDR+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: VAR+10
Function Call: WRITE	Prompt: !,$G(AGLINE("-")) Line Location: DRAW+13
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("ADDITIONAL REGISTRATION INFO",IOM) Line Location: DRAWLINE+3
Function Call: WRITE	Prompt: !,$G(AGLINE("-")) Line Location: DRAWLINE+4
Function Call: WRITE	Prompt: ^(I,0),! Line Location: DRAWLINE+6
Function Call: WRITE	Prompt: !,$G(AGLINE("-")) Line Location: DRAWLINE+7
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("ADDITIONAL REGISTRATION INFO",IOM),! Line Location: HDR+4
Function Call: WRITE	Prompt: AGLINE("-") Line Location: HDR+5
Routine Call	DIE Line Location: REVEDIT+3 ADDNEW+2
Routine Call	DIR Line Location: DRAW+11

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	VAR+11, DRAW+8, DRAW+9, DRAWLINE+5, DRAWLINE+6, EDIT+3, EDIT+4!, EDIT+12, EDIT+13, EDIT+17! , EDIT+18, ADDNEW+5, ADDNEW+11, ADDNEW+14, ADDNEW+15, ADDNEW+18, ADDNEW+19
^DD("DD"	ADDNEW+9
^UTILITY($J	DRAW+2!
^VA(200 - [#200]	ADDNEW+7

Name	Line Occurrences
@(	VAR+23
ADDNEW	EDIT+5
DRAWLINE	VAR+2
END	AGED11+4, VAR+21
FORK	VAR+22, ADD+1
HDR	DRAW+1, DRAW+11
REVEDIT	FORK+10
VAR	VAR+20, VAR+22, VAR+24

Name	Field # of Occurrence
^(	DRAWLINE+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	END+2!, ADDNEW+8*
AD0	AGED11+3~, DRAW+7, DRAW+8, DRAW+9, END+2!
AG	END!
AG("ED"	VAR+23
AG("ERR"	VAR+20
AG("PG"	DRAWLINE+1, HDR+1
AGADINFO	EDIT+2!, EDIT+3*, EDIT+18, END+1!
AGADINFO(	EDIT+14*
AGADINFO(""	EDIT+7
AGADINFO(0	EDIT+8, EDIT+9, EDIT+15, EDIT+16
>> AGINITIL	ADDNEW+7*, ADDNEW+16
>> AGLINE("-"	DRAW+13, DRAWLINE+4, DRAWLINE+7, HDR+5
>> AGOPT(9	AGED11+4, ADD+1
>> AGSEENLY	VAR+3
>> AGXTERN	VAR+17, VAR+18, VAR+23
DA	REVEDIT+1!, REVEDIT+2, REVEDIT+4!, END!, ADDNEW+2
>> DFN	VAR+11, DRAW+8, DRAW+9, DRAWLINE+5, DRAWLINE+6, REVEDIT+2, REVEDIT+5, EDIT+3, EDIT+4, EDIT+12 , EDIT+13, EDIT+17, EDIT+18, ADDNEW+2, ADDNEW+5, ADDNEW+11, ADDNEW+14, ADDNEW+15, ADDNEW+18, ADDNEW+19 , ADDNEW+20
DFOUT	VAR+16, END!
DIC	REVEDIT+1!, REVEDIT+4!
DIE	REVEDIT+1!, REVEDIT+2, REVEDIT+4!, ADDNEW+2
DIR	VAR+4!, DRAW+11!, REVEDIT+1!, REVEDIT+4!
DIR("?"	VAR+5, VAR+6, VAR+7, VAR+8, VAR+9*
DIR("A"	VAR+12, VAR+13
DIR("B"	VAR+14*
DIR(0	DRAW+11*
DIWF	DRAW+5*, END+2!
DIWL	DRAW+3*, END+2!
DIWR	DRAW+4*, END+2!
DLOUT	VAR+21, END!
DQOUT	END!
DR	REVEDIT+2, END!, ADDNEW+2
DTOUT	VAR+16, END!
>> DUOUT	VAR+17
DUZ	ADDNEW+7
DUZ(2	REVEDIT+5, ADDNEW+20
EDITDATE	END+2!, ADDNEW+10*, ADDNEW+13
FIRSTLIN	ADDNEW~, ADDNEW+11, ADDNEW+14
>> I	DRAWLINE+6*
IOM	DRAWLINE+3, HDR+4
LASTASS	EDIT+8*, END+1!
LASTLINE	EDIT+1~, EDIT+7*, EDIT+10, END+1!, ADDNEW+1~
LASTTOT	EDIT+9*, END+1!
LINE	EDIT+13, EDIT+14, END+2!, ADDNEW+11, ADDNEW+13, ADDNEW+14, ADDNEW+15, ADDNEW+16*, ADDNEW+18
NEWLINE	EDIT+10*, EDIT+12, END+1!
NEWLINES	END+2!, ADDNEW+5*, ADDNEW+6, ADDNEW+15, ADDNEW+18, ADDNEW+19
NEWREC	EDIT+11, EDIT+12, EDIT+13, END+1!
RECORD	EDIT+12*, EDIT+14, EDIT+15, END+1!
ROUTID	END+2!, HDR+2*
>> STOP	DRAW+6, DRAW+8, DRAW+11
U	DRAW+11, EDIT+8, EDIT+9, EDIT+15, EDIT+16, ADDNEW+5, ADDNEW+7, ADDNEW+19
X	DRAW+9, DRAW+11, END+2!, ADDNEW+8
Y	VAR+18, VAR+19, VAR+22, END+1!, ADDNEW+10

Customize PDF page

Package: IHS Patient Registration

Routine: AGED11

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items