Routine: AGCHART

Package	Total	Call Graph
IHS Patient Registration	3	(CTR,NOW,READ,RTRN)^AG DEAD^AGMAN $$S^AGVDF
Kernel	3	^%ZIS ^%ZISC (,KILL)^%ZTLOAD
VA Fileman	1	EN^DIQ1

Package

Total

Call Graph

IHS Patient Registration

(CTR,NOW,READ,RTRN)^AG DEAD^AGMAN $$S^AGVDF

Kernel

^%ZIS ^%ZISC (,KILL)^%ZTLOAD

VA Fileman

EN^DIQ1

Name	Field # of Occurrence
^%ZIS	DEV
^%ZISC	DEV+1, DEV+3, K
^%ZTLOAD	DEV+3
KILL^%ZTLOAD	K
CTR^AG	L1+2, L1+3
NOW^AG	L1+3
READ^AG	C, D
RTRN^AG	L4+6, END
DEAD^AGMAN	L4+1
$$S^AGVDF	END, HDR
EN^DIQ1	L4+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"START WITH WHAT CHART NUMBER? Print All Charts// " Line Location: C+0
Function Call: WRITE	Prompt: !!,"END WITH WHAT CHART NUMBER? Last One// " Line Location: D+0
Function Call: WRITE	Prompt: !!,*7,"THE ENDING NUMBER IS LESS THAN THE BEGINNING NUMBER." Line Location: D+1
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+1
Function Call: WRITE	Prompt: $P(^DPT(DFN,0),U)," " Line Location: L4+1
Function Call: WRITE	Prompt: "(",AG,")" Condition for execution: AG]"" Line Location: L4+1
Function Call: WRITE	Prompt: ?44,$J($P(^AUPNPAT(DFN,41,DUZ(2),0),U,2),6) Line Location: L4+2
Function Call: WRITE	Prompt: ! Line Location: L4+6
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,!?19,"REGISTERED PATIENTS - CHART NUMBER LISTING",!,AGUCI,!?24,"('*' = INACTIVE, 'D' = DECEASED)",!,AGHDG,!,AGTIME,!! Line Location: HDR+0
Function Call: WRITE	Prompt: !!?18,"Name",?45,"IHS #",?57,"SSN",?71,"DOB",!,"----------------------------------------",?44,"------",?53,"-----------",?67,"------------",! Line Location: HDR+1
Function Call: WRITE	Prompt: !!,"YOU MAY PRINT THIS REPORT FOR A LIMITED RANGE OF CHART NUMBERS, IF YOU WISH.",!,"SIMPLY ENTER A STARTING NUMBER AND PRESS RETURN. YOU WILL THEN BE ASKED FOR",!,"THE ENDING NUMBER." Line Location: QUES+0
Routine Call	%ZIS Line Location: DEV

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	DEV+2, L1+2
^AUPNPAT - [#9000001]	L4+1, L4+2
^AUPNPAT("D"	L2, L3, L4
^AUTTLOC - [#9999999.06]	DEV+2
^DIC(4 - [#4]	L1+1
^DPT - [#2]	L4+1
^UTILITY("DIQ1"	L4+5!
^VA(200 - [#200]	L1+1

Name	Line Occurrences
C	D, D+1, QUES+1
DEV	DEV+1, DEV+3
E	C, D
END	L2
HDR	L1+3, L4+6
K	C, D, L4+6
L1	DEV+1
L2	L3
L3	L4
L4	L4, L4+7
QUES	C, C+1, D

Name	Field # of Occurrence
^(	L4+5

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEV*
AG	DEV+3!, L4+1*, K!
AG("DEAD"	L4+1
AG("HAT"	E*, END!
AG("LOC"	L1+1*!
AG("USR"	L1+1*!
AG("USRLOC"	L1+1*, HDR
AGBEG	C, C+1, D+1, DEV+3!, L1+1, L1+3, K!
AGBM	L1+2*, L4+6, K!
AGCH	L1+1, L2, L3, L4, K!
AGEND	C, D, D+2*, DEV+3!, L1+3, L2, K!
AGFAC	L3, L4, K!
AGHDG	L1+3*, K!, HDR
AGIO	E*, DEV+3!, L1+2, K!
AGPGPG	L1+1, K!, HDR
AGTIME	L1+3*, K!, HDR
AGTOT	L1+1, L4+6, END, K!
AGUCI	L1+2*, K!, HDR
AGUSRLOC	K!
DA	L4+5*, K!
DFN	L2, L3, L4, L4+1, L4+2, L4+5, K!
>> DFOUT	C, D, L4+6
DIC	L4+5*, K!
DLOUT	C, D, K!
>> DQOUT	C, D
DR	L4+5*, K!
>> DTOUT	C, D, L4+6
DUOUT	C, D, L4+6, K!
DUZ	L1+1
DUZ(2	DEV+2, L1+1, L4, L4+1, L4+2
G	DEV+2*, DEV+3!
IO	E, L1+2, L1+3
IO("Q"	DEV+1!
IO("S"	DEV+1
ION	DEV
>> IOP	DEV*
IOSL	L1+2
IOST	DEV+1
>> POP	DEV
U	DEV+2, L1+1, L4+1, L4+2
X	L1+2, L1+3, K!
Y	C+1, D+1, D+2, DEV+2, L1+2, K!
ZTDESC	DEV+2*, DEV+3!
>> ZTQUEUED	K
ZTRTN	DEV+2*, DEV+3!
>> ZTSAVE(	DEV+2*
ZTSK	DEV+3!
ZTUCI	DEV+2*, DEV+3!

Customize PDF page

Package: IHS Patient Registration

Routine: AGCHART

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
C
E
D
K
QUES
DEV
L4
L2
L3
L1	;EP - From TaskMan.
END
HDR