Routine: AGLSSN2

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	DD^%DT NOW^%DTC ^DIR
IHS Patient Registration	2	(CPI,RTRN)^AG $$S^AGVDF

Entry Points

Name	Comments	DBIA/ICR reference
WRITE	;
END	;
HDR
QUIT
PTS	;
PRQUE	;ENTER FROM TASK MANAGER
QUE
W1
PROC	;

External References

Name	Field # of Occurrence
DD^%DT	PROC+5, WRITE+16
NOW^%DTC	PROC+3
^%ZIS	W1
^%ZISC	QUIT
^%ZTLOAD	QUE+1
CPI^AG	HDR+1
RTRN^AG	WRITE+22
$$S^AGVDF	HDR
^DIR	PTS+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$S^AGVDF("IOF") Line Location: HDR+0
Function Call: WRITE	Prompt: !,?64,AGDATE Line Location: HDR+2
Function Call: WRITE	Prompt: !,?5,$P(^AUTTLOC(DUZ(2),0),U,2),?27,"LISTING OF PATIENTS WITH SSN",?70,"PAGE ",AGPAGE Line Location: HDR+3
Function Call: WRITE	Prompt: !,"SSN",?10,"REASON CODE FOR SSN",?35,"NAME",?60,"HRN",?68,"DOB",! Line Location: HDR+4
Function Call: WRITE	Prompt: "=" Line Location: HDR+5
Function Call: WRITE	Prompt: !,"TOTAL PATIENTS WITH SSN: ",AGRECS Line Location: END+2
Function Call: WRITE	Prompt: !,"TOTALS FOR EACH REASON CODE:" Line Location: END+3
Routine Call	DIR Line Location: PTS+5
Routine Call	%ZIS Line Location: W1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PROC+10, PROC+16, PROC+19
^AUTTLOC - [#9999999.06]	HDR+3
^AUTTSSN - [#9999999.78]	WRITE+12
^DPT - [#2]	PROC+8, PROC+11, PROC+14, PROC+17, PROC+18
^TMP($J	PROC+1!, PROC+24*, WRITE+7, WRITE+8, WRITE+9, WRITE+10, WRITE+11, END+6!

Label References

Name	Line Occurrences
END	WRITE+25
HDR	WRITE+5, WRITE+24
PROC	W1+1
QUE	W1+1
QUIT	W1, WRITE+23, QUE+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	W1*
>> %ZIS("B"	W1*
AG	QUIT!, QUE*
AG("ION"	W1+1*
AGBM	PROC+2*, WRITE+21, END+8!
AGD	WRITE+17*, WRITE+18, END+8!
AGDATE	PROC+6*, HDR+2, END+8!
AGDEC	PROC+11*, PROC+12, END+8!
AGDOB	PROC+18, PROC+21, PROC+24, WRITE+6, WRITE+10, WRITE+11, WRITE+15, END+7!
>> AGEND	WRITE+6, WRITE+7, WRITE+8, WRITE+9, WRITE+10, WRITE+23, WRITE+25
AGFLAG	WRITE+4*, END+8!
AGHRN	PROC+19, PROC+20, PROC+24, WRITE+6, WRITE+9*, WRITE+10, WRITE+11, WRITE+18, END+7!
AGIEN	END+8!
AGMVDF	END+8!
AGNAME	PROC+17, PROC+23, PROC+24, WRITE+6, WRITE+8*, WRITE+9, WRITE+10, WRITE+11, WRITE+18, END+7!
AGNONACT	PROC+10*, PROC+12, END+9!
AGPAGE	WRITE+2, HDR+3, HDR+6, END+9!
AGPTS	PTS+6*, PROC+12, END+8!
AGR	WRITE+12, WRITE+13, WRITE+14, WRITE+18, WRITE+19, END+1, END+4*, END+5, END+9!
AGREASON	PROC+16, PROC+22, PROC+24, WRITE+6, WRITE+7, WRITE+8, WRITE+9, WRITE+10, WRITE+11, WRITE+12 , WRITE+13, END+7!
AGRECS	WRITE+1!, WRITE+3, WRITE+20, END+2, END+9!
AGRECS(	WRITE+19*, END+4, END+5
AGSSN	PROC+14, PROC+15, PROC+24, WRITE+11, WRITE+18, END+8!
D0	PROC+7, PROC+8, PROC+10, PROC+11, PROC+14, PROC+16, PROC+17, PROC+18, PROC+19, END+8!
>> DFOUT	PTS+7
DIR	PTS+5!
DIR("A"	PTS+2, PTS+3
DIR("B"	PTS+4*
DIR(0	PTS+1*
>> DTOUT	PTS+7, WRITE+23
>> DUOUT	PTS+7, WRITE+23
DUZ(2	PROC+10, PROC+19, HDR+3
IO	W1, HDR
IO("Q"	W1+1, QUE!
ION	W1+1
IOSL	PROC+2
IOST	HDR
>> POP	W1
U	PROC+10, PROC+11, PROC+14, PROC+16, PROC+17, PROC+18, PROC+19, WRITE+12, HDR+3
>> X	PROC+4, HDR+5*
>> Y	PTS+6, PROC+4, PROC+6, WRITE+15, WRITE+17
>> ZTDESC	QUE*
>> ZTRTN	QUE*
>> ZTSAVE("AG*"	QUE*
>> ZTSK	QUE+1

Customize PDF page

Package: IHS Patient Registration

Routine: AGLSSN2

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: