Global: ^MCAR(691.1

FileMan FileNo	FileMan Filename	Package
691.1	CARDIAC CATHETERIZATION	Medicine

Package	Total	Routines
Medicine	27	DIAGNOSIS HEART MEDICATION ICD DIAGNOSIS IMAGE INTERVENTION LMCA NARROWING # MCARBSA MCARCATH1 MCARCATHB MCARFLCATH MCARGIBRIEF MCAROC1 MCAROC2 MCAROC21 MCAROC22 MCAROC3 MCAROC31 MCAROC4 MCAROC41 MCFLCATH MCFLECG MCOBC1 MCOBC11 MCPOS01B RISK FACTOR SYMPTOM ^MCAR(691.1
Clinical Procedures	1	MDCVT1

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	18	MEDICAL PATIENT(#690)[1] INTERPRETATION(#693.2)[59] MEDICATION(#695)[#691.16(.01)] CATH PROCEDURE(#695.3)[#691.11(.01), #691.13(.01)] PAST HISTORY AND RISK FACTOR(#695.4)[#691.44(.01)] SYMPTOM(#695.5)[#691.43(.01)] HEART CATHETER(#695.6)[#691.22(.01), #691.23(.01), #691.24(.01)] NORMALITY OF CORONARY VESSEL(#695.9)[27, 32, 34, 39] SEGMENT OF CORONARY ARTERIES(#696)[#691.27(.01), #691.28(.01), #691.28(1), #691.3(.01), #691.31(.01), #691.31(1), #691.32(.01), #691.33(.01), #691.33(1), #691.35(.01), #691.36(.01)] PERCENTAGE LESION(#696.1)[#691.27(1), #691.29(.01), #691.3(1), #691.32(1), #691.35(1), #691.36(1), #691.36(2)] LESION MORPHOLOGY(#696.2)[#691.27(2), #691.29(1), #691.3(2), #691.32(2), #691.47(1)] MORPHOLOGY OF DISTAL VESSEL(#696.3)[29, 36, 41] BYPASS GRAFT SEGMENT(#696.4)[#691.35(2)] LEFT VENTRICULOGRAPHY(#696.5)[#691.39(.01)] MITRAL REGURG ON LV GRAM(#696.7)[51] COMPLICATION(#696.9)[#691.4(.01)] REFERRING PHYSICIAN/AGENCY(#697.1)[4] MEDICAL DIAGNOSIS/ICD CODES(#697.5)[#691.18(.01)]
Consult Request Tracking	1	REQUEST/CONSULTATION(#123)[1001]
DRG Grouper	1	ICD DIAGNOSIS(#80)[#691.46(.01)]
Imaging	1	IMAGE(#2005)[#691.12005(.01)]
Kernel	1	NEW PERSON(#200)[62, 63, 64, 65, 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)[5]

Fields, Total: 102

Field #	Name	Loc	Type	Details
.01	DATE/TIME	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 12, 1989` HELP-PROMPT: `ENTER PATIENT NAME OR DATE AND TIME OF CARDIAC CATHETERIZATION` DESCRIPTION: `This date/time field identifies the catheterization procedure.` TECHNICAL DESCR: `ORDER ENTRY TYPE: IDENTIFIER` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `691.1^B` `1)= S ^MCAR(691.1,"B",$E(X,1,30),DA)=""` `2)= K ^MCAR(691.1,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `691.1^AD^MUMPS` `1)= S MCARCDIE="^MCAR(691.1," D CHGDTE1^MCARPROC` `2)= S MCARCDIE="^MCAR(691.1," D CHGDTE^MCARPROC` `This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent cardiac catherization procedure for this patient.`
.02	ID	.1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<2) X` LAST EDITED: `APR 08, 1986` HELP-PROMPT: `Enter any unique identification number for this catheterization 2-10 characters. SSN need not be entered since it is already entered.` DESCRIPTION: `This field identifies the patient's identification number assigned by the medical facility. In most cases it is the person's social security number.`
.03	SUMMARY	.2;1	SET	**********************REQUIRED FIELD********************** 'N' FOR NORMAL; 'A' FOR ABNORMAL; 'B' FOR BORDERLINE; LAST EDITED: `AUG 13, 1987` DESCRIPTION: `This fields contains the gross evaluation of the results of this procedure.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
.04	SYMPTOM	.3;0	POINTER Multiple #691.43	691.43 DESCRIPTION: `This field contains the patient's physical complaints or symptoms.`
.05	RISK FACTOR	.4;0	POINTER Multiple #691.44	691.44 HELP-PROMPT: `This entry will match one found in the Risk Factor file.` DESCRIPTION: `This field contains the morbidity factors which this patient is most susceptible to.`
1	MEDICAL PATIENT	0;2	POINTER TO MEDICAL PATIENT FILE (#690)	**********************REQUIRED FIELD********************** MEDICAL PATIENT(#690) LAST EDITED: `JUL 10, 1987` DESCRIPTION: `This field identifies the name of the patient followed by a space(optional), followed by the first name, followed by a space, followed by the middle initial.` TECHNICAL DESCR: `ORDER ENTRY TYPE: IDENTIFIER` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `691.1^C` `1)= S ^MCAR(691.1,"C",$E(X,1,30),DA)=""` `2)= K ^MCAR(691.1,"C",$E(X,1,30),DA)` `This cross-reference allows look-ups by patient.` CROSS-REFERENCE: `691.1^AC^MUMPS` `1)= S MCARCDIE="^MCAR(691.1," D CHGPAT^MCARPROC Q` `2)= S MCARCDIE="^MCAR(691.1," D KILL^MCARPROC Q` `This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent cardiac catheterization procedure for this patient.`
1.1	WT LBS	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>500)!(X<40)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 02, 1989` HELP-PROMPT: `Weight in pounds. Enter a number from 40 to 500.` DESCRIPTION: `The weight of the patient at the time of the procedure is stored here.` CROSS-REFERENCE: `691.1^AE^MUMPS` `1)= D CATH^MCARBSA` `2)= S $P(^MCAR(691.1,DA,0),U,9)="",X="" D B^MCARBSA` `This cross-reference computes the patient's body surface area from the patient's height and weight and inserts the computed value into the BODY SURFACE AREA field (#1.3).`
1.2	HT IN	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>96)!(X<40)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 02, 1989` HELP-PROMPT: `Height in Inches. Type a number from 40 to 96.` DESCRIPTION: `The height in inches at the time of the procedure.` CROSS-REFERENCE: `691.1^AF^MUMPS` `1)= D CATH^MCARBSA` `2)= S $P(^MCAR(691.1,DA,0),U,9)="",X="" D B^MCARBSA` `This cross-reference computes the patient's body surface area from the patient's height and weight and inserts the computed value into the BODY SURFACE AREA field (#1.3).`
1.3	BODY SURFACE AREA	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `AUG 03, 1989` HELP-PROMPT: `Calculated from weight and height fields.` DESCRIPTION: `This field identifies parameter is calculated by height and weight and stored in square meters.` `UNEDITABLE`
3	CATH NUMBER	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<1) X` LAST EDITED: `AUG 02, 1989` HELP-PROMPT: `Answer must be 1-9 characters in length.` DESCRIPTION: `This allows the user to enter the cardiac catheterization procedure number.`
4	REFERRING PHYSICIAN/AGENCY	0;5	POINTER TO REFERRING PHYSICIAN/AGENCY FILE (#697.1)	REFERRING PHYSICIAN/AGENCY(#697.1) LAST EDITED: `MAY 18, 1988` DESCRIPTION: `This allows the user to enter the referring physician/agency/hospital's name.`
5	WARD/CLINIC	0;6	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `SEP 13, 1991` DESCRIPTION: `This field identifies the in-house patient address.`
6	CCL LOG PROCEDURE	1;0	POINTER Multiple #691.11	691.11 DESCRIPTION: `This allows the user to enter the cardiac catheterization procedure.`
7	TECH COMMENT	2;0	WORD-PROCESSING #691.12	DESCRIPTION: `This allows the cardiac cath. technician to enter comments pertaining to the procedure.` DESCRIPTION: `This allows the cardiac cath technician to enter comments pertaining to the procedure.`
8	PROCEDURE	3;0	POINTER Multiple #691.13	691.13 DESCRIPTION: `This allows the user to enter multiple cardiac cath. procedure.`
9	HISTORY	4;0	WORD-PROCESSING #691.14	DESCRIPTION: `This allows the user to enter a brief medical history.` DESCRIPTION: `This allows the user to enter a brief medical history.`
11	HEART MEDICATION	6;0	POINTER Multiple #691.16	691.16 DESCRIPTION: `This field documents the cardiac medicines that the patient is taking at the time of this procedure. (multiple)`
12	PHYSICAL EXAM	7;0	WORD-PROCESSING #691.17	DESCRIPTION: `This allows the user to enter data obtained from medical patient's physical examination.` DESCRIPTION: `This allows the user to enter a data obtain from medical patient's physical examination.`
13	INDICATION	8;0	POINTER Multiple #691.18	691.18 LAST EDITED: `AUG 23, 1991` DESCRIPTION: `This allows the user to enter multiple pre-cardiac catheterization diagnoses.` TECHNICAL DESCR: `ORDER ENTRY TYPE: INDICATION`
15	PREMEDICATION	10;0	SET Multiple #691.2	691.2 DESCRIPTION: `This allows the user to enter multiple pre-cardiac catheterization medications.`
16	VASCULAR ACCESS	11;0	SET Multiple #691.21	691.21 DESCRIPTION: `This allows the user to enter multiple cardiac catheterization vascular accesses.`
17	FLUORO TIME	12;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<.1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 23, 1990` HELP-PROMPT: `Type a Number between .1 and 99, 0 Decimal Digits` DESCRIPTION: `This allows the user to enter catheterization fluoroscopy time.`
18	USE OF SHEATH	12;2	SET	'A' FOR ARTERY; 'V' FOR VEIN; 'B' FOR BOTH ARTERY AND VEIN; 'N' FOR NEITHER ARTERY NOR VEIN; DESCRIPTION: `This defines the use of a sheath during cardiac catheterization.`
19	RIGHT HEART CATHETER	12;3	SET	'C' FOR 7F COURNAND; 'Z' FOR 7F ZUCKER; 'S' FOR 7F SWAN GANZ; 'E' FOR 7F EPPENDORF; DESCRIPTION: `This allows the user to enter the specific right heart catheter used.`
20	LEFT VENTRICULAR CATHETER	13;0	POINTER Multiple #691.22	691.22 DESCRIPTION: `This allows the user to enter multiple left ventricular catheters used.`
21	RIGHT CORONARY CATHETER	14;0	POINTER Multiple #691.23	691.23 DESCRIPTION: `This allows the user to enter multiple right coronary catheters used.`
22	LEFT CORONARY CATHETER	15;0	POINTER Multiple #691.24	691.24 DESCRIPTION: `This allows the user to enter multiple left coronary catheters used.`
23	AORTOGRAPHY PROJECTION	16;1	SET	'L' FOR LAO; 'R' FOR RAO; DESCRIPTION: `This field identifies the view of the aortography projection.`
24	OTHER PROCEDURE AND COMMENT	17;0	WORD-PROCESSING #691.25	DESCRIPTION: `This allows the user to enter unspecified procedures and comments.` LAST EDITED: `MAY 14, 1996` DESCRIPTION: `This allows the user to enter unspecified procedures and comments.`
25	PROTAMINE	18;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-20 CHARACTERS IN LENGTH DESCRIBING MG OF PROTAMINE ADMINISTERED` DESCRIPTION: `This allows the user to enter the protamine used during the cardiac catheterization.`
26	INTERVENTION	19;0	SET Multiple #691.26	691.26 DESCRIPTION: `This allows the user to enter multiple cardiac catheterization interventions.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
27	RCA NORMALITY	20;1	POINTER TO NORMALITY OF CORONARY VESSEL FILE (#695.9)	NORMALITY OF CORONARY VESSEL(#695.9) LAST EDITED: `FEB 10, 1986` DESCRIPTION: `This allows the user to enter the right coronary artery normality.`
28	RCA SEGMENT	21;0	POINTER Multiple #691.27	691.27 DESCRIPTION: `This allows the user to enter multiple right coronary artery segments.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
29	RCA DISTAL VESSEL	22;1	POINTER TO MORPHOLOGY OF DISTAL VESSEL FILE (#696.3)	MORPHOLOGY OF DISTAL VESSEL(#696.3) LAST EDITED: `FEB 10, 1986` DESCRIPTION: `This allows the user to enter the right coronary artery distal vessel.`
30	RCA COLLATERAL	22;2	SET	'P' FOR PRESENT; 'N' FOR NOT PRESENT; DESCRIPTION: `This allows the user to enter the right coronary artery collateral vessel.`
31	RCA ORIGIN OF COLLATERAL	23;0	POINTER Multiple #691.28	691.28 DESCRIPTION: `This allows the user to enter multiple right coronary artery origins of collateral vessels.`
32	LEFT MAIN CA NORMALITY	24;1	POINTER TO NORMALITY OF CORONARY VESSEL FILE (#695.9)	NORMALITY OF CORONARY VESSEL(#695.9) LAST EDITED: `FEB 10, 1986` DESCRIPTION: `This allows the user to enter the left main coronary artery normality.`
33	LMCA NARROWING	25;0	POINTER Multiple #691.29	691.29 DESCRIPTION: `This allows the user to enter multiple left main coronary artery narrowings.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
33.5	LMCA NARROWING #	25.5;0	Multiple #691.47	691.47 DESCRIPTION: `This allows the user to enter multiple left main coronary artery narrowings.`
34	LAD NORMALITY	26;1	POINTER TO NORMALITY OF CORONARY VESSEL FILE (#695.9)	NORMALITY OF CORONARY VESSEL(#695.9) LAST EDITED: `FEB 10, 1986` DESCRIPTION: `This allows the user to enter the left anterior descending coronary artery normality.`
35	LAD SEGMENT	27;0	POINTER Multiple #691.3	691.3 DESCRIPTION: `This allows the user to enter multiple left anterior descending coronary artery segments.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
36	LAD DISTAL VESSELS	28;1	POINTER TO MORPHOLOGY OF DISTAL VESSEL FILE (#696.3)	MORPHOLOGY OF DISTAL VESSEL(#696.3) LAST EDITED: `FEB 10, 1986` DESCRIPTION: `This allows the user to enter the left anterior descending distal vessels.`
37	LAD COLLATERALS	28;2	SET	'N' FOR NONE; 'P' FOR PRESENT; DESCRIPTION: `This allows the user to enter left anterior descending collateral vessels.`
38	LAD ORIGIN OF COLLATERALS	29;0	POINTER Multiple #691.31	691.31 DESCRIPTION: `This allows the user to enter the left anterior descending arterial origin of collaterals (multiple).`
39	CIRCUMFLEX NORMALITY	30;1	POINTER TO NORMALITY OF CORONARY VESSEL FILE (#695.9)	NORMALITY OF CORONARY VESSEL(#695.9) LAST EDITED: `FEB 10, 1986` DESCRIPTION: `This allows the user to enter the circumflex coronary normality.`
40	CIRCUMFLEX SEGMENT	31;0	POINTER Multiple #691.32	691.32 DESCRIPTION: `This allows the user to enter multiple circumflex artery segments.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
41	CIRCUMFLEX DISTAL VESSEL	32;1	POINTER TO MORPHOLOGY OF DISTAL VESSEL FILE (#696.3)	MORPHOLOGY OF DISTAL VESSEL(#696.3) LAST EDITED: `FEB 10, 1986` DESCRIPTION: `This allows the user to enter circumflex coronary artery distal vessels.`
42	CIRCUMFLEX COLLATERALS	32;2	SET	'N' FOR NONE; 'P' FOR PRESENT; DESCRIPTION: `This allows the user to enter the circumflex coronary artery collaterals.`
43	CIR. ORIGIN OF COLLATERALS	33;0	POINTER Multiple #691.33	691.33 DESCRIPTION: `This allows the user to enter the origin of circumflex collaterals. (multiple)`
44	FLUOROSCOPY	34;0	SET Multiple #691.34	691.34 DESCRIPTION: `This allows the user to enter multiple visualizations of calcium noted during the cardiac cath.`
45	DOMINANCE	35;1	SET	'L' FOR LEFT DOMINANCE; 'R' FOR RIGHT DOMINANCE; 'B' FOR BALANCED DOMINANCE; DESCRIPTION: `This allows the user to enter the dominant coronary tree.`
46	BYPASS GRAFT?	35;2	SET	'N' FOR NOT PRESENT; 'P' FOR PRESENT; LAST EDITED: `AUG 04, 1986` DESCRIPTION: `This allows the user to enter the presence of coronary bypass grafts.`
47	DISTAL ANASTOMOSIS	36;0	POINTER Multiple #691.35	691.35 DESCRIPTION: `This allows the user to enter multiple distal anastomosis.`
48	ANGIOPLASTY SEGMENT	37;0	POINTER Multiple #691.36	691.36 DESCRIPTION: `This allows the user to enter multiple angioplasty segments.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
49	LEFT VENTRICULOGRAPHY	38;1	SET	'N' FOR NORMAL; 'A' FOR ABNORMAL; 'G' FOR GLOBAL HYPOKINESIS; 'NO' FOR NOT PERFORMED; DESCRIPTION: `This field identifies the field used to enter the performance of a left ventriculography.`
50	LEFT VENTRICULAR WALL MOTION	39;0	POINTER Multiple #691.39	691.39 DESCRIPTION: `This allows the user to enter multiple LV wall motion normalities.`
51	MITRAL REGURGITATION	40;1	POINTER TO MITRAL REGURG ON LV GRAM FILE (#696.7)	MITRAL REGURG ON LV GRAM(#696.7) LAST EDITED: `FEB 10, 1986` DESCRIPTION: `This allows the user to enter the presence of mitral regurgitation.`
51.5	MITRAL REGURGITANT FRACTION	40;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 24, 1987` HELP-PROMPT: `Type a Number between 0 and 100, 0 Decimal Digits` DESCRIPTION: `This allows the user to enter the mitral regurgitation fraction.`
51.6	AORTIC REGURGITANT FRACTION	40;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 24, 1987` HELP-PROMPT: `Type a Number between 0 and 100, 0 Decimal Digits` DESCRIPTION: `This allows the user to enter aortic regurgitant fraction.`
51.7	TOTAL REGURGITANT FRACTION	40;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 24, 1987` HELP-PROMPT: `Type a Number between 0 and 100, 0 Decimal Digits` DESCRIPTION: `This defines the computed total regurgitant fraction.`
52	THROMBUS OM LV GRAM	40;2	SET	'Y' FOR YES; 'N' FOR NO; DESCRIPTION: `This allows the user to enter presence of a LV thrombus.`
53	LV EJECTION FRACTION	40;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 29, 1987` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits` DESCRIPTION: `This allows the user to enter the calculated LV ejection fraction.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
54	AORTOGRAPHY	40;4	SET	'0' FOR NONE; '1' FOR 1+; '2' FOR 2+; '3' FOR 3+; '4' FOR 4+; '5' FOR 5+; DESCRIPTION: `This allows the user to enter the aortography projection.`
55	AORTIC ROOT	40;5	SET	'N' FOR NORMAL; 'D' FOR DILATED; LAST EDITED: `MAR 27, 1996` DESCRIPTION: `This allows the user to enter the aortic root dimensions normality.`
56	SINUSES OF VALSALVA	40;6	SET	'2' FOR 2 SINUSES OF VALSALVA; '3' FOR 3 SINUSES OF VALSALVA; LAST EDITED: `APR 14, 1988` DESCRIPTION: `This allows the user to enter number of sinuses of valsalva.`
57	BYPASS GRAFTS	40;7	SET	'0' FOR NONE; '1' FOR ONE; '2' FOR TWO; '3' FOR THREE; '4' FOR FOUR; '5' FOR FIVE; DESCRIPTION: `This allows the user to enter number of coronary bypass grafts.`
58	COMPLICATION	41;0	POINTER Multiple #691.4	691.4 DESCRIPTION: `This allows the user to enter multiple cardiac cath. complications.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
59	INTERPRETATION	42;1	POINTER TO INTERPRETATION FILE (#693.2)	INTERPRETATION(#693.2) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 09, 1990` HELP-PROMPT: `Enter the interpretation of the cardiac cath procedure.` DESCRIPTION: `This allows the user to enter the final interpretation of the cardiac cath.` SCREEN: `S DIC("S")="I $P(^(0),U,2)=""C"""` EXPLANATION: `CHOOSES CATHETERIZATION CODES ONLY`
60	CONCLUSION	43;0	WORD-PROCESSING #691.41	TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN` DESCRIPTION: `This allows the user to enter specific statements inreference to the cardiac cath.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
61	PLAN	44;0	WORD-PROCESSING #691.42	TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN` DESCRIPTION: `This allows the user to enter specific statements inreference to the patients management plan.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
62	CARDIOLOGY FELLOW	45;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: `MAY 09, 1996` DESCRIPTION: `This allows the user to enter the primary cardiology fellow.` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"` EXPLANATION: `Check if this person holds the PROVIDER key.`
63	CARDIOLOGY STAFF	45;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: `MAY 09, 1996` DESCRIPTION: `This allows the user to enter the primary physician in attendance.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"` EXPLANATION: `Check if this person holds the PROVIDER key.` CROSS-REFERENCE: `^^TRIGGER^691.1^701` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691.1,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(691.1,63,1,1,1.4)` `1.4)= S DIH=$S($D(^MCAR(691.1,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691.1,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691.1,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(691.1,63,1,1,2.1) X ^DD(691.1,63,1,1,2.4)` `2.1)= S X=DIV S Y(1)=$S($D(^MCAR(691.1,D0,45)):^(45),1:"") S X=$P(Y(1),U,2),X=X` `2.4)= S DIH=$S($D(^MCAR(691.1,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691.1,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= INTERNAL(CARDIOLOGY STAFF)` `DELETE VALUE)= INTERNAL(CARDIOLOGY STAFF)` `FIELD)= #701` `This trigger is used to populate the generic primary provider field, 701.`
64	CARDIOLOGY FELLOW-2ND	5;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: `MAY 09, 1996` HELP-PROMPT: `Enter name of 2nd Cardiology fellow` DESCRIPTION: `This allows the user to enter the secondary cardiology fellow.` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"` EXPLANATION: `Check if this person holds the PROVIDER key.`
65	CARDIOLOGY STAFF-2ND	5;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: `MAY 09, 1996` HELP-PROMPT: `Enter name of 2nd attending physician` DESCRIPTION: `This allows the user to enter the secondary physician in attendance.` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"` EXPLANATION: `Check if this person holds the PROVIDER key.`
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: `This field will be displayed in the summary areas of Order Entry/Results Reporting and Health Care Summaries.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
700	ICD DIAGNOSIS	ICD;0	POINTER Multiple #691.46	691.46 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: `MAY 09, 1996` DESCRIPTION: `This contains the primary provider. It is triggered by another field in the file and is located here to provider a standard provider location for use in transferring data to the PCC.` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"` EXPLANATION: `Check if this person holds the PROVIDER key.` NOTES: `TRIGGERED by the CARDIOLOGY STAFF field of the CARDIAC CATHETERIZATION File`
899	MARKED FOR DELETION	MFD;1	SET	'1' FOR MARKED FOR DELETION; LAST EDITED: `JUL 31, 1992` DESCRIPTION: `This field is used by lookup operations to screen out such records from general access by the electronic medical record. The functionality allows this record to remain in the system for auditing purposes.`
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.1^APCE` `1)= S ^MCAR(691.1,"APCE",$E(X,1,30),DA)=""` `2)= K ^MCAR(691.1,"APCE",$E(X,1,30),DA)` `Pointer to the Visit file.`
1000	ORIFN	OR;1	POINTER TO ORDER FILE (#100)	ORDER(#100) LAST EDITED: `JUL 09, 1991` HELP-PROMPT: `Enter the 'Consult Orders' internal file number.` DESCRIPTION: `This field contains a pointer to the 'Consult Orders' internal file number, stored in file 100. This field is entered when results are entered in the Medicine package.`
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 04, 1993` HELP-PROMPT: `The Current person updating the procedure` DESCRIPTION: `This field identifies the individual who created this version of the record, the last person to edit the entree.`
1501	ENTERING ELECTRONIC SIGNATURE	ES;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `FEB 04, 1993` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This is the scrambled electronic signature.`
1502	ENTERING DATE	ES;3	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 04, 1993` HELP-PROMPT: `The Current Date of the update.` DESCRIPTION: `This is the date and time that the record was entered.`
1503	VERIFYING DUZ	ES;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 04, 1993` HELP-PROMPT: `The person that sign it.` DESCRIPTION: `This is the New Person file identifier of the person releasing the record. The person entering the electronic signature is captured here.`
1504	VERIFIER ELECTRONIC SIGNATURE	ES;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `FEB 04, 1993` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This is the electronic signature of the verifier.`
1505	VERIFIER DATE	ES;6	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 04, 1993` HELP-PROMPT: `The date that the procedure was signed` DESCRIPTION: `This is the date that the record was verified.`
1506	RELEASE CODE	ES;7	SET	'D' FOR DRAFT; 'PD' FOR PROBLEM DRAFT; 'RV' FOR RELEASE ON-LINE VERIFIED; 'ROV' FOR RELEASE OFF-LINE VERIFIED; 'RNV' FOR RELEASE NOT VERIFIED; 'S' FOR SUPERSEDED; 'SRV' FOR SUPERSEDING RELEASE ON-LINE VERIFIED; 'SROV' FOR SUPERSEDING RELEASE OFF-LINE VERIFIED; LAST EDITED: `MAR 04, 1993` HELP-PROMPT: `Select the current status of the procedure` DESCRIPTION: `This field controls the release status of the record.` CROSS-REFERENCE: `691.1^ES` `1)= S ^MCAR(691.1,"ES",$E(X,1,30),DA)=""` `2)= K ^MCAR(691.1,"ES",$E(X,1,30),DA)` `This cross-reference allows editing by release status.`
1507	DATE OF RELEASED	ES;8	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 04, 1993` HELP-PROMPT: `The that the procedure was mad available to non-key holders.` DESCRIPTION: `This is the date that the record was released to the general medical record viewer.`
1508	DATE OF VERIFIED	ES;9	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 04, 1993` HELP-PROMPT: `The date that the procedure was verified.` DESCRIPTION: `This is the date and time that the procedure was signed electronically.`
1509	SUPERSEDED	ES;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 04, 1993` HELP-PROMPT: `Type a Number between 0 and 999999999, 0 Decimal Digits` DESCRIPTION: `This indicator controls the process of superseding released records which require addendums or changes. This functionality allows an auditing of information which has been available for the medical record.`
1510	SUPERSEDED BY	ES;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 04, 1993` HELP-PROMPT: `Type a Number between 0 and 999999999, 0 Decimal Digits` DESCRIPTION: `This field directs the flow of supersessions of records.`
1511	MARKED FOR DELETION	ES;12	SET	'1' FOR MARKED FOR DELETION; LAST EDITED: `FEB 04, 1993` DESCRIPTION: `This field allows the record to remain in the database but screened from the medical record.`
1512	DELETER DUZ	ES;13	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 04, 1993` DESCRIPTION: `This field documents the identity of the deleter.`
1513	SUPERSEDED DATE	ES;14	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `FEB 04, 1993` HELP-PROMPT: `Do not enter information in this field` DESCRIPTION: `This is the date and time that the supersession took place.`
1514	RECORD CREATATION DATE	ES;15	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 04, 1993` DESCRIPTION: `This field stores the date the original file entry for this procedure was made.`
1515	SUPERSEDED NUMBER	ES;16	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 04, 1993` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits` DESCRIPTION: `This value documents the sequence number of record revisions.`
2005	IMAGE	2005;0	POINTER Multiple #691.12005	691.12005 DESCRIPTION: `This field points to an entry in the image file.`
2006	RESTING HEART RATE	CO;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>150)!(X<30)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 06, 1997` HELP-PROMPT: `Type a Number between 30 and 150, 0 Decimal Digits` DESCRIPTION: `This field identifies the patient's resting heart rate.`
2007	END DIASTOLIC VOLUME	CO;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<.1)!(X?.E1"."2N.N) X` LAST EDITED: `MAR 06, 1997` HELP-PROMPT: `Enter Number in Milliliters, 1 Decimal Place .1-999` DESCRIPTION: `This allows the user to enter the left ventricular diastolic volume.`
2008	END SYSTOLIC VOLUME	CO;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<.1)!(X?.E1"."2N.N) X` LAST EDITED: `MAR 06, 1997` HELP-PROMPT: `Enter Number of Square Centimeters, 1 Decimal Place .1-999` DESCRIPTION: `This allows the user to enter the left ventricular end systolic volume.`
2009	CARDIAC OUTPUT		COMPUTED	MUMPS CODE: `X ^DD(691.1,2009,9.5) S X=$S(Y(691.1,2009,2):Y(691.1,2009,3),Y(691.1,2009,4):Y(691.1,2009,5),Y(691.1,2009,6):Y(691.1,2009,7),Y(691.1,2009,8):X)` `9.2 = S Y(691.1,2009,1)=$S($D(^MCAR(691.1,D0,"CO")):^("CO"),1:"") S X=$P(Y(691.1,2009,1),U,1)="",Y(691.1,2009,2)=X S X="",Y(691.1,2009,3)=X S X=$P(Y(691.1,2009,1),U,2)` `9.3 = X ^DD(691.1,2009,9.2) S X=X="",Y(691.1,2009,4)=X S X="",Y(691.1,2009,5)=X S X=$P(Y(691.1,2009,1),U,3)="",Y(691.1,2009,6)=X S X="",Y(691.1,2009,7)=X S X=1` `9.4 = X ^DD(691.1,2009,9.3) S Y(691.1,2009,8)=X S X=$P(Y(691.1,2009,1),U,1),Y(691.1,2009,9)=X S X=$P(Y(691.1,2009,1),U,2)-$P(Y(691.1,2009,1),U,3)` `9.5 = X ^DD(691.1,2009,9.4) S Y=X,X=Y(691.1,2009,9),X=XY` ALGORITHM: `$S(#2006="":"",#2007="":"",#2008="":"",1:#2006(#2007-#2008))` DESCRIPTION: `This field computes the Angiographic Cardiac Output from the Resting Heart Rate (#2006), EDV (#2007), and ESV (#2008).` `The formula used is: Heart_Rate * (EDV - ESV).`

Name	Line Occurrences (* Changed, ! Killed)
^DD(	63(XREF 1n1.4), 63(XREF 1n2.4)
^DD(691.1	63(XREF 1S), 63(XREF 1K), 2009+1, 2009OF9.3+1, 2009OF9.4+1, 2009OF9.5+1
^DPT - [#2]	ID1+1
^MCAR(690 - [#690]	ID1+1
^MCAR(691.1 - [#691.1]	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1.1(XREF 1K), 1.2(XREF 1K), 63(XREF 1S), 63(XREF 1n1.4), 63(XREF 1K), 63(XREF 1n2.1) , 63(XREF 1n2.4), 900(XREF 1S), 900(XREF 1K), 1506(XREF 1S), 1506(XREF 1K), 2009OF9.2+1

Name	Field # of Occurrence
^("CO"	2009OF9.2+1
^("ES"	IDX1+1
^("PROV"	63(XREF 1S), 63(XREF 1n1.4), 63(XREF 1K), 63(XREF 1n2.4)
^(0	ID1+1
^(45	63(XREF 1n2.1)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1, 1502+1, 1505+1, 1507+1, 1508+1, 1514+1
>> D0	63(XREF 1S), 63(XREF 1K), 63(XREF 1n2.1), 2009OF9.2+1
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1.1(XREF 1K), 1.2(XREF 1K), 63(XREF 1S), 63(XREF 1K), 900(XREF 1S), 900(XREF 1K) , 1506(XREF 1S), 1506(XREF 1K)
DIC	ID1+1, IDX1+1, 59+1!, 62+1!, 63+1!, 64+1!, 65+1!, 701+1!
DIC("S"	59+1, 59SCR+1, 62+1, 62SCR+1, 63+1, 63SCR+1, 64+1, 64SCR+1, 65+1, 65SCR+1 , 701+1, 701SCR+1
>> DIE	59+1, 62+1, 63+1, 64+1, 65+1, 701+1
>> DIG	63(XREF 1n1.4), 63(XREF 1n2.4)
>> DIH	63(XREF 1n1.4), 63(XREF 1n2.4)
>> DIU	63(XREF 1S), 63(XREF 1K)
DIV	63(XREF 1S), 63(XREF 1n1.4), 63(XREF 1K), 63(XREF 1n2.1), 63(XREF 1n2.4)
DIV(0	63(XREF 1S), 63(XREF 1n1.4), 63(XREF 1K), 63(XREF 1n2.4)
>> MCARCDIE	.01(XREF 2S), .01(XREF 2K), 1(XREF 2S), 1(XREF 2K)
U	ID1+1, 1.1(XREF 1K), 1.2(XREF 1K), 63(XREF 1S), 63(XREF 1n1.4), 63(XREF 1K), 63(XREF 1n2.1), 63(XREF 1n2.4), 2009OF9.2+1, 2009OF9.3+1 , 2009OF9.4+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, 1(XREF 1S), 1(XREF 1K), 1.1+1!, 1.1(XREF 1K), 1.2+1!, 1.2(XREF 1K) , 1.3+1!, 3+1!, 17+1!, 25+1!, 51.5+1!, 51.6+1!, 51.7+1!, 53+1!, 59+1!, 62+1! , 63+1!, 63(XREF 1S), 63(XREF 1n1.4), 63(XREF 1K), 63(XREF 1n2.1), 63(XREF 1n2.4), 64+1!, 65+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!, 2006+1!, 2007+1!, 2008+1!, 2009+1, 2009OF9.2+1 , 2009OF9.3+1, 2009OF9.4+1, 2009OF9.5+1*
Y	.01+1, 59+1, 62+1, 63+1, 63(XREF 1S), 63(XREF 1K), 64+1, 65+1, 701+1, 1502+1 , 1505+1, 1507+1, 1508+1, 1514+1, 2009OF9.5+1*
Y(	2009+1, 2009OF9.2+1, 2009OF9.3+1, 2009OF9.4+1*, 2009OF9.5+1
Y(1	63(XREF 1S), 63(XREF 1K), 63(XREF 1n2.1)
ZZ	ID1+1*!

Customize PDF page

Package: Medicine

Global: ^MCAR(691.1

Information

Description

Directly Accessed By Routines, Total: 30

Accessed By FileMan Db Calls, Total: 1

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 25

Fields, Total: 102

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	.01+1, 1502+1, 1505+1, 1507+1, 1508+1, 1514+1
^DIC	59+1, 62+1, 63+1, 64+1, 65+1, 701+1
^DICR	63(XREF 1n1.4), 63(XREF 1n2.4)
B^MCARBSA	1.1(XREF 1K), 1.2(XREF 1K)
CATH^MCARBSA	1.1(XREF 1S), 1.2(XREF 1S)
CHGDTE^MCARPROC	.01(XREF 2K)
CHGDTE1^MCARPROC	.01(XREF 2S)
CHGPAT^MCARPROC	1(XREF 2S)
KILL^MCARPROC	1(XREF 2K)