STANDARD DATA DICTIONARY #691 -- ECHO FILE 6/27/25 PAGE 1
STORED IN ^MCAR(691, *** 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 data on Echo procedures done on a patient.
DD ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: MEDICAL PATIENT (#1)[R]
"X1": W:$D(^("ES")) " ",@("$P($P($C(59)_$S($D(^DD(691,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: WT LBS(AC), HT IN(AD), MEDICAL PATIENT(AE), DATE/TIME(AF), SEPTUM(AG), POSTERIOR WALL(AH), BODY SURFACE AREA(AI),
LT. VENT. DIASTOLE(AJ), PCC POINTER(APCE), DATE/TIME(B), MEDICAL PATIENT(C), RELEASE CODE(ES)
691,.01 DATE/TIME 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 21, 1996
HELP-PROMPT: ENTER PATIENT NAME OR DATE AND TIME OF ECHO PROCEDURE
DESCRIPTION:
This field identifies the date and time when the echo was taken.
TECHNICAL DESCR:
ORDER ENTRY TYPE: IDENTIFIER
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 691^B
1)= S ^MCAR(691,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 691^AF^MUMPS
1)= S MCARCDIE="^MCAR(691," D CHGDTE1^MCARPROC
2)= S MCARCDIE="^MCAR(691," D CHGDTE^MCARPROC
This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to
record the most recent echo procedure for this patient.
691,.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 ECHO. 2-10 Characters in length. SSN need not be
entered as it is already recorded.
DESCRIPTION: Enter any site specific unique identification number for this ECHO test. No need to enter the SSN.
SSN is already recorded for this ECHO.
691,.03 SUMMARY .2;1 SET (Required)
'N' FOR NORMAL;
'A' FOR ABNORMAL;
'B' FOR BORDERLINE;
LAST EDITED: AUG 13, 1987
DESCRIPTION:
This field identifies the result of the echo procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691,.04 SYMPTOM .3;0 POINTER Multiple #691.08 (Add New Entry without Asking)
DESCRIPTION:
This field identifies the medical patients symptoms listed on the procedure request form.
691.08,.01 SYMPTOM 0;1 POINTER TO SYMPTOM FILE (#695.5) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $D(^MCAR(695.5,""C"",""ECHO"",+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: HISTORY OF PRESENT ILLNESS
DESCRIPTION:
This field identifies the medical patients symptoms listed on the procedure request form.
SCREEN: S DIC("S")="I $D(^MCAR(695.5,""C"",""ECHO"",+Y))!($D(^MCAR(695.5,""C"",""C"",+Y)))"
EXPLANATION: Choose only symptons applying to ECHO or Cardiology
CROSS-REFERENCE:691.08^B
1)= S ^MCAR(691,DA(1),.3,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691,DA(1),.3,"B",$E(X,1,30),DA)
691,.05 RISK FACTOR .4;0 POINTER Multiple #691.09 (Add New Entry without Asking)
DESCRIPTION:
This field identifies the medical patient's risk factors listed on the procedure request form.
691.09,.01 RISK FACTOR 0;1 POINTER TO PAST HISTORY AND RISK FACTOR FILE (#695.4) (Multiply asked)
LAST EDITED: JUL 14, 1986
HELP-PROMPT: RELEVANT PAST HISTORY
DESCRIPTION:
This field identifies the medical patients risk factors listed on the procedure request form.
CROSS-REFERENCE: 691.09^B
1)= S ^MCAR(691,DA(1),.4,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691,DA(1),.4,"B",$E(X,1,30),DA)
691,1 MEDICAL PATIENT 0;2 POINTER TO MEDICAL PATIENT FILE (#690) (Required)
LAST EDITED: JUL 10, 1987
HELP-PROMPT: Enter patient name.
DESCRIPTION:
This field identifies the medical patient's name.
TECHNICAL DESCR:
ORDER ENTRY TYPE: IDENTIFIER
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 691^C
1)= S ^MCAR(691,"C",$E(X,1,30),DA)=""
2)= K ^MCAR(691,"C",$E(X,1,30),DA)
This cross-reference allows look-ups by patient.
CROSS-REFERENCE: 691^AE^MUMPS
1)= S MCARCDIE="^MCAR(691," D CHGPAT^MCARPROC
2)= S MCARCDIE="^MCAR(691," D KILL^MCARPROC
This cross-reference permits access to medical procedures for a patient in date order, from most
recent to least recent.
691,1.1 WT LBS 13;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>500)!(X<40)!(X?.E1"."1N.N) X
LAST EDITED: FEB 10, 1988
HELP-PROMPT: Weight in Lbs. Enter a number from 40 to 500.
DESCRIPTION:
This field identifies the medical patient's weight in pounds.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 691^AC^MUMPS
1)= D ^MCARBSA
2)= S $P(^MCAR(691,DA,13),U,3)="" S X="" D A^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 (#2).
691,1.15 SEX ; COMPUTED
MUMPS CODE: X ^DD(691,1.15,9.4) S X=$P($P(Y(691,1.15,202),$C(59)_$P(Y(691,1.15,201),U,2)_":",2),$C(59),1) S D0=
Y(691,1.15,80)
9.2 = S Y(691,1.15,80)=$S($D(D0):D0,1:""),Y(691,1.15,1)=$S($D(^MCAR(691,D0,0)):^(0),1:""),D0=$P(Y(6
91,1.15,1),U,2) S:'$D(^MCAR(690,+D0,0)) D0=-1 S Y(691,1.15,180)=$S($D(D0):D0,1:"")
9.3 = X ^DD(691,1.15,9.2) S Y(691,1.15,101)=$S($D(^MCAR(690,D0,0)):^(0),1:""),D0=$P(Y(691,1.15,101)
,U,1) S:'$D(^DPT(+D0,0)) D0=-1
9.4 = X ^DD(691,1.15,9.3) S Y(691,1.15,202)=$C(59)_$S($D(^DD(2,.02,0)):$P(^(0),U,3),1:""),Y(691,1.1
5,201)=$S($D(^DPT(D0,0)):^(0),1:"")
ALGORITHM: #1:#.01:SEX
LAST EDITED: MAR 06, 1990
DESCRIPTION:
This code tells the gender of the patient.
691,1.2 HT IN 13;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>96)!(X<40)!(X?.E1"."1N.N) X
LAST EDITED: FEB 10, 1988
HELP-PROMPT: Height in inches. Enter a number from 40 to 96.
DESCRIPTION:
This field identifies the medical patient's height in inches.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 691^AD^MUMPS
1)= D ^MCARBSA
2)= S $P(^MCAR(691,DA,13),U,3)="" S X="" D A^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 (#2).
691,2 BODY SURFACE AREA 13;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."3N.N) X
9.1 = D ^MCARBSA
LAST EDITED: MAY 09, 1996
HELP-PROMPT: Type a Number between 0 and 99, 2 Decimal Digits
DESCRIPTION:
This field identifies the patient's BSA, computed from patient's height and weight.
WRITE AUTHORITY: ^
UNEDITABLE
CROSS-REFERENCE: 691^AI^MUMPS
1)= D ^MCARLV
2)= S $P(^MCAR(691,DA,13),U,6)=""
This cross-reference computes the patient's left ventricular mass from the patient's body surface
area and the dimensions of the ventricular septum, posterior wall, and left ventricular diastole,
and inserts the computed value into the LV MASS field (#32.8).
691,3 RESTING SYSTOLIC BP 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>300)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 25, 1999
HELP-PROMPT: Type a Number between 0 and 300, 0 Decimal Digits
DESCRIPTION:
This field identifies the patient's resting systolic blood pressure.
691,4 RESTING DIASTOLIC BP 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>300)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 25, 1999
HELP-PROMPT: Type a Number between 0 and 300, 0 Decimal Digits
DESCRIPTION:
This field identifies the patient's resting diastolic blood pressure.
691,5 RESTING HEART RATE 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>150)!(X<30)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 30 AND 150
DESCRIPTION:
This field identifies the patient's resting heart rate.
691,6 RHYTHM 0;7 SET
'1' FOR NSR;
'2' FOR A-FIB;
'3' FOR OTHER;
HELP-PROMPT: Enter code for patient ECG/EKG rhythm.
DESCRIPTION:
This field identifies the patient's current ECG/EKG rhythm.
691,7 STUDY QUALITY 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>4)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE 1 FOR POOR, 2 FOR FAIR, 3 FOR GOOD, AND 4 FOR EXCELLENT
DESCRIPTION:
This field identifies the technical quality of the procedure.
691,7.5 STUDY TYPE 16;0 SET Multiple #691.48 (Add New Entry without Asking)
691.48,.01 STUDY TYPE 0;1 SET (Multiply asked)
'1' FOR TRANSTHORACIC/TRANSCUTANEOUS;
'2' FOR TEE;
'3' FOR EXERCISE STRESS;
'4' FOR PHARMACOLOGIC STRESS;
'5' FOR INTRA-OPERATIVE;
'6' FOR CONTRAST;
LAST EDITED: OCT 10, 1996
DESCRIPTION:
This field is to track/monitor different types of echocardiographic studies.
CROSS-REFERENCE: 691.48^B
1)= S ^MCAR(691,DA(1),16,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691,DA(1),16,"B",$E(X,1,30),DA)
691,8 MED(CARDIOLOGY MEDICATION) 1;0 POINTER Multiple #691.01 (Add New Entry without Asking)
DESCRIPTION:
This field identifies the medications listed on the medical patient's request form.
691.01,.01 MED(CARDIOLOGY 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
HELP-PROMPT: Enter medication listed on patient' request form.
DESCRIPTION:
This field identifies the medications listed on the medical patients request form.
SCREEN: S DIC("S")="I $D(^MCAR(695,""C"",""C"",+Y))"
EXPLANATION: CHOOSE ONLY MEDICATIONS MARKED FOR CARDIOLOGY
CROSS-REFERENCE: 691.01^B
1)= S ^MCAR(691,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691,DA(1),1,"B",$E(X,1,30),DA)
691.01,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 medication listed on the medical patient's request form.
691.01,2 FREQUENCY 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<2) X
LAST EDITED: MAY 18, 1988
HELP-PROMPT: ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
DESCRIPTION:
This allows the user to enter when/how often (frequency) medication is to be taken.
691,9 PRE-DX 2;0 SET Multiple #691.02 (Add New Entry without Asking)
DESCRIPTION:
This defines the medical patient's pre-diagnosis listed on the procedure request form.
691.02,.01 PRE-DX 0;1 SET (Multiply asked)
'1' FOR CAD;
'2' FOR MYOCARDIAL INFARCT;
'3' FOR VALVULAR DISEASE;
'4' FOR SBE;
'5' FOR HTN;
'6' FOR CARDIOMYOPATHY;
'7' FOR HCM;
'8' FOR CHD;
'9' FOR NORMAL;
'10' FOR UNKNOWN;
HELP-PROMPT: Enter code for patient pre-diagnosis which is listed on procedure request form.
DESCRIPTION:
This defines the medical patients pre-diagnosis listed on the procedure request form.
691,10 COMMENT 3;0 WORD-PROCESSING #691.03
DESCRIPTION:
This allows the user to make specific comments on a particular field.
HELP-PROMPT: Enter comments on a particular field.
DESCRIPTION:
This allows the user to make specific comments on a particular field.
691,11 SEPTUM 4;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>60)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUN 23, 1987
HELP-PROMPT: ENTER NUMBER OF MILLIMETERS 0-60
DESCRIPTION:
This allows the user to enter the dimensions of the ventricular septum.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
CROSS-REFERENCE: 691^AG^MUMPS
1)= D ^MCARLV
2)= S $P(^MCAR(691,DA,13),U,6)=""
This cross-reference performs the same action as the 'AI' cross-reference of the BODY SURFACE AREA
field (#2).
691,12 POSTERIOR WALL 4;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>60)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 06, 1986
HELP-PROMPT: ENTER NUMBER OF MILLIMETERS 0-60
DESCRIPTION:
This allows the user to enter the dimensions of the posterior wall.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
CROSS-REFERENCE: 691^AH^MUMPS
1)= D ^MCARLV
2)= S $P(^MCAR(691,DA,13),U,6)=""
This cross-reference performs the same action as the 'AI' cross-reference of the BODY SURFACE AREA
field (#2).
691,13 LT. ATRIUM 4;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>120)!(X<10)!(X?.E1"."1N.N) X
LAST EDITED: NOV 06, 1986
HELP-PROMPT: ENTER NUMBER OF MILLIMETERS 10-120
DESCRIPTION:
This allows the user to enter the dimensions of the left atrium.
691,14 AORTIC ROOT 4;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<10)!(X?.E1"."1N.N) X
LAST EDITED: NOV 06, 1986
HELP-PROMPT: ENTER NUMBER OF MILLIMETERS 10-100
DESCRIPTION:
This allows the user to enter the dimensions of the aortic root.
691,15 RT VENTRICLE 4;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<5)!(X?.E1"."1N.N) X
LAST EDITED: NOV 06, 1986
HELP-PROMPT: ENTER NUMBER OF MILLIMETERS 5-100
DESCRIPTION:
This allows the user to enter the dimensions of the right ventricle.
691,16 ANT. RV WALL 4;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 06, 1986
HELP-PROMPT: ENTER NUMBER OF MILLIMETERS 1-20
DESCRIPTION:
This allows the user to enter the dimensions of the anterior right ventricular wall.
691,17 LT. VENT. DIASTOLE 4;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>150)!(X<20)!(X?.E1"."1N.N) X
LAST EDITED: NOV 06, 1986
HELP-PROMPT: ENTER NUMBER OF MILLIMETERS 20-150
DESCRIPTION:
This allows the user to enter the internal left ventricular diastolic dimensions.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
CROSS-REFERENCE: 691^AJ^MUMPS
1)= D ^MCARLV
2)= S $P(^MCAR(691,DA,13),U,6)=""
This cross-reference performs the same action as the 'AJ' cross-reference of the BODY SURFACE AREA
field (#2).
691,18 LT. VENT. SYSTOLE 4;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>150)!(X<5)!(X?.E1"."1N.N) X
LAST EDITED: NOV 06, 1986
HELP-PROMPT: ENTER NUMBER OF MILLIMETERS 5-150
DESCRIPTION:
This allows the user to enter the internal left ventricular systolic dimensions.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691,19 % FRACT. SHORTENING ; COMPUTED
MUMPS CODE: X ^DD(691,19,9.4) S X=$J(Y(691,19,8),Y(691,19,9),X) S X=$J(X,0,0)
9.2 = S Y(691,19,1)=$S($D(^MCAR(691,D0,4)):^(4),1:"") S X=$P(Y(691,19,1),U,7)="",Y(691,19,2)=X S X=
"",Y(691,19,3)=X S X=$P(Y(691,19,1),U,8)="",Y(691,19,4)=X S X=""
9.3 = X ^DD(691,19,9.2) S Y(691,19,5)=X S X=1,Y(691,19,6)=X,Y(691,19,7)=X S X=$P(Y(691,19,1),U,7)-$
P(Y(691,19,1),U,8),X=$S($P(Y(691,19,1),U,7):X/$P(Y(691,19,1),U,7),1:"*******")
9.4 = X ^DD(691,19,9.3) S X=X*100,X=$S(Y(691,19,2):Y(691,19,3),Y(691,19,4):Y(691,19,5),Y(691,19,6):
X),Y(691,19,8)=X S X=0,Y(691,19,9)=X S X=0
ALGORITHM: $J($S(#17="":"",#18="":"",1:(#17-#18/#17*100)),0,0) (ALWAYS 0 DECIMAL DIGITS)
LAST EDITED: MAY 04, 1994
DESCRIPTION:
This field identifies the computed percent shortening fraction of the left ventricular.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691,20 E-SEPT. 4;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 06, 1986
HELP-PROMPT: ENTER NUMBER OF MILLIMETERS 1-100
DESCRIPTION:
This allows the user to enter the E-point of the mitral valve to septum dimensions.
691,21 LV XS AREA, MIT. SYST. 5;1 NUMBER
LV CROSS-SECTIONAL AREA, MITRAL LEVEL
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 06, 1986
HELP-PROMPT: CENTIMETERS
691,22 LV XS AREA, PAP. MUSC. SYST. 5;2 NUMBER
LV CROSS-SECTIONAL AREA, PAPILLARY MUSCLE SYSTOLE
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 06, 1986
HELP-PROMPT: CENTIMETERS
691,23 LV XS AREA, AP. 4-CH SYST. 5;3 NUMBER
LV CROSS-SECTIONAL AREA, APICAL 4-CHAMBER VIEW SYSTOLE
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 06, 1986
HELP-PROMPT: CENTIMETERS
691,24 LV XS AREA, MIT. DIAST. 5;4 NUMBER
LV CROSS-SECTIONAL AREA, MITRAL LEVEL DIASTOLE
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 06, 1986
HELP-PROMPT: CENTIMETERS
691,25 LV XS AREA, PAP. MUSC. DIAST. 5;5 NUMBER
LV CROSS-SECTIONAL AREA, PAPILLARY MUSCLE DIASTOLE
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 06, 1986
HELP-PROMPT: CENTIMETERS
691,26 LV XS AREA, AP. 4-CH DIAST. 5;6 NUMBER
LV CROSS-SECTIONAL AREA, APICAL 4-CHAMBER VIEW DIASTOLE
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 06, 1986
HELP-PROMPT: CENTIMETERS
691,27 % FAS MITRAL LEVEL ; COMPUTED
MUMPS CODE: S Y(691,27,1)=$S($D(^MCAR(691,D0,5)):^(5),1:"") S X=$P(Y(691,27,1),U,4)-$P(Y(691,27,1),U,1),X=$S($P
(Y(691,27,1),U,4):X/$P(Y(691,27,1),U,4),1:"*******") S X=$J(X,0,1)
9.2 = S Y(691,27,1)=$S($D(^MCAR(691,D0,5)):^(5),1:"") S X=$P(Y(691,27,1),U,4)="",Y(691,27,2)=X S X=
"",Y(691,27,3)=X S X=$P(Y(691,27,1),U,1)="",Y(691,27,4)=X S X=""
9.3 = X ^DD(691,27,9.2) S Y(691,27,5)=X S X=1,Y(691,27,6)=X S X=$P(Y(691,27,1),U,4)-$P(Y(691,27,1),
U,1),X=$S($P(Y(691,27,1),U,4):X/$P(Y(691,27,1),U,4),1:"*******")
ALGORITHM: (#24-#21)/#24 (ALWAYS 1 DECIMAL DIGITS)
LAST EDITED: JAN 02, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 25 AND 99
691,28 % FAS PAP. MUSCLE ; COMPUTED
MUMPS CODE: S Y(691,28,1)=$S($D(^MCAR(691,D0,5)):^(5),1:"") S X=$P(Y(691,28,1),U,5)-$P(Y(691,28,1),U,2),X=$S($P
(Y(691,28,1),U,5):X/$P(Y(691,28,1),U,5),1:"*******") S X=$J(X,0,1)
9.2 = S Y(691,28,1)=$S($D(^MCAR(691,D0,5)):^(5),1:"") S X=$P(Y(691,28,1),U,5)="",Y(691,28,2)=X S X=
"",Y(691,28,3)=X S X=$P(Y(691,28,1),U,2)="",Y(691,28,4)=X S X=""
9.3 = X ^DD(691,28,9.2) S Y(691,28,5)=X S X=1,Y(691,28,6)=X,Y(691,28,7)=X S X=$P(Y(691,28,1),U,5)-$
P(Y(691,28,1),U,2),X=$S($P(Y(691,28,1),U,5):X/$P(Y(691,28,1),U,5),1:"*******")
ALGORITHM: (#25-#22)/#25 (ALWAYS 1 DECIMAL DIGITS)
LAST EDITED: JAN 02, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 20 AND 99
691,29 % FAS AP. 4-CH VIEW ; COMPUTED
MUMPS CODE: S Y(691,29,1)=$S($D(^MCAR(691,D0,5)):^(5),1:"") S X=$P(Y(691,29,1),U,6)-$P(Y(691,29,1),U,3),X=$S($P
(Y(691,29,1),U,6):X/$P(Y(691,29,1),U,6),1:"*******") S X=$J(X,0,1)
9.2 = S Y(691,29,1)=$S($D(^MCAR(691,D0,5)):^(5),1:"") S X=$P(Y(691,29,1),U,6)="",Y(691,29,2)=X S X=
"",Y(691,29,3)=X S X=$P(Y(691,29,1),U,3)="",Y(691,29,4)=X S X=""
9.3 = X ^DD(691,29,9.2) S Y(691,29,5)=X S X=1,Y(691,29,6)=X,Y(691,29,7)=X S X=$P(Y(691,29,1),U,6)-$
P(Y(691,29,1),U,3),X=$S($P(Y(691,29,1),U,6):X/$P(Y(691,29,1),U,6),1:"*******")
ALGORITHM: (#26-#23)/#26 (ALWAYS 1 DECIMAL DIGITS)
LAST EDITED: JAN 02, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 20 AND 99
691,30 EDV 5;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<.1)!(X?.E1"."2N.N) X
LAST EDITED: NOV 07, 1986
HELP-PROMPT: ENTER NUMBER IN MILLILITERS, 1 DECIMAL PLACE .1-999
DESCRIPTION:
This allows the user to enter the left ventricular end diastolic volume.
691,31 ESV 5;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<.1)!(X?.E1"."2N.N) X
LAST EDITED: NOV 07, 1986
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,31.1 ANGIOGRAPHIC CARDIAC OUTPUT ; COMPUTED
MUMPS CODE: X ^DD(691,31.1,9.4) S X=X*Y,X=$S(Y(691,31.1,2):Y(691,31.1,3),Y(691,31.1,5):Y(691,31.1,6),Y(691,31.1
,7):Y(691,31.1,8),Y(691,31.1,9):X)
9.2 = S Y(691,31.1,1)=$S($D(^MCAR(691,D0,0)):^(0),1:""),Y(691,31.1,4)=$S($D(^(5)):^(5),1:"") S X=$P
(Y(691,31.1,1),U,6)="",Y(691,31.1,2)=X S X="",Y(691,31.1,3)=X
9.3 = X ^DD(691,31.1,9.2) S X=$P(Y(691,31.1,4),U,10)="",Y(691,31.1,5)=X S X="",Y(691,31.1,6)=X S X=
$P(Y(691,31.1,4),U,11)="",Y(691,31.1,7)=X S X="",Y(691,31.1,8)=X S X=1
9.4 = X ^DD(691,31.1,9.3) S Y(691,31.1,9)=X S X=$P(Y(691,31.1,1),U,6),Y(691,31.1,10)=X S X=$P(Y(691
,31.1,4),U,10)-$P(Y(691,31.1,4),U,11),Y=X,X=Y(691,31.1,10),X=X
ALGORITHM: $S(#5="":"",#30="":"",#31="":"",1:#5*(#30-#31))
LAST EDITED: AUG 13, 1996
DESCRIPTION: This field computes the Angiographic Cardiac Output from the Resting Heart Rate (#5), EDV (#30),
and ESV (#31).
The formula used is: Heart_Rate * ( EDV - ESV ).
691,32 EF ; COMPUTED
MUMPS CODE: X ^DD(691,32,9.3) S X=X*100,X=$S(Y(691,32,2):Y(691,32,3),Y(691,32,4):Y(691,32,5),Y(691,32,6):X) S X
=$J(X,0,1)
9.2 = S Y(691,32,1)=$S($D(^MCAR(691,D0,5)):^(5),1:"") S X='$P(Y(691,32,1),U,10),Y(691,32,2)=X S X="
",Y(691,32,3)=X S X='$P(Y(691,32,1),U,11),Y(691,32,4)=X S X=""
9.3 = X ^DD(691,32,9.2) S Y(691,32,5)=X S X=1,Y(691,32,6)=X,Y(691,32,7)=X S X=$P(Y(691,32,1),U,10)-
$P(Y(691,32,1),U,11),X=$S($P(Y(691,32,1),U,10):X/$P(Y(691,32,1),U,10),1:"*******")
ALGORITHM: $S('#30:"",'#31:"",1:(#30-#31/#30*100)) (ALWAYS 1 DECIMAL DIGITS)
LAST EDITED: NOV 24, 1986
DESCRIPTION:
This defines the computed left ventricular ejection fraction.
691,32.1 ESTIMATED EF 13;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUN 23, 1987
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
This allows the user to enter the left ventricular ejection fraction.
691,32.2 ESTIMATED EF DESCRIPTOR 13;5 SET
'N' FOR NORMAL;
'I' FOR INCREASED;
'MIN' FOR MINIMALLY DEPRESSED;
'MOD' FOR MODERATELY DEPRESSED;
'S' FOR SEVERELY DEPRESSED;
LAST EDITED: JUN 23, 1987
HELP-PROMPT: Enter code for estimated ejection fraction descriptor.
DESCRIPTION:
This allows the user to enter the estimated ejection fraction descriptor.
691,32.8 LV MASS ; COMPUTED
MUMPS CODE: D ^MCARLV S X=$J(X,0,3)
ALGORITHM: D ^MCARLV (ALWAYS 3 DECIMAL DIGITS)
691,33 REGIONAL WALL MOTION 6;0 POINTER Multiple #691.04 (Add New Entry without Asking)
DESCRIPTION:
This allows the user to enter multiple left ventricular regional wall abnormalities.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.04,.01 REGIONAL WALL MOTION 0;1 POINTER TO REGIONAL WALL MOTION FILE (#695.1) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^MCAR(695.1,+Y,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JAN 09, 1989
HELP-PROMPT: Enter left ventricular regional wall abnormality.
DESCRIPTION:
This allows the user to enter multiple left ventricular regional wall abnormalities.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
SCREEN: S DIC("S")="I $P(^MCAR(695.1,+Y,0),U,2)"
EXPLANATION: Choose currently defined entry only.
691.04,1 MODIFIER 0;2 SET
'1' FOR HYPERKINETIC;
'2' FOR NORMAL;
'3' FOR MILDLY HYPOKINETIC;
'4' FOR HYPOKINETIC;
'5' FOR AKINETIC;
'6' FOR DYSKINETIC;
'7' FOR UNINTERPRETABLE;
LAST EDITED: JAN 09, 1989
HELP-PROMPT: Enter code for regional wall.
DESCRIPTION:
This allows the user to choose a descriptive code for type of regional wall abnormalities.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691,34 DOPPLER 7;0 SET Multiple #691.05 (Add New Entry without Asking)
DESCRIPTION:
This allows the user to enter multiple doppler findings.
691.05,.01 DOPPLER 0;1 SET (Multiply asked)
'MR' FOR MITRAL REGURGITATION;
'TR' FOR TRICUSPID REGURGITATION;
'AR' FOR AORTIC REGURGITATION;
'PR' FOR PULMONIC REGURGITATION;
LAST EDITED: JUN 25, 1987
HELP-PROMPT: Enter code for doppler findings.
DESCRIPTION:
This allows the user to enter multiple doppler findings.
691.05,1 SEVERITY 0;2 SET
'MI' FOR MILD;
'MO' FOR MODERATE;
'S' FOR SEVERE;
'TR' FOR TRACE;
'N' FOR NONE;
LAST EDITED: NOV 21, 1986
HELP-PROMPT: Enter code for severity.
DESCRIPTION:
This allows the user to choose a descriptive code for type of doppler finding.
691,34.1 AORTIC MAX VELOCITY 8;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>8)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: JUN 23, 1987
HELP-PROMPT: Meters/sec between 0 and 8, 2 Decimal Digits
DESCRIPTION:
This allows the user to enter the calculated aortic maximum velocity.
691,34.2 AORTIC MEAN VELOCITY 8;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>8)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: JUN 23, 1987
HELP-PROMPT: Meters/sec between 0 and 8, 2 Decimal Digits
DESCRIPTION:
This allows the user to enter the calculated mean velocity.
691,34.3 AORTIC INTEGRAL 8;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 31, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 100 (cm)
DESCRIPTION:
This allows the user to enter the calculated aortic valve integral.
691,34.4 LVOT MAX VELOCITY 8;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>8)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: JUN 23, 1987
HELP-PROMPT: Meters/sec between 0 and 8, 2 Decimal Digits
DESCRIPTION:
This allows the user to enter the left ventricular outflow tract maximum velocity.
691,34.5 LVOT MEAN VELOCITY 8;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>8)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: JUN 23, 1987
HELP-PROMPT: Meters/sec between 0 and 8, 2 Decimal Digits
DESCRIPTION:
This allows the user to enter the left ventricular outflow tract mean velocity.
691,34.6 LVOT INTEGRAL 8;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 31, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 100 (cm/sec)
DESCRIPTION:
This allows the user to enter the left ventricular outflow tract integral.
691,34.7 AORTIC MAX PRESSURE GRADIENT ; COMPUTED
MUMPS CODE: X ^DD(691,34.7,9.2) S Y=X,X=Y(691,34.7,4),X=X*Y,Y=X,X=Y(691,34.7,1),X=X*Y,Y(691,34.7,5)=X S X=5,Y(6
91,34.7,6)=X S X=1,X=$J(Y(691,34.7,5),Y(691,34.7,6),X)
9.2 = S Y(691,34.7,3)=$S($D(^MCAR(691,D0,8)):^(8),1:"") S X=4,Y(691,34.7,1)=X,Y(691,34.7,2)=X S X=$
P(Y(691,34.7,3),U,1),Y(691,34.7,4)=X S X=$P(Y(691,34.7,3),U,1)
9.3 = X ^DD(691,34.7,9.2) S X=X/100,Y=X,X=Y(691,34.7,4),X=X*Y,Y=X,X=Y(691,34.7,1),X=X*Y,Y(691,34.7,
5)=X S X=3,Y(691,34.7,6)=X S X=0
9.4 = X ^DD(691,34.7,9.3) S X=X*Y,Y=X,X=Y(691,34.7,5),X=X*Y,X=$S(Y(691,34.7,2):Y(691,34.7,3),Y(691,
34.7,4):X),Y(691,34.7,8)=X S X=0,Y(691,34.7,9)=X S X=1
ALGORITHM: $J(4*((#34.1)*(#34.1)),5,1)
LAST EDITED: MAR 02, 1988
DESCRIPTION:
This defines the computed aortic valve maximum pressure gradient.
SUM: S X=4,Y(1)=X,Y(2)=X S X=S("691^34.1")/100,Y(3)=X S X=S("691^34.1")/100,Y=X,X=Y(3),X=X*Y,Y=X,X=Y(1),
X=X*Y S Y=X
691,34.8 AORTIC MEAN PRESSURE GRADIENT 8;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 31, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 200 (mm of Hg)
DESCRIPTION:
This allows the user to enter the aortic valve mean pressure gradient.
691,34.9 AORTIC ESTIMATED VALVE ORIFICE 8;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>4)!(X<0)!(X?.E1"."2N.N) X
LAST EDITED: MAR 31, 1987
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 4 (cm2 1 Decimal allowed)
DESCRIPTION:
This allows the user to enter the calculated aortic valve estimated orifice.
691,35 MITRAL MAX VELOCITY 8;9 NUMBER
DOPPLER ESTIMATED MITRAL GRADIENT
INPUT TRANSFORM: K:+X'=X!(X>3)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: JUN 23, 1987
HELP-PROMPT: Meters/sec between 0 and 3, 2 Decimal Digits
DESCRIPTION:
This allows the user to enter the calculated mitral valve maximum velocity.
691,35.1 MITRAL MEAN VELOCITY 8;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>3)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: JUN 23, 1987
HELP-PROMPT: Meters/sec between 0 and 3, 2 Decimal Digits
DESCRIPTION:
This allows the user to enter the mitral valve mean velocity.
691,35.2 MITRAL INTEGRAL 8;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 31, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 100 (cm)
DESCRIPTION:
This allows the user to enter the mitral valve calculated integral.
691,35.3 MITRAL MAX GRADIENT ; COMPUTED
MUMPS CODE: X ^DD(691,35.3,9.2) S Y=X,X=Y(691,35.3,4),X=X*Y,Y=X,X=Y(691,35.3,1),X=X*Y,Y(691,35.3,5)=X S X=5,Y(6
91,35.3,6)=X S X=1,X=$J(Y(691,35.3,5),Y(691,35.3,6),X)
9.2 = S Y(691,35.3,3)=$S($D(^MCAR(691,D0,8)):^(8),1:"") S X=4,Y(691,35.3,1)=X,Y(691,35.3,2)=X S X=$
P(Y(691,35.3,3),U,9),Y(691,35.3,4)=X S X=$P(Y(691,35.3,3),U,9)
9.3 = X ^DD(691,35.3,9.2) S X=X/100,Y=X,X=Y(691,35.3,4),X=X*Y,Y=X,X=Y(691,35.3,1),X=X*Y,Y(691,35.3,
5)=X S X=3,Y(691,35.3,6)=X S X=0
ALGORITHM: $J(4*((#35)*(#35)),5,1)
LAST EDITED: MAR 02, 1988
DESCRIPTION:
This defines the computed mitral valve maximum gradient.
691,35.4 MITRAL MEAN GRADIENT 8;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>50)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 31, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 50 (mm of Hg)
DESCRIPTION:
This allows the user to enter the mitral valve mean gradient.
691,35.5 MITRAL P 1/2 8;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 31, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 1000 (msec)
DESCRIPTION:
This allows the user to enter the mitral valve P-1/2 time.
691,35.6 MITRAL EST VALVE ORIFICE 8;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>4)!(X<0)!(X?.E1"."2N.N) X
LAST EDITED: MAR 31, 1987
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 4 (1 Decimal allowed)(mm2)
DESCRIPTION:
This defines the computed mitral valve estimated orifices.
691,35.65 COMPUTED MITRAL VALVE ORIFICE ; COMPUTED
MUMPS CODE: S Y(691,35.65,1)=$S($D(^MCAR(691,D0,8)):^(8),1:"") S X=220,X=$S($P(Y(691,35.65,1),U,13):X/$P(Y(691,
35.65,1),U,13),1:"*******") S X=$J(X,0,1)
ALGORITHM: 220/#35.5 (ALWAYS 1 DECIMAL DIGITS)
DESCRIPTION:
This defines the computed mitral valve orifices.
691,35.7 PULMONIC MAX VELOCITY 12;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>5)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: JUN 23, 1987
HELP-PROMPT: Meters/sec between 0 and 5, 2 Decimal Digits
DESCRIPTION:
This allows the user to enter the calculated pulmonic valve maximum velocity.
691,35.8 PULMONIC MEAN VELOCITY 12;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>5)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: JUN 23, 1987
HELP-PROMPT: Meters/sec between 0 and 5, 2 Decimal Digits
DESCRIPTION:
This allows the user to enter the calculated pulmonic valve mean velocity.
691,35.9 PULMONIC INTEGRAL 12;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 31, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 100 (cm)
DESCRIPTION:
This allows the user to enter the calculated pulmonic valve integral.
691,36 PULMONIC MAX PRESSURE GRADIENT ; COMPUTED
DOPPLER ESTIMATED AORTIC GRADIENT
MUMPS CODE: X ^DD(691,36,9.2) S Y=X,X=Y(691,36,4),X=X*Y,Y=X,X=Y(691,36,1),X=X*Y,Y(691,36,5)=X S X=5,Y(691,36,6)
=X S X=1,X=$J(Y(691,36,5),Y(691,36,6),X)
9.2 = S Y(691,36,3)=$S($D(^MCAR(691,D0,12)):^(12),1:"") S X=4,Y(691,36,1)=X,Y(691,36,2)=X S X=$P(Y(
691,36,3),U,1),Y(691,36,4)=X S X=$P(Y(691,36,3),U,1)
9.3 = X ^DD(691,36,9.2) S Y(691,36,6)=X S X=$P(Y(691,36,1),U,1)/100,Y(691,36,7)=X S X=$P(Y(691,36,1
),U,1)/100,Y=X,X=Y(691,36,7),X=X*Y,Y=X,X=Y(691,36,5),X=X*Y
ALGORITHM: $J(4*((#35.7)*(#35.7)),5,1)
LAST EDITED: MAR 02, 1988
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 500
DESCRIPTION:
This field identifies the computed pulmonic valve maximum pressure gradient.
691,36.1 PULMONIC MEAN GRADIENT 12;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 31, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 200 (mm of Hg)
DESCRIPTION:
This allows the user to enter the calculated pulmonic valve mean gradient.
691,36.2 TRICUS DIAS MAX VEL (m/s) 12;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: OCT 22, 1990
HELP-PROMPT: Type a Number between 0 and 100, 2 Decimal Digits
DESCRIPTION:
This allows the user to enter the calculated tricuspid valve maximum velocity.
691,36.3 TRICUSPID MEAN VELOCITY 12;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>3)!(X<0)!(X?.E1"."1N.N) X
9.2 = S Y(691,36.3,1)=$S($D(^MCAR(691,D0,12)):^(12),1:"") S X=$P(Y(691,36.3,1),U,5),Y(691,36.3,2)=X
S X="",Y(691,36.3,3)=X S X=1,Y(691,36.3,4)=X S X=$P(Y(691,36.3,1),U,5)
9.1 = $S(#36.2:"",1:#36.2*#36.2*4)
LAST EDITED: APR 09, 1991
HELP-PROMPT: Type a Number between 0 and 3, 0 Decimal Digits
DESCRIPTION:
This field quantifies the average speed of tricuspid valve flow.
WRITE AUTHORITY: ^
691,36.31 TRICUS DIAS MAX PRESS GRAD ; COMPUTED
MUMPS CODE: X ^DD(691,36.31,9.2) S Y(691,36.31,5)=X S X=$P(Y(691,36.31,1),U,5)*$P(Y(691,36.31,1),U,5)*4,X=$S(Y(
691,36.31,2):Y(691,36.31,3),Y(691,36.31,4):X)
9.2 = S Y(691,36.31,1)=$S($D(^MCAR(691,D0,12)):^(12),1:"") S X=$P(Y(691,36.31,1),U,5)="",Y(691,36.3
1,2)=X S X="",Y(691,36.31,3)=X S X=1,Y(691,36.31,4)=X
ALGORITHM: $S(#36.2="":"",1:(#36.2*#36.2)*4)
DESCRIPTION:
This field is computed
691,36.4 TRICUS REGURG SYS MAX VEL(m/s) 12;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>5)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: OCT 22, 1990
HELP-PROMPT: Type a Number between 0 and 5, 2 Decimal Digits
DESCRIPTION:
This allows the user to enter the calculated tricuspid valve integral.
691,36.5 PA SYSTOLIC PRESSURE 12;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
9.2 = S Y(691,36.5,3)=$S($D(^MCAR(691,D0,12)):^(12),1:"") S X=4,Y(691,36.5,1)=X,Y(691,36.5,2)=X S X
=$P(Y(691,36.5,3),U,5),Y(691,36.5,4)=X S X=$P(Y(691,36.5,3),U,5)
9.3 = X ^DD(691,36.5,9.2) S X=X/100,Y=X,X=Y(691,36.5,4),X=X*Y,Y=X,X=Y(691,36.5,1),X=X*Y,Y(691,36.5,
5)=X S X=3,Y(691,36.5,6)=X S X=0
9.1 = $J(4*((#36.2)*(#36.2)),5,1)
LAST EDITED: OCT 22, 1990
HELP-PROMPT: Type a Number between 0 and 100, 2 Decimal Digits
DESCRIPTION:
This field identifies is the Pulmonary Artery Wedge Pressure in millimeters of Mercury.
WRITE AUTHORITY: ^
691,36.6 TRICUSPID MEAN GRADIENT 12;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>50)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 31, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 50 (mm of Hg)
DESCRIPTION:
This field identifies the average Tricuspid gradient.
691,37 FINDINGS 9;0 POINTER Multiple #691.06 (Add New Entry without Asking)
DESCRIPTION:
This allows the user to enter multiple interpreted echo findings.
TECHNICAL DESCR:
ORDER ENTRY TYPE: DIAGNOSIS
691.06,.01 FINDINGS 0;1 POINTER TO MEDICAL DESCRIPTION FILE (#693) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^MCAR(693,+Y,0),U,4)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 27, 1989
HELP-PROMPT: Enter echo findings.
DESCRIPTION:
This allows the user to enter multiple interpreted echo findings.
TECHNICAL DESCR:
ORDER ENTRY TYPE: DIAGNOSIS
SCREEN: S DIC("S")="I $P(^MCAR(693,+Y,0),U,4)=""C"""
EXPLANATION: CHOOSE CARDIOLOGY ENTRIES ONLY
691,37.5 DIAGNOSIS 14;0 POINTER Multiple #691.15 (Add New Entry without Asking)
DESCRIPTION:
This allows the user to enter multiple interpreted echo diagnoses.
TECHNICAL DESCR:
ORDER ENTRY TYPE: DIAGNOSIS
SCREEN: S MCARNUM=+$O(^MCAR(697.2,"C","MCAR(691",0)),DIC("S")="I $D(^MCAR(697.5,""D"",MCARNUM,+Y))"
EXPLANATION: CHOOSE ECHO DIAGNOSIS ONLY
691.15,.01 DIAGNOSIS 0;1 POINTER TO MEDICAL DIAGNOSIS/ICD CODES FILE (#697.5) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $D(^MCAR(697.5,""A.ECHO"",$P(^MCAR(697.5,+Y,0),U),+Y))",D="A.ECHO" D ^DIC K DIC S DIC
=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 23, 1991
HELP-PROMPT: Enter echo diagnosis.
DESCRIPTION:
This allows the user to enter multiple interpreted echo diagnosis.
TECHNICAL DESCR:
ORDER ENTRY TYPE: DIAGNOSIS
SCREEN: S DIC("S")="I $D(^MCAR(697.5,""A.ECHO"",$P(^MCAR(697.5,+Y,0),U),+Y))",D="A.ECHO"
EXPLANATION: CHOOSE ECHO DIAGNOSIS
EXECUTABLE HELP:Q:$D(DJJ) N DO S X="?",DIC(0)="X",DIC="^MCAR(697.5,",D="A.ECHO" D MIX^DIC1 S D=-1
CROSS-REFERENCE:691.15^B
1)= S ^MCAR(691,DA(1),14,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691,DA(1),14,"B",$E(X,1,30),DA)
691,38 OTHER CONCLUSION 10;0 WORD-PROCESSING #691.07
TECHNICAL DESCR:
ORDER ENTRY TYPE: DIAGNOSIS
HELP-PROMPT: Enter additional comments on findings and diagnoses.
DESCRIPTION:
This allows the user to enter additional comments on the findings and diagnosis fields.
TECHNICAL DESCR:
ORDER ENTRY TYPE: DIAGNOSIS
691,39 CARDIOLOGY ATTENDING 11;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 physician who interpreted the procedure.
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^701
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691,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,39,1,1,1.4)
1.4)= S DIH=$S($D(^MCAR(691,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691,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(691,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,
1),X=X S DIU=X K Y X ^DD(691,39,1,1,2.1) X ^DD(691,39,1,1,2.4)
2.1)= S X=DIV S Y(1)=$S($D(^MCAR(691,D0,11)):^(11),1:"") S X=$P(Y(1),U,1),X=X
2.4)= S DIH=$S($D(^MCAR(691,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691,D
IG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= INTERNAL(CARDIOLOGY ATTENDING)
DELETE VALUE)= INTERNAL(CARDIOLOGY ATTENDING)
FIELD)= #701
This trigger set the primary value field.
691,40 WARD/CLINIC 11;2 POINTER TO HOSPITAL LOCATION FILE (#44)
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Enter patient's location.
DESCRIPTION:
This allows the user to enter the medical patients location.
691,41 ONSET DATE ATRIAL FIB 11;3 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 04, 1986
HELP-PROMPT: Enter date of onset of patient's atrial fibrillation ECG/EKG rythm.
DESCRIPTION: This allows the user to enter the date of the onset of the patient's atrial fibrillation ECG/EKG
rhythm.
691,42 DURATION ATRIAL FIB 11;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>12!($L(X)<1) X
LAST EDITED: MAR 04, 1986
HELP-PROMPT: ANSWER MUST BE 1-12 CHARACTERS IN LENGTH
DESCRIPTION:
This allows the user to enter the duration of the atrial fibrillation ECG/EKG rhythm.
691,43 CARDIOLOGY FELLOW 15;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
HELP-PROMPT: Enter name of clinical staff member assigned to patient.
DESCRIPTION:
This field identifies one of the key members of the clinical staff assigned to follow this patient.
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
EXPLANATION: Check if this person holds the PROVIDER key.
691,44 STUDY PHASE 11;6 SET
'1' FOR PRE-CV;
'2' FOR POST-CV;
'3' FOR 1 MON CV;
'4' FOR 6 MON CV;
LAST EDITED: MAR 04, 1986
691,45 CARDIOVERSION DATE 11;7 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:2910101X) X
LAST EDITED: MAR 04, 1986
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1982 AND 1/1/1991
691,46 RHYTHM 2 11;8 SET
'1' FOR A-FIB;
'2' FOR A-FLUTTER;
'3' FOR NSR;
LAST EDITED: MAR 04, 1986
691,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 allows the user to enter the procedure summary information.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691,700 ICD DIAGNOSIS ICD;0 POINTER Multiple #691.19
DESCRIPTION:
This field contains the ICD Diagnosis(es) for the procedure.
691.19,.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.19^B
1)= S ^MCAR(691,DA(1),"ICD","B",$E(X,1,30),DA)=""
2)= K ^MCAR(691,DA(1),"ICD","B",$E(X,1,30),DA)
691.19,.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.
691,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 CARDIOLOGY ATTENDING field of the ECHO File
691,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^APCE
1)= S ^MCAR(691,"APCE",$E(X,1,30),DA)=""
2)= K ^MCAR(691,"APCE",$E(X,1,30),DA)
Pointer to the Visit file.
691,1000 ORIFN OR;1 POINTER TO ORDER FILE (#100)
LAST EDITED: JUL 09, 1991
HELP-PROMPT: Enter Consult Order.
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,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,1500 ENTERING DUZ ES;1 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: DEC 29, 1992
DESCRIPTION:
This field contains the provider who enter the information into the database.
691,1501 COSIGNER VALIDATION CODE ES;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Answer must be 1-40 characters in length.
691,1502 ENTERING DATE ES;3 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 29, 1992
691,1503 VERIFYING DUZ ES;4 POINTER TO NEW PERSON FILE (#200)
Person you are signing for
LAST EDITED: DEC 31, 1992
691,1504 SIGNER VALIDATION CODE ES;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: DEC 29, 1992
HELP-PROMPT: Answer must be 1-40 characters in length.
691,1505 VERIFIER DATE ES;6 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 29, 1992
691,1506 RELEASE CODE ES;7 SET
'D' FOR DRAFT;
'PD' FOR PROBLEM DRAFT;
'RV' FOR RELEASED ON-LINE VERIFIED;
'ROV' FOR RELEASED OFF-LINE VERIFIED;
'RNV' FOR RELEASED NOT VERIFIED;
'S' FOR SUPERSEDED;
'SRV' FOR RELEASED ON-LINE VERIFIED OF SUPERSEDED;
'SROV' FOR RELEASED OFF-LINE VERIFIED OF SUPERSEDED;
LAST EDITED: DEC 14, 1993
CROSS-REFERENCE: 691^ES
1)= S ^MCAR(691,"ES",$E(X,1,30),DA)=""
2)= K ^MCAR(691,"ES",$E(X,1,30),DA)
This cross-reference allows the look-up by release status.
691,1507 DATE OF RELEASED ES;8 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 29, 1992
691,1508 DATE OF VERIFIED ES;9 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 29, 1992
691,1509 SUPERSEDED ES;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 05, 1993
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
691,1510 SUPERSEDED BY ES;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 04, 1993
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
691,1511 MARK FOR DELETATION ES;12 SET
'1' FOR MARK FOR DELETATION;
LAST EDITED: DEC 29, 1992
691,1512 DELETER DUZ ES;13 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: AUG 31, 1999
691,1513 SUPERSEDED DATE ES;14 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 01, 1993
691,1514 CREATION DATE ES;15 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 12, 1993
691,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
691,2005 IMAGE 2005;0 POINTER Multiple #691.02005 (Add New Entry without Asking)
DESCRIPTION:
This field points to an entry in the image file.
691.02005,.01 IMAGE 0;1 POINTER TO IMAGE FILE (#2005) (Multiply asked)
LAST EDITED: JUN 30, 1997
DESCRIPTION:
This fields points to an object in the Image File.
CROSS-REFERENCE: 691.02005^B
1)= S ^MCAR(691,DA(1),2005,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691,DA(1),2005,"B",$E(X,1,30),DA)
FILES POINTED TO FIELDS
HOSPITAL LOCATION (#44) WARD/CLINIC (#40)
ICD DIAGNOSIS (#80) ICD DIAGNOSIS:ICD DIAGNOSIS (#.01)
IMAGE (#2005) IMAGE:IMAGE (#.01)
MEDICAL DESCRIPTION (#693) FINDINGS:FINDINGS (#.01)
MEDICAL DIAGNOSIS/ICD CODES
(#697.5) DIAGNOSIS:DIAGNOSIS (#.01)
MEDICAL PATIENT (#690) MEDICAL PATIENT (#1)
MEDICATION (#695) MED(CARDIOLOGY MEDICATION):MED(CARDIOLOGY MEDICATION) (#.01)
NEW PERSON (#200) CARDIOLOGY ATTENDING (#39)
CARDIOLOGY FELLOW (#43)
PRIMARY PROVIDER (#701)
ENTERING DUZ (#1500)
VERIFYING DUZ (#1503)
DELETER DUZ (#1512)
ORDER (#100) ORIFN (#1000)
PAST HISTORY AND RISK FACTOR
(#695.4) RISK FACTOR:RISK FACTOR (#.01)
REGIONAL WALL MOTION (#695.1) REGIONAL WALL MOTION:REGIONAL WALL MOTION (#.01)
REQUEST/CONSULTATION (#123) GMRCO (#1001)
SYMPTOM (#695.5) SYMPTOM:SYMPTOM (#.01)
VISIT (#9000010) PCC POINTER (#900)
INPUT TEMPLATE(S):
MCARECHO1 JAN 14, 1992@11:53 USER #0
MCARECHOB AUG 20, 1992@09:38 USER #0
MCBLECHO MAR 09, 1993@13:07 USER #0
MCFLECHO JUN 04, 1996@10:58 USER #0
PRINT TEMPLATE(S):
MCARECHOBRPR JUN 06, 1996@13:20 USER #0 ^MCOBK @
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):