Global: ^MCAR(698.6

Information

FileMan FileNo	FileMan Filename	Package
698.6	PACEMAKER MANUFACTURER	Medicine

This file holds the manufacturer's name for the various equipment (Generators, A Leads, V Leads, PSAs, and telephone transmitters) used by Pacemaker.

Package	Total	Routines
Medicine	7	MCAROPA MCAROPG MCAROPV MCARPAL MCARPCS1 MCARPCS2 MCPOS01E

Package	Total	FileMan Files
Medicine	4	GENERATOR IMPLANT(#698)[3, 13] V LEAD IMPLANT(#698.1)[3] A LEAD IMPLANT(#698.2)[3] PACEMAKER EQUIPMENT(#698.4)[2]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X` HELP-PROMPT: `NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION` DESCRIPTION: This field identifies the name of the manufacturer. CROSS-REFERENCE: `698.6^B` 1)= S ^MCAR(698.6,"B",$E(X,1,30),DA)="" 2)= K ^MCAR(698.6,"B",$E(X,1,30),DA)
1	MNEMONIC	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<2) X` LAST EDITED: `FEB 08, 1989` HELP-PROMPT: `Enter Abbreviation to be used on Pacemaker active patient list` DESCRIPTION: This field identifies the abbreviated manufacturer name. CROSS-REFERENCE: `698.6^C` 1)= S ^MCAR(698.6,"C",$E(X,1,30),DA)="" 2)= K ^MCAR(698.6,"C",$E(X,1,30),DA) This cross-reference allows look-ups by Mnemonics.

NAME

0;1

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION

DESCRIPTION:

This field identifies the name of the manufacturer.

CROSS-REFERENCE: 698.6^B

1)= S ^MCAR(698.6,"B",$E(X,1,30),DA)=""

2)= K ^MCAR(698.6,"B",$E(X,1,30),DA)

MNEMONIC

0;2

FREE TEXT

************************REQUIRED FIELD************************

DESCRIPTION:

This field identifies the abbreviated manufacturer name.

CROSS-REFERENCE: 698.6^C

1)= S ^MCAR(698.6,"C",$E(X,1,30),DA)=""

2)= K ^MCAR(698.6,"C",$E(X,1,30),DA)

This cross-reference allows look-ups by Mnemonics.

NAME: AMERICAN OPTICAL	NAME: AMERICAN PACEMAKER	NAME: AMERICAN TECHNOLOGY	NAME: ARCO	NAME: BIOTEC S.P.A	NAME: BIOTELEMETRIC	NAME: BIOTRONIK	NAME: CARDIAC CONTROL SYSTEMS
NAME: CARDIAC DATACORP	NAME: CARDIAC PACE (CPI)	NAME: CARDIO-PACE	NAME: CARDIOFRANCE	NAME: COOK	NAME: CORATOMIC	NAME: CORDIS	NAME: CORDIS EUROPA
NAME: CORPOREL	NAME: CPM	NAME: DAIG CORPORATION	NAME: EDWARDS	NAME: ELA MEDICAL	NAME: GENERAL ELECTRIC	NAME: HEWLETT-PACKARD	NAME: INSTROMEDIX
NAME: INTERMEDICS	NAME: LEM BIOMEDICA	NAME: MANSFIELD	NAME: MED TECH	NAME: MEDCOR	NAME: MEDLIFE	NAME: MEDTRONIC	NAME: OMIKRON
NAME: OSCOR MEDICAL	NAME: PACESETTER	NAME: PDC	NAME: PRECIMED	NAME: SAFELINE	NAME: SIEMENS ELEMA	NAME: SORIN BIOMEDICA	NAME: STIMTECH
NAME: SURVIVAL TECHNOLOGY	NAME: TELECTRONICS	NAME: UNKNOWN	NAME: VALLEY LABS	NAME: VASCULAR PRODUCTS	NAME: VITATRON