Routine: MCRH1

Call Graph Total: 21

Package	Total	Call Graph
Medicine	11	EN^MCARD CONSULT^MCARGE CONSULT^MCARGES CONSULT^MCARGP (RHFULL,RHPRT)^MCARP EN1^MCARSUP EN1^MCMAG (ORDER,QTASK)^MCPARAM $$ETHN^MCPFTP1 DOIT^MCPSOP ^MCRH3
VA Fileman	6	^DIC YN^DICN ^DIE ^DIK GETS^DIQ EN^DIQ1
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Registration	1	(DEM,KVAR)^VADPT

Package

Total

Call Graph

EN^MCARD CONSULT^MCARGE CONSULT^MCARGES CONSULT^MCARGP (RHFULL,RHPRT)^MCARP EN1^MCARSUP EN1^MCMAG (ORDER,QTASK)^MCPARAM
$$ETHN^MCPFTP1 DOIT^MCPSOP ^MCRH3

VA Fileman

^DIC YN^DICN ^DIE ^DIK GETS^DIQ EN^DIQ1

Kernel

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

Registration

(DEM,KVAR)^VADPT

Package	Total	Caller Graph
Medicine	28	MCRHALLP MCRHBACKF MCRHBACKP MCRHBRIEF MCRHDEATHF MCRHDEATHL MCRHDEATHP MCRHDELVISIT MCRHDIAGF MCRHDIAGL MCRHDIAGP MCRHHAQF MCRHHAQL MCRHHAQP MCRHLABF MCRHLABP MCRHNARRF MCRHNARRL MCRHNARRP MCRHPATHIST MCRHPATHISTF MCRHPATHISTL MCRHPATHISTP MCRHPHYS MCRHPHYSF MCRHPHYSL MCRHPHYSP MCRHTREAT

Package

Total

Caller Graph

Medicine

MCRHALLP  MCRHBACKF  MCRHBACKP  MCRHBRIEF  MCRHDEATHF  MCRHDEATHL  MCRHDEATHP  MCRHDELVISIT
MCRHDIAGF  MCRHDIAGL  MCRHDIAGP  MCRHHAQF  MCRHHAQL  MCRHHAQP  MCRHLABF  MCRHLABP
MCRHNARRF  MCRHNARRL  MCRHNARRP  MCRHPATHIST  MCRHPATHISTF  MCRHPATHISTL  MCRHPATHISTP  MCRHPHYS
MCRHPHYSF  MCRHPHYSL  MCRHPHYSP  MCRHTREAT

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	QUE
HOME^%ZIS	PRT+4
^%ZISC	QSTART+3
^%ZTLOAD	QUE+1
^DIC	PRT+1, DEL+4, GETLAB+2
YN^DICN	DISP, USURE
^DIE	LIN
^DIK	USURE+1
GETS^DIQ	GETDATA+7
EN^DIQ1	QSTART+2
EN^MCARD	FUL+2, DISP+1
CONSULT^MCARGE	CONS
CONSULT^MCARGES	CONSS
CONSULT^MCARGP	CONSP
RHFULL^MCARP	PRT
RHPRT^MCARP	QSTART+3
EN1^MCARSUP	MCRHMED
EN1^MCMAG	IM
ORDER^MCPARAM	ORDER
QTASK^MCPARAM	LIN, FUL+1, FUL+2
$$ETHN^MCPFTP1	PRT+2
DOIT^MCPSOP	PRT+3
^MCRH3	FUL+1
DEM^VADPT	PRT+1
KVAR^VADPT	EXIT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: DEL+2
Function Call: WRITE	Prompt: !!,"Would you like a display of the data for this visit" Line Location: DISP+0
Function Call: WRITE	Prompt: !,"Nothing Deleted" Line Location: USURE+0
Function Call: READ	Timeout: 2 Variable: X Line Location: USURE+1
Function Call: WRITE	Prompt: !!,"Entry deleted." Line Location: USURE+1
Function Call: WRITE	Prompt: !!,*7,"THIS ENTRY IS BEING EDITED BY ANOTHER USER. TRY LATER." Line Location: LOCK+1
Routine Call	%ZIS Line Location: PRT+4
Routine Call	DIE Line Location: LIN
Routine Call	DIC Line Location: PRT+1 DEL+4 GETLAB+2
Routine Call	%ZIS Line Location: QUE

FileNo	Call Tags
^DPT - [#2]	GETS^DIQ
^LR - [#63]	Classic Fileman Calls
^MCAR(701 - [#701]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PRT+4
^LR - [#63]	GETLAB+1
^MCAR(	ORDER1
^MCAR(697.2 - [#697.2]	ORDERA
^MCAR(701 - [#701]	FUL
^UTILITY("DIQ1"	QSTART!

Label References

Name	Line Occurrences
DEL	DISP, USURE, USURE+1
DISP	DISP
EXIT	CONS, CONSS, CONSP, MCRHMED, PRT, PRT+1, PRT+4, PRT+5, LIN, FUL+1 , FUL+2, DEL+4, QUE
GETDATA	PRT+2
GETLAB	PRT+4
IM	ORDER1
ORDER1	LIN, FUL+1, FUL+2
ORDERA	LIN, FUL+1, FUL+2
QSTART	PRT+4
QUE	PRT+5
SEL	ALLP, DIAGP, BACKP, NARRP, LABP, HAQP, HISTP, PHYSP, DEATHP, DIAGL , NARRL, HAQL, HISTL, PHYSL, DEATHL, BRIEFL, DIAGF, BACKF, NARRF, TRETF , LABF, HAQF, HISTF, PHYSF, DEATHF, PRT+3, PRT+4, LIN, FUL+1, FUL+2
USURE	DISP

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DISP, USURE, EXIT!
>> %ZIS	QUE*
DA	PRT+1, FUL, DEL+4, DISP+1, USURE+1, QSTART*, EXIT!
DA(	QSTART+2*
DA(1	GETLAB+2, QSTART+2
DFN	PRT+1*, EXIT!, GETDATA+7, GETDATA+8, GETDATA+9, GETDATA+10, GETDATA+11, GETDATA+12, GETDATA+13, GETDATA+14 , GETDATA+15
DIC	PRT+1, DEL+2, USURE+1, GETLAB+2, QSTART*, EXIT!
DIC("A"	SEL+3, DEL+1, GETLAB+2*!
DIC("B"	GETLAB+1*
DIC(0	PRT+1, DEL+2, GETLAB+2*
DIE	LIN*, EXIT!
DIK	USURE+1*, EXIT!
DJDIS	PRT+4, FUL, DISP+1*, EXIT!
DJDN	PRT+1, FUL, DISP+1, GETLAB+2, EXIT!
DJSC	FUL, DISP+1, EXIT!
DLAYGO	PRT+1*!
DR	LIN, QSTART+1, EXIT!
DT1	EXIT!
>> DTOUT	LIN, FUL+1, FUL+2, ORDER1
>> DUOUT	LIN, FUL+1, FUL+2
H	EXIT!
I	EXIT!
IO	QSTART+3
IO("Q"	QUE!, QUE+1
K	EXIT!
K1	EXIT!
MC0	PRT+1*!
MCARCODE	CONS, CONSS, MCRHMED*, EXIT+1!
MCARGDA	PRT+1*, EXIT+1!, ORDER1
MCARGDT	GETLAB+2*, EXIT+1!
MCARGNUM	EXIT+1!, ORDERA*
MCARGRTN	QSTART+3*, EXIT+1!
MCARR1	PRT+2~
MCARR1(1	GETDATA+2*
MCARR1(10	GETDATA+5*
MCARR1(11	GETDATA+5*
MCARR1(12	GETDATA+6*
MCARR1(13	GETDATA+14*
MCARR1(14	GETDATA+15*
MCARR1(2	GETDATA+3*
MCARR1(3	GETDATA+8*
MCARR1(4	GETDATA+9*
MCARR1(5	GETDATA+10*
MCARR1(6	GETDATA+11*
MCARR1(7	GETDATA+12*
MCARR1(8	GETDATA+13*
MCARR1(9	GETDATA+4*
MCARR2	GETDATA+1~
MCARR2(2	GETDATA+8, GETDATA+9, GETDATA+10, GETDATA+11, GETDATA+12, GETDATA+13, GETDATA+14, GETDATA+15
MCARRC	PRT+2~*, GETDATA+5
MCARZ	QUE+1*, EXIT+1!
>> MCBL	LIN
>> MCBS	FUL
MCFILE	SEL+2*, EXIT+1!, ORDER1
MCHOLD	PRT+2~*
MCLABDT	GETLAB+2*, QSTART+2, EXIT+1!
>> MCLRDA	GETLAB+2*, QSTART, QSTART+2
MCLRDFN	PRT+4*, GETLAB+1, GETLAB+2, QSTART+2, EXIT+1!
>> MCOEON	ORDER, ORDER1
>> MCPRO	SEL+2*
MCRH	ALLP, DIAGP, BACKP, NARRP, LABP, HAQP, HISTP, PHYSP, DEATHP, DIAGL , NARRL, HAQL, HISTL, PHYSL, DEATHL, BRIEFL, DIAGF, BACKF, NARRF, TRETF , LABF, HAQF, HISTF, PHYSF, DEATHF, BRIEFF, SEL+3, PRT, PRT+1, PRT+2 , PRT+3, PRT+4, PRT+5, LIN, FUL, FUL+1, EXIT+1!, IM
MCRH1	DEL+4*, DISP+1, USURE+1, EXIT+1!
MCRHB	SEL+1~, FUL*, FUL+1
MCRHL	EXIT+1!
MCRHLP	ALLP, DIAGP, BACKP, NARRP, LABP, HAQP, HISTP, PHYSP, DEATHP, DIAGL , NARRL, HAQL, HISTL, PHYSL, DEATHL, BRIEFL, PRT, PRT+4, PRT+5, LIN , EXIT+1!
MCRHY	EXIT+1!
MCSEX	PRT+1*, EXIT+1!
PG	QSTART*, EXIT+1!
POP	QUE, EXIT+1!
PSOPAR	PRT+3*, EXIT+1!
STA	EXIT+1!
U	PRT+1, PRT+2, PRT+3, PRT+4, FUL, GETLAB+2
V	LIN!, FUL, FUL+2!, EXIT+1!
>> VADM	PRT+2
>> VADM(1	GETDATA+2
>> VADM(10	GETDATA+6
>> VADM(2	GETDATA+3
>> VADM(3	GETDATA+4
>> VADM(5	PRT+1, GETDATA+5
>> VADM(8	PRT+2
X	USURE+1*, EXIT+1!
X1	EXIT+1!
>> Y	PRT+1, PRT+3, PRT+4, DEL+4, GETLAB+2, QSTART+2
>> Y(0	PRT+1*, PRT+3, PRT+4
Z	EXIT+1!
ZTDESC	QUE+1*, EXIT+1!
ZTRTN	QUE+1*, EXIT+1!
ZTSAVE	EXIT+1!
ZTSAVE("DA"	QUE+1*
ZTSAVE("DFN"	QUE+1*
ZTSAVE("DT"	QUE+1*
ZTSAVE("MC*"	QUE+1*
ZTSK	QUE+1!

Customize PDF page

Package: Medicine

Routine: MCRH1

Information

Source Information