Routine: AGDOB

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

Entry Points

External References

Name	Field # of Occurrence
^%DT	A1, A2+1, A3+1
DD^%DT	L2+5, BEGEND
^%ZIS	DEV
^%ZISC	DEV+1, DEV+3, END
^%ZTLOAD	DEV+3
KILL^%ZTLOAD	KILL
CTR^AG	START+3, START+4
LINES^AG	START+4
NOW^AG	START+4
READ^AG	ALL, A2, A3, B
RTRN^AG	L2+8, FACS+1, END
YN^AG	ALL, B
DEAD^AGMAN	L2+2
$$S^AGVDF	END, HDR
$$GET1^DIQ	L2+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Do you want ALL (Universal Look-up) patients in your data base? N // " Line Location: ALL+0
Function Call: WRITE	Prompt: !!,"Enter the BEGINNING DOB for this report: EARLIEST DOB ON FILE// " Line Location: A2+0
Function Call: WRITE	Prompt: !!,*7,"Do not use future dates." Line Location: A2+1
Function Call: WRITE	Prompt: !!,"Enter the ENDING DOB for this report: LATEST DOB ON FILE// " Line Location: A3+0
Function Call: WRITE	Prompt: !!,*7,"Do not use future dates." Line Location: A3+1
Function Call: WRITE	Prompt: !!,*7,"INVALID ENTRY - The END is before the BEGINNING." Line Location: A4+0
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+1
Function Call: WRITE	Prompt: ?45,$J($P(AGA41,U,2),6) Line Location: L2+2
Function Call: WRITE	Prompt: ?54,Y Line Location: L2+3
Function Call: WRITE	Prompt: ?54,$$GET1^DIQ(9000001,DFN_",",1107.3) Line Location: L2+4
Function Call: WRITE	Prompt: ?67,Y Line Location: L2+5
Function Call: WRITE	Prompt: ! Line Location: L2+6
Function Call: WRITE	Prompt: ?20,$P(^(.24),U,3) Condition for execution: $D(^DPT(DFN,.24)) Line Location: L2+6
Function Call: WRITE	Prompt: ?55,$E($P(^(11),U,18),1,23) Condition for execution: $D(^AUPNPAT(DFN,11)) Line Location: L2+6
Function Call: WRITE	Prompt: ! Line Location: L2+8
Function Call: WRITE	Prompt: !?45,$J($P(^AUPNPAT(DFN,41,L,0),U,2),6)," ",$E($P(^DIC(4,L,0),U),1,26) Line Location: FACS+1
Function Call: WRITE	Prompt: $P(AGA0,U)," (cont.)" Condition for execution: $O(^AUPNPAT(DFN,41,L)) Line Location: FACS+1
Function Call: WRITE	Prompt: !!,"Total Patients on this list: ",AGTOT Line Location: END+0
Function Call: WRITE	Prompt: $$S^AGVDF("IOF") Line Location: END+0
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),!!,AG("USRLOC"),?72,"page ",AGPGPG,!?21,"REGISTERED PATIENTS - DOB-ORDER LISTING",!,AGUCI,!?23,"(""D"" = DECEASED) (""*"" = INACTIVE)" Line Location: HDR+0
Function Call: WRITE	Prompt: !,AGTIME,!,AGTTL,!!!,"Patient's Name",?46,"IHS #",?58,"SSN",?72,"DOB",!?20,"Mother's maiden name",?55,"Current Community",!,AG("="),! Line Location: HDR+1
Routine Call	%ZIS Line Location: DEV

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	DEV+2, START+3
^AUPNPAT - [#9000001]	L2, L2+1, L2+6, L2+7, FACS, FACS+1
^AUTTLOC - [#9999999.06]	DEV+2
^DIC(4 - [#4]	START+1, FACS+1
^DPT - [#2]	L2, L2+1, L2+6
^DPT("ADOB"	L1, L2
^VA(200 - [#200]	START+1

Label References

Name	Line Occurrences
A1	B
A2	A2+1, A3+1, A4
A3	A2, A3+1
A4	A3
ALL	ALL
B	B
BEGEND	A4+1, START+3
DEV	DEV+1, DEV+3
END	L1, L2+7, L2+8
FACS	L2+7, FACS+2
HDR	START+4, L2+8, FACS+1
KILL	ALL, A2+1, A3+1, B
L1	L2
L2	L2, L2+9
START	DEV+1

Naked Globals

Name	Field # of Occurrence
^(	L2+6
^(0	START+1
^(11	L2+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	A1, A2+1, A3+1*
>> %ZIS	DEV*
A	KILL!
AG	DEV+3!, L2+2*, KILL!
AG("="	HDR+1
AG("DEAD"	L2+2
AG("HAT"	B+1*, END!
AG("LOC"	START+1*, START+2, KILL!
AG("USR"	START+1*, START+2, START+3!
AG("USRLOC"	START+2*, KILL!, HDR
AGA0	L2+1*, L2+2, L2+5, FACS+1, KILL!
AGA41	L2+1*, L2+2, KILL!
AGB	B, START+3, KILL!, BEGEND*
AGBDATE	A2, A2+1, A4, DEV+3!, START+4*, KILL!, BEGEND
AGBM	START+2*, L2+8, FACS+1, KILL!
AGE	B, START+3, KILL!, BEGEND*
AGEDATE	A3, A3+1, A4, DEV+3!, L1, KILL!, BEGEND
AGIO	B+1*, DEV+3!, START+2, KILL!
AGPGPG	START+1, KILL!, HDR
AGTIME	START+4*, KILL!, HDR+1
AGTOT	START+1, L2+1, END, KILL!
AGTTL	START+3*, KILL!, HDR+1
AGUCI	START+3*, KILL!, HDR
AGUNIV	ALL*, DEV+3!, START+1, L2, L2+1, L2+2, L2+7, KILL!
DA	KILL!
DFN	L1, L2, L2+1, L2+4, L2+6, L2+7, FACS, FACS+1, KILL!
>> DFOUT	ALL, A2+1, A3+1, B, L2+7, L2+8, FACS+1
DIC	KILL!
>> DLOUT	ALL, A2, A3
>> DQOUT	A2+1, A3+1
DR	KILL!
DT	A1*, A2+1, A3+1
>> DTOUT	ALL, A2+1, A3+1, B, L2+7, L2+8, FACS+1
>> DUOUT	ALL, A2+1, A3+1, B, L2+7, L2+8, FACS+1
DUZ	START+1
DUZ(2	DEV+2, START+1, L2, L2+1
G	DEV+2*, DEV+3!
IO	B+1, START+2, START+4
IO("Q"	DEV+1!
IO("S"	DEV+1
ION	DEV
>> IOP	DEV*
IOSL	START+2
IOST	DEV+1
L	L2+7, FACS, FACS+1, KILL!
N	START+4, L1, L2, KILL!
>> POP	DEV
U	DEV+2, START+1, L2+2, L2+5, L2+6, FACS+1
X	A1, A2+1, A3+1, START+3, START+4*, KILL!
Y	A1, ALL, A2+1, A3+1, B, DEV+2, START+3, L2+5, KILL!, BEGEND*
ZTDESC	DEV+2*, DEV+3!
>> ZTQUEUED	KILL
ZTRTN	DEV+2*, DEV+3!
>> ZTSAVE(	DEV+2*
ZTSK	DEV+3!
ZTUCI	DEV+2*, DEV+3!

Customize PDF page

Package: IHS Patient Registration

Routine: AGDOB

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
ALL
B
END
HDR
BEGEND
DEV
A1
START	;EP - From TaskMan.
A3
A2
L2
A4
L1
FACS
KILL