STANDARD DATA DICTIONARY #691.1 -- CARDIAC CATHETERIZATION FILE 9/29/25 PAGE 1
STORED IN ^MCAR(691.1, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
THIS FILE STORES THE DATA ON 'CATHERIZATIONS' DONE ON PATIENTS
DD ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: MEDICAL PATIENT (#1)[R]
"X1": W:$D(^("ES")) " ",@("$P($P($C(59)_$S($D(^DD(691.1,1506,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(""ES"")
,U,7)_"":"",2),$C(59),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: MEDICAL PATIENT(AC), DATE/TIME(AD), WT LBS(AE), HT IN(AF), PCC POINTER(APCE), DATE/TIME(B), MEDICAL PATIENT(C),
RELEASE CODE(ES)
691.1,.01 DATE/TIME 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 PATIENT NAME OR DATE AND TIME OF CARDIAC CATHETERIZATION
DESCRIPTION:
This date/time field identifies the catheterization procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: IDENTIFIER
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 691.1^B
1)= S ^MCAR(691.1,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 691.1^AD^MUMPS
1)= S MCARCDIE="^MCAR(691.1," D CHGDTE1^MCARPROC
2)= S MCARCDIE="^MCAR(691.1," D CHGDTE^MCARPROC
This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to
record the most recent cardiac catherization procedure for this patient.
691.1,.02 ID .1;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<2) X
LAST EDITED: APR 08, 1986
HELP-PROMPT: Enter any unique identification number for this catheterization 2-10 characters. SSN need not be
entered since it is already entered.
DESCRIPTION: This field identifies the patient's identification number assigned by the medical facility. In
most cases it is the person's social security number.
691.1,.03 SUMMARY .2;1 SET (Required)
'N' FOR NORMAL;
'A' FOR ABNORMAL;
'B' FOR BORDERLINE;
LAST EDITED: AUG 13, 1987
DESCRIPTION:
This fields contains the gross evaluation of the results of this procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.1,.04 SYMPTOM .3;0 POINTER Multiple #691.43 (Add New Entry without Asking)
DESCRIPTION:
This field contains the patient's physical complaints or symptoms.
691.43,.01 SYMPTOM 0;1 POINTER TO SYMPTOM FILE (#695.5) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $D(^MCAR(695.5,""C"",""CATH"",+Y))!($D(^MCAR(695.5,""C"",""C"",+Y)))" D ^DIC K DIC S
DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 30, 1996
HELP-PROMPT: This entry will match one found in the Symptom file.
DESCRIPTION:
This field contains the patient's physical complaints or symptoms.
SCREEN: S DIC("S")="I $D(^MCAR(695.5,""C"",""CATH"",+Y))!($D(^MCAR(695.5,""C"",""C"",+Y)))"
EXPLANATION: Choose symptoms applying to CATH or Cardiology only
CROSS-REFERENCE:691.43^B
1)= S ^MCAR(691.1,DA(1),.3,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.1,DA(1),.3,"B",$E(X,1,30),DA)
691.1,.05 RISK FACTOR .4;0 POINTER Multiple #691.44 (Add New Entry without Asking)
HELP-PROMPT: This entry will match one found in the Risk Factor file.
DESCRIPTION:
This field contains the morbidity factors which this patient is most susceptible to.
691.44,.01 RISK FACTOR 0;1 POINTER TO PAST HISTORY AND RISK FACTOR FILE (#695.4) (Multiply asked)
LAST EDITED: OCT 07, 1986
HELP-PROMPT: RELEVANT PAST HISTORY
DESCRIPTION:
This field contains the morbidity factors which this patient is most susceptible to.
CROSS-REFERENCE: 691.44^B
1)= S ^MCAR(691.1,DA(1),.4,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.1,DA(1),.4,"B",$E(X,1,30),DA)
691.1,1 MEDICAL PATIENT 0;2 POINTER TO MEDICAL PATIENT FILE (#690) (Required)
LAST EDITED: JUL 10, 1987
DESCRIPTION: This field identifies the name of the patient followed by a space(optional), followed by the first
name, followed by a space, followed by the middle initial.
TECHNICAL DESCR:
ORDER ENTRY TYPE: IDENTIFIER
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 691.1^C
1)= S ^MCAR(691.1,"C",$E(X,1,30),DA)=""
2)= K ^MCAR(691.1,"C",$E(X,1,30),DA)
This cross-reference allows look-ups by patient.
CROSS-REFERENCE: 691.1^AC^MUMPS
1)= S MCARCDIE="^MCAR(691.1," D CHGPAT^MCARPROC Q
2)= S MCARCDIE="^MCAR(691.1," D KILL^MCARPROC Q
This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to
record the most recent cardiac catheterization procedure for this patient.
691.1,1.1 WT LBS 0;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>500)!(X<40)!(X?.E1"."1N.N) X
LAST EDITED: AUG 02, 1989
HELP-PROMPT: Weight in pounds. Enter a number from 40 to 500.
DESCRIPTION:
The weight of the patient at the time of the procedure is stored here.
CROSS-REFERENCE: 691.1^AE^MUMPS
1)= D CATH^MCARBSA
2)= S $P(^MCAR(691.1,DA,0),U,9)="",X="" D B^MCARBSA
This cross-reference computes the patient's body surface area from the patient's height and weight
and inserts the computed value into the BODY SURFACE AREA field (#1.3).
691.1,1.2 HT IN 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>96)!(X<40)!(X?.E1"."1N.N) X
LAST EDITED: AUG 02, 1989
HELP-PROMPT: Height in Inches. Type a number from 40 to 96.
DESCRIPTION:
The height in inches at the time of the procedure.
CROSS-REFERENCE: 691.1^AF^MUMPS
1)= D CATH^MCARBSA
2)= S $P(^MCAR(691.1,DA,0),U,9)="",X="" D B^MCARBSA
This cross-reference computes the patient's body surface area from the patient's height and weight
and inserts the computed value into the BODY SURFACE AREA field (#1.3).
691.1,1.3 BODY SURFACE AREA 0;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: AUG 03, 1989
HELP-PROMPT: Calculated from weight and height fields.
DESCRIPTION:
This field identifies parameter is calculated by height and weight and stored in square meters.
UNEDITABLE
691.1,3 CATH NUMBER 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>9!($L(X)<1) X
LAST EDITED: AUG 02, 1989
HELP-PROMPT: Answer must be 1-9 characters in length.
DESCRIPTION:
This allows the user to enter the cardiac catheterization procedure number.
691.1,4 REFERRING PHYSICIAN/AGENCY 0;5 POINTER TO REFERRING PHYSICIAN/AGENCY FILE (#697.1)
LAST EDITED: MAY 18, 1988
DESCRIPTION:
This allows the user to enter the referring physician/agency/hospital's name.
691.1,5 WARD/CLINIC 0;6 POINTER TO HOSPITAL LOCATION FILE (#44)
LAST EDITED: SEP 13, 1991
DESCRIPTION:
This field identifies the in-house patient address.
691.1,6 CCL LOG PROCEDURE 1;0 POINTER Multiple #691.11 (Add New Entry without Asking)
DESCRIPTION:
This allows the user to enter the cardiac catheterization procedure.
691.11,.01 CCL LOG PROCEDURE 0;1 POINTER TO CATH PROCEDURE FILE (#695.3) (Multiply asked)
LAST EDITED: JUN 29, 1987
DESCRIPTION:
This allows the user to enter the cardiac catheterization procedure.
691.1,7 TECH COMMENT 2;0 WORD-PROCESSING #691.12
DESCRIPTION:
This allows the cardiac cath. technician to enter comments pertaining to the procedure.
DESCRIPTION:
This allows the cardiac cath technician to enter comments pertaining to the procedure.
691.1,8 PROCEDURE 3;0 POINTER Multiple #691.13 (Add New Entry without Asking)
DESCRIPTION:
This allows the user to enter multiple cardiac cath. procedure.
691.13,.01 PROCEDURE 0;1 POINTER TO CATH PROCEDURE FILE (#695.3) (Multiply asked)
LAST EDITED: APR 10, 1996
DESCRIPTION:
This allows the user to enter multiple cardiac cath procedure.
691.1,9 HISTORY 4;0 WORD-PROCESSING #691.14
DESCRIPTION:
This allows the user to enter a brief medical history.
DESCRIPTION:
This allows the user to enter a brief medical history.
691.1,11 HEART MEDICATION 6;0 POINTER Multiple #691.16 (Add New Entry without Asking)
DESCRIPTION: This field documents the cardiac medicines that the patient is taking at the time of this
procedure. (multiple)
691.16,.01 HEART MEDICATION 0;1 POINTER TO MEDICATION FILE (#695) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(695,""C"",""C"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 22, 1988
DESCRIPTION: This field documents the cardiac medicines that the patient is taking at the time of this
procedure. (multiple)
SCREEN: S DIC("S")="I $D(^MCAR(695,""C"",""C"",+Y))"
EXPLANATION: CHOOSE CARDIAC MEDICATIONS ONLY
CROSS-REFERENCE: 691.16^B
1)= S ^MCAR(691.1,DA(1),6,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.1,DA(1),6,"B",$E(X,1,30),DA)
691.16,1 DOSE 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: SEP 03, 1986
HELP-PROMPT: ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
DESCRIPTION:
This allows the user to enter dosage of cardiac medicine given.
691.16,2 FREQUENCY 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<2) X
LAST EDITED: JUN 24, 1987
HELP-PROMPT: ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
DESCRIPTION: This allows the user to enter when/number of times (frequency) patient should be given cardiac
medicine.
691.1,12 PHYSICAL EXAM 7;0 WORD-PROCESSING #691.17
DESCRIPTION:
This allows the user to enter data obtained from medical patient's physical examination.
DESCRIPTION:
This allows the user to enter a data obtain from medical patient's physical examination.
691.1,13 INDICATION 8;0 POINTER Multiple #691.18 (Add New Entry without Asking)
LAST EDITED: AUG 23, 1991
DESCRIPTION:
This allows the user to enter multiple pre-cardiac catheterization diagnoses.
TECHNICAL DESCR:
ORDER ENTRY TYPE: INDICATION
691.18,.01 INDICATION 0;1 POINTER TO MEDICAL DIAGNOSIS/ICD CODES FILE (#697.5) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $D(^MCAR(697.5,""A.CATH"",$P(^MCAR(697.5,+Y,0),U),+Y))",D="A.CATH" D ^DIC K DIC S DIC
=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 23, 1991
DESCRIPTION:
This allows the user to enter multiple pre-cardiac catheterization diagnosis.
TECHNICAL DESCR:
ORDER ENTRY TYPE: INDICATION
SCREEN: S DIC("S")="I $D(^MCAR(697.5,""A.CATH"",$P(^MCAR(697.5,+Y,0),U),+Y))",D="A.CATH"
EXPLANATION: CHOOSE ONLY CODES ASSOSCIATED WITH CATHERIZATIONS
EXECUTABLE HELP:Q:$D(DJJ) N DO S X="?",DIC(0)="X",DIC="^MCAR(697.5,",D="A.CATH" D MIX^DIC1 S D=-1
691.1,15 PREMEDICATION 10;0 SET Multiple #691.2 (Add New Entry without Asking)
DESCRIPTION:
This allows the user to enter multiple pre-cardiac catheterization medications.
691.2,.01 PREMEDICATION 0;1 SET (Multiply asked)
'V' FOR DIAZEPAM;
'B' FOR DIPHENHYDRAMINE;
'S' FOR STEROIDS;
'N' FOR NONE;
DESCRIPTION:
This allows the user to enter multiple pre-cardiac catheterization medications.
691.1,16 VASCULAR ACCESS 11;0 SET Multiple #691.21 (Add New Entry without Asking)
DESCRIPTION:
This allows the user to enter multiple cardiac catheterization vascular accesses.
691.21,.01 VASCULAR ACCESS 0;1 SET (Multiply asked)
'RFA' FOR RIGHT FEMORAL ARTERY;
'RFV' FOR RIGHT FEMORAL VEIN;
'LFA' FOR LEFT FEMORAL ARTERY;
'LFV' FOR LEFT FEMORAL VEIN;
'RBA' FOR RIGHT BRACHIAL ARTERY;
'RBV' FOR RIGHT BRACHIAL VEIN;
'LBA' FOR LEFT BRACHIAL ARTERY;
'LBV' FOR LEFT BRACHIAL VEIN;
DESCRIPTION:
This allows the user to enter multiple cardiac catheterization vascular accesses.
691.1,17 FLUORO TIME 12;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<.1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 23, 1990
HELP-PROMPT: Type a Number between .1 and 99, 0 Decimal Digits
DESCRIPTION:
This allows the user to enter catheterization fluoroscopy time.
691.1,18 USE OF SHEATH 12;2 SET
'A' FOR ARTERY;
'V' FOR VEIN;
'B' FOR BOTH ARTERY AND VEIN;
'N' FOR NEITHER ARTERY NOR VEIN;
DESCRIPTION:
This defines the use of a sheath during cardiac catheterization.
691.1,19 RIGHT HEART CATHETER 12;3 SET
'C' FOR 7F COURNAND;
'Z' FOR 7F ZUCKER;
'S' FOR 7F SWAN GANZ;
'E' FOR 7F EPPENDORF;
DESCRIPTION:
This allows the user to enter the specific right heart catheter used.
691.1,20 LEFT VENTRICULAR CATHETER 13;0 POINTER Multiple #691.22 (Add New Entry without Asking)
DESCRIPTION:
This allows the user to enter multiple left ventricular catheters used.
691.22,.01 LEFT VENTRICULAR CATHETER 0;1 POINTER TO HEART CATHETER FILE (#695.6) (Multiply asked)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter multiple left ventricular catheters used.
691.22,1 ADEQUATE 0;2 SET
'1' FOR ADEQUATE;
'2' FOR POOR;
'3' FOR INADEQUATE;
LAST EDITED: JUN 26, 1987
DESCRIPTION:
This allows the user to enter the adequacy of the left ventricular catheter used.
691.1,21 RIGHT CORONARY CATHETER 14;0 POINTER Multiple #691.23 (Add New Entry without Asking)
DESCRIPTION:
This allows the user to enter multiple right coronary catheters used.
691.23,.01 RIGHT CORONARY CATHETER 0;1 POINTER TO HEART CATHETER FILE (#695.6) (Multiply asked)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter multiple right coronary catheters used.
691.23,1 ADEQUACY OF ENGAGEMENT 0;2 SET
'1' FOR ADEQUATE;
'2' FOR POOR;
'3' FOR INADEQUATE;
LAST EDITED: JUN 26, 1987
DESCRIPTION:
This allows the user to enter the adequacy of the right coronary catheter used.
691.1,22 LEFT CORONARY CATHETER 15;0 POINTER Multiple #691.24 (Add New Entry without Asking)
DESCRIPTION:
This allows the user to enter multiple left coronary catheters used.
691.24,.01 LEFT CORONARY CATHETER 0;1 POINTER TO HEART CATHETER FILE (#695.6) (Multiply asked)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter multiple left coronary catheters used.
691.24,1 ADEQUACY OF ENGAGEMENT 0;2 SET
'1' FOR ADEQUATE;
'2' FOR POOR;
'3' FOR INADEQUATE;
LAST EDITED: JUN 26, 1987
DESCRIPTION:
This allows the user to enter the adequacy of the left coronary catheter used.
691.1,23 AORTOGRAPHY PROJECTION 16;1 SET
'L' FOR LAO;
'R' FOR RAO;
DESCRIPTION:
This field identifies the view of the aortography projection.
691.1,24 OTHER PROCEDURE AND COMMENT 17;0 WORD-PROCESSING #691.25
DESCRIPTION:
This allows the user to enter unspecified procedures and comments.
LAST EDITED: MAY 14, 1996
DESCRIPTION:
This allows the user to enter unspecified procedures and comments.
691.1,25 PROTAMINE 18;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-20 CHARACTERS IN LENGTH DESCRIBING MG OF PROTAMINE ADMINISTERED
DESCRIPTION:
This allows the user to enter the protamine used during the cardiac catheterization.
691.1,26 INTERVENTION 19;0 SET Multiple #691.26
DESCRIPTION:
This allows the user to enter multiple cardiac catheterization interventions.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.26,.01 INTERVENTION 0;1 SET
'1' FOR BASELINE;
'2' FOR POST CONTRAST;
'3' FOR AFTER EXERCISE;
'4' FOR AFTER DRUGS;
'9' FOR OTHER;
LAST EDITED: DEC 16, 1986
DESCRIPTION:
This allows the user to enter multiple cardiac catheterization interventions.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.26,.5 OTHER INTERVENTION COMMENT 2;0 WORD-PROCESSING #691.45
DESCRIPTION:
This allows the user to enter comments about cardiac catheteriztion interventions used.
LAST EDITED: DEC 17, 1986
HELP-PROMPT: Enter an Intervention comment in this word processing field.
DESCRIPTION:
This allows the user to enter comments about cardiac catheterization interventions used.
691.26,1 RA A WAVE 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<-10)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN -10 AND 99
DESCRIPTION:
This allows the user to enter the right atrial A wave pressure.
691.26,2 RA V WAVE 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<-10)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN -10 AND 99
DESCRIPTION:
This allows the user to enter the right atrial V wave pressure.
691.26,3 RA MEAN PRESSURE 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<-10)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN -10 AND 99
DESCRIPTION:
This field identifies the right atrial mean pressure measured in millimeters of mercury.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.26,4 RA SATURATION 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 100
DESCRIPTION:
This allows the user to enter the amount of oxygen in the right atrial blood sample.
691.26,5 RV SYSTOLIC 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUN 24, 1987
HELP-PROMPT: Type a Number between 0 and 200, 0 Decimal Digits
DESCRIPTION:
This allows the user to enter the right ventrical systolic pressure.
691.26,6 RV DIASTOLIC 0;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 100
DESCRIPTION:
This allows the user to enter the right ventrical diastolic pressure.
691.26,7 RV SATURATION 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 100
DESCRIPTION:
This allows the user to enter the amount of oxygen in the right ventricular blood sample.
691.26,8 PA SYSTOLIC 0;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUN 24, 1987
HELP-PROMPT: Type a Number between 0 and 200, 0 Decimal Digits
DESCRIPTION:
This allows the user to enter the pulmonary artery systolic pressure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.26,9 PA DIASTOLIC 0;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 100
DESCRIPTION:
This allows the user to enter the pulmonary artery diastolic pressure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.26,10 PA MEAN 0;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 100
DESCRIPTION:
This allows the user to enter the pulmonary artery mean pressure in millimeters of mercury.
691.26,11 PA SATURATION 0;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 100
DESCRIPTION:
This allows the user to enter the amount of oxygen found in the pulmonary artery blood sample.
691.26,12 PCW A WAVE 0;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 100
DESCRIPTION:
This allows the user to enter the pulmonary capillary A wave pressure.
691.26,13 PCW V WAVE 0;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 100
DESCRIPTION:
This allows the user to enter the pulmonary capillary V wave pressure.
691.26,14 PCW MEAN 0;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 100
DESCRIPTION:
This allows the user to enter the pulmonary capillary mean pressure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.26,15 LA A WAVE 0;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 100
DESCRIPTION:
This allows the user to enter the left atrial A wave pressure.
691.26,16 LA V WAVE 0;17 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 100
DESCRIPTION:
This allows the user to enter the left atrial V wave pressure.
691.26,17 LA MEAN PRESSURE 0;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 100
DESCRIPTION:
This allows the user to enter the left atrial mean pressure.
691.26,18 LA SATURATION 0;19 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 100
DESCRIPTION:
This allows the user to enter the amount of oxygen found in the left atrial blood sample.
691.26,19 LV PRE A 0;20 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 99
DESCRIPTION:
This allows the user to enter the left ventricular pre-wave A pressure.
691.26,20 LV END DIASTOLIC (Z) 0;21 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 99
DESCRIPTION:
This allows the user to enter the left ventricular end diastolic post contrast.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.26,21 LV SYSTOLIC 0;22 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>300)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 300
DESCRIPTION:
This allows the user to enter the left ventricular systolic post contrast pressure.
691.26,22 LV SATURATION 0;23 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 99
DESCRIPTION:
This allows the user to enter the amount of oxygen found in the left ventricular blood sample.
691.26,23 LV SYSTOLIC POST CONTRAST 0;24 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>300)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 300
DESCRIPTION:
This allows the user to enter the left ventricular systolic post contrast pressure.
691.26,24 LV PRE A POST CONTRAST 0;25 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 99
DESCRIPTION:
This allows the user to enter the left ventricular pre-A wave post contrast.
691.26,25 LV END DIAST (Z) POST CONTRAST 0;26 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 99
DESCRIPTION:
This allows the user to enter the left ventricular end diastolic post contrast.
691.26,26 LV SATURATION POST CONTRAST 0;27 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 99
DESCRIPTION: This allows the user to enter the amount of oxygen found in the left ventricular post contrast
blood sample.
691.26,27 AORTIC SYSTOLIC 1;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>300)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 300
DESCRIPTION:
This allows the user to enter the aortic systolic pressure.
691.26,28 AORTIC DIASTOLIC 1;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>300)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 300
DESCRIPTION:
This allows the user to enter the aortic diastolic pressure.
691.26,29 AORTIC MEAN PRESSURE 1;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>300)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 300
DESCRIPTION:
This allows the user to enter the aortic mean pressure measured in millimeters or mercury.
691.26,30 AORTIC SATURATION 1;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 100
DESCRIPTION:
This allows the user to enter the amount of oxygen found in the aortic blood sample.
691.26,31 SVC PRESSURE 1;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 100
DESCRIPTION:
This allows the user to enter the superior vena cava pressure.
691.26,32 SVC SATURATION 1;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 99
DESCRIPTION: This allows the user to enter the amount of oxygen found in the superior vena cava blood
sample.
691.26,33 IVC MEAN PRESSURE 1;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 100
DESCRIPTION:
This allows the user to enter the inferior vena cava mean pressure.
691.26,34 IVC SATURATION 1;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 100
DESCRIPTION: This allows the user to enter the amount of oxygen found in the inferior vena cava blood
sample.
691.26,35 C O, ASSUMED FICK, L/MIN 1;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>20)!(X<0)!(X?.E1"."3N.N) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 20, 2 DECIMAL PLACES ALLOWED
DESCRIPTION: This allows the user to enter cardiac output, assuming fick is a method of performing cardiac
output.
691.26,36 C I, ASS FICK L/MIN/M2 ; COMPUTED
MUMPS CODE: S Y(691.26,36,2)=$S($D(^MCAR(691.1,D0,0)):^(0),1:""),Y(691.26,36,1)=$S($D(^MCAR(691.1,D0,19,D1,1)):
^(1),1:"") S X=$P(Y(691.26,36,1),U,9),X=$S($P(Y(691.26,36,2),U,9):X/$P(Y(691.26,36,2),U,9),1:"*****
**") S X=$J(X,0,2)
ALGORITHM: #35/#1.3 (ALWAYS 2 DECIMAL DIGITS)
LAST EDITED: AUG 31, 1992
DESCRIPTION: This cardiac index is computed from the cardiac output, assuming fick is a method of performing
cardiac output.
691.26,38 C O, INDO GREEN, L/MIN 1;12 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>20)!(X<0)!(X?.E1"."3N.N) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 20, 2 DECIMAL PLACES ALLOWED
DESCRIPTION: This allows the user to enter cardiac output, assuming indo green is a method of measuring cardiac
output.
691.26,39 C I, INDO GREEN, L/MIN/M2 ; COMPUTED
MUMPS CODE: S Y(691.26,39,2)=$S($D(^MCAR(691.1,D0,0)):^(0),1:""),Y(691.26,39,1)=$S($D(^MCAR(691.1,D0,19,D1,1)):
^(1),1:"") S X=$P(Y(691.26,39,1),U,12),X=$S($P(Y(691.26,39,2),U,9):X/$P(Y(691.26,39,2),U,9),1:"****
***") S X=$J(X,0,2)
ALGORITHM: #38/#1.3 (ALWAYS 2 DECIMAL DIGITS)
DESCRIPTION: This field identifies computed from the cardiac output, assuming indo green is a method of
measuring cardiac output.
691.26,40 C O, THERMO, L/MIN 1;14 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>20)!(X<0)!(X?.E1"."3N.N) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 20, 2 DECIMAL PLACES ALLOWED
DESCRIPTION: This allows the user to enter cardiac output, assuming thermo is a method of measuring cardiac
output.
691.26,41 C I, THERMO, L/MIN/M2 ; COMPUTED
MUMPS CODE: S Y(691.26,41,2)=$S($D(^MCAR(691.1,D0,0)):^(0),1:""),Y(691.26,41,1)=$S($D(^MCAR(691.1,D0,19,D1,1)):
^(1),1:"") S X=$P(Y(691.26,41,1),U,14),X=$S($P(Y(691.26,41,2),U,9):X/$P(Y(691.26,41,2),U,9),1:"****
***") S X=$J(X,0,2)
ALGORITHM: #40/#1.3 (ALWAYS 2 DECIMAL DIGITS)
DESCRIPTION: This field identifies computed from the cardiac output, assuming thermo is a method of measuring
cardiac output.
691.26,42 M V AREA, CM2 1;16 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>5)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: JUN 24, 1987
HELP-PROMPT: Type a Number between 0 and 5, 2 Decimal Digits
DESCRIPTION:
This allows the user to enter the mitral valve area, entered in centimeters squared.
691.26,43 M V PEAK GRADIENT 1;17 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>50)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: FEB 26, 1987
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 50, 2 DECIMAL PLACES ALLOWED
DESCRIPTION:
This allows the user to enter the mitral valve peak gradient.
691.26,44 M V MEAN GRADIENT 1;18 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>20)!(X<0)!(X?.E1"."3N.N) X
HELP-PROMPT: mm Mercury from 0 to 20, 2 Decimal Places allowed
DESCRIPTION:
This allows the user to enter the mitral valve mean gradient.
691.26,45 A V AREA, CM2 1;19 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>5)!(X<0)!(X?.E1"."3N.N) X
HELP-PROMPT: TYPE A NUMBER OF SQUARE CENTIMETERS BETWEEN 0 AND 5, 2 DECIMAL PLACES ALLOWED
DESCRIPTION:
This allows the user to enter the aortic valve area, entered in centimeters squared.
691.26,46 A V INDEX, CM2/M2 ; COMPUTED
MUMPS CODE: S Y(691.26,46,2)=$S($D(^MCAR(691.1,D0,0)):^(0),1:""),Y(691.26,46,1)=$S($D(^MCAR(691.1,D0,19,D1,1)):
^(1),1:"") S X=$P(Y(691.26,46,1),U,19),X=$S($P(Y(691.26,46,2),U,9):X/$P(Y(691.26,46,2),U,9),1:"****
***") S X=$J(X,0,2)
ALGORITHM: #45/#1.3 (ALWAYS 2 DECIMAL DIGITS)
DESCRIPTION:
The aortic valve index is calculated from the aortic valve area and the body surface area.
691.26,47 A V PEAK GRADIENT 1;21 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>200)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: FEB 26, 1987
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 200, 2 DECIMAL PLACES ALLOWED
DESCRIPTION:
This allows the user to enter the aortic valve peak gradient.
691.26,48 A V MEAN GRADIENT 1;22 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>200)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: NOV 10, 1987
HELP-PROMPT: Type a Number between 0 and 200, 2 Decimal Digits
DESCRIPTION:
This allows the user to enter the aortic valve mean gradient.
691.26,49 SYSTEMIC FLOW 1;23 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 100, 2 DECIMAL PLACES ALLOWED
DESCRIPTION: This allows the user to enter the systemic flow, the blood flow on the left side of the cardiac
system.
691.26,50 PULMONARY FLOW 1;24 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 100, 2 DECIMAL PLACES ALLOWED
DESCRIPTION: This allows the user to enter the pulmonary flow, the blood flow on the right side of the cardiac
system.
691.26,51 P/S RATIO 1;25 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 100, 2 DECIMAL PLACES ALLOWED
DESCRIPTION:
This field identifies to the pulmonary flow/systemic flow ratio.
691.26,52 L-R SHUNT 1;26 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
HELP-PROMPT: TYPE A NUMBER OF MM OF MERCURY BETWEEN 0 AND 100, 2 DECIMAL PLACES ALLOWED
DESCRIPTION: This allows the user to enter the L-R shunt, which refers to the abnormal flow where the
interventricular septum or atrial septum is involved. These entries are in millimeters of mercury.
691.26,53 R-L SHUNT 1;27 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
HELP-PROMPT: TYPE A NUMBER OF MM OF MERCURY BETWEEN 0 AND 100, 2 DECIMAL PLACES ALLOWED
DESCRIPTION: This allows the user to enter the R-L shunt, which refers to the abnormal flow where the
interventricular septum or atrial septum is involved. These entries are in millimeters of mercury.
691.26,54 PULM RESIST 1;28 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>2000)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 2000
DESCRIPTION:
This field shows the Pulmonary Resistance.
691.26,55 SYSTEMIC RESIST 1;29 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>2000)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 2000
DESCRIPTION:
This field shows the Systemic Resistance.
691.1,27 RCA NORMALITY 20;1 POINTER TO NORMALITY OF CORONARY VESSEL FILE (#695.9)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter the right coronary artery normality.
691.1,28 RCA SEGMENT 21;0 POINTER Multiple #691.27 (Add New Entry without Asking)
DESCRIPTION:
This allows the user to enter multiple right coronary artery segments.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.27,.01 RCA SEGMENT 0;1 POINTER TO SEGMENT OF CORONARY ARTERIES FILE (#696) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I ($P(^(0),U,2)=""R"")!($P(^(0),U,2)=""Y"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 12, 1996
DESCRIPTION:
This allows the user to enter multiple right coronary artery segments.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
SCREEN: S DIC("S")="I ($P(^(0),U,2)=""R"")!($P(^(0),U,2)=""Y"")"
EXPLANATION: RCA Segments only
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
691.27,1 PERCENT NARROWING 0;2 POINTER TO PERCENTAGE LESION FILE (#696.1)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter percent narrowing of the RCA segment.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.27,1.5 PERCENT NARROWING NUMBER 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: AUG 23, 1994
HELP-PROMPT: Type in a percent.
DESCRIPTION:
This allow the user tp enter percent narrowing of the RCA segment.
691.27,2 MORPHOLOGY 0;3 POINTER TO LESION MORPHOLOGY FILE (#696.2)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter the lesion morphology.
691.1,29 RCA DISTAL VESSEL 22;1 POINTER TO MORPHOLOGY OF DISTAL VESSEL FILE (#696.3)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter the right coronary artery distal vessel.
691.1,30 RCA COLLATERAL 22;2 SET
'P' FOR PRESENT;
'N' FOR NOT PRESENT;
DESCRIPTION:
This allows the user to enter the right coronary artery collateral vessel.
691.1,31 RCA ORIGIN OF COLLATERAL 23;0 POINTER Multiple #691.28 (Add New Entry without Asking)
DESCRIPTION:
This allows the user to enter multiple right coronary artery origins of collateral vessels.
691.28,.01 RCA ORIGIN OF COLLATERAL 0;1 POINTER TO SEGMENT OF CORONARY ARTERIES FILE (#696) (Multiply asked)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter multiple right coronary artery origin of collateral vessel.
691.28,1 RECEIVING VESSEL 0;2 POINTER TO SEGMENT OF CORONARY ARTERIES FILE (#696)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter the receiving vessel.
691.1,32 LEFT MAIN CA NORMALITY 24;1 POINTER TO NORMALITY OF CORONARY VESSEL FILE (#695.9)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter the left main coronary artery normality.
691.1,33 LMCA NARROWING 25;0 POINTER Multiple #691.29 (Add New Entry without Asking)
DESCRIPTION:
This allows the user to enter multiple left main coronary artery narrowings.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.29,.01 LMCA NARROWING 0;1 POINTER TO PERCENTAGE LESION FILE (#696.1) (Multiply asked)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter multiple left main coronary artery narrowing.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.29,1 MORPHOLOGY 0;2 POINTER TO LESION MORPHOLOGY FILE (#696.2)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter lesion morphology.
691.1,33.5 LMCA NARROWING # 25.5;0 Multiple #691.47 (Add New Entry without Asking)
DESCRIPTION:
This allows the user to enter multiple left main coronary artery narrowings.
691.47,.01 LMCA NARROWING # 0;1 NUMBER (Required) (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>99.99)!(X<0)!(X?.E1"."3N.N) X S:$D(X) DINUM=X
LAST EDITED: MAY 16, 1995
HELP-PROMPT: Type a Number between 0 and 99.99, 2 Decimal Digits
DESCRIPTION:
This allows the user to enter a left main coronary artery narrowing.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 691.47^B
1)= S ^MCAR(691.1,DA(1),25.5,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.1,DA(1),25.5,"B",$E(X,1,30),DA)
691.47,1 MORPHOLOGY 0;2 POINTER TO LESION MORPHOLOGY FILE (#696.2)
LAST EDITED: AUG 23, 1994
DESCRIPTION:
This field describes the the disease process which caused the lumenal occlusion.
691.1,34 LAD NORMALITY 26;1 POINTER TO NORMALITY OF CORONARY VESSEL FILE (#695.9)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter the left anterior descending coronary artery normality.
691.1,35 LAD SEGMENT 27;0 POINTER Multiple #691.3 (Add New Entry without Asking)
DESCRIPTION:
This allows the user to enter multiple left anterior descending coronary artery segments.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.3,.01 LAD SEGMENT 0;1 POINTER TO SEGMENT OF CORONARY ARTERIES FILE (#696) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)=""L""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 26, 1987
DESCRIPTION:
This allows the user to enter multiple left anterior decending coronary artery segments.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
SCREEN: S DIC("S")="I $P(^(0),U,2)=""L"""
EXPLANATION: LAD Segments only
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
691.3,1 PERCENT NARROWING 0;2 POINTER TO PERCENTAGE LESION FILE (#696.1)
LAST EDITED: FEB 10, 1986
DESCRIPTION: This allows the user to enter the percent narrowing of the left anterior descending coronary
artery segment.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.3,1.5 PERCENT NARROWING # 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: AUG 23, 1994
HELP-PROMPT: Type a Number between 0 and 100, 2 Decimal Digits
DESCRIPTION: This field represents the fraction of the vessels lumenal space which has been occluded by
disease.
691.3,2 MORPHOLOGY 0;3 POINTER TO LESION MORPHOLOGY FILE (#696.2)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter the lesion morphology.
691.1,36 LAD DISTAL VESSELS 28;1 POINTER TO MORPHOLOGY OF DISTAL VESSEL FILE (#696.3)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter the left anterior descending distal vessels.
691.1,37 LAD COLLATERALS 28;2 SET
'N' FOR NONE;
'P' FOR PRESENT;
DESCRIPTION:
This allows the user to enter left anterior descending collateral vessels.
691.1,38 LAD ORIGIN OF COLLATERALS 29;0 POINTER Multiple #691.31 (Add New Entry without Asking)
DESCRIPTION: This allows the user to enter the left anterior descending arterial origin of collaterals
(multiple).
691.31,.01 LAD ORIGIN OF COLLATERALS 0;1 POINTER TO SEGMENT OF CORONARY ARTERIES FILE (#696) (Multiply asked)
LAST EDITED: FEB 10, 1986
DESCRIPTION: This allows the user to enter the left anterior descending arterior origin of collaterals
(multple).
691.31,1 RECEIVING VESSEL 0;2 POINTER TO SEGMENT OF CORONARY ARTERIES FILE (#696)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter the receiving vessel.
691.1,39 CIRCUMFLEX NORMALITY 30;1 POINTER TO NORMALITY OF CORONARY VESSEL FILE (#695.9)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter the circumflex coronary normality.
691.1,40 CIRCUMFLEX SEGMENT 31;0 POINTER Multiple #691.32 (Add New Entry without Asking)
DESCRIPTION:
This allows the user to enter multiple circumflex artery segments.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.32,.01 CIRCUMFLEX SEGMENT 0;1 POINTER TO SEGMENT OF CORONARY ARTERIES FILE (#696) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I ($P(^(0),U,2)=""C"")!($P(^(0),U,2)=""Y"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 26, 1987
DESCRIPTION:
This allows the user to enter multiple circumflex artery segments.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
SCREEN: S DIC("S")="I ($P(^(0),U,2)=""C"")!($P(^(0),U,2)=""Y"")"
EXPLANATION: Circumflex Segments only
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
691.32,1 PERCENT NARROWING 0;2 POINTER TO PERCENTAGE LESION FILE (#696.1)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter the percent narrowing of the circumflex artery segment.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.32,1.5 PERCENT NARROWING # 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: AUG 23, 1994
HELP-PROMPT: Type a Percentage between 0 and 100, 2 Decimal Digits
DESCRIPTION:
This allows the user to enter the percent narrowing of the circumflex artery segment.
691.32,2 MORPHOLOGY 0;3 POINTER TO LESION MORPHOLOGY FILE (#696.2)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter the lesion morphology.
691.1,41 CIRCUMFLEX DISTAL VESSEL 32;1 POINTER TO MORPHOLOGY OF DISTAL VESSEL FILE (#696.3)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter circumflex coronary artery distal vessels.
691.1,42 CIRCUMFLEX COLLATERALS 32;2 SET
'N' FOR NONE;
'P' FOR PRESENT;
DESCRIPTION:
This allows the user to enter the circumflex coronary artery collaterals.
691.1,43 CIR. ORIGIN OF COLLATERALS 33;0 POINTER Multiple #691.33 (Add New Entry without Asking)
DESCRIPTION:
This allows the user to enter the origin of circumflex collaterals. (multiple)
691.33,.01 ORIGIN OF COLLATERALS 0;1 POINTER TO SEGMENT OF CORONARY ARTERIES FILE (#696) (Multiply asked)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter the origin of circumflex collaterals. (multiple)
691.33,1 RECEIVING VESSEL 0;2 POINTER TO SEGMENT OF CORONARY ARTERIES FILE (#696)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter the receiving vessel.
691.1,44 FLUOROSCOPY 34;0 SET Multiple #691.34 (Add New Entry without Asking)
DESCRIPTION:
This allows the user to enter multiple visualizations of calcium noted during the cardiac cath.
691.34,.01 FLUOROSCOPY 0;1 SET (Multiply asked)
'AV' FOR CALCIUM IN AREA OF AORTIC VALVE;
'MV' FOR CALCIUM IN AREA OF MITRAL VALVE;
'MA' FOR CALCIUM IN AREA OF MITRAL ANNULUS;
'LC' FOR CALCIUM IN AREA OF LEFT CORONARIES;
'RC' FOR CALCIUM IN AREA OF RIGHT CORONARIES;
'NO' FOR NO CALCIUM NOTED;
DESCRIPTION:
This allows the user to enter multiple visualization of calcium noted during the cardiac cath.
691.1,45 DOMINANCE 35;1 SET
'L' FOR LEFT DOMINANCE;
'R' FOR RIGHT DOMINANCE;
'B' FOR BALANCED DOMINANCE;
DESCRIPTION:
This allows the user to enter the dominant coronary tree.
691.1,46 BYPASS GRAFT? 35;2 SET
'N' FOR NOT PRESENT;
'P' FOR PRESENT;
LAST EDITED: AUG 04, 1986
DESCRIPTION:
This allows the user to enter the presence of coronary bypass grafts.
691.1,47 DISTAL ANASTOMOSIS 36;0 POINTER Multiple #691.35 (Add New Entry without Asking)
DESCRIPTION:
This allows the user to enter multiple distal anastomosis.
691.35,.01 DISTAL ANASTOMOSIS 0;1 POINTER TO SEGMENT OF CORONARY ARTERIES FILE (#696) (Multiply asked)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter multiple distal anastamosis.
691.35,1 PERCENTAGE LESION 0;2 POINTER TO PERCENTAGE LESION FILE (#696.1)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter the percentage lesion of the distal anastamosis.
691.35,1.5 PERCENTAGE LESION # 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: AUG 23, 1994
HELP-PROMPT: Type a Percentage between 0 and 100, 2 Decimal Digits
DESCRIPTION:
This allows the user to enter the percentage lesion of the distal anastamosis.
691.35,2 LOCATION OF LESION 0;3 POINTER TO BYPASS GRAFT SEGMENT FILE (#696.4)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter the location of the lesion of the distal anastamosis.
691.1,48 ANGIOPLASTY SEGMENT 37;0 POINTER Multiple #691.36 (Add New Entry without Asking)
DESCRIPTION:
This allows the user to enter multiple angioplasty segments.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.36,.01 SEGMENT IF ANGIOPLASTY DONE 0;1 POINTER TO SEGMENT OF CORONARY ARTERIES FILE (#696) (Multiply asked)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter multiple angioplasty segments.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.36,1 STARTING % OBSTRUCTION 0;2 POINTER TO PERCENTAGE LESION FILE (#696.1)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter the starting percent obstruction.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.36,1.5 STARTING % OBSTRUCTION # 3;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: AUG 23, 1994
HELP-PROMPT: Type Starting Percentage between 0 and 100, 2 Decimal Digits
DESCRIPTION:
This allow the user to enter the starting percent obstruction.
691.36,2 RESULTING % OBSTRUCTION 0;3 POINTER TO PERCENTAGE LESION FILE (#696.1)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter the resulting percent obstruction.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.36,2.5 RESULTING % OBSTRUCTION # 3;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: AUG 23, 1994
HELP-PROMPT: Type in Resulting Percentage between 0 and 100, 2 Decimal Digits
DESCRIPTION:
This allows the user to enter the resulting percent obstruction.
691.36,3 STARTING GRADIENT 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 100 (MM OF MERCURY)
DESCRIPTION:
This allows the user to enter the starting gradient.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.36,4 RESULTING GRADIENT 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 100 (MM OF MERCURY)
DESCRIPTION:
This allows the user to enter the resulting gradient.
691.36,5 INFLATION PRESSURE IN ATM 1;0 Multiple #691.37
DESCRIPTION:
This allows the user to enter inflation pressure in ATM.
691.37,.01 INFLATION PRESSURE 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 99
DESCRIPTION:
This field identifies between 0 and 99
691.37,1 INFLATION TIME IN SEC. 1;0 Multiple #691.38
DESCRIPTION:
This allows the user to enter the inflation time in seconds.
691.38,.01 INFLATION TIME IN SEC. 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999
DESCRIPTION:
This allows the user to enter the inflation time in seconds
691.36,6 TOTAL INFLATION TIME (SEC) 2;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 20, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 200
DESCRIPTION:
This allows the user to enter the total inflation time in seconds.
691.1,49 LEFT VENTRICULOGRAPHY 38;1 SET
'N' FOR NORMAL;
'A' FOR ABNORMAL;
'G' FOR GLOBAL HYPOKINESIS;
'NO' FOR NOT PERFORMED;
DESCRIPTION:
This field identifies the field used to enter the performance of a left ventriculography.
691.1,50 LEFT VENTRICULAR WALL MOTION 39;0 POINTER Multiple #691.39 (Add New Entry without Asking)
DESCRIPTION:
This allows the user to enter multiple LV wall motion normalities.
691.39,.01 LEFT VENTRICULAR WALL MOTION 0;1 POINTER TO LEFT VENTRICULOGRAPHY FILE (#696.5) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)",D="D",DIC("W")="W ?10,$P(^(0),U)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 23, 1991
DESCRIPTION:
This allows the user to enter multiple LV wall motion normality.
SCREEN: S DIC("S")="I $P(^(0),U,2)",D="D",DIC("W")="W ?10,$P(^(0),U)"
EXPLANATION: CHOOSES AND ORDERS HEART LOCATIONS
EXECUTABLE HELP:Q:$D(DJJ) N DO S X="?",DIC(0)="X",DIC="^MCAR(696.5,",D="D",DIC("W")="W ?10,$P(^(0),U)" D MIX^DIC1
S D=-1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
691.39,1 DESCRIPTION 0;2 SET
'1' FOR NORMAL;
'2' FOR HYPOKINETIC;
'3' FOR AKINETIC;
'4' FOR DYSKINETIC;
'5' FOR ANEURYSMAL;
'6' FOR MILDLY HYPOKINETIC;
'7' FOR SEVERELY HYPOKINETIC;
LAST EDITED: MAR 27, 1996
DESCRIPTION:
This allows the user to describe by codes the left ventricular wall motion.
SCREEN: S DIC("S")="I Y'=2"
EXPLANATION: ENTRY OF 2-'HYPOKINETIC' NO LONGER ALLOWED, BUT WILL REMAIN FOR PRINT PURPOSES OF PAST DATA. USE '6
' OR '7' FOR HYPOKINETIC ENTRY
691.1,51 MITRAL REGURGITATION 40;1 POINTER TO MITRAL REGURG ON LV GRAM FILE (#696.7)
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This allows the user to enter the presence of mitral regurgitation.
691.1,51.5 MITRAL REGURGITANT FRACTION 40;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUN 24, 1987
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
This allows the user to enter the mitral regurgitation fraction.
691.1,51.6 AORTIC REGURGITANT FRACTION 40;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUN 24, 1987
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
This allows the user to enter aortic regurgitant fraction.
691.1,51.7 TOTAL REGURGITANT FRACTION 40;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUN 24, 1987
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
This defines the computed total regurgitant fraction.
691.1,52 THROMBUS OM LV GRAM 40;2 SET
'Y' FOR YES;
'N' FOR NO;
DESCRIPTION:
This allows the user to enter presence of a LV thrombus.
691.1,53 LV EJECTION FRACTION 40;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUN 29, 1987
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
This allows the user to enter the calculated LV ejection fraction.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.1,54 AORTOGRAPHY 40;4 SET
'0' FOR NONE;
'1' FOR 1+;
'2' FOR 2+;
'3' FOR 3+;
'4' FOR 4+;
'5' FOR 5+;
DESCRIPTION:
This allows the user to enter the aortography projection.
691.1,55 AORTIC ROOT 40;5 SET
'N' FOR NORMAL;
'D' FOR DILATED;
LAST EDITED: MAR 27, 1996
DESCRIPTION:
This allows the user to enter the aortic root dimensions normality.
691.1,56 SINUSES OF VALSALVA 40;6 SET
'2' FOR 2 SINUSES OF VALSALVA;
'3' FOR 3 SINUSES OF VALSALVA;
LAST EDITED: APR 14, 1988
DESCRIPTION:
This allows the user to enter number of sinuses of valsalva.
691.1,57 BYPASS GRAFTS 40;7 SET
'0' FOR NONE;
'1' FOR ONE;
'2' FOR TWO;
'3' FOR THREE;
'4' FOR FOUR;
'5' FOR FIVE;
DESCRIPTION:
This allows the user to enter number of coronary bypass grafts.
691.1,58 COMPLICATION 41;0 POINTER Multiple #691.4 (Add New Entry without Asking)
DESCRIPTION:
This allows the user to enter multiple cardiac cath. complications.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.4,.01 COMPLICATION 0;1 POINTER TO COMPLICATION FILE (#696.9) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(696.9,""C"",""C"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 14, 1988
DESCRIPTION:
This allows the user to enter multiple cardiac cath complication.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
SCREEN: S DIC("S")="I $D(^MCAR(696.9,""C"",""C"",+Y))"
EXPLANATION: CHOOSE ONLY COMPLICATIONS ASSOSCIATED WITH CARDIAC CATHERIZATIONS
691.1,59 INTERPRETATION 42;1 POINTER TO INTERPRETATION FILE (#693.2)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 09, 1990
HELP-PROMPT: Enter the interpretation of the cardiac cath procedure.
DESCRIPTION:
This allows the user to enter the final interpretation of the cardiac cath.
SCREEN: S DIC("S")="I $P(^(0),U,2)=""C"""
EXPLANATION: CHOOSES CATHETERIZATION CODES ONLY
691.1,60 CONCLUSION 43;0 WORD-PROCESSING #691.41
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
DESCRIPTION:
This allows the user to enter specific statements inreference to the cardiac cath.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.1,61 PLAN 44;0 WORD-PROCESSING #691.42
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
DESCRIPTION:
This allows the user to enter specific statements inreference to the patients management plan.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.1,62 CARDIOLOGY FELLOW 45;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: MAY 09, 1996
DESCRIPTION:
This allows the user to enter the primary cardiology fellow.
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
EXPLANATION: Check if this person holds the PROVIDER key.
691.1,63 CARDIOLOGY STAFF 45;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: MAY 09, 1996
DESCRIPTION:
This allows the user to enter the primary physician in attendance.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
EXPLANATION: Check if this person holds the PROVIDER key.
CROSS-REFERENCE: ^^TRIGGER^691.1^701
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691.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(691.1,63,1,1,1.4)
1.4)= S DIH=$S($D(^MCAR(691.1,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691
.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(691.1,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),
U,1),X=X S DIU=X K Y X ^DD(691.1,63,1,1,2.1) X ^DD(691.1,63,1,1,2.4)
2.1)= S X=DIV S Y(1)=$S($D(^MCAR(691.1,D0,45)):^(45),1:"") S X=$P(Y(1),U,2),X=X
2.4)= S DIH=$S($D(^MCAR(691.1,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691
.1,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= INTERNAL(CARDIOLOGY STAFF)
DELETE VALUE)= INTERNAL(CARDIOLOGY STAFF)
FIELD)= #701
This trigger is used to populate the generic primary provider field, 701.
691.1,64 CARDIOLOGY FELLOW-2ND 5;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: MAY 09, 1996
HELP-PROMPT: Enter name of 2nd Cardiology fellow
DESCRIPTION:
This allows the user to enter the secondary cardiology fellow.
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
EXPLANATION: Check if this person holds the PROVIDER key.
691.1,65 CARDIOLOGY STAFF-2ND 5;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: MAY 09, 1996
HELP-PROMPT: Enter name of 2nd attending physician
DESCRIPTION:
This allows the user to enter the secondary physician in attendance.
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
EXPLANATION: Check if this person holds the PROVIDER key.
691.1,600 PROCEDURE SUMMARY .2;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>79!($L(X)<1) X
LAST EDITED: NOV 28, 1990
HELP-PROMPT: Answer must be 1-79 characters in length. This will appear on the 'Summary of Patient Procedures'.
DESCRIPTION: This field will be displayed in the summary areas of Order Entry/Results Reporting and Health Care
Summaries.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.1,700 ICD DIAGNOSIS ICD;0 POINTER Multiple #691.46
DESCRIPTION:
This field contains the ICD Diagnosis(es) for the procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.46,.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: 691.46^B
1)= S ^MCAR(691.1,DA(1),"ICD","B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.1,DA(1),"ICD","B",$E(X,1,30),DA)
691.46,.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.
DESCRIPTION:
This field allows the provider to add comments to the diagnostic findings.
691.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: MAY 09, 1996
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))"
EXPLANATION: Check if this person holds the PROVIDER key.
NOTES: TRIGGERED by the CARDIOLOGY STAFF field of the CARDIAC CATHETERIZATION File
691.1,899 MARKED FOR DELETION MFD;1 SET
'1' FOR MARKED FOR DELETION;
LAST EDITED: JUL 31, 1992
DESCRIPTION: This field is used by lookup operations to screen out such records from general access by the
electronic medical record. The functionality allows this record to remain in the system for
auditing purposes.
691.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: 691.1^APCE
1)= S ^MCAR(691.1,"APCE",$E(X,1,30),DA)=""
2)= K ^MCAR(691.1,"APCE",$E(X,1,30),DA)
Pointer to the Visit file.
691.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.
691.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.
691.1,1500 ENTERING DUZ ES;1 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: FEB 04, 1993
HELP-PROMPT: The Current person updating the procedure
DESCRIPTION: This field identifies the individual who created this version of the record, the last person to
edit the entree.
691.1,1501 ENTERING ELECTRONIC SIGNATURE ES;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: FEB 04, 1993
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION:
This is the scrambled electronic signature.
691.1,1502 ENTERING DATE ES;3 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 04, 1993
HELP-PROMPT: The Current Date of the update.
DESCRIPTION:
This is the date and time that the record was entered.
691.1,1503 VERIFYING DUZ ES;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: FEB 04, 1993
HELP-PROMPT: The person that sign it.
DESCRIPTION: This is the New Person file identifier of the person releasing the record. The person entering the
electronic signature is captured here.
691.1,1504 VERIFIER ELECTRONIC SIGNATURE ES;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: FEB 04, 1993
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION:
This is the electronic signature of the verifier.
691.1,1505 VERIFIER DATE ES;6 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 04, 1993
HELP-PROMPT: The date that the procedure was signed
DESCRIPTION:
This is the date that the record was verified.
691.1,1506 RELEASE CODE ES;7 SET
'D' FOR DRAFT;
'PD' FOR PROBLEM DRAFT;
'RV' FOR RELEASE ON-LINE VERIFIED;
'ROV' FOR RELEASE OFF-LINE VERIFIED;
'RNV' FOR RELEASE NOT VERIFIED;
'S' FOR SUPERSEDED;
'SRV' FOR SUPERSEDING RELEASE ON-LINE VERIFIED;
'SROV' FOR SUPERSEDING RELEASE OFF-LINE VERIFIED;
LAST EDITED: MAR 04, 1993
HELP-PROMPT: Select the current status of the procedure
DESCRIPTION:
This field controls the release status of the record.
CROSS-REFERENCE: 691.1^ES
1)= S ^MCAR(691.1,"ES",$E(X,1,30),DA)=""
2)= K ^MCAR(691.1,"ES",$E(X,1,30),DA)
This cross-reference allows editing by release status.
691.1,1507 DATE OF RELEASED ES;8 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 04, 1993
HELP-PROMPT: The that the procedure was mad available to non-key holders.
DESCRIPTION:
This is the date that the record was released to the general medical record viewer.
691.1,1508 DATE OF VERIFIED ES;9 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 04, 1993
HELP-PROMPT: The date that the procedure was verified.
DESCRIPTION:
This is the date and time that the procedure was signed electronically.
691.1,1509 SUPERSEDED ES;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 04, 1993
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
DESCRIPTION: This indicator controls the process of superseding released records which require addendums or
changes. This functionality allows an auditing of information which has been available for the
medical record.
691.1,1510 SUPERSEDED BY ES;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 04, 1993
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
DESCRIPTION:
This field directs the flow of supersessions of records.
691.1,1511 MARKED FOR DELETION ES;12 SET
'1' FOR MARKED FOR DELETION;
LAST EDITED: FEB 04, 1993
DESCRIPTION:
This field allows the record to remain in the database but screened from the medical record.
691.1,1512 DELETER DUZ ES;13 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: FEB 04, 1993
DESCRIPTION:
This field documents the identity of the deleter.
691.1,1513 SUPERSEDED DATE ES;14 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: FEB 04, 1993
HELP-PROMPT: Do not enter information in this field
DESCRIPTION:
This is the date and time that the supersession took place.
691.1,1514 RECORD CREATATION DATE ES;15 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 04, 1993
DESCRIPTION:
This field stores the date the original file entry for this procedure was made.
691.1,1515 SUPERSEDED NUMBER ES;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 04, 1993
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
This value documents the sequence number of record revisions.
691.1,2005 IMAGE 2005;0 POINTER Multiple #691.12005
DESCRIPTION:
This field points to an entry in the image file.
691.12005,.01 IMAGE 0;1 POINTER TO IMAGE FILE (#2005) (Multiply asked)
LAST EDITED: FEB 25, 1991
DESCRIPTION:
This field points to an entry in the image file.
CROSS-REFERENCE: 691.12005^B
1)= S ^MCAR(691.1,DA(1),2005,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.1,DA(1),2005,"B",$E(X,1,30),DA)
691.1,2006 RESTING HEART RATE CO;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>150)!(X<30)!(X?.E1"."1N.N) X
LAST EDITED: MAR 06, 1997
HELP-PROMPT: Type a Number between 30 and 150, 0 Decimal Digits
DESCRIPTION:
This field identifies the patient's resting heart rate.
691.1,2007 END DIASTOLIC VOLUME CO;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<.1)!(X?.E1"."2N.N) X
LAST EDITED: MAR 06, 1997
HELP-PROMPT: Enter Number in Milliliters, 1 Decimal Place .1-999
DESCRIPTION:
This allows the user to enter the left ventricular diastolic volume.
691.1,2008 END SYSTOLIC VOLUME CO;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<.1)!(X?.E1"."2N.N) X
LAST EDITED: MAR 06, 1997
HELP-PROMPT: Enter Number of Square Centimeters, 1 Decimal Place .1-999
DESCRIPTION:
This allows the user to enter the left ventricular end systolic volume.
691.1,2009 CARDIAC OUTPUT ; COMPUTED
MUMPS CODE: X ^DD(691.1,2009,9.5) S X=$S(Y(691.1,2009,2):Y(691.1,2009,3),Y(691.1,2009,4):Y(691.1,2009,5),Y(691.
1,2009,6):Y(691.1,2009,7),Y(691.1,2009,8):X)
9.2 = S Y(691.1,2009,1)=$S($D(^MCAR(691.1,D0,"CO")):^("CO"),1:"") S X=$P(Y(691.1,2009,1),U,1)="",Y(
691.1,2009,2)=X S X="",Y(691.1,2009,3)=X S X=$P(Y(691.1,2009,1),U,2)
9.3 = X ^DD(691.1,2009,9.2) S X=X="",Y(691.1,2009,4)=X S X="",Y(691.1,2009,5)=X S X=$P(Y(691.1,2009
,1),U,3)="",Y(691.1,2009,6)=X S X="",Y(691.1,2009,7)=X S X=1
9.4 = X ^DD(691.1,2009,9.3) S Y(691.1,2009,8)=X S X=$P(Y(691.1,2009,1),U,1),Y(691.1,2009,9)=X S X=$
P(Y(691.1,2009,1),U,2)-$P(Y(691.1,2009,1),U,3)
9.5 = X ^DD(691.1,2009,9.4) S Y=X,X=Y(691.1,2009,9),X=X*Y
ALGORITHM: $S(#2006="":"",#2007="":"",#2008="":"",1:#2006*(#2007-#2008))
DESCRIPTION: This field computes the Angiographic Cardiac Output from the Resting Heart Rate (#2006), EDV
(#2007), and ESV (#2008).
The formula used is: Heart_Rate * (EDV - ESV).
FILES POINTED TO FIELDS
BYPASS GRAFT SEGMENT (#696.4) DISTAL ANASTOMOSIS:LOCATION OF LESION (#2)
CATH PROCEDURE (#695.3) CCL LOG PROCEDURE:CCL LOG PROCEDURE (#.01)
PROCEDURE:PROCEDURE (#.01)
COMPLICATION (#696.9) COMPLICATION:COMPLICATION (#.01)
HEART CATHETER (#695.6) LEFT VENTRICULAR CATHETER:LEFT VENTRICULAR CATHETER (#.01)
RIGHT CORONARY CATHETER:RIGHT CORONARY CATHETER (#.01)
LEFT CORONARY CATHETER:LEFT CORONARY CATHETER (#.01)
HOSPITAL LOCATION (#44) WARD/CLINIC (#5)
ICD DIAGNOSIS (#80) ICD DIAGNOSIS:ICD DIAGNOSIS (#.01)
IMAGE (#2005) IMAGE:IMAGE (#.01)
INTERPRETATION (#693.2) INTERPRETATION (#59)
LEFT VENTRICULOGRAPHY (#696.5) LEFT VENTRICULAR WALL MOTION:LEFT VENTRICULAR WALL MOTION (#.01)
LESION MORPHOLOGY (#696.2) RCA SEGMENT:MORPHOLOGY (#2)
LMCA NARROWING:MORPHOLOGY (#1)
LAD SEGMENT:MORPHOLOGY (#2)
CIRCUMFLEX SEGMENT:MORPHOLOGY (#2)
LMCA NARROWING #:MORPHOLOGY (#1)
MEDICAL DIAGNOSIS/ICD CODES
(#697.5) INDICATION:INDICATION (#.01)
MEDICAL PATIENT (#690) MEDICAL PATIENT (#1)
MEDICATION (#695) HEART MEDICATION:HEART MEDICATION (#.01)
MITRAL REGURG ON LV GRAM
(#696.7) MITRAL REGURGITATION (#51)
MORPHOLOGY OF DISTAL VESSEL
(#696.3) RCA DISTAL VESSEL (#29)
LAD DISTAL VESSELS (#36)
CIRCUMFLEX DISTAL VESSEL (#41)
NEW PERSON (#200) CARDIOLOGY FELLOW (#62)
CARDIOLOGY STAFF (#63)
CARDIOLOGY FELLOW-2ND (#64)
CARDIOLOGY STAFF-2ND (#65)
PRIMARY PROVIDER (#701)
ENTERING DUZ (#1500)
VERIFYING DUZ (#1503)
DELETER DUZ (#1512)
NORMALITY OF CORONARY VESSEL
(#695.9) RCA NORMALITY (#27)
LEFT MAIN CA NORMALITY (#32)
LAD NORMALITY (#34)
CIRCUMFLEX NORMALITY (#39)
ORDER (#100) ORIFN (#1000)
PAST HISTORY AND RISK FACTOR
(#695.4) RISK FACTOR:RISK FACTOR (#.01)
PERCENTAGE LESION (#696.1) RCA SEGMENT:PERCENT NARROWING (#1)
LMCA NARROWING:LMCA NARROWING (#.01)
LAD SEGMENT:PERCENT NARROWING (#1)
CIRCUMFLEX SEGMENT:PERCENT NARROWING (#1)
DISTAL ANASTOMOSIS:PERCENTAGE LESION (#1)
ANGIOPLASTY SEGMENT:STARTING % OBSTRUCTION (#1)
RESULTING % OBSTRUCTION (#2)
REFERRING PHYSICIAN/AGENCY
(#697.1) REFERRING PHYSICIAN/AGENCY (#4)
REQUEST/CONSULTATION (#123) GMRCO (#1001)
SEGMENT OF CORONARY ARTERIES
(#696) RCA SEGMENT:RCA SEGMENT (#.01)
RCA ORIGIN OF COLLATERAL:RCA ORIGIN OF COLLATERAL (#.01)
RECEIVING VESSEL (#1)
LAD SEGMENT:LAD SEGMENT (#.01)
LAD ORIGIN OF COLLATERALS:LAD ORIGIN OF COLLATERALS (#.01)
RECEIVING VESSEL (#1)
CIRCUMFLEX SEGMENT:CIRCUMFLEX SEGMENT (#.01)
CIR. ORIGIN OF COLLATERALS:ORIGIN OF COLLATERALS (#.01)
RECEIVING VESSEL (#1)
DISTAL ANASTOMOSIS:DISTAL ANASTOMOSIS (#.01)
ANGIOPLASTY SEGMENT:SEGMENT IF ANGIOPLASTY DONE (#.01)
SYMPTOM (#695.5) SYMPTOM:SYMPTOM (#.01)
VISIT (#9000010) PCC POINTER (#900)
INPUT TEMPLATE(S):
MCARBLCATH MAY 19, 1995@07:14 USER #0
MCARCATH1 JAN 14, 1992@11:55 USER #0
MCARCATHB AUG 20, 1992@09:39 USER #0
MCARCATHBRIEF JUN 16, 1989@12:39 USER #0
MCARFLCATH MAR 06, 1997@15:13 USER #0
MCBLCATH MAR 09, 1993@12:03 USER #0
MCFLCATH MAR 07, 1997@13:08 USER #0
PRINT TEMPLATE(S):
MCARCATH1 MAY 10, 1996@14:35 USER #0 ^MCAROC1 @
First page of the Cardiac Cath report.
MCARCATH2 MAY 14, 1996@09:07 USER #0 ^MCAROC2 @
Second page of the Cardiac Cath report.
MCARCATH3 MAY 10, 1996@14:47 USER #0 ^MCAROC3 @
MCARCATH4 MAR 06, 1997@13:35 USER #0 ^MCAROC4 @
MCARCATHBRPR APR 03, 1996@10:15 USER #0 ^MCOBC1 @
MCCBRZ MAY 10, 1996@14:50 USER #0 @
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):