STANDARD DATA DICTIONARY #698.2 -- A LEAD IMPLANT FILE 9/29/25 PAGE 1
STORED IN ^MCAR(698.2, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This holds the A Lead Implant/Explant information for Pacemaker.
DD ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: MEDICAL PATIENT (#1)
POINTED TO BY: RESULT field (#11) of the REQUEST/CONSULTATION File (#123)
ASSOCIATED RESULTS field (#.01) of the ASSOCIATED RESULTS sub-field (#123.03) of the REQUEST/CONSULTATION File
(#123)
CROSS
REFERENCED BY: DATE/TIME OF IMPLANT(AC), MEDICAL PATIENT(AD), PCC POINTER(APCE), DATE/TIME OF IMPLANT(B), MEDICAL PATIENT(C)
698.2,.01 DATE/TIME OF IMPLANT 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
This allows analysis based on time.
TECHNICAL DESCR:
ORDER ENTRY TYPE: IDENTIFIER
CROSS-REFERENCE: 698.2^B
1)= S ^MCAR(698.2,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(698.2,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 698.2^AC^MUMPS
1)= S MCARCDIE="^MCAR(698.2," D CHGDTE1^MCARPROC
2)= S MCARCDIE="^MCAR(698.2," D CHGDTE^MCARPROC
This cross-reference makes an entry under the 'AD' index of the MEDICAL PATIENT file (#690) to
record the most recent A lead implant procedure for this patient.
698.2,1 MEDICAL PATIENT 0;2 POINTER TO MEDICAL PATIENT FILE (#690)
HELP-PROMPT: Enter the patient's name, SSN, or other identifier
DESCRIPTION:
Patient's name.
TECHNICAL DESCR:
ORDER ENTRY TYPE: IDENTIFIER
CROSS-REFERENCE: 698.2^C
1)= S ^MCAR(698.2,"C",$E(X,1,30),DA)=""
2)= K ^MCAR(698.2,"C",$E(X,1,30),DA)
This cross-reference allows look-ups by patient.
CROSS-REFERENCE: 698.2^AD^MUMPS
1)= S MCARCDIE="^MCAR(698.2," D CHGPAT^MCARPROC
2)= S MCARCDIE="^MCAR(698.2," D KILL^MCARPROC
This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to
record the most recent A lead implant procedure for this patient.
698.2,2 A LEAD MODEL 0;3 POINTER TO PACEMAKER EQUIPMENT FILE (#698.4)
INPUT TRANSFORM: S DIC("S")="I $P(^MCAR(698.4,+Y,0),U,2)[""A""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 23, 1996
HELP-PROMPT: Enter the manufacturer's production name for this transmitter.
DESCRIPTION:
This field identifies the device by the manufacturer's production name.
TECHNICAL DESCR:
ORDER ENTRY TYPE: DIAGNOSIS
SCREEN: S DIC("S")="I $P(^MCAR(698.4,+Y,0),U,2)[""A"""
EXPLANATION: CHOOSE LEADS THAT ARE A LEAD OR BOTH A AND V LEADS ONLY
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: ^^TRIGGER^698.2^3
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S
DIU=X K Y X ^DD(698.2,2,1,1,1.1) X ^DD(698.2,2,1,1,1.4)
1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^MCAR(698.4,+D0,0)) D0=-1 S Y(101)=$S($D(^MC
AR(698.4,D0,0)):^(0),1:"") S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)
1.4)= S DIH=$S($D(^MCAR(698.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=698.2,DIG=3 D ^DIC
R:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S
DIU=X K Y X ^DD(698.2,2,1,1,2.1) X ^DD(698.2,2,1,1,2.4)
2.1)= S X=DIV X ^DD(698.2,2,1,1,59.2) S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)
2.4)= S DIH=$S($D(^MCAR(698.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=698.2,DIG=3 D ^DIC
R:$O(^DD(DIH,DIG,1,0))>0
59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^MCAR(698.2,D0,0)):^(0),1:""),D0=$P(Y(1),U,3) S:'$D(^
MCAR(698.4,+D0,0)) D0=-1 S Y(101)=$S($D(^MCAR(698.4,D0,0)):^(0),1:"")
CREATE VALUE)= INTERNAL(#2:#2)
DELETE VALUE)= INTERNAL(#2:#2)
FIELD)= #3
This cross-reference triggers the A LEAD MANUFACTURER field (#3).
698.2,3 A LEAD MANUFACTURER 0;4 POINTER TO PACEMAKER MANUFACTURER FILE (#698.6)
HELP-PROMPT: Enter the producer of this transmitter.
DESCRIPTION:
This field identifies the producer of the lead.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the A LEAD MODEL field of the A LEAD IMPLANT File
698.2,4 A LEAD SERIAL NUMBER 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>12!($L(X)<2) X
HELP-PROMPT: ANSWER MUST BE 2-12 CHARACTERS IN LENGTH
DESCRIPTION:
This field identifies the specific device.
TECHNICAL DESCR:
ORDER ENTRY TYPE: DIAGNOSIS
698.2,11 A LEAD THRESHOLD IN VOLTS 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>12)!(X<0)!(X?.E1"."2N.N) X
LAST EDITED: FEB 21, 1990
HELP-PROMPT: Type a Number between 0 and 12, 1 Decimal Digit
DESCRIPTION:
This allows documentation of an initial threshold parameter.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
698.2,12 A LEAD THRESHOLD IN mA's AT .5 0;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>12)!(X<0)!(X?.E1"."2N.N) X
LAST EDITED: FEB 21, 1990
HELP-PROMPT: Type a Number between 0 and 12, 1 Decimal Digit
DESCRIPTION:
This allows documentation of an initial threshold parameter.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
698.2,13 A LEAD RESISTANCE (OHMS) AT 5V 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>1000)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: FEB 21, 1990
HELP-PROMPT: Type a Number between 0 and 1000, 2 Decimal Digits
DESCRIPTION:
This allows documentation of an initial resistance parameter.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
698.2,14 P WAVE AMPLITUDE (MV) 0;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>25)!(X<0)!(X?.E1"."2N.N) X
LAST EDITED: FEB 21, 1990
HELP-PROMPT: Type a Number between 0 and 25, 1 Decimal Digit
DESCRIPTION:
This allows documentation of the initial amplitude parameter.
698.2,15 A LEAD PSA USED 0;10 POINTER TO PACEMAKER EQUIPMENT FILE (#698.4)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(698.4,""C"",""P"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
DESCRIPTION:
This allows documentation of lead implementation.
SCREEN: S DIC("S")="I $D(^MCAR(698.4,""C"",""P"",+Y))"
EXPLANATION: CHOOSE PSA EQUIPMENT TYPE ONLY
698.2,56 EXPLANT DATE 1;1 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
HELP-PROMPT: Enter the date that this apparatus was removed.
DESCRIPTION:
This allows documentation of lead removal.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
698.2,57 A LEAD EXPLANT REASON 1;2 POINTER TO REASON (MEDICINE) FILE (#695.8)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(695.8,""AC"",""L"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
HELP-PROMPT: Enter the reason for this explant/implant procedure.
DESCRIPTION:
This allows documentation of explant rationale.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
SCREEN: S DIC("S")="I $D(^MCAR(695.8,""AC"",""L"",+Y))"
EXPLANATION: CHOOSE REASONS ASSOSCIATED WITH 'LEADS' ONLY
698.2,300 ATTENDING PHYSICIAN 3;1 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 23, 1996
HELP-PROMPT: Enter the attending Physician
DESCRIPTION:
This field identifies the name of the Attending Physician for this A-Lead Implant.
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
EXPLANATION: Only select Providers!
CROSS-REFERENCE: ^^TRIGGER^698.2^701
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698.2,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),
U,1),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(698.2,300,1,1,1.4)
1.4)= S DIH=$S($D(^MCAR(698.2,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=698
.2,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698.2,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),
U,1),X=X S DIU=X K Y X ^DD(698.2,300,1,1,2.1) X ^DD(698.2,300,1,1,2.4)
2.1)= S X=DIV S Y(1)=$S($D(^MCAR(698.2,D0,3)):^(3),1:"") S X=$P(Y(1),U,1),X=X
2.4)= S DIH=$S($D(^MCAR(698.2,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=698
.2,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= INTERNAL(#300)
DELETE VALUE)= INTERNAL(#300)
FIELD)= #701
This trigger sets the primary provider file.
698.2,301 FELLOW-1st 3;2 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 12, 1994
HELP-PROMPT: Enter the 1st Fellow.
DESCRIPTION:
This field identifies the name of a Cardiology Fellow for this A-Lead Implant.
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
EXPLANATION: Only allow Providers!
698.2,302 FELLOW-2nd 3;3 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 12, 1994
DESCRIPTION:
This field identifies the name of a second Cardiology Fellow for this A-Lead Implant.
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
EXPLANATION: Only allow Providers!
698.2,500 COMMENTS 10;0 WORD-PROCESSING #698.21
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
HELP-PROMPT: Enter free-text remarks on this procedure.
DESCRIPTION:
This allows a documentation area of free form.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
698.2,600 PROCEDURE SUMMARY .2;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>79!($L(X)<1) X
LAST EDITED: NOV 21, 1990
HELP-PROMPT: Answer must be 1-79 characters in length. This will appear on the 'Summary of Patient Procedures'.
DESCRIPTION:
This 1-79 character field will be displayed on the medical procedure summary report.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
698.2,601 SUMMARY .2;1 SET (Required)
'A' FOR ABNORMAL;
'N' FOR NORMAL;
LAST EDITED: NOV 21, 1990
DESCRIPTION:
This field summarizes the results of the procedure.
698.2,700 ICD DIAGNOSIS ICD;0 POINTER Multiple #698.22
DESCRIPTION:
This field identifies the ICD Diagnosis(es) for the procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
698.22,.01 ICD DIAGNOSIS 0;1 POINTER TO ICD DIAGNOSIS FILE (#80) (Multiply asked)
LAST EDITED: MAR 10, 1993
DESCRIPTION:
This field identifies an ICD Diagnosis for the procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
CROSS-REFERENCE: 698.22^B
1)= S ^MCAR(698.2,DA(1),"ICD","B",$E(X,1,30),DA)=""
2)= K ^MCAR(698.2,DA(1),"ICD","B",$E(X,1,30),DA)
698.22,.02 NARRATIVE DIAGNOSIS 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
LAST EDITED: JAN 02, 1992
HELP-PROMPT: Answer must be 1-80 characters in length.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
698.2,701 PRIMARY PROVIDER PROV;1 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 25, 1994
DESCRIPTION: This contains the primary provider. It is triggered by another field in the file and is located
here to provider a standard provider location for use in transferring data to the PCC.
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the ATTENDING PHYSICIAN field of the A LEAD IMPLANT File
698.2,900 PCC POINTER PCC;1 POINTER TO VISIT FILE (#9000010)
LAST EDITED: MAY 17, 1996
DESCRIPTION: This field is used to link the Medicine package results with the PCC Visit File for use by
Queryman.
CROSS-REFERENCE: 698.2^APCE
1)= S ^MCAR(698.2,"APCE",$E(X,1,30),DA)=""
2)= K ^MCAR(698.2,"APCE",$E(X,1,30),DA)
Pointer to the Visit file.
698.2,1000 ORIFN OR;1 POINTER TO ORDER FILE (#100)
LAST EDITED: JUL 09, 1991
HELP-PROMPT: Enter the 'Consult Orders' internal file number.
DESCRIPTION: This field contains a pointer to the 'Consult Orders' internal file number, stored in file 100.
This field is entered when results are entered in the Medicine package.
698.2,1001 GMRCO OR;2 POINTER TO REQUEST/CONSULTATION FILE (#123)
LAST EDITED: AUG 16, 1991
HELP-PROMPT: Enter the 'Request/Consultation' internal file number.
DESCRIPTION: This field contains a pointer to the internal number of the consult order stored in the
REQUEST/CONSULTATION file (123). This field is entered when results are entered in the Medicine
package.
FILES POINTED TO FIELDS
ICD DIAGNOSIS (#80) ICD DIAGNOSIS:ICD DIAGNOSIS (#.01)
MEDICAL PATIENT (#690) MEDICAL PATIENT (#1)
NEW PERSON (#200) ATTENDING PHYSICIAN (#300)
FELLOW-1st (#301)
FELLOW-2nd (#302)
PRIMARY PROVIDER (#701)
ORDER (#100) ORIFN (#1000)
PACEMAKER EQUIPMENT (#698.4) A LEAD MODEL (#2)
A LEAD PSA USED (#15)
PACEMAKER MANUFACTURER (#698.6) A LEAD MANUFACTURER (#3)
REASON (MEDICINE) (#695.8) A LEAD EXPLANT REASON (#57)
REQUEST/CONSULTATION (#123) GMRCO (#1001)
VISIT (#9000010) PCC POINTER (#900)
INPUT TEMPLATE(S):
MCBLA-LEAD IMP MAR 09, 1993@09:44 USER #0
MCFLA-LEAD IMP JAN 14, 1992@12:32 USER #0
PRINT TEMPLATE(S):
MCAROPA MAY 13, 1996@10:22 USER #0 ^MCAROPA @
MCARPACALEADBRPR MAY 13, 1996@10:23 USER #0 ^MCOBPA @
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):