STANDARD DATA DICTIONARY #698 -- GENERATOR IMPLANT FILE 3/24/25 PAGE 1
STORED IN ^MCAR(698, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file is used to hold the Generator Implant/Explant data for the Pacemaker portion of the Medicine package.
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,.01 DATE/TIME OF IMPLANT 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 12, 1989
HELP-PROMPT: ENTER THE DATE/TIME THAT THE IMPLANT WAS DONE
DESCRIPTION:
This allows analysis based on time.
TECHNICAL DESCR:
ORDER ENTRY TYPE: IDENTIFIER
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 698^B
1)= S ^MCAR(698,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(698,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 698^AC^MUMPS
1)= S MCARCDIE="^MCAR(698," D CHGDTE1^MCARPROC
2)= S MCARCDIE="^MCAR(698," D CHGDTE^MCARPROC
This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to
record the most recent generator implant procedure for this patient.
698,1 MEDICAL PATIENT 0;2 POINTER TO MEDICAL PATIENT FILE (#690) (Required)
LAST EDITED: JAN 12, 1989
HELP-PROMPT: Enter the patient's name, SSN, or other identifier
DESCRIPTION:
Patient's name.
TECHNICAL DESCR:
ORDER ENTRY TYPE: IDENTIFIER
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 698^C
1)= S ^MCAR(698,"C",$E(X,1,30),DA)=""
2)= K ^MCAR(698,"C",$E(X,1,30),DA)
This cross-reference allows look-ups by patient.
CROSS-REFERENCE: 698^AD^MUMPS
1)= S MCARCDIE="^MCAR(698," D CHGPAT^MCARPROC
2)= S MCARCDIE="^MCAR(698," D KILL^MCARPROC
This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to
record the most recent generator implant procedure for this patient.
698,2 PACEMAKER MODEL 0;3 POINTER TO PACEMAKER EQUIPMENT FILE (#698.4)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(698.4,""C"",""G"",+Y))" 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 model.
DESCRIPTION:
This field identifies the device by the manufacturer's production name.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
SCREEN: S DIC("S")="I $D(^MCAR(698.4,""C"",""G"",+Y))"
EXPLANATION: CHOOSE GENERATORS ONLY
CROSS-REFERENCE: ^^TRIGGER^698^3
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S D
IU=X K Y X ^DD(698,2,1,1,1.1) X ^DD(698,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,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=698,DIG=3 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,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S D
IU=X K Y X ^DD(698,2,1,1,2.1) X ^DD(698,2,1,1,2.4)
2.1)= S X=DIV X ^DD(698,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,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=698,DIG=3 D ^DICR:$O
(^DD(DIH,DIG,1,0))>0
59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^MCAR(698,D0,0)):^(0),1:""),D0=$P(Y(1),U,3) S:'$D(^MC
AR(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-refference triggers the PACEMAKER MANUFACTURER field (#3).
698,3 PACEMAKER MANUFACTURER 0;4 POINTER TO PACEMAKER MANUFACTURER FILE (#698.6)
HELP-PROMPT: Enter the name of the producer of this pacemaker.
DESCRIPTION:
This field identifies the producer of the pacemaker.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the PACEMAKER MODEL field of the GENERATOR IMPLANT File
698,4 PACEMAKER 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: UNKNOWN
698,6 PACING MODE 0;6 SET
'1' FOR AAI;
'2' FOR VVI;
'3' FOR DDD;
'4' FOR DVI;
'5' FOR AAT;
'6' FOR VVT;
'7' FOR VAT;
'8' FOR VDD;
'9' FOR AOO;
'10' FOR VOO;
'11' FOR DOO;
'12' FOR OTHER;
'13' FOR VVIR;
LAST EDITED: APR 09, 1992
HELP-PROMPT: Enter a code indicating the pacing mode of this unit.
DESCRIPTION:
This defines the operation established with the device.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
698,6.1 OTHER PACING MODE EXPLANATION 4;11 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<3) X
LAST EDITED: APR 09, 1992
HELP-PROMPT: Answer must be 3-60 characters in length.
DESCRIPTION: This field permits an explanation of the pacing mode if "OTHER" is chosen at the PACING MODE
prompt. It does not apply if anything besides "OTHER" is chosen at the PACING MODE prompt.
698,7 HOSP WHERE IMPLANT OCCURRED 0;8 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: DEC 30, 1993
HELP-PROMPT: Enter the name of the hospital where this implat was performed.
DESCRIPTION:
This field identifies the facility where the implant procedure was performed.
698,12 TRANSMITTER MODEL 1;3 POINTER TO PACEMAKER EQUIPMENT FILE (#698.4)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(698.4,""C"",""T"",+Y))" 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.
SCREEN: S DIC("S")="I $D(^MCAR(698.4,""C"",""T"",+Y))"
EXPLANATION: CHOOSE TELEPHONE TRANSMITTERS ONLY
CROSS-REFERENCE: ^^TRIGGER^698^13
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698,D0,1)):^(1),1:"") S X=$P(Y(1),U,4),X=X S D
IU=X K Y X ^DD(698,12,1,1,1.1) X ^DD(698,12,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,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,4)=DIV,DIH=698,DIG=13 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,D0,1)):^(1),1:"") S X=$P(Y(1),U,4),X=X S D
IU=X K Y X ^DD(698,12,1,1,2.1) X ^DD(698,12,1,1,2.4)
2.1)= S X=DIV X ^DD(698,12,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,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,4)=DIV,DIH=698,DIG=13 D ^DICR:$
O(^DD(DIH,DIG,1,0))>0
59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^MCAR(698,D0,1)):^(1),1:""),D0=$P(Y(1),U,3) S:'$D(^MC
AR(698.4,+D0,0)) D0=-1 S Y(101)=$S($D(^MCAR(698.4,D0,0)):^(0),1:"")
CREATE VALUE)= INTERNAL(#12:#2)
DELETE VALUE)= INTERNAL(#12:#2)
FIELD)= #13
This cross-reference triggers the TRANSMITTER MANUFACTURER field (#13).
698,13 TRANSMITTER MANUFACTURER 1;4 POINTER TO PACEMAKER MANUFACTURER FILE (#698.6)
HELP-PROMPT: Enter the producer of this transmitter.
DESCRIPTION:
This field identifies the producer of the transmitter.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the TRANSMITTER MODEL field of the GENERATOR IMPLANT File
698,14 LEADS (A,V,AV) 0;7 SET (Required)
'A' FOR ATRIAL;
'V' FOR VENTRICULAR;
'AV' FOR BOTH A & V;
LAST EDITED: APR 24, 1989
HELP-PROMPT: Specify whether (A)trial and/or (V)entricular conductors were established.
DESCRIPTION:
This describes the placement/type of conductors established.
698,19 IMPLANTATION ETIOLOGY 0;11 SET
'1' FOR CONDUCTION TISSUE FIBROSIS;
'2' FOR ISCHEMIA;
'3' FOR POST INFARCTION;
'4' FOR SURGICAL;
'5' FOR CONGENITAL;
'6' FOR MYOCARDIOPATHY;
'7' FOR VALVULAR HEART DISEASE;
'8' FOR CAROTID SINUS SYNDROME;
'9' FOR IDIOPATHIC;
'10' FOR OTHER;
LAST EDITED: FEB 07, 1989
HELP-PROMPT: Enter a code based on the patient's history leading to this procedure.
DESCRIPTION:
This allows for the storage of historical patient data.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
698,30 FIRST SCHEDULED F/U VISIT 0;12 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
HELP-PROMPT: Enter the date of the first scheduled follow-up visit.
DESCRIPTION:
This allows documentation of the primary visit.
698,32 NON-MAG RATE AT BEGIN-OF-LIFE 4;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>150)!(X<40)!(X?.E1"."2N.N) X
LAST EDITED: FEB 11, 1991
HELP-PROMPT: Type a Number between 40 and 150, 1 Decimal Digit
DESCRIPTION:
This allows documentation of initial rate.
698,34 MAGNET RATE AT BEGIN-OF-LIFE 4;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>150)!(X<40)!(X?.E1"."2N.N) X
LAST EDITED: FEB 11, 1991
HELP-PROMPT: Type a Number between 40 and 150, 1 Decimal Digit
DESCRIPTION:
This allows documentation of initial rate.
698,36 NON-MAG PULSE WIDTH AT B-O-L 4;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>3)!(X<.1)!(X?.E1"."3N.N) X
LAST EDITED: FEB 21, 1990
HELP-PROMPT: Type a Number between .1 and 3, 2 Decimal Digits
DESCRIPTION:
This allows documentation of initial width.
698,38 MAGNET PULSE WIDTH AT B-O-L 4;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>3)!(X<.1)!(X?.E1"."3N.N) X
LAST EDITED: FEB 21, 1990
HELP-PROMPT: Type a Number between .1 and 3, 2 Decimal Digits
DESCRIPTION:
This allows documentation of initial width.
698,40 OTHER BEGIN-OF-LIFE INDICATOR 4;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<3) X
HELP-PROMPT: ANSWER MUST BE 3-25 CHARACTERS IN LENGTH
DESCRIPTION:
This allows other initial documentation.
698,42 NON-MAG RATE AT END-OF-LIFE 4;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>150)!(X<20)!(X?.E1"."2N.N) X
LAST EDITED: FEB 11, 1991
HELP-PROMPT: Type a Number between 20 and 150, 1 Decimal Digit
DESCRIPTION:
This allows documentation of terminal rate.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
698,44 MAGNET RATE AT END-OF-LIFE 4;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>150)!(X<20)!(X?.E1"."2N.N) X
LAST EDITED: FEB 11, 1991
HELP-PROMPT: Type a Number between 20 and 150, 1 Decimal Digit
DESCRIPTION:
This allows documentation of terminal rate.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
698,46 NON-MAG PULSE WIDTH AT E-O-L 4;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>3)!(X<.1)!(X?.E1"."3N.N) X
LAST EDITED: FEB 21, 1990
HELP-PROMPT: Type a Number between .1 and 3, 2 Decimal Digits
DESCRIPTION:
This allows documentation of terminal width.
698,48 MAGNET PULSE WIDTH AT E-O-L 4;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>3)!(X<.1)!(X?.E1"."3N.N) X
LAST EDITED: FEB 21, 1990
HELP-PROMPT: Type a Number between .1 and 3, 2 Decimal Digits
DESCRIPTION:
This allows documentation of terminal width.
698,50 OTHER END-OF-LIFE INDICATOR 4;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<3) X
HELP-PROMPT: ANSWER MUST BE 3-25 CHARACTERS IN LENGTH
DESCRIPTION:
This allows documentation of other terminal parameters.
698,70 NO. PULSE GENERATORS 0;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: Type a Number between 1 and 20, 0 Decimal Digits
DESCRIPTION:
This field identifies the sequential value of this generator.
698,75 DATE OF LAST PREVIOUS IMPLANT 0;14 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
HELP-PROMPT: Enter the date of the most recent previous implantation, if any.
DESCRIPTION:
This allows documentation of previous implantations.
698,90 DATE OF INCIPIENT MALFUNCTION 1;6 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
HELP-PROMPT: Enter the date when the unit began to show signs of failure.
DESCRIPTION:
This allows documentation of malfunction date.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
698,93 PACING FAILURE (EKG) 2;0 SET Multiple #698.093 (Add New Entry without Asking)
DESCRIPTION:
This allows documentation of failures.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
698.093,.01 PACING FAILURE (EKG) 0;1 SET (Multiply asked)
'1' FOR LOSS OF CAPTURE;
'2' FOR UNDERSENSING;
'3' FOR OVERSENSING;
'4' FOR RATE DECREASE;
'5' FOR RATE INCREASE;
HELP-PROMPT: Enter the cause of failure as determined by electrocardiogram.
DESCRIPTION:
This allows documentation of failures.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
698.093,1 DATE OF FAILURE 0;2 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
HELP-PROMPT: Enter the date of this failure.
DESCRIPTION:
This allows the user to enter the date of failure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: IDENTIFIER
698,96 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 generator removal.
698,99 REASON FOR GENERATOR CHANGE 1;2 POINTER TO REASON (MEDICINE) FILE (#695.8)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(695.8,""AC"",""P"",+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 change rationale.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
SCREEN: S DIC("S")="I $D(^MCAR(695.8,""AC"",""P"",+Y))"
EXPLANATION: CHOOSE REASONS FOR EXPLANTING PACEMAKERS ONLY
698,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 Generator Implant.
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
CROSS-REFERENCE: ^^TRIGGER^698^701
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698,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,300,1,1,1.4)
1.4)= S DIH=$S($D(^MCAR(698,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=698,D
IG=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,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,
1),X=X S DIU=X K Y X ^DD(698,300,1,1,2.1) X ^DD(698,300,1,1,2.4)
2.1)= S X=DIV S Y(1)=$S($D(^MCAR(698,D0,3)):^(3),1:"") S X=$P(Y(1),U,1),X=X
2.4)= S DIH=$S($D(^MCAR(698,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=698,D
IG=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,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 Generator Implant.
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
698,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 Generator Implant.
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
698,500 COMMENTS 10;0 WORD-PROCESSING #698.01
DESCRIPTION:
This allows a documentation area of free form.
LAST EDITED: JAN 12, 1989
HELP-PROMPT: Enter free-text remarks on this procedure.
DESCRIPTION:
This field identifies the free text documentation area.
698,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 field identifies a required free text summary of the Generator Implant. This summary (up to
79 characters) will appear on the Summary of Patient Procedures.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
698,601 SUMMARY .2;1 SET (Required)
'A' FOR ABNORMAL;
'B' FOR BORDERLINE;
'N' FOR NORMAL;
LAST EDITED: NOV 21, 1990
DESCRIPTION: This field identifies a required summary of the implant (Abnormal,Borderline,Normal). This summary
will appear on the Summary of Patient Procedures.
698,700 ICD DIAGNOSIS ICD;0 POINTER Multiple #698.02
DESCRIPTION:
This field contains the ICD Diagnosis(es) for the procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
698.02,.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.02^B
1)= S ^MCAR(698,DA(1),"ICD","B",$E(X,1,30),DA)=""
2)= K ^MCAR(698,DA(1),"ICD","B",$E(X,1,30),DA)
698.02,.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,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 GENERATOR IMPLANT File
698,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^APCE
1)= S ^MCAR(698,"APCE",$E(X,1,30),DA)=""
2)= K ^MCAR(698,"APCE",$E(X,1,30),DA)
Pointer to the Visit file.
698,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,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)
INSTITUTION (#4) HOSP WHERE IMPLANT OCCURRED (#7)
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) PACEMAKER MODEL (#2)
TRANSMITTER MODEL (#12)
PACEMAKER MANUFACTURER (#698.6) PACEMAKER MANUFACTURER (#3)
TRANSMITTER MANUFACTURER (#13)
REASON (MEDICINE) (#695.8) REASON FOR GENERATOR CHANGE (#99)
REQUEST/CONSULTATION (#123) GMRCO (#1001)
VISIT (#9000010) PCC POINTER (#900)
INPUT TEMPLATE(S):
MCBLGEN.IMPL. MAR 23, 1995@08:33 USER #0
MCFLGEN.IMPL. MAR 23, 1995@08:34 USER #0
PRINT TEMPLATE(S):
MCARPACEGENBRPR MAY 13, 1996@10:17 USER #0 ^MCOBPG @
MCARPG MAY 13, 1996@10:18 USER #0 ^MCAROPG @
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):