STANDARD DATA DICTIONARY #698.1 -- V LEAD IMPLANT FILE 6/27/25 PAGE 1
STORED IN ^MCAR(698.1, *** 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 V Lead Implant/Explant information for Pacemaker.
DD ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: MEDICAL PATIENT (#1)[R]
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.1,.01 DATE/TIME OF IMPLANT 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
HELP-PROMPT: ENTER THE DATE/TIME THE V LEAD WAS IMPLANTED
DESCRIPTION:
This field is the date/time that the procedure was entered into the database.
TECHNICAL DESCR:
ORDER ENTRY TYPE: IDENTIFIER
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 698.1^B
1)= S ^MCAR(698.1,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(698.1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 698.1^AC^MUMPS
1)= S MCARCDIE="^MCAR(698.1," D CHGDTE1^MCARPROC
2)= S MCARCDIE="^MCAR(698.1," D CHGDTE^MCARPROC
This cross-reference pakes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to
record the most recent V lead implant procedure for this patient.
698.1,1 MEDICAL PATIENT 0;2 POINTER TO MEDICAL PATIENT FILE (#690) (Required)
LAST EDITED: FEB 02, 1996
HELP-PROMPT: Enter the patient's name, SSN, or other identifier
DESCRIPTION:
This field identifies the field which identifies the patient.
TECHNICAL DESCR:
ORDER ENTRY TYPE: IDENTIFIER
CROSS-REFERENCE: 698.1^C
1)= S ^MCAR(698.1,"C",$E(X,1,30),DA)=""
2)= K ^MCAR(698.1,"C",$E(X,1,30),DA)
This cross-reference allows look-ups by patient.
CROSS-REFERENCE: 698.1^AD^MUMPS
1)= S MCARCDIE="^MCAR(698.1," D CHGPAT^MCARPROC
2)= S MCARCDIE="^MCAR(698.1," D KILL^MCARPROC
This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to
record the most recent V lead implant procedure for this patient.
698.1,2 V 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)[""V""" 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 trasmitter.
DESCRIPTION:
This field identifies the V Lead Model.
TECHNICAL DESCR:
ORDER ENTRY TYPE: DIAGNOSIS
SCREEN: S DIC("S")="I $P(^MCAR(698.4,+Y,0),U,2)[""V"""
EXPLANATION: CHOOSE LEADS THAT ARE V LEADS OR BOTH A AND V LEADS ONLY
CROSS-REFERENCE: ^^TRIGGER^698.1^3
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S
DIU=X K Y X ^DD(698.1,2,1,1,1.1) X ^DD(698.1,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.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=698.1,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.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S
DIU=X K Y X ^DD(698.1,2,1,1,2.1) X ^DD(698.1,2,1,1,2.4)
2.1)= S X=DIV X ^DD(698.1,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.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=698.1,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.1,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 V LEAD MANUFACTURER field (#3).
698.1,3 V LEAD MANUFACTURER 0;4 POINTER TO PACEMAKER MANUFACTURER FILE (#698.6)
HELP-PROMPT: Enter the producer of this transmitter.
DESCRIPTION:
This field identifies the V Lead Manufacturer.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the V LEAD MODEL field of the V LEAD IMPLANT File
698.1,4 V 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 V Lead Serial number.
TECHNICAL DESCR:
ORDER ENTRY TYPE: DIAGNOSIS
698.1,11 V LEAD THRESHOLD IN VOLTS 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>12)!(X<0)!(X?.E1"."2N.N) X
HELP-PROMPT: Type a Number between 0 and 12, 1 Decimal Digit
DESCRIPTION:
This field identifies the V Lead threshold in Volts.
698.1,12 V LEAD THRESHOLD IN mA'S AT .5 0;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>12)!(X<0)!(X?.E1"."2N.N) X
HELP-PROMPT: Type a Number between 0 and 12, 1 Decimal Digit
DESCRIPTION:
This field identifies the V lead threshold.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
698.1,13 V LEAD RESISTANCE (OHMS) AT 5V 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>1000)!(X<0)!(X?.E1"."3N.N) X
HELP-PROMPT: Type a Number between 0 and 1000, 2 Decimal Digits
DESCRIPTION:
This field identifies the V lead resistance.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
698.1,14 R WAVE AMPLITUDE (mV) 0;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>25)!(X<0)!(X?.E1"."2N.N) X
HELP-PROMPT: Type a Number between 0 and 25, 1 Decimal Digit
DESCRIPTION:
This field identifies the R wave amplitude.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
698.1,15 V 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 field identifies the V Lead PSA used.
SCREEN: S DIC("S")="I $D(^MCAR(698.4,""C"",""P"",+Y))"
EXPLANATION: CHOOSE PSA EQUIPMENT TYPE ONLY
698.1,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 field identifies the explant date.
TECHNICAL DESCR:
ORDER ENTRY TYPE: IDENTIFIER
698.1,57 V 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 field identifies the V lead explant rationale.
SCREEN: S DIC("S")="I $D(^MCAR(695.8,""AC"",""L"",+Y))"
EXPLANATION: CHOOSE REASONS THAT APPLY TO LEAD EXPLANT ONLY
698.1,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
DESCRIPTION:
This field identifies the name of the Attending Physician for this V-Lead Implant.
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
CROSS-REFERENCE: ^^TRIGGER^698.1^701
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698.1,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.1,300,1,1,1.4)
1.4)= S DIH=$S($D(^MCAR(698.1,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=698
.1,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.1,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),
U,1),X=X S DIU=X K Y X ^DD(698.1,300,1,1,2.1) X ^DD(698.1,300,1,1,2.4)
2.1)= S X=DIV S Y(1)=$S($D(^MCAR(698.1,D0,3)):^(3),1:"") S X=$P(Y(1),U,1),X=X
2.4)= S DIH=$S($D(^MCAR(698.1,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=698
.1,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.1,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: OCT 25, 1994
DESCRIPTION:
This field identifies the name of a Cardiology Fellow for this V-Lead Implant.
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
698.1,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: OCT 25, 1994
DESCRIPTION:
This field identifies the name of a Second Cardiology Fellow for this V-Lead Implant.
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
698.1,500 COMMENTS 10;0 WORD-PROCESSING #698.11
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
HELP-PROMPT: Enter free-text remarks on this procedure.
DESCRIPTION:
This field identifies the comment field for this procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
698.1,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 is for display on the medicine procedure summary report.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
698.1,601 SUMMARY .2;1 SET (Required)
'A' FOR ABNORMAL;
'N' FOR NORMAL;
LAST EDITED: NOV 21, 1990
DESCRIPTION:
This field identifies the procedure summary.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
698.1,700 ICD DIAGNOSIS ICD;0 POINTER Multiple #698.12
DESCRIPTION:
This field contains the ICD Diagnosis(es) for the procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
698.12,.01 ICD DIAGNOSIS 0;1 POINTER TO ICD DIAGNOSIS FILE (#80) (Multiply asked)
LAST EDITED: MAR 10, 1993
DESCRIPTION:
This field contains an ICD Diagnosis for the procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
CROSS-REFERENCE: 698.12^B
1)= S ^MCAR(698.1,DA(1),"ICD","B",$E(X,1,30),DA)=""
2)= K ^MCAR(698.1,DA(1),"ICD","B",$E(X,1,30),DA)
698.12,.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.1,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 V LEAD IMPLANT File
698.1,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.1^APCE
1)= S ^MCAR(698.1,"APCE",$E(X,1,30),DA)=""
2)= K ^MCAR(698.1,"APCE",$E(X,1,30),DA)
Pointer to the Visit file.
698.1,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.1,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) V LEAD MODEL (#2)
V LEAD PSA USED (#15)
PACEMAKER MANUFACTURER (#698.6) V LEAD MANUFACTURER (#3)
REASON (MEDICINE) (#695.8) V LEAD EXPLANT REASON (#57)
REQUEST/CONSULTATION (#123) GMRCO (#1001)
VISIT (#9000010) PCC POINTER (#900)
INPUT TEMPLATE(S):
MCBLV-LEAD IMP MAR 10, 1993@15:22 USER #0
MCFLV-LEAD IMP MAR 09, 1993@12:01 USER #0
PRINT TEMPLATE(S):
MCAROPV MAY 13, 1996@10:20 USER #0 ^MCAROPV @
MCARPACVLEADBRPR MAY 13, 1996@10:21 USER #0 ^MCOBPV @
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):