STANDARD DATA DICTIONARY #691.7 -- EXERCISE TOLERANCE TEST FILE 9/29/25 PAGE 1
STORED IN ^MCAR(691.7, *** 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 Exercise Tolerance Tests 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.7,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 OF TEST(AD), PCC POINTER(APCE), DATE/TIME OF TEST(B), MEDICAL PATIENT(C),
RELEASE CODE(ES)
691.7,.01 DATE/TIME OF TEST 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 05, 1987
HELP-PROMPT: ENTER PATIENT'S NAME OR DATE AND TIME OF EXERCISE TOLERANCE TEST
DESCRIPTION:
This field identifies the precise Exercise Tolerance procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: IDENTIFIER
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 691.7^B
1)= S ^MCAR(691.7,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.7,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 691.7^AD^MUMPS
1)= S MCARCDIE="^MCAR(691.7," D CHGDTE1^MCARPROC
2)= S MCARCDIE="^MCAR(691.7," D CHGDTE^MCARPROC
This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to
record the most recent exercise tolerance test procedure for this patient.
691.7,.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, 2 to 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.7,.03 SUMMARY .2;1 SET (Required)
'N' FOR NORMAL;
'A' FOR ABNORMAL;
'B' FOR BORDERLINE;
'T' FOR TECHNICALLY UNSATISFACTORY;
LAST EDITED: AUG 13, 1987
HELP-PROMPT: This field identifies the result of the ETT procedure.
DESCRIPTION:
This field contains the gross evaluation of the results of this procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.7,.04 SYMPTOM .3;0 POINTER Multiple #691.701 (Add New Entry without Asking)
DESCRIPTION:
This field contains the patient's physical complaints or symptoms.
691.701,.01 SYMPTOM 0;1 POINTER TO SYMPTOM FILE (#695.5) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $D(^MCAR(695.5,""C"",""ETT"",+Y))!($D(^MCAR(695.5,""C"",""C"",+Y)))" D ^DIC K DIC S D
IC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 30, 1996
HELP-PROMPT: HISTORY OF PRESENT HISTORY
DESCRIPTION:
This field contains the patient's physical complaints or symtoms.
SCREEN: S DIC("S")="I $D(^MCAR(695.5,""C"",""ETT"",+Y))!($D(^MCAR(695.5,""C"",""C"",+Y)))"
EXPLANATION: Choose symptoms applying to ETT or Cardiology only
CROSS-REFERENCE:691.701^B
1)= S ^MCAR(691.7,DA(1),.3,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.7,DA(1),.3,"B",$E(X,1,30),DA)
691.7,.05 RISK FACTOR .4;0 POINTER Multiple #691.702 (Add New Entry without Asking)
DESCRIPTION: This field contains the morbidity factors which this patient is most susceptible to in regards to
this procedure.
691.702,.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 contains the morbidity factors which this patient is most susceptible to in regards
to this procedure.
CROSS-REFERENCE: 691.702^B
1)= S ^MCAR(691.7,DA(1),.4,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.7,DA(1),.4,"B",$E(X,1,30),DA)
691.7,1 MEDICAL PATIENT 0;2 POINTER TO MEDICAL PATIENT FILE (#690) (Required)
LAST EDITED: JUL 10, 1987
HELP-PROMPT: Enter patient's last name, followed by a comma, followed by a space, followed by the first name,
followed by a space, followed by the middle initial.
DESCRIPTION: This field identifies the patient's last name, followed by a comma, 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.7^C
1)= S ^MCAR(691.7,"C",$E(X,1,30),DA)=""
2)= K ^MCAR(691.7,"C",$E(X,1,30),DA)
This cross-reference allow looks-up on Patient.
CROSS-REFERENCE: 691.7^AC^MUMPS
1)= S MCARCDIE="^MCAR(691.7," D CHGPAT^MCARPROC
2)= S MCARCDIE="^MCAR(691.7," D KILL^MCARPROC
This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to
record the most recent exercise tolerance test procedure for this patient.
691.7,2 DATE/TIME OF APPOINTMENT 0;3 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
HELP-PROMPT: Enter Date/Time this procedure is scheduled.
DESCRIPTION:
This date/time field documents the scheduled time for this procedure.
691.7,3 REASON FOR TEST 0;4 SET
'A' FOR Overt or Latent C.H.D.;
'B' FOR Diff. diag. - chest pain etiology;
'C' FOR Determination of functional capacity;
'D' FOR Determination of need for cardiac rehab.;
'E' FOR Research - drug evaluation;
'F' FOR Screening for employm. or ins.;
LAST EDITED: JUL 17, 1986
HELP-PROMPT: Enter the code for rationale of procedure for this patient.
DESCRIPTION:
This field documents the rationale of the procedure for this patient.
TECHNICAL DESCR:
ORDER ENTRY TYPE: INDICATION
691.7,4 HEART MED 1;0 POINTER Multiple #691.71 (Add New Entry without Asking)
DESCRIPTION: This field (multiple) contains the cardiac medicines that the patient is taking at the time of this
procedure.
691.71,.01 HEART MED 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 cardiac medicine that patient is taking at time of this procedure.
DESCRIPTION: This field (multiple) contains the cardiac medicines that the patient is taking at the time of
this procedure.
SCREEN: S DIC("S")="I $D(^MCAR(695,""C"",""C"",+Y))"
EXPLANATION: CHOOSE CARDIAC MEDICATIONS ONLY
CROSS-REFERENCE: 691.71^B
1)= S ^MCAR(691.7,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.7,DA(1),1,"B",$E(X,1,30),DA)
691.71,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 the dosage of the cardiac medicines that the patient is taking at
the time of this procedure.
691.71,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 the time/number of times (frequency) the patient takes the cardiac
medicine.
691.7,4.5 OTHER MEDICATION 8;0 Multiple #691.74 (Add New Entry without Asking)
DESCRIPTION: This field (multiple) contains the non-cardiac medicines that the patient was taking at the time of
this procedure.
691.74,.01 OTHER MEDICATION 0;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION: This field (multiple) contains the non-cardiac medicines that the patient was taking at the time
of this procedure.
691.74,1 DOSE 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION: This allows the user to enter the dosage of non-cardiac medicines that the patient was taking at
the time of this procedure.
691.7,5 RESTING EKG 2;0 WORD-PROCESSING #691.72
DESCRIPTION:
This field refers to the latest, pre-exercise EKG procedure.
HELP-PROMPT: Enter latest, pre-exercise EKG procedure.
DESCRIPTION:
This field refers to the latest, pre-exercise EKG procedure.
691.7,6 REF. MD 3;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<3) X
LAST EDITED: FEB 26, 1986
HELP-PROMPT: ANSWER MUST BE 3-20 CHARACTERS IN LENGTH
DESCRIPTION:
This field identifies the referring physician.
691.7,6.1 WT LBS 10;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>500)!(X<40)!(X?.E1"."1N.N) X
LAST EDITED: FEB 26, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 40 AND 500
DESCRIPTION:
This field identifies is the patient's weight in pounds at the time of this procedure.
691.7,7 ETT PROTOCOL 3;2 SET
'BR' FOR BRUCE;
'M' FOR MODIFIED BRUCE;
'N' FOR NAUGHTON;
'BA' FOR BALKE;
'L' FOR LEVEL MODIFIED BRUCE;
'S' FOR SPECIAL;
'BL' FOR BLOCKER;
'MN' FOR MODIFIED NAUGHTON;
'BI' FOR BICYCLE ERGOMETRY;
'A' FOR ARM ERGOMETRY;
LAST EDITED: JUN 23, 1987
HELP-PROMPT: Enter code for protocol used in this procedure.
DESCRIPTION:
This field defines the protocol used in this procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.7,8 HYPERVENTILATION 3;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
This allows the user to enter information about the patient and hyperventilation.
691.7,9 RS HR 3;4 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 resting/supine heart rate.
691.7,10 RS SBP 3;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>250)!(X<40)!(X?.E1"."1N.N) X
LAST EDITED: FEB 27, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 40 AND 250
DESCRIPTION:
This field identifies the resting/supine systolic blood pressure.
691.7,11 RS DBP 3;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>150)!(X<40)!(X?.E1"."1N.N) X
LAST EDITED: JUN 23, 1987
HELP-PROMPT: Type a Whole Number between 40 and 150
DESCRIPTION:
This field identifies resting/supine Diastolic blood pressure.
691.7,12 RS RPP ; COMPUTED
MUMPS CODE: X ^DD(691.7,12,9.3) S X=$S(Y(691.7,12,2):Y(691.7,12,3),Y(691.7,12,4):Y(691.7,12,5),Y(691.7,12,6):X)
9.2 = S Y(691.7,12,1)=$S($D(^MCAR(691.7,D0,3)):^(3),1:"") S X=$P(Y(691.7,12,1),U,4)="",Y(691.7,12,2
)=X S X="",Y(691.7,12,3)=X S X=$P(Y(691.7,12,1),U,5)
9.3 = X ^DD(691.7,12,9.2) S X=X="",Y(691.7,12,4)=X S X="",Y(691.7,12,5)=X S X=1,Y(691.7,12,6)=X S X
=$P(Y(691.7,12,1),U,4)*$P(Y(691.7,12,1),U,5)/1000
ALGORITHM: $S(#9="":"",#10="":"",1:#9*#10/1000)
DESCRIPTION:
This field identifies a number based on the resting heart rate and resting systolic pressure.
691.7,13 RU HR 3;7 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 resting/upright heart rate.
691.7,14 RU SBP 3;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>250)!(X<40)!(X?.E1"."1N.N) X
LAST EDITED: FEB 27, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 40 AND 250
DESCRIPTION:
This field identifies the resting,upright systolic blood pressure.
691.7,15 RU DBP 3;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<40)!(X?.E1"."1N.N) X
LAST EDITED: JUN 23, 1987
HELP-PROMPT: Type a Whole Number between 40 and 200
DESCRIPTION:
This field identifies the resting/upright diastolic blood pressure.
691.7,16 RU RPP ; COMPUTED
MUMPS CODE: X ^DD(691.7,16,9.3) S X=$S(Y(691.7,16,2):Y(691.7,16,3),Y(691.7,16,4):Y(691.7,16,5),Y(691.7,16,6):X)
9.2 = S Y(691.7,16,1)=$S($D(^MCAR(691.7,D0,3)):^(3),1:"") S X=$P(Y(691.7,16,1),U,7)="",Y(691.7,16,2
)=X S X="",Y(691.7,16,3)=X S X=$P(Y(691.7,16,1),U,8)
9.3 = X ^DD(691.7,16,9.2) S X=X="",Y(691.7,16,4)=X S X="",Y(691.7,16,5)=X S X=1,Y(691.7,16,6)=X S X
=$P(Y(691.7,16,1),U,7)*$P(Y(691.7,16,1),U,8)/1000
ALGORITHM: $S(#13="":"",#14="":"",1:#13*#14/1000)
DESCRIPTION:
This field identifies based on the resting/upright heart rate and systolic pressure.
691.7,17 RS ST 3;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>5)!(X<-5)!(X?.E1"."2N.N) X
HELP-PROMPT: TYPE A NUMBER BETWEEN -5 AND 5
DESCRIPTION:
This field identifies the resting/supine ST elevation.
691.7,17.5 RU ST 7;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>5)!(X<-5)!(X?.E1"."2N.N) X
HELP-PROMPT: TYPE A NUMBER BETWEEN -5 AND 5
DESCRIPTION:
This field identifies the resting/upright ST elevation.
691.7,18 RS ST SLOPE 3;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9)!(X<-9)!(X?.E1"."2N.N) X
HELP-PROMPT: TYPE A NUMBER BETWEEN -9 AND 9
DESCRIPTION:
This field identifies the resting/supine ST slope.
691.7,19 RU ST SLOPE 3;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2)!(X<-5)!(X?.E1"."2N.N) X
HELP-PROMPT: TYPE A NUMBER BETWEEN -5 AND 2
DESCRIPTION:
This field identifies the resting/upright ST slope.
691.7,20 CP TME MIN 3;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>20)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 20
DESCRIPTION:
Enter the minutes portion of the elapsed time, that the chest pain occurred.
691.7,21 CP TME SEC 3;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>59)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 59
DESCRIPTION:
Enter the seconds portion of the elapsed time, that the chest pain occurred.
691.7,21.5 CP MODIFIER 10;2 SET
'D' FOR DURING EXERCISE;
'A' FOR AFTER EXERCISE;
'C' FOR COMBINED;
LAST EDITED: MAR 20, 1987
DESCRIPTION:
This field qualifies the type of chest pain that the patient experienced.
691.7,22 CP TIME TOTAL ; COMPUTED
MUMPS CODE: X ^DD(691.7,22,9.3) S X=$S(Y(691.7,22,3):Y(691.7,22,4),Y(691.7,22,5):X)
9.2 = S Y(691.7,22,1)=$S($D(^MCAR(691.7,D0,3)):^(3),1:"") S X=$P(Y(691.7,22,1),U,13)="",Y(691.7,22,
2)=X S X=$P(Y(691.7,22,1),U,14)="",Y=X,X=Y(691.7,22,2),X=X
9.3 = X ^DD(691.7,22,9.2) S X=X&Y,Y(691.7,22,3)=X S X="",Y(691.7,22,4)=X S X=1,Y(691.7,22,5)=X S X=
$P(Y(691.7,22,1),U,13)*60+$P(Y(691.7,22,1),U,14)
ALGORITHM: $S((#20="")&(#21=""):"",1:#20*60+#21)
LAST EDITED: JUL 06, 1994
DESCRIPTION: This field is the total time of chest pain in seconds computed from the two fields, CP TIME MIN and
CP TIME SEC.
691.7,23 ONSET CP HR 3;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>300)!(X<50)!(X?.E1"."1N.N) X
LAST EDITED: JUN 23, 1987
HELP-PROMPT: Type a Number between 50 and 300, 0 Decimal Digits
DESCRIPTION:
This field identifies the heart rate at the onset of chest pain.
691.7,24 ONSET CP SBP 3;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>300)!(X<40)!(X?.E1"."1N.N) X
LAST EDITED: FEB 27, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 40 AND 300
DESCRIPTION:
This field identifies the systolic blood pressure at the onset of chest pain.
691.7,25 ONSET CP DBP 3;17 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<20)!(X?.E1"."1N.N) X
LAST EDITED: JUN 23, 1987
HELP-PROMPT: Type a Number between 20 and 200, 0 Decimal Digits
DESCRIPTION:
This field identifies the diastolic blood pressure at the onset of chest pain.
691.7,26 ONSET CP ST 3;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>1)!(X<-5)!(X?.E1"."2N.N) X
HELP-PROMPT: TYPE A NUMBER BETWEEN -5 AND 1,1 DECIMAL PLACE ALLOWED.
DESCRIPTION:
This field identifies the ST elevation at the onset of chest pain.
691.7,27 ONSET CP ST SLOPE 3;19 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9)!(X<-9)!(X?.E1"."2N.N) X
HELP-PROMPT: TYPE A NUMBER BETWEEN -9 AND 9,1 DECIMAL PLACE ALLOWED.
DESCRIPTION:
This field identifies the ST slope at the onset of chest pain.
691.7,28 ONSET CP RPP ; COMPUTED
MUMPS CODE: X ^DD(691.7,28,9.3) S X=$S(Y(691.7,28,2):Y(691.7,28,3),Y(691.7,28,4):Y(691.7,28,5),Y(691.7,28,6):X)
9.2 = S Y(691.7,28,1)=$S($D(^MCAR(691.7,D0,3)):^(3),1:"") S X=$P(Y(691.7,28,1),U,15)="",Y(691.7,28,
2)=X S X="",Y(691.7,28,3)=X S X=$P(Y(691.7,28,1),U,16)=""
9.3 = X ^DD(691.7,28,9.2) S Y(691.7,28,4)=X S X="",Y(691.7,28,5)=X S X=1,Y(691.7,28,6)=X S X=$P(Y(6
91.7,28,1),U,15)*$P(Y(691.7,28,1),U,16)/1000
ALGORITHM: $S(#23="":"",#24="":"",1:#23*#24/1000)
LAST EDITED: OCT 26, 1987
DESCRIPTION:
This field identifies the RPP at the onset of chest pain.
691.7,29 PK HR 4;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>300)!(X<50)!(X?.E1"."1N.N) X
LAST EDITED: JUN 23, 1987
HELP-PROMPT: Type a Number between 50 and 300, 0 Decimal Digits
DESCRIPTION:
This field identifies the peak heart rate.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.7,30 PK SBP 4;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>300)!(X<40)!(X?.E1"."1N.N) X
LAST EDITED: FEB 27, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 40 AND 300
DESCRIPTION:
This field identifies the peak systolic blood pressure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.7,31 PK DBP 4;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<40)!(X?.E1"."1N.N) X
LAST EDITED: JUN 23, 1987
HELP-PROMPT: Type a Number between 40 and 200, 0 Decimal Digits
DESCRIPTION:
This field identifies the peak diastolic blood pressure.
691.7,32 PK EX MPH 4;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>7)!(X<1)!(X?.E1"."2N.N) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 1 AND 7
DESCRIPTION:
This field identifies the peak exercise miles per hour.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.7,32.1 KILO POND METERS (KPM) 10;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>3000)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUN 23, 1987
HELP-PROMPT: Type a Number between 0 and 3000, 0 Decimal Digits
DESCRIPTION:
This field identifies the kilo pond meters.
691.7,32.2 WATTS 10;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>500)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUN 23, 1987
HELP-PROMPT: Type a Number between 0 and 500, 0 Decimal Digits
DESCRIPTION:
This field identifies the wattage.
691.7,33 PK EX GRADE 4;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>20)!(X<1)!(X?.E1"."2N.N) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 1 AND 20,1 DECIMAL PLACE ALLOWED.
DESCRIPTION:
This field identifies the peak exercise grade.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.7,34 METS 4;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>20)!(X<0)!(X?.E1"."2N.N) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 20,1 DECIMAL PLACE ALLOWED.
DESCRIPTION:
This field identifies the METS (Metabolic Equivalents-1 MET=3.5ml of O2 resting).
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.7,39 PK ST 4;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>6.1)!(X<-6.1)!(X?.E1"."2N.N) X
LAST EDITED: MAR 19, 1987
HELP-PROMPT: TYPE A NUMBER BETWEEN -6.1 AND 6.1,1 DECIMAL PLACE ALLOWED.
DESCRIPTION:
This field identifies the peak ST elevation.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.7,40 PK ST SLOPE 4;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9)!(X<-9)!(X?.E1"."2N.N) X
HELP-PROMPT: TYPE A NUMBER BETWEEN -9 AND 9,1 DECIMAL PLACE ALLOWED.
DESCRIPTION:
This field identifies the peak ST slope.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.7,42 PK RPP ; COMPUTED
MUMPS CODE: X ^DD(691.7,42,9.3) S X=$S(Y(691.7,42,2):Y(691.7,42,3),Y(691.7,42,4):Y(691.7,42,5),Y(691.7,42,6):X)
9.2 = S Y(691.7,42,1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"") S X=$P(Y(691.7,42,1),U,1)="",Y(691.7,42,2
)=X S X="",Y(691.7,42,3)=X S X=$P(Y(691.7,42,1),U,2)
9.3 = X ^DD(691.7,42,9.2) S X=X="",Y(691.7,42,4)=X S X="",Y(691.7,42,5)=X S X=1,Y(691.7,42,6)=X S X
=$P(Y(691.7,42,1),U,1)*$P(Y(691.7,42,1),U,2)/1000
ALGORITHM: $S(#29="":"",#30="":"",1:#29*#30/1000)
DESCRIPTION:
This field identifies the peak RPP.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.7,43 EX TIME ; COMPUTED
MUMPS CODE: X ^DD(691.7,43,9.3) S X=$S(Y(691.7,43,3):Y(691.7,43,4),Y(691.7,43,5):X)
9.2 = S Y(691.7,43,1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"") S X=$P(Y(691.7,43,1),U,9)="",Y(691.7,43,2
)=X S X=$P(Y(691.7,43,1),U,10)="",Y=X,X=Y(691.7,43,2),X=X
9.3 = X ^DD(691.7,43,9.2) S X=X&Y,Y(691.7,43,3)=X S X="",Y(691.7,43,4)=X S X=1,Y(691.7,43,5)=X S X=
$P(Y(691.7,43,1),U,9)*60+$P(Y(691.7,43,1),U,10)
ALGORITHM: $S((#44="")&(#45=""):"",1:#44*60+#45)
LAST EDITED: JAN 02, 1987
DESCRIPTION:
This field identifies the time at which exercise began.
SUM: S X=S("120205^44")&S("120205^45")="",Y(1)=X S X="",Y(2)=X S X=1,Y(3)=X S X=60*S("120205^44")+S("120
205^45"),X=$S(Y(1):Y(2),Y(3):X) S Y=X
691.7,44 EX TIME MIN 4;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>20)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 20
DESCRIPTION:
Enter the minutes portion of the elapsed time, that the exercise occurred.
691.7,45 EX TIME SEC 4;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>59.9)!(X<.1)!(X?.E1"."2N.N) X
LAST EDITED: JUL 06, 1994
HELP-PROMPT: Type a Number between .1 and 59.9, 1 Decimal Digit
DESCRIPTION:
Enter the seconds portion of the elapsed time, that the exercise occurred.
691.7,46 PREDICTED HR ; COMPUTED
MUMPS CODE: X ^DD(691.7,46,9.4) S Y=X,X=Y(691.7,46,1),X=X-Y S D0=Y(691.7,46,80)
9.2 = S Y(691.7,46,80)=$S($D(D0):D0,1:""),Y(691.7,46,2)=$S($D(^MCAR(691.7,D0,0)):^(0),1:"") S X=220
,Y(691.7,46,1)=X
9.3 = X ^DD(691.7,46,9.2) S D0=$P(Y(691.7,46,2),U,2) S:'$D(^MCAR(690,+D0,0)) D0=-1 S Y(691.7,46,180
)=$S($D(D0):D0,1:""),Y(691.7,46,101)=$S($D(^MCAR(690,D0,0)):^(0),1:"")
9.4 = X ^DD(691.7,46,9.3) S D0=$P(Y(691.7,46,101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 X $P(^DD(2,.033,0),
U,5,99) S Y(691.7,46,201)=X S X=Y(691.7,46,201)
ALGORITHM: 220-(#1:#.01:#.033)
LAST EDITED: DEC 31, 1986
DESCRIPTION:
This field identifies the predicted heart rate.
691.7,47 TIME ST - 1 5;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<1)!'((X?1.2N.":"1.2N)!(X?1"NA")) X
LAST EDITED: MAR 14, 1990
HELP-PROMPT: Enter the time in the format Min:Sec or 'NA' if not applicable. Minutes and Seconds can be 1 or 2
digits in length.
DESCRIPTION:
This field identifies time of ST-1.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
691.7,48 % TARGET HR ; COMPUTED
MUMPS CODE: X ^DD(691.7,48,9.3) S X=$S(Y(691.7,48,2):Y(691.7,48,3),Y(691.7,48,4):X) S X=$J(X,0,0)
9.2 = X $P(^DD(691.7,46,0),U,5,99) S Y(691.7,48,5)=X S Y(691.7,48,1)=$S($D(^MCAR(691.7,D0,4)):^(4),
1:"") S X=$P(Y(691.7,48,1),U,1)="",Y(691.7,48,2)=X S X=""
9.3 = X ^DD(691.7,48,9.2) S Y(691.7,48,3)=X S X=1,Y(691.7,48,4)=X S X=$P(Y(691.7,48,1),U,1),X=$S(Y(
691.7,48,5):X/Y(691.7,48,5),1:"*******")*100
ALGORITHM: $S(#29="":"",1:#29/#46*100) (ALWAYS 0 DECIMAL DIGITS)
LAST EDITED: JAN 02, 1987
DESCRIPTION:
This field identifies the percentage of target heart rate achieved.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
SUM: S X=S("691.7^29")="",Y(1)=X S X="",Y(2)=X S X=1,Y(3)=X S X=S("691.7^29"),X=$S(S("691.7^46"):X/S("69
1.7^46"),1:"*******")*100,X=$S(Y(1):Y(2),Y(3):X) S Y=X
691.7,49 TIME ST - 2 5;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<1)!'((X?1.2N.":"1.2N)!(X?1"NA")) X
LAST EDITED: MAR 14, 1990
HELP-PROMPT: Enter the time in the format MIN:SEC or 'NA' if not applicable. Minutes and seconds can be 1 or 2
digits.
DESCRIPTION:
This field identifies the time of ST-2.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
691.7,50 REASON FOR STOPPING 5;3 POINTER TO REASON (MEDICINE) FILE (#695.8)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(695.8,""AC"",""E"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JAN 11, 1989
HELP-PROMPT: Enter rationale for terminating procedure.
DESCRIPTION:
This field identifies the rationale for terminating the procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
SCREEN: S DIC("S")="I $D(^MCAR(695.8,""AC"",""E"",+Y))"
EXPLANATION: CHOOSE ETT REASON FOR STOPPING ENTRIES ONLY
691.7,51 ARRHYTHMIAS 5;4 SET
'N' FOR NONE;
'DP' FOR DEC PVCS;
'IFP' FOR INC FREQ PVCS;
'IGC' FOR INC GRADE, COUPLETS;
'IGT' FOR INC GRADE, TRIPLETS;
'IVT' FOR INC SUST VT (>10);
HELP-PROMPT: Enter code for cardiac rhythm irregularity.
DESCRIPTION:
This field identifies the documented cardiac rhythm irregularity.
691.7,52 OTHER EKG CHANGE 9;0 WORD-PROCESSING #691.75
DESCRIPTION:
This field identifies an irregularity.
HELP-PROMPT: Enter comments on any irregularities.
DESCRIPTION:
This field identifies an irregularity.
691.7,53 HEART RATE RESPONSE 5;6 SET
'N' FOR NORMAL;
'A' FOR ABNORMAL;
HELP-PROMPT: Enter code for heart rate response.
DESCRIPTION:
This field identifies the heart rate response.
691.7,53.5 BLOOD PRESSURE RESPONSE 7;4 SET
'SR' FOR SYSTOLIC ROLL-OVER;
'N' FOR NORMAL;
'H' FOR HYPERTENSIVE;
HELP-PROMPT: Enter code for blood pressure response.
DESCRIPTION:
This field identifies the blood pressure response.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.7,54 TIME RETURN BASELINE ST 5;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<3)!'(X?.2N1":"2N) X
LAST EDITED: MAR 20, 1987
HELP-PROMPT: ENTER TIME IN FORMAT MINUTES:SECONDS
DESCRIPTION:
This field identifies the time that the ST segment returned to baseline.
691.7,55 INTERPRETATION 5;8 SET
'N' FOR NORMAL;
'A' FOR ABNORMAL;
'B' FOR BORDERLINE;
LAST EDITED: JUL 08, 1986
HELP-PROMPT: Enter code for interpretation.
DESCRIPTION:
This field identifies the interpretation field.
691.7,56 COMMENT 6;0 WORD-PROCESSING #691.73
DESCRIPTION:
This field identifies the comment (word-processing) field.
HELP-PROMPT: Enter comments.
DESCRIPTION:
This field identifies the comment (word-processing) field.
691.7,57 EKG TECHNICIAN 7;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: SEP 12, 1994
HELP-PROMPT: Enter staff member resposible for hooking up the patient.
DESCRIPTION:
This field identifies the staff member responsible for hooking up the patient.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
EXPLANATION: Only enter Providers!
691.7,58 ATTN PHYS 7;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: APR 23, 1996
HELP-PROMPT: Enter patient's attending physician.
DESCRIPTION:
This field identifies the patient's attending physician.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
EXPLANATION: Only providers can be selected.
CROSS-REFERENCE: ^^TRIGGER^691.7^701
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691.7,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.7,58,1,1,1.4)
1.4)= S DIH=$S($D(^MCAR(691.7,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691
.7,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.7,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),
U,1),X=X S DIU=X K Y X ^DD(691.7,58,1,1,2.1) X ^DD(691.7,58,1,1,2.4)
2.1)= S X=DIV S Y(1)=$S($D(^MCAR(691.7,D0,7)):^(7),1:"") S X=$P(Y(1),U,2),X=X
2.4)= S DIH=$S($D(^MCAR(691.7,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691
.7,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= INTERNAL(#58)
DELETE VALUE)= INTERNAL(#58)
FIELD)= #701
This trigger sets the primary provider file.
691.7,59 MPH MOD BRUCE ; COMPUTED
MUMPS CODE: X ^DD(691.7,59,9.5) S X=$S(Y(691.7,59,2):Y(691.7,59,3),Y(691.7,59,5):Y(691.7,59,6),Y(691.7,59,7):Y(
691.7,59,8),Y(691.7,59,9):Y(691.7,59,10),Y(691.7,59,11):Y(691.7,59,12),Y(691.7,59,13):X)
9.2 = X $P(^DD(691.7,43,0),U,5,99) S Y(691.7,59,4)=X S Y(691.7,59,1)=$S($D(^MCAR(691.7,D0,4)):^(4),
1:"") S X=$P(Y(691.7,59,1),U,4)'="",Y(691.7,59,2)=X
9.3 = X ^DD(691.7,59,9.2) S X=$P(Y(691.7,59,1),U,4),Y(691.7,59,3)=X S X=Y(691.7,59,4)<540,Y(691.7,5
9,5)=X S X=1.7,Y(691.7,59,6)=X S X=Y(691.7,59,4)<720
9.4 = X ^DD(691.7,59,9.3) S Y(691.7,59,7)=X S X=2.5,Y(691.7,59,8)=X S X=Y(691.7,59,4)<900,Y(691.7,5
9,9)=X S X=3.4,Y(691.7,59,10)=X S X=Y(691.7,59,4)
9.5 = X ^DD(691.7,59,9.4) S Y(691.7,59,11)=X S X=4.2,Y(691.7,59,12)=X S X=1,Y(691.7,59,13)=X S X=""
ALGORITHM: $S(#32'="":#32,#43<540:1.7,#43<720:2.5,#43<900:3.4,#43:4.2,1:"")
DESCRIPTION:
This identifies the MPH MOD BRUCE field (miles/hr of lower intensity standardized exercise test).
691.7,60 MPH SPECIAL ; COMPUTED
MUMPS CODE: X ^DD(691.7,60,9.5) S X=$S(Y(691.7,60,2):Y(691.7,60,3),Y(691.7,60,5):Y(691.7,60,6),Y(691.7,60,7):Y(
691.7,60,8),Y(691.7,60,9):Y(691.7,60,10),Y(691.7,60,11):Y(691.7,60,12),Y(691.7,60,13):X)
9.2 = X $P(^DD(691.7,43,0),U,5,99) S Y(691.7,60,4)=X S Y(691.7,60,1)=$S($D(^MCAR(691.7,D0,4)):^(4),
1:"") S X=$P(Y(691.7,60,1),U,4)'="",Y(691.7,60,2)=X
9.3 = X ^DD(691.7,60,9.2) S X=$P(Y(691.7,60,1),U,4),Y(691.7,60,3)=X S X=Y(691.7,60,4)<360,Y(691.7,6
0,5)=X S X=1.7,Y(691.7,60,6)=X S X=Y(691.7,60,4)<540
9.4 = X ^DD(691.7,60,9.3) S Y(691.7,60,7)=X S X=2.5,Y(691.7,60,8)=X S X=Y(691.7,60,4)<720,Y(691.7,6
0,9)=X S X=3.4,Y(691.7,60,10)=X S X=Y(691.7,60,4)<900
9.5 = X ^DD(691.7,60,9.4) S Y(691.7,60,11)=X S X=4.2,Y(691.7,60,12)=X S X=1,Y(691.7,60,13)=X S X=""
ALGORITHM: $S(#32'="":#32,#43<360:1.7,#43<540:2.5,#43<720:3.4,#43<900:4.2,1:"")
DESCRIPTION:
This field identifies the MPH Special field.
691.7,62 MPH BALKE ; COMPUTED
MUMPS CODE: X ^DD(691.7,62,9.4) S X=$S(Y(691.7,62,2):Y(691.7,62,3),Y(691.7,62,5):Y(691.7,62,6),Y(691.7,62,8):X)
9.2 = X $P(^DD(691.7,42,0),U,5,99) S Y(691.7,62,4)=X X $P(^DD(691.7,43,0),U,5,99) S Y(691.7,62,7)=X
S Y(691.7,62,1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"")
9.3 = X ^DD(691.7,62,9.2) S X=$P(Y(691.7,62,1),U,4)'="",Y(691.7,62,2)=X S X=$P(Y(691.7,62,1),U,4),Y
(691.7,62,3)=X S X=Y(691.7,62,4)<14,Y(691.7,62,5)=X S X=2
9.4 = X ^DD(691.7,62,9.3) S Y(691.7,62,6)=X S X=Y(691.7,62,7)<14,Y(691.7,62,8)=X S X=3
ALGORITHM: $S(#32'="":#32,#42<14:2,#43<14:3)
DESCRIPTION:
This field identifies the MPH BALKE field.
691.7,65 GRADE SPECIAL ; COMPUTED
MUMPS CODE: X ^DD(691.7,65,9.5) S X=$S(Y(691.7,65,2):Y(691.7,65,3),Y(691.7,65,5):Y(691.7,65,6),Y(691.7,65,7):Y(
691.7,65,8),Y(691.7,65,9):Y(691.7,65,10),Y(691.7,65,11):Y(691.7,65,12),Y(691.7,65,13):Y(691.7,65,14
),Y(691.7,65,15):X)
9.2 = X $P(^DD(691.7,43,0),U,5,99) S Y(691.7,65,4)=X S Y(691.7,65,1)=$S($D(^MCAR(691.7,D0,4)):^(4),
1:"") S X=$P(Y(691.7,65,1),U,4)'="",Y(691.7,65,2)=X
9.3 = X ^DD(691.7,65,9.2) S X=$P(Y(691.7,65,1),U,5),Y(691.7,65,3)=X S X=Y(691.7,65,4)<180,Y(691.7,6
5,5)=X S X=5,Y(691.7,65,6)=X S X=Y(691.7,65,4)<360
9.4 = X ^DD(691.7,65,9.3) S Y(691.7,65,7)=X S X=10,Y(691.7,65,8)=X S X=Y(691.7,65,4)<540,Y(691.7,65
,9)=X S X=12,Y(691.7,65,10)=X S X=Y(691.7,65,4)<720
9.5 = X ^DD(691.7,65,9.4) S Y(691.7,65,11)=X S X=14,Y(691.7,65,12)=X S X=Y(691.7,65,4)<9000,Y(691.7
,65,13)=X S X=16,Y(691.7,65,14)=X S X=1,Y(691.7,65,15)=X S X=""
ALGORITHM: $S(#32'="":#33,#43<180:5,#43<360:10,#43<540:12,#43<720:14,#43<9000:16,1:"")
DESCRIPTION:
This field identifies the GRADE SPECIAL field.
691.7,67 GRADE BALKE ; COMPUTED
MUMPS CODE: X ^DD(691.7,67,9.5) S X=$S(Y(691.7,67,2):Y(691.7,67,3),Y(691.7,67,5):Y(691.7,67,6),Y(691.7,67,7):Y(
691.7,67,8),Y(691.7,67,9):Y(691.7,67,10),Y(691.7,67,11):Y(691.7,67,12),Y(691.7,67,13):Y(691.7,67,14
),Y(691.7,67,15):X)
9.2 = X $P(^DD(691.7,43,0),U,5,99) S Y(691.7,67,4)=X S Y(691.7,67,1)=$S($D(^MCAR(691.7,D0,4)):^(4),
1:"") S X=$P(Y(691.7,67,1),U,5)'="",Y(691.7,67,2)=X
9.3 = X ^DD(691.7,67,9.2) S X=$P(Y(691.7,67,1),U,5),Y(691.7,67,3)=X S X=Y(691.7,67,4)<240,Y(691.7,6
7,5)=X S X=3,Y(691.7,67,6)=X S X=Y(691.7,67,4)<360
9.4 = X ^DD(691.7,67,9.3) S Y(691.7,67,7)=X S X=7,Y(691.7,67,8)=X S X=Y(691.7,67,4)<480,Y(691.7,67,
9)=X S X=10.5,Y(691.7,67,10)=X S X=Y(691.7,67,4)<600
9.5 = X ^DD(691.7,67,9.4) S Y(691.7,67,11)=X S X=14,Y(691.7,67,12)=X S X=Y(691.7,67,4)<840,Y(691.7,
67,13)=X S X=20.5,Y(691.7,67,14)=X S X=1,Y(691.7,67,15)=X S X=""
ALGORITHM: $S(#33'="":#33,#43<240:3,#43<360:7,#43<480:10.5,#43<600:14,#43<840:20.5,1:"")
DESCRIPTION:
This field identifies the GRADE BALKE field.
691.7,69 WARD/CLINIC 10;5 POINTER TO HOSPITAL LOCATION FILE (#44)
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Enter in-house patient location.
DESCRIPTION:
This field identifies the in-house patient location.
691.7,70 COMPLICATIONS 11;0 POINTER Multiple #691.703
DESCRIPTION:
This field identifies the complications field.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.703,.01 COMPLICATIONS 0;1 POINTER TO COMPLICATION FILE (#696.9) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(696.9,""C"",""E"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 15, 1990
DESCRIPTION:
This field identifies the complications field.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
SCREEN: S DIC("S")="I $D(^MCAR(696.9,""C"",""E"",+Y))"
EXPLANATION: CHOOSE FROM THE SET OF COMPLICATIONS WHICH HAS BEEN ESTABLISHED FOR THIS PROCEDURE.
CROSS-REFERENCE: 691.703^B
1)= S ^MCAR(691.7,DA(1),11,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.7,DA(1),11,"B",$E(X,1,30),DA)
691.7,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:
Answer must be 1-79 characters in length. This will appear on the 'Summary of Patient Procedures.'
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.7,700 ICD DIAGNOSIS ICD;0 POINTER Multiple #691.704
DESCRIPTION:
This field contains the ICD Diagnosis(es) for the procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.704,.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.704^B
1)= S ^MCAR(691.7,DA(1),"ICD","B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.7,DA(1),"ICD","B",$E(X,1,30),DA)
691.704,.02 NARRATIVE DIAGNOSIS 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
LAST EDITED: JAN 02, 1992
HELP-PROMPT: Answer must be 1-80 characters in length.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.7,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 ATTN PHYS field of the EXERCISE TOLERANCE TEST File
691.7,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.7^APCE
1)= S ^MCAR(691.7,"APCE",$E(X,1,30),DA)=""
2)= K ^MCAR(691.7,"APCE",$E(X,1,30),DA)
Pointer to the Visit file.
691.7,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.7,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.7,1500 ENTERING DUZ ES;1 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: FEB 12, 1993
691.7,1501 COSIGNER VALIDATION CODE ES;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: FEB 12, 1993
HELP-PROMPT: Answer must be 1-40 characters in length.
691.7,1502 ENTERING DATE ES;3 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 12, 1993
691.7,1503 VERIFYING DUZ ES;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: FEB 12, 1993
691.7,1504 SIGNER VALIDATION CODE ES;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: FEB 12, 1993
HELP-PROMPT: Answer must be 1-40 characters in length.
691.7,1505 VERIFIER DATE ES;6 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 12, 1993
691.7,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.7^ES
1)= S ^MCAR(691.7,"ES",$E(X,1,30),DA)=""
2)= K ^MCAR(691.7,"ES",$E(X,1,30),DA)
691.7,1507 DATE OF RELEASED ES;8 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 12, 1993
691.7,1508 DATE OF VERIFIED ES;9 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 12, 1993
691.7,1509 SUPERSEDED ES;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 12, 1993
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
691.7,1510 SUPERSEDED BY ES;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 12, 1993
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
691.7,1511 MARK FOR DELETION ES;12 SET
'1' FOR MARK FOR DELETION;
LAST EDITED: FEB 12, 1993
691.7,1512 DELETER DUZ ES;13 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: FEB 12, 1993
691.7,1513 SUPERSEDED DATE ES;14 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: FEB 12, 1993
HELP-PROMPT: Answer must be 1-40 characters in length.
691.7,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.7,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
FILES POINTED TO FIELDS
COMPLICATION (#696.9) COMPLICATIONS:COMPLICATIONS (#.01)
HOSPITAL LOCATION (#44) WARD/CLINIC (#69)
ICD DIAGNOSIS (#80) ICD DIAGNOSIS:ICD DIAGNOSIS (#.01)
MEDICAL PATIENT (#690) MEDICAL PATIENT (#1)
MEDICATION (#695) HEART MED:HEART MED (#.01)
NEW PERSON (#200) EKG TECHNICIAN (#57)
ATTN PHYS (#58)
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)
REASON (MEDICINE) (#695.8) REASON FOR STOPPING (#50)
REQUEST/CONSULTATION (#123) GMRCO (#1001)
SYMPTOM (#695.5) SYMPTOM:SYMPTOM (#.01)
VISIT (#9000010) PCC POINTER (#900)
INPUT TEMPLATE(S):
MCARTR1 JAN 14, 1992@12:03 USER #0
MCARTRB AUG 20, 1992@09:28 USER #0
MCBLETT MAR 09, 1993@13:10 USER #0
MCFLETT MAR 09, 1993@13:19 USER #0
PRINT TEMPLATE(S):
MCARETT1 MAR 22, 2001@12:23 USER #0 ^MCAROT @
MCARETTBRPR MAY 13, 1996@09:56 USER #0 ^MCOBT @
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):