Routine: MCRH1

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

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 28

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

Entry Points

Name	Comments	DBIA/ICR reference
CONS
CONSS
CONSP
MCRHMED
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	; Visit Date Selection
PRT
LIN
FUL
DEL	;DELETE RHEUMATOLOGY VISIT
DISP
USURE
GETLAB	;
QUE
QSTART
LOCK	;LOCK GLOBAL THAT IS BEING ACCESSED BY ANOTHER USER
EXIT
ORDERA
ORDER
ORDER1
IM
GETDATA	; Get Patient Demographic data

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	Variable: X Timeout: 2 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: QUE
Routine Call	%ZIS Line Location: PRT+4
Routine Call	DIC Line Location: PRT+1 DEL+4 GETLAB+2
Routine Call	DIE Line Location: LIN

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Call Graph

Call Graph Total: 21

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 28

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: