Routine: AGAGEB

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

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+2
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),AG("*"),!,$P(^VA(200,DUZ,0),U),?80-$L(AG("LOC"))\2,AG("LOC"),!!?24,"BLOOD QUANTUM STATISTICAL SUMMARY",!?25,"INDIAN BLOOD QUANTUM BY CATEGORY" Line Location: PRINT+3
Function Call: WRITE	Prompt: !!?80-$L("Report date: "_AGTIME)\2,"Report date: ",AGTIME,!!?40,"INDIAN QUANTUM",?64,"INDIAN QUANTUM",!,"CATEGORY NAME",?40,"1/4 OR MORE",?64,"LESS THAN 1/4",!,AG("="),! Line Location: PRINT+5
Function Call: WRITE	Prompt: $P(AGTXT,U,AG),?45,$J(AGMORE(AG),5),?70,$J(AGLESS(AG),5),! Line Location: PRINT+6
Function Call: WRITE	Prompt: !?40,"_____________",?65,"_____________",!?45,$J(AG("TM"),5),?70,$J(AG("TL"),5),!!! Line Location: PRINT+8
Function Call: WRITE	Prompt: $P(AGTXT,U,AG),?45,$J(AGMORE(AG),5),?70,$J(AGLESS(AG),5),! Line Location: PRINT+9
Function Call: WRITE	Prompt: !!,"TOTAL REGISTERED POPULATION: ",AG("TM")+AG("TL") Line Location: PRINT+10
Function Call: WRITE	Prompt: $$S^AGVDF("IOF") Line Location: END+0
Routine Call	DIC Line Location: START+2
Routine Call	%ZIS Line Location: DEV PRINT+1

FileNo	Call Tags
^AUTTBEN - [#9999999.25]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	DEV+3
^AUPNMCD("B"	FEMALE+2
^AUPNMCR - [#9000003]	FEMALE+1
^AUPNPAT - [#9000001]	C, C+2, FEMALE+3
^AUPNRRE - [#9000005]	FEMALE+1
^DIC(4 - [#4]	PRINT
^DPT - [#2]	C, FEMALE
^VA(200 - [#200]	PRINT+3

Name	Field # of Occurrence
^(0	FEMALE
^(11	C+2

Name	Field # of Occurrence
>> %ZIS	DEV*
AG	START+1, C+2, C+3, TOTALS+1, FEMALE, FEMALE+1, FEMALE+2, FEMALE+3, PRINT+6, PRINT+7* , PRINT+9*, END+1!
AG("*"	PRINT+3
AG("="	PRINT+5
AG("A"	TOTALS*, TOTALS+1, TOTALS+2
AG("LKPRINT"	C+1, C+3, END+1!
AG("LOC"	PRINT*, PRINT+3, END+1!
AG("NONINDIAN"	START+2*, FEMALE+3
AG("TL"	PRINT+7*, PRINT+8, PRINT+10
AG("TM"	PRINT+7*, PRINT+8, PRINT+10
AGE	C+1*, TOTALS, END+1!
AGIO	AGAGEB+2*, DEV+4!, END+1!
AGLESS	END+1!
AGLESS(	START+1, TOTALS+1, PRINT+6, PRINT+7, PRINT+9
AGLESS(10	FEMALE+3*
AGLESS(5	FEMALE*
AGLESS(8	FEMALE+1*
AGLESS(9	FEMALE+2*
AGMORE	END+1!
AGMORE(	START+1, TOTALS+2, PRINT+6, PRINT+7, PRINT+9
AGMORE(10	FEMALE+3*
AGMORE(5	FEMALE*
AGMORE(8	FEMALE+1*
AGMORE(9	FEMALE+2*
AGQIO	DEV+3*, DEV+4!, PRINT+1, END+1!
AGTIME	PRINT+5, END+1!
AGTXT	PRINT+2*, PRINT+6, PRINT+9, END+1!
>> AGZ("I"	PRINT+1*
DA	C+1, C+3, END+1!
DFN	START+2, C, C+1, C+2, C+3, FEMALE, FEMALE+1, FEMALE+2, FEMALE+3, END+1!
DFOUT	END+1!
DIC	START+2, C+1, C+3*, END+1!
DIC(0	START+2*
DLOUT	END+1!
DR	C+1, C+3, END+1!
DTOUT	END+1!
DUOUT	END+1!
DUZ	PRINT+3
DUZ(2	C, PRINT
G	DEV+3*, DEV+4!, END+1!
IO	AGAGEB+2, DEV+3, PRINT+3
IO("Q"	DEV+1!
IO("S"	DEV+2
ION	DEV
>> IOP	DEV, PRINT+1
IOST	DEV+2
>> POP	DEV, PRINT+1
U	C, C+2, FEMALE, FEMALE+3, PRINT, PRINT+3, PRINT+6, PRINT+9
X	START+2*, END+1!
Y	DEV+3, START+2, END+1!
ZTDESC	DEV+3*, DEV+4!
ZTIO	DEV+3*, DEV+4!
>> ZTQUEUED	END+1
ZTRTN	DEV+3*, DEV+4!
ZTSAVE	DEV+4!
ZTSAVE(	DEV+3*
ZTSK	DEV+4!
ZTUCI	DEV+3*, DEV+4!