Routine: AGVALID

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

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+1
Function Call: WRITE	Prompt: ?AG,"*" Line Location: WRITE+4
Function Call: WRITE	Prompt: ?40,$P(^AUPNPAT(DFN,41,DUZ(2),0),U,2) Line Location: WRITE+5
Function Call: WRITE	Prompt: ?AG,"*" Line Location: WRITE+7
Function Call: WRITE	Prompt: ! Line Location: WRITE+9
Function Call: WRITE	Prompt: !!,"AGTOTAL FILES WITH INVALID DATA: ",AGTOTAL Line Location: END+0
Function Call: WRITE	Prompt: $$S^AGVDF("IOF") Line Location: END+0
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),!!,AG("USR"),?72,"page ",AGPGPG Line Location: HDR+0
Function Call: WRITE	Prompt: !,AG("LOC"),!?22,"INVALID DATA ENTRIES - PATIENT FILES",!,AGUCI,!,AGTIME Line Location: HDR+1
Function Call: WRITE	Prompt: !!!!?17,"INDIAN",?25,"CURRENT",?34,"BENEF.",?49,"NOK",?55,"EMER",?62,"MAIL",?69,"HOME",!,"DOB SEX TRIBE QUANT. COMMUN. CODE CHART",?55,"CONT",?62,"ADDR",?69,"PHONE",! Line Location: HDR+2
Routine Call	%ZIS Line Location: DEV

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	DEV+2, START+7
^AUPNPAT - [#9000001]	B2+1, B2+7, B2+8, B2+10, B2+14, B2+23, WRITE+5
^AUTTBEN - [#9999999.25]	B2+14
^AUTTLOC - [#9999999.06]	DEV+2
^AUTTTRI - [#9999999.03]	B2+8
^DIC(4 - [#4]	START+2
^DPT - [#2]	B2, B2+4, B2+17, B2+18, B2+21, B2+22, B2+26, B2+27, B2+30, B2+31
^VA(200 - [#200]	START+3

Name	Field # of Occurrence
^(0	B2+1, B2+5, B2+6
^(11	B2+12, B2+13, B2+14

Name	Field # of Occurrence
>> %ZIS	DEV*
AG	DEV+3!, B2+3, WRITE+1, WRITE+2, WRITE+3, WRITE+4, WRITE+6*, WRITE+7, KILL!
AG("HAT"	AGVALID+3*, END!
AG("LINE"	START+4*
AG("LOC"	START+3*, KILL!, HDR+1
AG("USR"	START+3*, KILL!, HDR
AGBM	START+5, START+6, WRITE+10, KILL!
>> AGFLAG	WRITE+1, WRITE+2, WRITE+5, WRITE+9
AGIO	AGVALID+3*, DEV+3!, START+6, KILL!
AGPGPG	START+1, KILL!, HDR
>> AGR	B2+18, B2+19, B2+22, B2+23, B2+24, B2+27, B2+28
AGTAB	KILL!
AGTAB(	B2+3*, WRITE+2, WRITE+4, WRITE+7
AGTAB(1	B2+5*
AGTAB(12	B2+9*
AGTAB(19	B2+12*
AGTAB(28	B2+13*
AGTAB(36	B2+15*
AGTAB(51	B2+28*
AGTAB(57	B2+24*
AGTAB(6	B2+6*
AGTAB(64	B2+19*
AGTAB(71	B2+31*
AGTIME	START+8*, KILL!, HDR+1
AGTOTAL	START+1, WRITE+8, END, KILL!
AGUCI	START+7*, KILL!, HDR+1
DA	B2+2*, KILL!
DFN	START+1, B2, B2+1, B2+2, B2+4, B2+7, B2+8, B2+10, B2+14, B2+17 , B2+18, B2+21, B2+22, B2+23, B2+26, B2+27, B2+30, B2+31, WRITE+5, KILL!
DIC	KILL!
DLOUT	KILL!
DR	KILL!
>> DTOUT	WRITE+10
>> DUOUT	WRITE+10
DUZ	START+3
DUZ(2	DEV+2, START+2, B2+1, WRITE+5
IO	AGVALID+3, START+6, START+8
IO("Q"	DEV+1!
IO("S"	DEV+1
ION	DEV
>> IOP	DEV*
IOSL	START+5, START+6
IOST	DEV+1
>> POP	DEV
U	DEV+2, START+2, START+3, B2+1, B2+5, B2+6, B2+8, B2+12, B2+13, B2+14 , B2+19, B2+23, B2+24, B2+28, B2+31, WRITE+5
X	START+2, START+3, START+7, START+8*, KILL!
Y	DEV+2, START+7, KILL!
ZTDESC	DEV+2*, DEV+3!
>> ZTQUEUED	KILL
ZTRTN	DEV+2*, DEV+3!
>> ZTSAVE	DEV+2*
ZTSK	DEV+3!
ZTUCI	DEV+2*, DEV+3!