Routine: AGRPTPRV

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC (,KILL)^%ZTLOAD
IHS Patient Registration	2	(CTR,NOW,RTRN)^AG $$S^AGVDF
VA Fileman	2	DD^%DT ^DIR

Entry Points

External References

Name	Field # of Occurrence
DD^%DT	PT+3
^%ZIS	DEV, START+15
^%ZISC	DEV+1, DEV+3, END1
^%ZTLOAD	DEV+3
KILL^%ZTLOAD	END1
CTR^AG	START+16, HDR+3, HDR+4
NOW^AG	START+18
RTRN^AG	START+19, PT, FAC, END, END+1
$$S^AGVDF	END+1, HDR+1
^DIR	PTS+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"START WITH WHAT PATIENT NAME? " Line Location: AGRPTPRV+4
Function Call: WRITE	Prompt: !!,"END WITH WHAT PATIENT NAME? " Line Location: AGRPTPRV+6
Function Call: WRITE	Prompt: !!,*7,"THE ENDING NAME PRECEDES THE BEGINNING NAME." Line Location: AGRPTPRV+7
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: NAME+0
Function Call: WRITE	Prompt: !?5,AGCO,?36,$P(AGINS,U,2),!?5,$P(AGINS,U,4) Line Location: PT+1
Function Call: WRITE	Prompt: ?36,$E($P(^(0),U),1,12) Line Location: PT+2
Function Call: WRITE	Prompt: ?53,Y Line Location: PT+3
Function Call: WRITE	Prompt: ?67,Y,! Line Location: PT+3
Function Call: WRITE	Prompt: ?5,$P(^AUTTPIC($P(AGINS,U,3),0),U) Line Location: PT+4
Function Call: WRITE	Prompt: !!,"PATIENTS WITH PRIVATE INSURANCE : ",C,!! Line Location: END+0
Function Call: WRITE	Prompt: !?5,AGCO,$E("........................................",1,40-$X-($L(^(AGCO)))),^(AGCO) Line Location: END+0
Function Call: WRITE	Prompt: !?31,"==========",!?35,$J(T,5) Line Location: END+1
Function Call: WRITE	Prompt: $$S^AGVDF("IOF") Line Location: END+1
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),AG("USR"),?70,"page ",AGPGPG Line Location: HDR+1
Function Call: WRITE	Prompt: !,AG("LOC"),!?31,"PRIVATE INSURANCE" Line Location: HDR+2
Function Call: WRITE	Prompt: !,X Line Location: HDR+3
Function Call: WRITE	Prompt: !,X Line Location: HDR+4
Function Call: WRITE	Prompt: !!?17,"REPORT CONTAINS "_$S(AGPTS="B":"ALL BENEFICIARIES",AGPTS="A":"ACTIVE PATIENTS ONLY",AGPTS="D":"DECEASED AND INACTIVE PATIENTS ONLY") Line Location: HDR+5
Function Call: WRITE	Prompt: !!!?5,"COMPANY",?36,"POLICY NUMBER",!?5,"NAME OF INSURED",?36,"RELATIONSHIP",?53,"FROM",?67,"TO",!?5,"COVERAGE",!?21,"CHART SITE",!,AG("="),! Line Location: HDR+6
Function Call: WRITE	Prompt: !,$P(^DPT(DFN,0),U)," (cont.)" Line Location: HDR+7
Routine Call	DIR Line Location: PTS+5
Routine Call	%ZIS Line Location: DEV START+15

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	DEV+2, START+18
^AUPNPAT - [#9000001]	START+7, START+9, START+11, FAC
^AUPNPRVT - [#9000006]	START+4, PT
^AUTNINS - [#9999999.18]	PT
^AUTTPIC - [#9999999.65]	PT+4
^AUTTRLSH - [#9999999.36]	PT+2
^DIC(4 - [#4]	START+16, FAC
^DPT - [#2]	START+7, START+9, START+11, START+13, NAME, HDR+7
^TMP($J	START+3!, START+13, START+19, NAME, PT+5, END, END1!
^VA(200 - [#200]	START+16

Label References

Name	Line Occurrences
DEV	DEV+1, DEV+3
END	START+19
END1	START+19
FAC	NAME
HDR	START+19, NAME, PT, FAC, END
NAME	START+19
PT	NAME, PT, PT+6
START	DEV+1

Naked Globals

Name	Field # of Occurrence
^(	PT, PT+5, FAC, END
^(0	PT, PT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEV*
A	NAME, PT, END1!
AG	DEV+3!, END1!
AG("-"	PTS+2*, FAC
AG("="	PTS+1*, HDR+6
AG("DENT"	END1!
AG("HAT"	PTS+9*, END+1!
AG("LKDATA"	END1!
AG("LKERR"	END1!
AG("LKPRINT"	END1!
AG("LOC"	START+16*, END1!, HDR+2
AG("USR"	START+16*, END1!, HDR+1
AGBEG	DEV+2, DEV+3!, END1!
AGBM	START+16*, START+19, PT, FAC, END1!
AGCO	PT, PT+1, PT+5, END, END1!
AGCONT	START+16, PT, FAC, END1!, HDR+7
AGEND	DEV+2, DEV+3!, END1!
>> AGFLAG	START+5, START+9, START+11, START+12, START+13
AGINS	PT*, PT+1, PT+2, PT+3, PT+4, END1!
AGIO	PTS+9*, DEV+3!, START+16, END1!
AGL	END1!
AGNM	START+16, START+19, NAME, END1!
AGPCC	END1!
AGPGPG	START+16, END1!, HDR, HDR+1
>> AGPTS	PTS+6*, START+8, START+10, START+12, HDR+5
AGQIO	DEV+2*, DEV+3!, START+15
AGTIME	START+18*, END1!, HDR+4
>> AGTOT	START+3, START+13
AGTTL	START+18*, END1!
AGUCI	START+18*, END1!, HDR+3
>> AGZ("I"	START+15*
C	START+19*, END, END1!
DA	END1!
DFN	START+3, START+4, START+7, START+9, START+11, START+13, NAME*, PT, FAC, END1! , HDR+7
>> DFOUT	START+19, NAME, PT, FAC
DIC	END1!
DIR	PTS+5!
DIR("A"	PTS+4*
DIR(0	PTS+3*
DLOUT	END1!
DR	END1!
>> DTOUT	PTS+7, START+19, NAME, PT, FAC
>> DUOUT	START+19, NAME, PT, FAC
DUZ	START+16
DUZ(2	START+7, START+9, START+11, START+16
G	DEV+2*, DEV+3!, END1!
I	FAC, END, END1!
IO	PTS+9, DEV+2, START+16
IO("Q"	DEV+1!
IO("S"	DEV+1
ION	DEV
>> IOP	DEV, START+15
IOSL	START+16
IOST	DEV+1
>> POP	DEV, START+15
R	FAC*, END1!
>> T	END*, END+1
U	START+9, START+11, START+13, START+16, NAME, PT, PT+1, PT+2, PT+3, PT+4 , FAC, HDR+7
X	START+16, START+18, END1!, HDR+3, HDR+4
Y	PTS+6, PTS+7, DEV+2, START+18, PT+3*, END1!
ZTDESC	DEV+2*, DEV+3!
ZTIO	DEV+2*, DEV+3!
>> ZTQUEUED	END1
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: AGRPTPRV

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: