Routine: AGRSSN1

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),!!?13,"===================================================" Line Location: AGRSSN1+4
Function Call: WRITE	Prompt: !?28,"SSN COMPLIANCE REPORT",!?13,"===================================================" Line Location: AGRSSN1+5
Function Call: WRITE	Prompt: !!,"NOTE: This report might take considerable time to run, putting a large demand",!,"on the computer processor, which could adversely impact the response time on" Line Location: AGRSSN1+6
Function Call: WRITE	Prompt: !,"other users. Thus, it is recommended that this report be queued to run at a time",!,"of limited activity. Contact your Site Manager for assistance with queueing." Line Location: AGRSSN1+7
Function Call: WRITE	Prompt: !!!?10,"This REPORT can be limited to ACTIVE PATIENTS whom have",!?10,"had either a PCC or APC VISIT within the PAST 3 YEARS." Line Location: AGRSSN1+9
Function Call: WRITE	Prompt: !!!?10,"Also, the REPORT can be restricted to a SPECIFIC LOCATION." Line Location: SLOC+0
Function Call: WRITE	Prompt: !! Line Location: XIT+1
Routine Call	DIC Line Location: SLOC+2
Routine Call	DIR Line Location: AGRSSN1+10 SLOC+1 XIT+1
Routine Call	%ZIS Line Location: ZIS

FileNo	Call Tags
^DIC(4 - [#4]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AAPCRCDS(	APC+1
^AAPCRCDS("B"	APC
^AUPNPAT - [#9000001]	PRQUE+6, DATA
^AUPNVSIT - [#9000010]	PCC+1
^AUPNVSIT("AC"	PCC
^AUTTSITE(1	DATA+1
^DIC(4 - [#4]	PRQUE+4, DATA+2
^DPT - [#2]	PRQUE+6, SLOOP, DATA+3
^TMP("AG-SSN1"	PRQUE+1!, DATA+4, DATA+5, DATA+6, DATA+7, XIT!

Name	Line Occurrences
APC	DATA+1
DATA	PRQUE+6, SLOOP
PCC	DATA+1
QUE	ZIS+2
SLOC	AGRSSN1+10
SLOOP	PRQUE+5
XIT	AGRSSN1+10, SLOC+1, SLOC+2, ZIS, PRQUE+7, SLOOP+1, QUE+2
ZIS	SLOC+1

Name	Field # of Occurrence
^(0	DATA+1, DATA+5, DATA+7, PCC+1, APC+1

Name	Field # of Occurrence
>> %ZIS	ZIS*
>> %ZIS("A"	ZIS*
>> %ZIS("B"	ZIS*
AG	AGRSSN1+3!, PRQUE+6, SLOOP, DATA, DATA+3, PCC, APC, XIT!, QUE*
AG("ACTIVE"	AGRSSN1+11*, PRQUE+3, DATA+1
AG("CUTOFF"	PRQUE+5*, PCC+1, APC+1
AG("HD"	PRQUE+2, PRQUE+3, PRQUE+4*, PRQUE+5!
AG("HIT"	PRQUE+6, SLOOP, DATA+1, PCC, PCC+1, APC, APC+1
AG("IOP"	ZIS+1*
AG("L"	DATA+2*, DATA+4, DATA+5
AG("LOC"	PRQUE+6, SLOOP, DATA+2, PCC+1, APC+1
AG("P"	PCC, PCC+1, APC, APC+1
AG("SLOC"	SLOC+2*, PRQUE+4, PRQUE+5, SLOOP, DATA
AG(0	DATA+3*
AG(1	DATA+3*, DATA+5, DATA+7
>> AGZ("I"	PRQUE+6, SLOOP, PCC, APC
>> DIC	SLOC+2*
>> DIC("A"	SLOC+2*
>> DIC("B"	SLOC+2*
>> DIC(0	SLOC+2*
DIR	AGRSSN1+10!, SLOC+1!, XIT+1!
DIR("A"	AGRSSN1+10, SLOC+1, XIT+1*
DIR("B"	AGRSSN1+10, SLOC+1
DIR(0	AGRSSN1+10, SLOC+1, XIT+1*
>> DIROUT	XIT+1
DT	PRQUE+5, DATA+3
>> DTOUT	AGRSSN1+10, SLOC+1, XIT+1
>> DUOUT	AGRSSN1+10, SLOC+1
DUZ(2	SLOC+2
IO	ZIS, XIT+1
IO("Q"	ZIS+2, QUE!
IO("S"	XIT+1
IO(0	XIT+1
ION	ZIS+1
IOST	XIT+1
>> POP	ZIS
U	PRQUE+4, DATA+1, DATA+2, DATA+3, DATA+5, DATA+7, PCC+1, APC+1
>> X	PRQUE+5, DATA+3*, DATA+5, DATA+7
>> X1	PRQUE+5, DATA+3
>> X2	PRQUE+5, DATA+3
>> Y	AGRSSN1+10, SLOC+1, SLOC+2
>> ZTDESC	QUE*
>> ZTQUEUED	XIT+3
>> ZTRTN	QUE*
>> ZTSAVE(	QUE*
ZTSK	QUE+1, QUE+2!