Routine: AGBLDS

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

Entry Points

External References

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

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("*"),!!,AG("USR"),?80-$L(AG("LOC"))\2,AG("LOC"),!!?24,"BLOOD QUANTUM STATISTICAL SUMMARY",!?23,"PERCENTAGE OF REGISTERED POPULATION",!!?80-$L("Report date: "_AGTIME)\2,"Report date: ",AGTIME,! Line Location: PRINT+4
Function Call: WRITE	Prompt: !,AG("*"),! Line Location: PRINT+5
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,",!?5,"3) have valid data in the respective quantum fields," Line Location: PRINT+6
Function Call: WRITE	Prompt: !?5,"3) are not designated as inactive patients",!!!,"TRIBAL QUANTUM.... (POPULATION: ",AGTOT,")" Line Location: PRINT+7
Function Call: WRITE	Prompt: ! Line Location: PRINT+8
Function Call: WRITE	Prompt: !?5,$J($P(AGTXT,U,I),15),":",?25,$J(AG(I)/AGTOT*100,6,1),"%" Line Location: PRINT+8
Function Call: WRITE	Prompt: !!!!!,"INDIAN QUANTUM.... (POPULATION: ",AGTTOT,")" Line Location: FULL+0
Function Call: WRITE	Prompt: ! Line Location: FULL+1
Function Call: WRITE	Prompt: !?5,$J($P(AGTXT,U,I),15),":",?25,$S(AGTTOT>0:$J(AGT(I)/AGTTOT*100,6,1),1:0),"%" Line Location: FULL+1
Function Call: WRITE	Prompt: !!!!!,"Total ""UNQUALIFIED"":",?25,$S(AGGTOT>0:$J(AG(8)/AGGTOT*100,6,1),1:0),"%",?40,"(Number of patients: ",AG(8),")" Line Location: FULL+2
Function Call: WRITE	Prompt: !!," Based on a population of ",AGGTOT," and representing those patients having.....",!," 1) ""less than 1/4"" or ""none"" for Tribal quant., and",!," 2) ""less than 1/2"" or ""less than 1/4"" or ""none"" for Indian quant." Line Location: FULL+3
Function Call: WRITE	Prompt: !," 3) and, valid data in both quantum fields." Line Location: FULL+4
Function Call: WRITE	Prompt: $$S^AGVDF("IOF") Line Location: END+0
Routine Call	%ZIS Line Location: DEV PRINT+2

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

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	DEV+2
^AUPNPAT - [#9000001]	L, L+1
^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!, START+1, L+4, L+5, L+6, L+7, L+9, L5+3, L5+4, L5+5 , L5+7, L5+8, PRINT, END+1!
AG(	START+1, L+2, PRINT, PRINT+8
AG("*"	PRINT+4, PRINT+5
AG("LOC"	PRINT*, PRINT+4, END+1!
AG("USR"	PRINT*, PRINT+4, END+1!
AG(1	L+5*
AG(2	L+6*
AG(3	L+7*
AG(4	L+9*
AG(5	L+10*
AG(8	L9*, FULL+2
AGDEN	L+3, L+4, L5+2, L5+3, END+1!
AGGTOT	START+1, L9, FULL+2, FULL+3, END+1!
AGIO	AGBLDS+2*, DEV+3!, END+1!
AGIQ	L+1, L5, L5+1, L5+2, L5+3, L9, END+1!
AGNUM	L+3, L+4, L5+2, L5+3, END+1!
AGQIO	DEV+2*, DEV+3!, PRINT+2, END+1!
AGT	END+1!
AGT(	START+1, L5+1, PRINT, FULL+1
AGT("IN"	L, L5+1, L5+6*, L9
AGT("TR"	L, L+2, L+8*, L9
AGT(1	L5+4*
AGT(2	L5+5*
AGT(3	L5+7*
AGT(4	L5+8*
AGT(5	L5+9*
AGTIME	PRINT+4, END+1!
AGTOT	START+1, PRINT, PRINT+7, PRINT+8, END+1!
AGTQ	L+1, L+2, L+3, L+4*, L9, END+1!
AGTTOT	START+1, PRINT, FULL, FULL+1, END+1!
AGTXT	PRINT+1*, PRINT+8, FULL+1, END+1!
>> AGZ("I"	PRINT+2*
DFN	START+1, L, L+1, END+1!
DLOUT	END+1!
DUZ	PRINT
DUZ(2	L, PRINT
G	DEV+2*, DEV+3!
I	PRINT+8, FULL+1, END+1!
IO	AGBLDS+2, 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	L, L+1, PRINT, PRINT+8, FULL+1
>> Y	DEV+2, L+2, L5+1
ZTDESC	DEV+2*, DEV+3!
ZTIO	DEV+2*, DEV+3!
>> ZTQUEUED	END+1
ZTRTN	DEV+2*, DEV+3!
>> ZTSAVE(	DEV+2*
ZTSK	DEV+3!
ZTUCI	DEV+2*, DEV+3!, END+1!

Customize PDF page

Package: IHS Patient Registration

Routine: AGBLDS

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
DEV	DEV+1, DEV+3
END	FULL
FULL	PRINT+7
L	L, L9+1
L5	L+1, L+2, L+3, L+5, L+6, L+7, L+9
L9	L5, L5+1, L5+2, L5+4, L5+5, L5+7, L5+8
PRINT	L
START	DEV+1