Routine: MCARPACE

Information

MCARPACE ;WISC/RMP,TJK-COMBINED GENERATOR,LEAD ENTER/EDIT ;5/2/96 13:02

Package	Total	Call Graph
Medicine	2	(IN,OUT)^MCEO QTASK^MCPARAM
VA Fileman	2	^DIC ^DIE

Package	Total	Caller Graph
Medicine	3	MCARGES MCARPACEDIT MCARPACEMULTEDIT

Name	Comments	DBIA/ICR reference
LAST
VLEAD
ALEAD
GEN2
NUM(MCFILE)	;
EXIT
DEM	; EDIT DEMOGRAPHIC INFORMATION ONLY
ORDER1	;

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!!,"COMBINED IMPLANT/LEADS PROCEDURES",!!! Line Location: MCARPACE+2
Function Call: WRITE	Prompt: !,"Generator Information...." Line Location: MCARPACE+8
Function Call: WRITE	Prompt: !,"Atrial Lead Data...." Line Location: ALEAD+0
Function Call: WRITE	Prompt: !,"Ventricular Lead Data..." Line Location: VLEAD+0
Function Call: WRITE	Prompt: !,"GENERATOR DATA..." Line Location: GEN2+0
Function Call: WRITE	Prompt: !!,"No ",$S(MCFILE=698.1:"Ventricular",1:"Atrial")," Lead data entered for this patient",!! Line Location: LAST+1
Function Call: WRITE	Prompt: !!,"Last ",$S(MCFILE=698.1:"Ventricular",1:"Atrial")," Lead implanted on ",Y,!! Line Location: LAST+2
Function Call: WRITE	Prompt: @IOF,!!!,"DEMOGRAPHIC INFORMATION",!!! Line Location: DEM+1
Routine Call	DIE Line Location: MCARPACE+10 ALEAD+3 VLEAD+3 GEN2+2 DEM+9
Routine Call	DIC Line Location: MCARPACE+6 ALEAD+2 VLEAD+2 DEM+4

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	LAST+2
^DPT - [#2]	MCARPACE+7
^MCAR(	LAST, ORDER1+1
^MCAR(690 - [#690]	MCARPACE+7
^MCAR(697.2 - [#697.2]	NUM+1
^MCAR(698 - [#698]	MCARPACE+7, MCARPACE+10, ALEAD+1, VLEAD+1

Name	Line Occurrences
$$NUM	MCARPACE+9, ALEAD+3, VLEAD+3
@(	MCARPACE+11, ALEAD+2, ALEAD+4
EXIT	MCARPACE+6, MCARPACE+10, ALEAD+2, ALEAD+3, VLEAD+2, VLEAD+3, VLEAD+4
LAST	ALEAD, VLEAD
ORDER1	GEN2+2

Name	Field # of Occurrence
DA	MCARPACE+9, MCARPACE+10!, ALEAD+3!, VLEAD+3!, GEN2+2!, DEM+8*
DFN	MCARPACE+7*, EXIT!, LAST
DFNUM	MCARPACE+7*, EXIT!
DIC	MCARPACE+3, MCARPACE+9, MCARPACE+10!, ALEAD+1, ALEAD+3!, VLEAD+1, VLEAD+3!, GEN2+2!, DEM+3, DEM+5!
DIC("A"	MCARPACE+4*
DIC("B"	ALEAD+1, ALEAD+2!, VLEAD+1, VLEAD+2!, DEM+3*
DIC("DR"	MCARPACE+5, ALEAD+1, VLEAD+1*
DIC("S"	ALEAD+1, ALEAD+2!, VLEAD+1, VLEAD+2!
DIC(0	MCARPACE+3, ALEAD+1, VLEAD+1, DEM+3
DIDEL	MCARPACE+3, ALEAD, VLEAD*, EXIT!
DIE	MCARPACE+9, MCARPACE+10!, ALEAD+3!, VLEAD+3!, GEN2+2!, DEM+3*
DLAYGO	MCARPACE+3, ALEAD, VLEAD, EXIT!, DEM+3
DR	MCARPACE+9, MCARPACE+10!, ALEAD+3!, VLEAD+3!, GEN2+2!, DEM+8*
>> DTOUT	MCARPACE+10, ALEAD+2, ALEAD+3, VLEAD+2, VLEAD+3, ORDER1+1
>> DUOUT	MCARPACE+10, ALEAD+2, ALEAD+3, VLEAD+2, VLEAD+3
I	LAST*, LAST+1!, LAST+2!
IOF	MCARPACE+2, DEM+1
MCARGDA	MCARPACE+9, MCARPACE+10, ALEAD+1, ALEAD+3, VLEAD+1, VLEAD+3, GEN2+2, EXIT!, ORDER1+1
MCARGDA1	MCARPACE+9*, GEN2+2!
>> MCARGNUM	MCARPACE+9, ALEAD+3, VLEAD+3*
MCFILE	MCARPACE+9, ALEAD, ALEAD+3, VLEAD, VLEAD+3, GEN2+2, NUM~, NUM+1, LAST, LAST+1 , LAST+2, ORDER1+1
>> MCOEON	GEN2+1, ORDER1+1
MCORSV	GEN2+1!
>> MCPATNM	MCARPACE+5, MCARPACE+7, DEM+3, DEM+7
MCSEL	MCARPACE+10*, MCARPACE+11, ALEAD+2, ALEAD+4, EXIT!
U	MCARPACE+7, MCARPACE+10, ALEAD+1, VLEAD+1
X	LAST*, LAST+1!, LAST+2!
Y	MCARPACE+6, MCARPACE+7, MCARPACE+9, ALEAD+2, ALEAD+3, VLEAD+2, VLEAD+3, LAST*, LAST+1!, LAST+2! , DEM+6, DEM+8
Y(0	DEM+7