Routine: AGUND18

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

Entry Points

Name	Comments	DBIA/ICR reference
PRVT	;
END
HDR
MCDNM	;
MCD	;
DEV
START	;EP - From TaskMan.
NEXT1
NEXT2
PRINT	;

External References

Name	Field # of Occurrence
^%ZIS	DEV, START+9
^%ZISC	DEV+1, DEV+4, END
^%ZTLOAD	DEV+4
KILL^%ZTLOAD	END
CTR^AG	START+16
LINES^AG	START+15
NOW^AG	START+15
RTRN^AG	START+26, START+29
$$S^AGVDF	START+29, HDR+1
$$GET1^DIQ	PRINT+13, MCDNM+10
^DIR	AGUND18+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: AGUND18+4
Function Call: WRITE	Prompt: !! Line Location: AGUND18+13
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+1
Function Call: WRITE	Prompt: !!,"Total patients 18 yrs or younger: ",AGTOT,!!,"Total patients 18 or younger with Medicaid: ",AGTOTMCD,!! Line Location: START+29
Function Call: WRITE	Prompt: $$S^AGVDF("IOF") Line Location: START+29
Function Call: WRITE	Prompt: $P($G(^DPT(DFN,0)),U)," (",$P(^AUPNPAT(DFN,41,DUZ(2),0),U,2),")" Line Location: PRINT+2
Function Call: WRITE	Prompt: ?69,$$GET1^DIQ(9000001,DFN_",",1107.3) Line Location: PRINT+13
Function Call: WRITE	Prompt: ?35,AGDOB Line Location: PRINT+16
Function Call: WRITE	Prompt: !?10,AG("ADDR") Line Location: NEXT1+4
Function Call: WRITE	Prompt: !,AG("-"),! Line Location: NEXT2+2
Function Call: WRITE	Prompt: $$S^AGVDF("IOF") Line Location: HDR+1
Function Call: WRITE	Prompt: !,AG("USRLOC"),?70,"page ",AGPGPG Line Location: HDR+2
Function Call: WRITE	Prompt: !?26,"PATIENTS <18 YRS OLD" Line Location: HDR+3
Function Call: WRITE	Prompt: !,AGTIME Line Location: HDR+4
Function Call: WRITE	Prompt: !!?35,"HOME PHONE",?51,"MEDICAID(M)",?69,"SOCIAL" Line Location: HDR+5
Function Call: WRITE	Prompt: !,"NAME (CHART #)",?35,"DATE OF BIRTH",?51,"PRIVATE(P)",?66,"SECURITY NO." Line Location: HDR+6
Function Call: WRITE	Prompt: !,AG("="),! Line Location: HDR+7
Routine Call	DIR Line Location: AGUND18+9
Routine Call	%ZIS Line Location: DEV START+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	GET1^DIQ
9000006.11	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	DEV+3
^AUPNMCD - [#9000004]	MCD+2, MCDNM+4
^AUPNMCD("B"	MCD+1, MCDNM+3
^AUPNPAT - [#9000001]	START+7, START+8, PRINT+2
^AUPNPRVT - [#9000006]	PRVT+1, PRVT+2, MCDNM+9
^AUTTLOC - [#9999999.06]	DEV+3
^DD("DD"	PRINT+5
^DIC(4 - [#4]	START+10
^DIC(5 - [#5]	NEXT1+1, NEXT1+3
^DPT - [#2]	START+8, PRINT+2, PRINT+4, PRINT+7, PRINT+8, PRINT+14
^DPT("ADOB"	START+4, START+6
^TMP($J	START+2!, START+8*, START+20, START+21, END!
^VA(200 - [#200]	START+10

Label References

Name	Line Occurrences
DEV	DEV+1, DEV+4
HDR	START+16, START+26
MCD	PRINT+11, PRINT+17, NEXT1+5, NEXT2+1, MCDNM+6
MCDNM	NEXT2
NEXT1	PRINT+17
NEXT2	NEXT1+5
PRINT	START+25
PRVT	PRINT+11, PRINT+18, NEXT1+6, NEXT2+1, MCDNM+7
START	DEV+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEV*
A	END!
AG	DEV+4!, END!
AG("-"	NEXT2+2
AG("18"	START+1*, START+3
AG("="	HDR+7
AG("ADDR"	NEXT1, NEXT1+3, NEXT1+4
AG("HAT"	AGUND18+3*, START+27!
AG("LKDATA"	END!
AG("LKPRINT"	END!
AG("LOC"	START+2!, START+10*, START+11, START+13!
AG("USR"	START+2!, START+10*, START+11, START+13!
AG("USRLOC"	START+11*, END!, HDR+2
>> AGADDR	PRINT+14*, PRINT+15, NEXT1, NEXT1+1, NEXT1+3
AGBM	START+11, START+12, START+26, END!
>> AGDOB	PRINT+5, PRINT+6, PRINT+16
>> AGINACT	AGUND18+11*, START+7
AGIO	AGUND18+3*, DEV+4!, START+12, END!
AGL	END!
>> AGMCDNM	MCDNM+4*, MCDNM+5
>> AGMCDNO	MCD+2, MCD+3, MCD+4, MCD+5
AGMCRNM	MCDNM+1!
AGMDRNM	MCDNM+5!
AGPCC	END!
AGPGPG	START+1, END!, HDR, HDR+2
AGPHONE	PRINT+8, PRINT+9, PRINT+10!
AGPOLNM	MCDNM+10*, MCDNM+11!
AGPRVTNM	PRVT+2*, PRVT+3!
>> AGQIO	DEV+3*, START+9
AGRRESW	START+22*, END!
AGTIME	START+16*, END!, HDR+4
AGTOT	START+1, START+29, END!, PRINT+1
AGTOTM	END!
>> AGTOTMCD	START+1, START+29, MCD+6
>> AGTOTPRV	START+1, PRVT+4
AGTOTR	END!
>> AGZ("I"	START+9*
DA	END!
>> DFN	START+21*, PRINT+2, PRINT+4, PRINT+7, PRINT+8, PRINT+13, PRINT+14, PRVT+1, PRVT+2, MCD+1 , MCDNM+3, MCDNM+9, MCDNM+10
DFOUT	START+18!, START+20, START+26, START+28
DIC	END!
DIR	AGUND18+5!, AGUND18+12!
DIR("A"	AGUND18+7*
DIR("B"	AGUND18+8*
DIR(0	AGUND18+6*
DLOUT	END!
DR	END!
DT	START+1
DTOUT	AGUND18+10, AGUND18+12!, START+18!, START+20, START+26, START+28
DUOUT	AGUND18+10, AGUND18+12!, START+18!, START+20, START+26, START+28
DUZ	START+10
DUZ(2	DEV+3, START+7, START+8, START+10, PRINT+2
G	DEV+3*, END!
I	START+3, START+4, START+6, END!
IO	AGUND18+3, DEV+3, START+12, START+14
IO("Q"	DEV+1!
IO("S"	DEV+1
ION	DEV
>> IOP	DEV, START+9
IOSL	START+11, START+12
IOST	DEV+1
J	START+6*, START+7, START+8, END!
>> MCDREC	START+23, PRINT+11, PRINT+17, PRINT+18, NEXT1+5, NEXT1+6, NEXT2+1, MCD+1, MCD+2, MCDNM+6
>> MCDRECNO	MCDNM+2, MCDNM+3, MCDNM+4
>> NAME	START+8, START+19, START+20*, START+21
>> POP	DEV, START+9
>> PRVTREC	START+24, PRINT+18, NEXT1+6, NEXT2+1, PRVT+1, PRVT+2, MCDNM+7, MCDNM+8, MCDNM+9, MCDNM+10
U	DEV+3, START+7, START+8, START+10, PRINT+2, PRINT+4, PRINT+8, PRINT+15, NEXT1, NEXT1+1 , NEXT1+3, PRVT+2, MCD+2, MCDNM+4
X	START+16*, END!
Y	AGUND18+11, DEV+3, END!, PRINT+4*, PRINT+5
ZTDESC	DEV+3*, DEV+4!
ZTIO	DEV+3*, DEV+4!
>> ZTQUEUED	END
ZTRTN	DEV+3*, DEV+4!
>> ZTSAVE(	DEV+3*
ZTSK	DEV+4!
ZTUCI	DEV+3*, DEV+4!

Customize PDF page

Package: IHS Patient Registration

Routine: AGUND18

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: