Global: ^MCAR(691.7

FileMan FileNo	FileMan Filename	Package
691.7	EXERCISE TOLERANCE TEST	Medicine

Package	Total	Routines
Medicine	12	COMPLICATIONS DIAGNOSIS HEART MED ICD DIAGNOSIS MCAROT MCOBT MCOETT11 MCPOS01B ^MCAR(691.7 MCOETT1 RISK FACTOR SYMPTOM

Package	Total	Routines
Medicine	1	MCARP

Package	Total	FileMan Files
Consult Request Tracking	1	REQUEST/CONSULTATION(#123)[11, #123.03(.01)]

Package	Total	FileMan Files
Medicine	6	MEDICAL PATIENT(#690)[1] MEDICATION(#695)[#691.71(.01)] PAST HISTORY AND RISK FACTOR(#695.4)[#691.702(.01)] SYMPTOM(#695.5)[#691.701(.01)] REASON (MEDICINE)(#695.8)[50] COMPLICATION(#696.9)[#691.703(.01)]
Consult Request Tracking	1	REQUEST/CONSULTATION(#123)[1001]
DRG Grouper	1	ICD DIAGNOSIS(#80)[#691.704(.01)]
Kernel	1	NEW PERSON(#200)[57, 58, 701, 1500, 1503, 1512]
Order Entry Results Reporting	1	ORDER(#100)[1000]
PCE Patient Care Encounter	1	VISIT(#9000010)[900]
Scheduling	1	HOSPITAL LOCATION(#44)[69]

Fields, Total: 94

Field #	Name	Loc	Type	Details
.01	DATE/TIME OF TEST	0;1	DATE	**********************REQUIRED FIELD********************** 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.`
.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.`
.03	SUMMARY	.2;1	SET	**********************REQUIRED FIELD********************** '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`
.04	SYMPTOM	.3;0	POINTER Multiple #691.701	691.701 DESCRIPTION: `This field contains the patient's physical complaints or symptoms.`
.05	RISK FACTOR	.4;0	POINTER Multiple #691.702	691.702 DESCRIPTION: `This field contains the morbidity factors which this patient is most susceptible to in regards to this procedure.`
1	MEDICAL PATIENT	0;2	POINTER TO MEDICAL PATIENT FILE (#690)	**********************REQUIRED FIELD********************** MEDICAL PATIENT(#690) 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.`
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.`
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`
4	HEART MED	1;0	POINTER Multiple #691.71	691.71 DESCRIPTION: `This field (multiple) contains the cardiac medicines that the patient is taking at the time of this procedure.`
4.5	OTHER MEDICATION	8;0	Multiple #691.74	691.74 DESCRIPTION: `This field (multiple) contains the non-cardiac medicines that the patient was taking at the time of this procedure.`
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.`
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.`
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.`
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`
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.`
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.`
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.`
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.`
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.`
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.`
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.`
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.`
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.`
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.`
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.`
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.`
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.`
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.`
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.`
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.`
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:#2060+#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.`
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.`
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.`
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.`
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.`
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.`
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(691.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.`
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`
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`
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.`
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`
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.`
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.`
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`
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`
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`
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`
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`
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:#4460+#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("120205^45"),X=$S(Y(1):Y(2),Y(3):X) S Y=X`
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.`
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.`
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.`
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`
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/#46100) (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("691.7^46"),1:"*****")100,X=$S(Y(1):Y(2),Y(3):X) S Y=X`
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`
50	REASON FOR STOPPING	5;3	POINTER TO REASON (MEDICINE) FILE (#695.8)	REASON (MEDICINE)(#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`
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.`
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.`
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.`
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`
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.`
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.`
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.`
57	EKG TECHNICIAN	7;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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!`
58	ATTN PHYS	7;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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.`
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,59,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,59,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).`
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,60,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,60,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.`
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.`
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,65,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.`
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,67,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.`
69	WARD/CLINIC	10;5	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Enter in-house patient location.` DESCRIPTION: `This field identifies the in-house patient location.`
70	COMPLICATIONS	11;0	POINTER Multiple #691.703	691.703 DESCRIPTION: `This field identifies the complications field.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
600	PROCEDURE SUMMARY	.2;2	FREE TEXT	**********************REQUIRED FIELD********************** 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`
700	ICD DIAGNOSIS	ICD;0	POINTER Multiple #691.704	691.704 DESCRIPTION: `This field contains the ICD Diagnosis(es) for the procedure.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
701	PRIMARY PROVIDER	PROV;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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`
900	PCC POINTER	PCC;1	POINTER TO VISIT FILE (#9000010)	VISIT(#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.`
1000	ORIFN	OR;1	POINTER TO ORDER FILE (#100)	ORDER(#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.`
1001	GMRCO	OR;2	POINTER TO REQUEST/CONSULTATION FILE (#123)	REQUEST/CONSULTATION(#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.`
1500	ENTERING DUZ	ES;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 12, 1993`
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.`
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`
1503	VERIFYING DUZ	ES;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 12, 1993`
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.`
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`
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)`
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`
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`
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`
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`
1511	MARK FOR DELETION	ES;12	SET	'1' FOR MARK FOR DELETION; LAST EDITED: `FEB 12, 1993`
1512	DELETER DUZ	ES;13	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 12, 1993`
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.`
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`
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`

Name	Line Occurrences (* Changed, ! Killed)
^DD(	58(XREF 1n1.4), 58(XREF 1n2.4)
^DD(2	46OF9.4+1
^DD(691.7	12+1, 12OF9.3+1, 16+1, 16OF9.3+1, 22+1, 22OF9.3+1, 28+1, 28OF9.3+1, 42+1, 42OF9.3+1 , 43+1, 43OF9.3+1, 46+1, 46OF9.3+1, 46OF9.4+1, 48+1, 48OF9.2+1, 48OF9.3+1, 58(XREF 1S), 58(XREF 1K) , 59+1, 59OF9.2+1, 59OF9.3+1, 59OF9.4+1, 59OF9.5+1, 60+1, 60OF9.2+1, 60OF9.3+1, 60OF9.4+1, 60OF9.5+1 , 62+1, 62OF9.2+1, 62OF9.3+1, 62OF9.4+1, 65+1, 65OF9.2+1, 65OF9.3+1, 65OF9.4+1, 65OF9.5+1, 67+1 , 67OF9.2+1, 67OF9.3+1, 67OF9.4+1, 67OF9.5+1
^DPT - [#2]	ID1+1, 46OF9.4+1
^MCAR(690 - [#690]	ID1+1, 46OF9.3+1
^MCAR(691.7 - [#691.7]	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 12OF9.2+1, 16OF9.2+1, 22OF9.2+1, 28OF9.2+1, 42OF9.2+1, 43OF9.2+1 , 46OF9.2+1, 48OF9.2+1, 58(XREF 1S), 58(XREF 1n1.4), 58(XREF 1K), 58(XREF 1n2.1), 58(XREF 1n2.4), 59OF9.2+1, 60OF9.2+1, 62OF9.2+1 , 65OF9.2+1, 67OF9.2+1, 900(XREF 1S), 900(XREF 1K), 1506(XREF 1S), 1506(XREF 1K)

Name	Field # of Occurrence
^("ES"	IDX1+1
^("PROV"	58(XREF 1S), 58(XREF 1n1.4), 58(XREF 1K), 58(XREF 1n2.4)
^(0	ID1+1, 46OF9.2+1, 46OF9.3+1
^(3	12OF9.2+1, 16OF9.2+1, 22OF9.2+1, 28OF9.2+1
^(4	42OF9.2+1, 43OF9.2+1, 48OF9.2+1, 59OF9.2+1, 60OF9.2+1, 62OF9.2+1, 65OF9.2+1, 67OF9.2+1
^(7	58(XREF 1n2.1)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1, 2+1, 1502+1, 1505+1, 1507+1, 1508+1, 1514+1*
>> D0	12OF9.2+1, 16OF9.2+1, 22OF9.2+1, 28OF9.2+1, 42OF9.2+1, 43OF9.2+1, 46+1, 46OF9.2+1, 46OF9.3+1, 46OF9.4+1* , 48OF9.2+1, 58(XREF 1S), 58(XREF 1K), 58(XREF 1n2.1), 59OF9.2+1, 60OF9.2+1, 62OF9.2+1, 65OF9.2+1, 67OF9.2+1
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 58(XREF 1S), 58(XREF 1K), 900(XREF 1S), 900(XREF 1K), 1506(XREF 1S), 1506(XREF 1K)
DIC	ID1+1, IDX1+1, 50+1!, 57+1!, 58+1!, 701+1!
DIC("S"	50+1, 50SCR+1, 57+1, 57SCR+1, 58+1, 58SCR+1, 701+1*
>> DIE	50+1, 57+1, 58+1, 701+1
>> DIG	58(XREF 1n1.4), 58(XREF 1n2.4)
>> DIH	58(XREF 1n1.4), 58(XREF 1n2.4)
>> DIU	58(XREF 1S), 58(XREF 1K)
DIV	58(XREF 1S), 58(XREF 1n1.4), 58(XREF 1K), 58(XREF 1n2.1), 58(XREF 1n2.4)
DIV(0	58(XREF 1S), 58(XREF 1n1.4), 58(XREF 1K), 58(XREF 1n2.4)
>> MCARCDIE	.01(XREF 2S), .01(XREF 2K), 1(XREF 2S), 1(XREF 2K)
U	ID1+1, 12OF9.2+1, 12OF9.3+1, 16OF9.2+1, 16OF9.3+1, 22OF9.2+1, 22OF9.3+1, 28OF9.2+1, 28OF9.3+1, 42OF9.2+1 , 42OF9.3+1, 43OF9.2+1, 43OF9.3+1, 46OF9.3+1, 46OF9.4+1, 48OF9.2+1, 48OF9.3+1, 58(XREF 1S), 58(XREF 1n1.4), 58(XREF 1K) , 58(XREF 1n2.1), 58(XREF 1n2.4), 59OF9.2+1, 59OF9.3+1, 60OF9.2+1, 60OF9.3+1, 62OF9.2+1, 62OF9.3+1, 65OF9.2+1, 65OF9.3+1 , 67OF9.2+1, 67OF9.3+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, 1(XREF 1S), 1(XREF 1K), 2+1!, 6+1!, 6.1+1!, 8+1! , 9+1!, 10+1!, 11+1!, 12+1, 12OF9.2+1, 12OF9.3+1, 13+1!, 14+1!, 15+1!, 16+1 , 16OF9.2+1, 16OF9.3+1, 17+1!, 17.5+1!, 18+1!, 19+1!, 20+1!, 21+1!, 22+1, 22OF9.2+1 , 22OF9.3+1, 23+1!, 24+1!, 25+1!, 26+1!, 27+1!, 28+1, 28OF9.2+1, 28OF9.3+1, 29+1! , 30+1!, 31+1!, 32+1!, 32.1+1!, 32.2+1!, 33+1!, 34+1!, 39+1!, 40+1!, 42+1* , 42OF9.2+1, 42OF9.3+1, 43+1, 43OF9.2+1, 43OF9.3+1, 44+1!, 45+1!, 46+1, 46OF9.2+1, 46OF9.4+1 , 47+1!, 48+1, 48OF9.2+1, 48OF9.3+1, 49+1!, 50+1!, 54+1!, 57+1!, 58+1!, 58(XREF 1S) , 58(XREF 1n1.4), 58(XREF 1K), 58(XREF 1n2.1), 58(XREF 1n2.4), 59+1, 59OF9.2+1, 59OF9.3+1, 59OF9.4+1, 59OF9.5+1, 60+1 , 60OF9.2+1, 60OF9.3+1, 60OF9.4+1, 60OF9.5+1, 62+1, 62OF9.2+1, 62OF9.3+1, 62OF9.4+1, 65+1, 65OF9.2+1* , 65OF9.3+1, 65OF9.4+1, 65OF9.5+1, 67+1, 67OF9.2+1, 67OF9.3+1, 67OF9.4+1, 67OF9.5+1, 600+1!, 701+1! , 900(XREF 1S), 900(XREF 1K), 1501+1!, 1502+1!, 1504+1!, 1505+1!, 1506(XREF 1S), 1506(XREF 1K), 1507+1!, 1508+1! , 1509+1!, 1510+1!, 1513+1!, 1514+1!, 1515+1!
Y	.01+1, 2+1, 22OF9.2+1, 22OF9.3+1, 43OF9.2+1, 43OF9.3+1, 46+1*, 50+1, 57+1, 58+1 , 58(XREF 1S), 58(XREF 1K), 701+1, 1502+1, 1505+1, 1507+1, 1508+1, 1514+1
Y(	12+1, 12OF9.2+1, 12OF9.3+1, 16+1, 16OF9.2+1, 16OF9.3+1, 22+1, 22OF9.2+1, 22OF9.3+1, 28+1 , 28OF9.2+1, 28OF9.3+1, 42+1, 42OF9.2+1, 42OF9.3+1, 43+1, 43OF9.2+1, 43OF9.3+1, 46+1, 46OF9.2+1* , 46OF9.3+1, 46OF9.4+1, 48+1, 48OF9.2+1, 48OF9.3+1, 59+1, 59OF9.2+1, 59OF9.3+1, 59OF9.4+1, 59OF9.5+1 , 60+1, 60OF9.2+1, 60OF9.3+1, 60OF9.4+1, 60OF9.5+1, 62+1, 62OF9.2+1, 62OF9.3+1, 62OF9.4+1, 65+1 , 65OF9.2+1, 65OF9.3+1, 65OF9.4+1, 65OF9.5+1, 67+1, 67OF9.2+1, 67OF9.3+1, 67OF9.4+1, 67OF9.5+1*
Y(1	58(XREF 1S), 58(XREF 1K), 58(XREF 1n2.1)
ZZ	ID1+1*!

Customize PDF page

Package: Medicine

Global: ^MCAR(691.7

Information

Description

Directly Accessed By Routines, Total: 14

Accessed By FileMan Db Calls, Total: 1

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 12

Fields, Total: 94

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	.01+1, 2+1, 1502+1, 1505+1, 1507+1, 1508+1, 1514+1
^DIC	50+1, 57+1, 58+1, 701+1
^DICR	58(XREF 1n1.4), 58(XREF 1n2.4)
CHGDTE^MCARPROC	.01(XREF 2K)
CHGDTE1^MCARPROC	.01(XREF 2S)
CHGPAT^MCARPROC	1(XREF 2S)
KILL^MCARPROC	1(XREF 2K)