Routine: AGOV64

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

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	DEV, START+20
^%ZISC	DEV+1, DEV+3, END
^%ZTLOAD	DEV+3
KILL^%ZTLOAD	END
CTR^AG	START+24
LINES^AG	START+23
NOW^AG	START+23
RTRN^AG	START+34, START+38
$$GETMCR^AGUTL	MCR+2
$$GETRRE^AGUTL	WRRE+1
$$ISMBI^AGUTL	MCR+2, WRRE+1
$$S^AGVDF	START+38, HDR
$$GET1^DIQ	SSN+1
^DIR	AGOV64+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: AGOV64+7
Function Call: WRITE	Prompt: !! Line Location: AGOV64+16
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+1
Function Call: WRITE	Prompt: !,J," ",$P($G(^DPT(J,0)),U) Line Location: START+10
Function Call: WRITE	Prompt: !!,"Total patients 65 yrs or older: ",AGTOT,!!,"Total patients 65 or older with Medicare: ",AGTOTM,!!,"Total patients 65 or older with Railroad Ret: ",AGTOTR Line Location: START+38
Function Call: WRITE	Prompt: $$S^AGVDF("IOF") Line Location: START+38
Function Call: WRITE	Prompt: $P(^DPT(DFN,0),U)," (",$P(^AUPNPAT(DFN,41,DUZ(2),0),U,2),")" Line Location: PRINT+0
Function Call: WRITE	Prompt: ?35,AGPHONE Line Location: PRINT+2
Function Call: WRITE	Prompt: ?49,"M=",AGMCRNO,"-" Line Location: PRINT+4
Function Call: WRITE	Prompt: ?49,$S($L(AGMCRNO):"M="_AGMCRNO,1:"NO NUMBER ") Line Location: MCR+4
Function Call: WRITE	Prompt: ?67,AG("LKDATA") Line Location: SSN+0
Function Call: WRITE	Prompt: ?67,$$GET1^DIQ(9000001,DFN_",",1107.3) Line Location: SSN+1
Function Call: WRITE	Prompt: ! Line Location: CKRRE+0
Function Call: WRITE	Prompt: !,AG("-"),! Line Location: ADDR1+1
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),!,AG("USRLOC"),?70,"page ",AGPGPG,!?26,"PATIENTS 65 YRS OLD AND OLDER",!,AGTIME,!!?51,"MEDICARE(M)",?69,"SOCIAL",!,"NAME (CHART #)",?35,"HOME PHONE",?51,"RAILROAD(R)",?66,"SECURITY NO.",!,AG("="),! Line Location: HDR+0
Function Call: WRITE	Prompt: ?49,"R=" Line Location: HDR+2
Function Call: WRITE	Prompt: $P(^AUTTRRP($P(^AUPNRRE(DFN,0),U,3),0),U),"-" Condition for execution: $P(^AUPNRRE(DFN,0),U,3) Line Location: HDR+2
Function Call: WRITE	Prompt: AGRRNO Line Location: HDR+2
Function Call: WRITE	Prompt: ?49,$S($L(AGRRNO):"R="_AGRRNO,1:"NO NUMBER ") Line Location: WRRE+3
Routine Call	DIR Line Location: AGOV64+12
Routine Call	%ZIS Line Location: DEV START+20

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
^AUPNMCR - [#9000003]	MCR+1, RRE1, PMCNM
^AUPNPAT - [#9000001]	START+16, START+18, PRINT, PRINT+1
^AUPNRRE - [#9000005]	RRE1, CKRRE, RRE, RRENM
^AUTTLOC - [#9999999.06]	DEV+2
^DIC(4 - [#4]	START+21
^DIC(5 - [#5]	SSN+3
^DPT - [#2]	START+18, PRINT, PRINT+2, SSN+2, SSN+3, ADDR1
^DPT("ADOB"	START+5, START+15
^TMP($J	START+2!, START+18*, START+28, START+29, END!
^VA(200 - [#200]	START+21

Label References

Name	Line Occurrences
ADDR1	RRE
CKRRE	SSN+2
DEV	DEV+1, DEV+3
HDR	START+24, START+34
PMCNM	ADDR1+1
PRINT	START+33
RRE	SSN+3
RRE1	MCR+1
RRENM	ADDR1+1
SSN	MCR+5
START	DEV+1
WRRE	RRE1, RRE

Naked Globals

Name	Field # of Occurrence
^(	PRINT+2
^(0	SSN+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEV*
A	END!
AG	DEV+3!, END!
AG("-"	ADDR1+1
AG("64"	START+1*, START+5
AG("="	HDR
AG("ADDR"	SSN+3, ADDR1
AG("HAT"	AGOV64+5*, START+35!, START+38!
AG("LKDATA"	END!
AG("LKPRINT"	END!
AG("LOC"	START+2!, START+21*, START+22!
AG("USR"	START+2!, START+21*, START+22!
AG("USRLOC"	START+21*, END!, HDR
>> AGA	SSN+3*, ADDR1
AGBM	START+21*, START+34, END!
>> AGINACT	AGOV64+14*, START+16
AGIO	AGOV64+5*, DEV+3!, START+21, END!
AGISMBI	MCR+2, MCR+3, MCR+5!, WRRE+1, WRRE+2, WRRE+4!
AGL	END!
AGMCRNM	PMCNM!*
AGMCRNO	MCR+2, MCR+3, MCR+4, MCR+5!
AGPCC	END!
AGPGPG	START+1, END!, HDR
AGPHONE	PRINT+2*!
>> AGQIO	DEV+2*, START+20
AGRRESW	START+30, END!, RRE1, CKRRE, RRE
AGRRNM	RRENM!*
AGRRNO	WRRE+1, WRRE+2, WRRE+3, WRRE+4!
AGTIME	START+24*, END!, HDR
AGTOT	START+1, START+38, END!, PRINT
AGTOTM	START+1, START+38, END!, MCR+5
AGTOTR	START+1, START+38, END!, WRRE+4
>> AGZ("I"	START+20*
DA	END!
DFN	START+29*, END!, PRINT, PRINT+1, PRINT+2, MCR+1, MCR+2, RRE1, SSN+1, SSN+2 , SSN+3, CKRRE, RRE, ADDR1, WRRE+1, PMCNM, RRENM
DFOUT	START+26!, START+28, START+34, START+36
DIC	END!
DIR	AGOV64+8!, AGOV64+15!
DIR("A"	AGOV64+10*
DIR("B"	AGOV64+11*
DIR(0	AGOV64+9*
DLOUT	END!
DR	END!
DT	START+1, START+17
DTOUT	AGOV64+13, AGOV64+15!, START+26!, START+28, START+34, START+36
DUOUT	AGOV64+13, AGOV64+15!, START+26!, START+28, START+34, START+36
DUZ	START+21
DUZ(2	DEV+2, START+16, START+18, START+21, PRINT, PRINT+1
G	DEV+2*, END!
I	START+5*, START+15, START+17, END!
IO	AGOV64+5, DEV+2, START+21, START+22
IO("Q"	DEV+1!
IO("S"	DEV+1
ION	DEV
>> IOP	DEV, START+20
IOSL	START+21
IOST	DEV+1
J	START+15*, START+16, START+18, END!
>> MCDREC	START+31*
>> NAME	START+18, START+27, START+28*, START+29
>> POP	DEV, START+20
>> PRVTREC	START+32*
U	DEV+2, START+16, START+18, START+21, PRINT, PRINT+1, PRINT+2, SSN+3, ADDR1, PMCNM , RRENM
X	START+24*, END!
Y	AGOV64+14, DEV+2, END!
ZTDESC	DEV+2*, DEV+3!
ZTIO	DEV+2*, DEV+3!
>> ZTQUEUED	END
ZTRTN	DEV+2*, DEV+3!
>> ZTSAVE(	DEV+2*
ZTSK	DEV+3!
ZTUCI	DEV+2*, DEV+3!

Customize PDF page

Package: IHS Patient Registration

Routine: AGOV64

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: