Routine: MCARPCE

Package	Total	Call Graph
Medicine	5	EN^MCARD EXIT^MCARGE $$VALUE^MCENDIQ1 EN1^MCMAG (ORDER,QTASK)^MCPARAM
VA Fileman	3	^DIC ^DIE ^DIK

Package	Total	Caller Graph
Medicine	4	MCARPACESCREENSURV MCBLSURV MCFLSURV MCPACSURVBRSCR

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,"SURVEILLANCE PROCEDURES" Line Location: START+3
Function Call: WRITE	Prompt: " * SCREEN EDIT *" Line Location: START+4
Function Call: WRITE	Prompt: " * BRIEF EDIT *" Line Location: START+5
Function Call: WRITE	Prompt: !!! Line Location: START+6
Function Call: READ	Prompt: "PRESS RETURN TO CONTINUE: " Timeout: DTIME Variable: X Line Location: START+20
Function Call: WRITE	Prompt: !!,*7,"TYPE OF LEAD NOT DEFINED FOR THIS PATIENT IN GENERATOR FILE",!! Line Location: START+20
Function Call: READ	Prompt: "PRESS RETURN TO CONTINUE " Timeout: DTIME Variable: X Line Location: MSG+0
Function Call: WRITE	Prompt: !!,"PATIENT HAS NO CURRENT GENERATOR IMPLANT LISTED IN GENERATOR FILE",!! Line Location: MSG+0
Function Call: WRITE	Prompt: !,*7,"Entry Deleted" Line Location: KILL+0
Routine Call	DIE Line Location: START+22 START+24
Routine Call	DIC Line Location: START+7

FileNo	Call Tags
^MCAR(698.3 - [#698.3]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^MCAR(	ORDER1
^MCAR(690 - [#690]	START+15, START+17
^MCAR(697.2 - [#697.2]	ORDERA, SCREEN+1
^MCAR(698 - [#698]	START+10, START+18, START+19, START+20, START+21
^MCAR(698.3 - [#698.3]	START+8, START+23

Name	Line Occurrences
EXIT	START+7, START+9, START+10, START+16, START+17, START+18, START+19, START+20, START+22, START+24 , SCREEN+2, SCREEN1+1, SCREEN1+5
IM	ORDER1
KILL	START+9, START+20, MSG
MSG	START+10, START+16, START+17, START+18, START+19
ORDER1	START+24, SCREEN1+1
ORDERA	START+24, SCREEN1+1
SCREEN1	START+24
START	SCREEN+2

Name	Field # of Occurrence
^(	START+15
^(1	START+19

Name	Field # of Occurrence
%	EXIT!
%X	EXIT!
%Y	EXIT!
%Y2	EXIT!
C	EXIT!
D0	EXIT!
DA	START+22, START+23, START+24, EXIT!, KILL*
>> DFN	START+8*
DI	EXIT!
>> DIC	START*
>> DIC("A"	START+1*
>> DIC("B"	START+2*
>> DIC("DR"	START*
>> DIC(0	START*
DIDEL	START*, EXIT!
>> DIE	START+22*
>> DIK	KILL*
>> DJDN	SCREEN1*
DJSC	START+4, START+24, EXIT!, SCREEN!, SCREEN+1, SCREEN+2, SCREEN1
DLAYGO	START*, EXIT!
DQ	EXIT!
DR	START+22, START+24, EXIT!
DTIME	START+20, MSG
>> DTOUT	START+22, START+24, ORDER1, SCREEN1+1
>> DUOUT	START+24, SCREEN1+1
DZ	EXIT!
I	START+15*, START+16, START+17, EXIT!
IOF	START+3
J	EXIT!
MCARFLG	START+23*, EXIT!, SCREEN1
MCARGDA	START+7*, START+22, START+24, EXIT!, ORDER1, SCREEN1, SCREEN1+3, KILL
MCARGEN	START+17*, START+18, START+19, START+20, START+21, EXIT!
>> MCARGNUM	ORDERA, SCREEN+1
MCARLEAD	START+21*, EXIT!, SCREEN1
MCARNAM	START+8*, START+9, START+10, START+15, START+17, EXIT!
MCARNEW	START+7, START+9, EXIT!, KILL
>> MCBL	START+5, START+24
>> MCBS	SCREEN1
MCFILE	START, START+12, START+24, EXIT!, ORDERA, ORDER1, SCREEN1+3
>> MCOEON	ORDER, ORDER1
>> MCPATNM	START, START+2, START+13, SCREEN1+4
MCX	START+12, START+13, EXIT!, SCREEN1+3, SCREEN1+4
U	START+7, START+8, START+19, START+20, START+21, START+23
X	START+20, EXIT!, MSG
Y	START+7, START+8, START+12, START+22, EXIT!