Routine: AGTRBL

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC (,KILL)^%ZTLOAD
IHS Patient Registration	2	(LINES,NOW,RTRN)^AG $$S^AGVDF
VA Fileman	1	^DIC

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	DEV, PRINT+2
^%ZISC	DEV+1, DEV+3, END
^%ZTLOAD	DEV+3
KILL^%ZTLOAD	END+2
LINES^AG	PRINT+3
NOW^AG	PRINT+3
RTRN^AG	PRINT+13, END
$$S^AGVDF	PRINT+4, END
^DIC	AGTRBL+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+1
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),!,AG("*"),! Line Location: PRINT+4
Function Call: WRITE	Prompt: !,AG("USR"),?80-$L(AG("LOC"))\2,AG("LOC") Line Location: PRINT+5
Function Call: WRITE	Prompt: !!?20,"TRIBAL BLOOD QUANTUM STATISTICAL SUMMARY",!?19,"PERCENTAGE OF REGISTERED TRIBAL POPULATION",!!?80-$L("TRIBE: "_AGTRIBE)\2,"TRIBE: "_AGTRIBE Line Location: PRINT+6
Function Call: WRITE	Prompt: !!?80-$L("Report date: "_AGTIME)\2,"Report date: ",AGTIME,! Line Location: PRINT+7
Function Call: WRITE	Prompt: !,AG("*"),! Line Location: PRINT+8
Function Call: WRITE	Prompt: !,"""POPULATION"" represents those patients who.....",!!?5,"1) are on file in the local computer,",!?5,"2) are registered at the above facility," Line Location: PRINT+9
Function Call: WRITE	Prompt: !?5,"3) have valid data in the tribal quantum field,",!?5,"4) are not designated as inactive patients,",!?5,"5) are members of the ",AGTRIBE," tribe." Line Location: PRINT+10
Function Call: WRITE	Prompt: !!!,"TRIBAL QUANTUM.... (POPULATION: ",AGTOT,")" Line Location: PRINT+11
Function Call: WRITE	Prompt: ! Line Location: PRINT+12
Function Call: WRITE	Prompt: !?5,$J($P("FULL^LESS THAN FULL^LESS THAN 1/2^LESS THAN 1/4^NONE^UNKNOWN^UNSPECIFIED",U,I),15),":",?25,$J(AG(I)/AGTOT*100,6,1),"%" Line Location: PRINT+12
Function Call: WRITE	Prompt: !!!!!,"Total LESS-THAN-1/4 WITH MEDICAID:",?25,$J(AG(9)/AGTOT*100,6,1),"%",?50,"(Number of patients: ",AG(9),")" Line Location: MCD+0
Function Call: WRITE	Prompt: !!," Based on a population of ",AGTOT," and representing those patients having.....",!," 1) ""less than 1/4"" or ""none"" for Tribal quantum, and",!," 2) membership in the ",AGTRIBE," tribe." Line Location: MCD+1
Function Call: WRITE	Prompt: $$S^AGVDF("IOF") Line Location: END+0
Routine Call	DIC Line Location: AGTRBL+3
Routine Call	%ZIS Line Location: DEV PRINT+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	DEV+2
^AUPNMCD("B"	L9
^AUPNPAT - [#9000001]	L, L+1
^AUTTTRI - [#9999999.03]	DEV+2, PRINT
^DIC(4 - [#4]	PRINT
^DPT - [#2]	L
^VA(200 - [#200]	PRINT

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEV*
AG	DEV+3!, L+5, L+6, L+7, L+8, L+10, PRINT+1, END+1!
AG(	START+1, L+2, PRINT+1, PRINT+12
AG("*"	PRINT+4, PRINT+8
AG("LOC"	PRINT*, PRINT+5, END+1!
AG("USR"	PRINT*, PRINT+5, END+1!
AG(1	L+6*
AG(2	L+7*
AG(3	L+8*
AG(4	L+10*
AG(5	L+11*
AG(9	L9+1*, MCD
AGDEN	L+3*, L+4, L+5, END+1!
AGIO	AGTRBL+3*, DEV+3!, END+1!
AGNUM	L+3*, L+5, END+1!
AGQIO	DEV+2*, DEV+3!, PRINT+2, END+1!
AGT	END+1!
AGT("TR"	L+2, L+9, L9
AGTIME	PRINT+7, END+1!
AGTOT	START+1, PRINT+1, PRINT+11, PRINT+12, MCD, MCD+1, END+1!
AGTRIBE	AGTRBL+3, DEV+2, DEV+3!, L, PRINT, PRINT+6, PRINT+10, MCD+1, END+1!
AGTRIBEQ	L+1, L+2, L+3, L+5, END+1!
AGTXT	END+1!
>> AGZ("I"	PRINT+2*
DA	END+1!
DFN	START+1, L, L+1, L9, END+1!
DIC	AGTRBL+3*!, END+1!
DIC(0	AGTRBL+3*
DR	END+1!
DUZ	PRINT
DUZ(2	L, PRINT
G	DEV+2*, DEV+3!
I	START+1, PRINT+12, END+1!
IO	AGTRBL+3, DEV+2, PRINT+3
IO("Q"	DEV+1!
IO("S"	DEV+1
ION	DEV
>> IOP	DEV, PRINT+2
IOST	DEV+1
>> POP	DEV, PRINT+2
U	DEV+2, L, L+1, PRINT, PRINT+12
X	END+1!
Y	AGTRBL+3, DEV+2, L+2*, END+1!
ZTDESC	DEV+2*, DEV+3!
ZTIO	DEV+2*, DEV+3!
>> ZTQUEUED	END+2
ZTRTN	DEV+2*, DEV+3!
ZTSAVE	DEV+3!
ZTSAVE(	DEV+2*
ZTSK	DEV+3!
ZTUCI	DEV+2*, DEV+3!

Customize PDF page

Package: IHS Patient Registration

Routine: AGTRBL

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
DEV	DEV+1, DEV+3
END	PRINT+11
L	L, L+1, L+4, L9, L9+2
L9	L+2, L+6, L+7, L+8, L+10
PRINT	L
START	DEV+1

Name	Comments	DBIA/ICR reference
END
MCD
L
DEV
START	;EP - From TaskMan.
PRINT
L9