Routine: AGCHLB

Package	Total	Call Graph
IHS Patient Registration	3	(PTLK,READ,YN)^AG ^AGDICLK $$S^AGVDF
Kernel	3	^%ZIS ^%ZISC (,KILL)^%ZTLOAD
VA Fileman	1	WAIT^DICD

Package

Total

Call Graph

IHS Patient Registration

(PTLK,READ,YN)^AG ^AGDICLK $$S^AGVDF

Kernel

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

VA Fileman

WAIT^DICD

Package	Total	Caller Graph
IHS View Patient Record	1	BVPRP

Package

Total

Caller Graph

IHS View Patient Record

BVPRP

Name	Field # of Occurrence
^%ZIS	C+1, DEV
^%ZISC	C+2, DEV+1, DEV+3, END
^%ZTLOAD	DEV+3
KILL^%ZTLOAD	END
PTLK^AG	OLD, A
READ^AG	OPT, SEE+1, B, D
YN^AG	OPT+1, B+2
^AGDICLK	S1+1
$$S^AGVDF	SEE
WAIT^DICD	A1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Do you wish to re-print the previous list? (Y/N; ""S"" = see the list) " Line Location: OPT+0
Function Call: WRITE	Prompt: !!,"Start with which patient? (RETURN = beginning) " Line Location: OLD+0
Function Call: WRITE	Prompt: !!,"This patient is not on the list - try again." Line Location: OLD+0
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),"Previous list of chart labels.....",! Line Location: SEE+0
Function Call: WRITE	Prompt: !,$P(^DPT(DFN,0),U) Condition for execution: $D(^DPT(DFN)) Line Location: SEE+1
Function Call: WRITE	Prompt: !!,"Press RETURN to continue; ""^"" to stop." Line Location: SEE+1
Function Call: WRITE	Prompt: ! Line Location: SEE+1
Function Call: WRITE	Prompt: !,$P(^DPT(DFN,0),U)," is on the list." Line Location: A+0
Function Call: WRITE	Prompt: !!!,"Number of names on the list: ",AGTOT,!!,"DO YOU WANT TO PRINT A TEST LABEL? (Y/N) Y// " Line Location: B+0
Function Call: WRITE	Prompt: !!,"A sample label will be printed so that you",!,"may allign your labels on the printer." Line Location: B+1
Function Call: WRITE	Prompt: "IHSIHSIHSIHSIHSIHSIHSIHSIHSIHSIHS",! Line Location: C+1
Function Call: WRITE	Prompt: !!!! Line Location: C+2
Function Call: WRITE	Prompt: !!,"How many copies of each label? (1 - 5) 1// " Line Location: D+0
Function Call: WRITE	Prompt: !!,"You may make from 1 to 5 copies of each label.",!! Line Location: D+0
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+1
Function Call: WRITE	Prompt: AGNAME,!,AGDOB,?27,$J(AGCHART,6),!!!!! Line Location: S1+3
Routine Call	%ZIS Line Location: C+1 DEV

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	DEV+2
^AGCHLB(	OPT, NEW!, OLD, SEE+1, A, A1*, B, S1
^AUPNPAT - [#9000001]	S1+1
^AUTTLOC - [#9999999.06]	DEV+2
^DPT - [#2]	SEE+1, A

Name	Line Occurrences
A	OPT, NEW
A1	OLD, OLD+1
AGCHLB	OLD, SEE+1
B	A1, B+1, B+2, C+3, D
C	B+2
D	B+2, D
DEV	DEV+1, DEV+3
END	A1, B+2, S1
NEW	OPT+1
OLD	OPT+1
OPT	OPT+1, OLD, SEE+1
S1	S1+4
SEE	OPT+1
START	DEV+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEV*
AG	AGCHLB+2!, SEE+1, A, A1, C+1, DEV+3!, S1+3*, END!
AG("LKDATA"	END!
AG("LKPRINT"	S1+1, END!
AGCHART	S1+1, S1+2, S1+3, END!
AGCOPY	D+1*, DEV+3!, S1+3
AGDFN	OLD+1, B, DEV+2, DEV+3!, START+1, END!
AGDOB	S1+1*, S1+3, END!
AGNAME	S1+1*, S1+3, END!
>> AGTOT	AGCHLB+2, OLD, A, A1, B
DA	S1+1*, END!
DFN	AGCHLB+2!, OLD, OLD+1, SEE, SEE+1, A, A1, START+1, S1*, S1+1 , END!
>> DFOUT	OPT+1, OLD, B+2, D
DIC	S1+1*, END!
>> DLOUT	OPT+1, B+2, D
>> DQOUT	B+1, D
DR	S1+1*, END!
>> DTOUT	OPT+1, OLD, B+2, D
>> DUOUT	OPT+1, OLD, SEE+1, B+2, D
DUZ	OPT, NEW, OLD, SEE+1, A, A1, B, S1
DUZ(2	DEV+2, S1+1
G	DEV+2*, DEV+3!
IO	C+1, START+1
IO("Q"	DEV+1!
IO("S"	DEV+1
ION	DEV
IOP	AGCHLB+2!, DEV*
IOST	DEV+1
>> POP	C+1, DEV
U	SEE+1, A, DEV+2, S1+1
X	END!
Y	OPT+1, B, B+2, D, D+1, DEV+2, END!
Z	END!
ZTDESC	DEV+2*, DEV+3!
ZTIO	DEV+3!
>> ZTQUEUED	END
ZTRTN	DEV+2*, DEV+3!
ZTSAVE	DEV+3!
ZTSAVE(	DEV+2*
ZTSK	DEV+3!
ZTUCI	DEV+2*, DEV+3!

Customize PDF page

Package: IHS Patient Registration

Routine: AGCHLB

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
OPT
A
C	;Print Test Label.
B
OLD
D
S1
DEV
A1
START	;EP - From TaskMan.
SEE
END
NEW