Routine: AGRSSN1A

Package	Total	Call Graph
VA Fileman	2	DD^%DT ^DIR
IHS Patient Registration	1	$$S^AGVDF
Kernel	1	^%ZIS

Package

Total

Call Graph

VA Fileman

DD^%DT ^DIR

IHS Patient Registration

$$S^AGVDF

Kernel

^%ZIS

Package	Total	Caller Graph
IHS Patient Registration	1	AGRSSN1

Package

Total

Caller Graph

IHS Patient Registration

AGRSSN1

Name	Field # of Occurrence
DD^%DT	HD+1
^%ZIS	WRT+1
$$S^AGVDF	HD
^DIR	BODY

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Age Distributions..: 0-9 10-19 20-29 30-39 40-49 50-59 60-Over Total " Line Location: BODY+3
Function Call: WRITE	Prompt: !," ----- ----- ----- ----- ----- ----- ------- -------" Line Location: BODY+4
Function Call: WRITE	Prompt: !," ===== ===== ===== ===== ===== ===== ======= =======" Line Location: BODY+5
Function Call: WRITE	Prompt: !,"Patients with SSN..:" Line Location: BODY+6
Function Call: WRITE	Prompt: $J($FN($P(^TMP("AG-SSN1",$J,AG("LOC"),0),U,X),",",0),$S(X=7:9,1:7)) Line Location: BODY+7
Function Call: WRITE	Prompt: ?73,$J($FN(AG("T"),","),7) Line Location: BODY+8
Function Call: WRITE	Prompt: !,"Total Patients.....:" Line Location: BODY+9
Function Call: WRITE	Prompt: $J($FN($P(^TMP("AG-SSN1",$J,AG("LOC"),0),U,X),",",0),$S(X=14:9,1:7)) Line Location: BODY+10
Function Call: WRITE	Prompt: ?73,$J($FN(AG("T"),","),7) Line Location: BODY+11
Function Call: WRITE	Prompt: !,"Percent Compliance.:" Line Location: BODY+12
Function Call: WRITE	Prompt: ?73,$J($S(+AG("TT")=0:0,1:AG("CT")/AG("TT")*100),7,0) Line Location: BODY+14
Function Call: WRITE	Prompt: $$S^AGVDF("IOF") Line Location: HD+0
Function Call: WRITE	Prompt: !,AG("HD"),?60 Line Location: HD+1
Function Call: WRITE	Prompt: Y,?73,"Page ",AG("PG") Line Location: HD+1
Function Call: WRITE	Prompt: !,"--------------------------------------------------------------------------------" Line Location: HD+4
Function Call: WRITE	Prompt: !! Line Location: LOC+0
Function Call: WRITE	Prompt: "******************************* TOTALS ********************************" Line Location: LOC+0
Function Call: WRITE	Prompt: "LOCATION: ",AG("LOC") Line Location: LOC+1
Routine Call	DIR Line Location: BODY
Routine Call	%ZIS Line Location: WRT+1

Name	Line Occurrences (* Changed, ! Killed)
^TMP("AG-SSN1"	WRT+3, BODY+7, BODY+10, BODY+13

Name	Line Occurrences
BODY	WRT+3, WRT+4
HD	WRT+2, BODY, BODY+1
LOC	BODY+2
XIT	WRT+5

Name	Field # of Occurrence
^(0	BODY+7, BODY+10, BODY+13

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AG("C"	BODY+13*
>> AG("CT"	BODY+13*, BODY+14
>> AG("HD"	HD+1, HD+2, HD+3
>> AG("I"	WRT+3*, WRT+4
>> AG("IOP"	WRT+1
>> AG("LOC"	WRT+3, WRT+4, BODY+4, BODY+7, BODY+10, BODY+13, LOC, LOC+1
>> AG("PG"	WRT+1, HD, HD+1
>> AG("T"	BODY+7, BODY+8, BODY+10, BODY+11, BODY+13*
>> AG("TT"	BODY+13*, BODY+14
>> DIR(0	BODY*
>> DIROUT	BODY
DT	HD+1
>> DTOUT	BODY
>> DUOUT	BODY
IO	WRT+1, BODY
IO(0	BODY
>> IOP	WRT+1*
IOSL	BODY, BODY+1
IOST	BODY
U	BODY+7, BODY+10, BODY+13
>> X	BODY+7, BODY+10, BODY+13*
>> Y	HD+1*

Customize PDF page

Package: IHS Patient Registration

Routine: AGRSSN1A

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
BODY
LOC
WRT	;EP
XIT
HD