Routine: AGCARD

Package	Total	Call Graph
IHS Patient Registration	6	(PTLK,READ)^AG ^AGBADATA ^AGDATCK ^AGDICLK ^AGVAR $$S^AGVDF
Kernel	3	^%ZIS ^%ZISC (,KILL)^%ZTLOAD
VA Fileman	3	DD^%DT $$GET1^DIQ EN^DIQ1

Package

Total

Call Graph

IHS Patient Registration

(PTLK,READ)^AG ^AGBADATA ^AGDATCK ^AGDICLK ^AGVAR $$S^AGVDF

Kernel

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

VA Fileman

DD^%DT $$GET1^DIQ EN^DIQ1

Package	Total	Caller Graph
IHS Emergency Dept Dashboard	1	BEDDUTIL
IHS Patient Registration	1	AGNAMOPT

Package

Total

Caller Graph

IHS Emergency Dept Dashboard

BEDDUTIL

IHS Patient Registration

AGNAMOPT

External References

Name	Field # of Occurrence
DD^%DT	START+4
^%ZIS	DEV
^%ZISC	DEV+2, DEV+4, END
^%ZTLOAD	DEV+4
KILL^%ZTLOAD	END+1
PTLK^AG	AGCARD+3
READ^AG	COPIES+1
^AGBADATA	PRERR+3
^AGDATCK	DFN+6
^AGDICLK	TRBCD+7
^AGVAR	START+1
$$S^AGVDF	PRERR
$$GET1^DIQ	START+8, START+11
EN^DIQ1	PRNTITEM+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"EMBOSSED CARD CANNOT BE PRINTED DUE TO TEMPORARY CHART NUMBER" Line Location: DFN+3
Function Call: WRITE	Prompt: !!!,"How many copies of the EMBOSSED CARD do you want? (1-5) 1// " Line Location: COPIES+0
Function Call: WRITE	Prompt: !!,*7,"Enter a number from 1 through 5.",!! Line Location: COPIES+2
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+2
Function Call: WRITE	Prompt: $$S^AGVDF("IOF") Line Location: PRERR+0
Function Call: WRITE	Prompt: "EMBOSSED CARD CANNOT BE PRINTED DUE TO MISSING or " Line Location: PRERR+1
Function Call: WRITE	Prompt: "INVALID MANDATORY DATA:",!! Line Location: PRERR+2
Function Call: WRITE	Prompt: !,"EMBOSSED CARD CANNOT BE PRINTED DUE TO TEMPORARY CHART NUMBER" Line Location: TRBCD+2
Function Call: WRITE	Prompt: ">",@IOF Line Location: PRINT+0
Function Call: WRITE	Prompt: !!,AGFAC,!!,"(",AGCHART,") ",AGSSN,!!,AGNAME,!,AGDOB," " Line Location: CARDP+1
Function Call: WRITE	Prompt: AGSEX," ",AG("TRBCODE")," ",AGBLDCD,!," ",AGCOMCD Line Location: CARDP+2
Function Call: WRITE	Prompt: ?AGE("CPOS") Line Location: PRNTITEM+8
Function Call: WRITE	Prompt: X Line Location: PRNTITEM+11
Routine Call	%ZIS Line Location: DEV

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	DEV+3
^AGFAC - [#9009061]	FORMPRT+1, PRNTITEM+2, PRNTITEM+7
^AUPNPAT - [#9000001]	DFN+2, START+13, TRBCD+5
^AUTTCOM - [#9999999.05]	TRBCD+7
^AUTTLOC - [#9999999.06]	START+12
^AUTTTRI - [#9999999.03]	TRBCD+5
^DIC(4 - [#4]	START+12
^DPT - [#2]	DEV+3, START+2, START+3
^UTILITY("DIQ1"	FORMPRT+2!, PRNTITEM!, PRNTITEM+11

Name	Line Occurrences
CARDP	PRINT
COPIES	DFN+5, DFN+7, COPIES+2
DEV	DEV+2, DEV+4
END	DFN+4, PRERR+4, TRBCD+3
FORMPRT	PRINT
FRACT	TRBCD+6
PRERR	DFN+10
PRINT	START+1
PRNTITEM	FORMPRT+1
START	DEV+1

Name	Field # of Occurrence
^(	PRNTITEM+11
^(0	TRBCD+7, PRNTITEM+2
^(1	PRNTITEM+7
^(2	PRNTITEM+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEV*
AG	DFN+8, DEV+4!, PRINT, END+1!, FRACT*, FRACT+1, FRACT+2, FRACT+3
AG("CHRPOS"	FORMPRT+1*, PRNTITEM+2, PRNTITEM+7
AG("DRENT"	TRBCD+7*
AG("LKDATA"	TRBCD+7, END+1!
AG("LKERR"	END+1!
AG("LKPRINT"	END+1!
AG("TRBCODE"	TRBCD+5*, END+1!, CARDP+2
AG0	PRNTITEM+2*, PRNTITEM+4, PRNTITEM+12!
AG2	PRNTITEM+2*, PRNTITEM+4, PRNTITEM+12!
AGBLDCD	TRBCD+6, END+1!, CARDP+2, FRACT+1, FRACT+2, FRACT+3, FRACT+4*
AGCHART	START+13*, TRBCD, END+1!, CARDP+1
AGCOMCD	TRBCD+7*, END+1!, CARDP+2
AGCOPY	COPIES+3*, DEV+4!, PRINT, END+1!
AGDOB	START+3, START+4, START+5, END+1!, CARDP+1
AGE	PRNTITEM+1!, PRNTITEM+12!
AGE("CPOS"	END+1!, PRNTITEM+2*, PRNTITEM+8
AGE("IEN1"	PRNTITEM+4*, PRNTITEM+5
AGE("IEN2"	PRNTITEM+4*, PRNTITEM+6
AGE("MES1"	PRNTITEM+2*, PRNTITEM+5
AGE("MES2"	PRNTITEM+4*, PRNTITEM+6
AGFAC	START+12*, END+1!, CARDP+1
AGITPOTR	PRNTITEM+2, PRNTITEM+7, PRNTITEM+11, PRNTITEM+12!
AGLINE	END+1!, FORMPRT+1*, PRNTITEM+2, PRNTITEM+7
AGLINITM	END+1!
AGMES	END+1!
AGNAME	START+2*, END+1!, CARDP+1
>> AGOPT	START+1
>> AGOPT(14	DFN+9
>> AGOPT(19	DFN+5, START+1, PRINT
AGOPTRNS	END+1!
AGSEX	START+8*, END+1!, CARDP+2
AGSSN	START+11*, END+1!, CARDP+1
AGTRQNT	TRBCD+5*, TRBCD+6, END+1!, FRACT
AGV	PRNTITEM+1!, PRNTITEM+12!
AGV("DTOT"	DFN+6, DFN+7, DFN+8, DFN+9*, DFN+10
AGV("ER"	DFN+8, DFN+9
AGV("SFFN"	END+1!, PRNTITEM+2*, PRNTITEM+6, PRNTITEM+8
AGV("SFN"	END+1!, PRNTITEM+2*, PRNTITEM+6, PRNTITEM+8, PRNTITEM+9, PRNTITEM+10
DA	TRBCD+7, END+1!, PRNTITEM+1!, PRNTITEM+2, PRNTITEM+3, PRNTITEM+5, PRNTITEM+10, PRNTITEM+11, PRNTITEM+12!
DA(	PRNTITEM+6*, PRNTITEM+10
>> DFN	DFN+1, DFN+2, DEV+3, START+2, START+3, START+8, START+11, START+13, TRBCD+5, TRBCD+7 , PRNTITEM+2, PRNTITEM+5, PRNTITEM+6
>> DFOUT	DFN+1
DIC	TRBCD+7, END+1!, PRNTITEM+2, PRNTITEM+3, PRNTITEM+9, PRNTITEM+10, PRNTITEM+11
>> DLOUT	COPIES+1
DR	TRBCD+7, END+1!, PRNTITEM+1!, PRNTITEM+2, PRNTITEM+3, PRNTITEM+8*, PRNTITEM+11, PRNTITEM+12!
DR(	PRNTITEM+6*
>> DTOUT	DFN+1
>> DUOUT	DFN+1
DUZ(2	DFN+2, START+12, START+13, FORMPRT+1, PRNTITEM+2, PRNTITEM+5, PRNTITEM+6, PRNTITEM+7
G	DEV+3*, DEV+4!
IO	PRINT
IO("Q"	DEV+1!
IO("S"	DEV+2
IOF	PRINT
ION	DEV
>> IOP	DEV*
IOST	DEV+2
>> POP	DEV
U	DFN+2, DEV+3, START+2, START+3, START+12, START+13, TRBCD+5, TRBCD+7, PRNTITEM+2, PRNTITEM+4
X	START+13, END+1!, PRNTITEM+11
>> Y	COPIES+1, COPIES+2, COPIES+3, DEV+3, START+4, START+5
ZTDESC	DEV+3*, DEV+4!
>> ZTQUEUED	TRBCD+1, END+1
ZTRTN	DEV+3*, DEV+4!
ZTSAVE	DEV+4!
ZTSAVE(	DEV+3*
ZTSK	DEV+4!
ZTUCI	DEV+3*, DEV+4!

Customize PDF page

Package: IHS Patient Registration

Routine: AGCARD

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 2

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
FORMPRT	;Use this code if the site selects to set their own card format.
END
PRERR
FRACT
PRNTITEM
COPIES
DEV
TRBCD
START	;EP - TaskMan.
DFN	;EP - With a Pre-defined DFN.
PRINT
CARDP	;Print an ID Card.