Global: ^MCAR(691.6

FileMan FileNo	FileMan Filename	Package
691.6	HOLTER	Medicine

Package	Total	Routines
Medicine	12	DIAGNOSIS HEART MED ICD DIAGNOSIS MCAR7H MCAROH1 MCAROH11 MCAROH2 MCOBH1 MCPOS01B ^MCAR(691.6 RISK FACTOR SYMPTOM
Clinical Procedures	1	MDCVT1

Package	Total	Routines
Medicine	2	MCAR7H MCARP

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

Package	Total	FileMan Files
Medicine	4	MEDICAL PATIENT(#690)[1] MEDICATION(#695)[#691.61(.01)] PAST HISTORY AND RISK FACTOR(#695.4)[#691.67(.01)] SYMPTOM(#695.5)[#691.66(.01)]
Consult Request Tracking	1	REQUEST/CONSULTATION(#123)[1001]
DRG Grouper	1	ICD DIAGNOSIS(#80)[#691.69(.01)]
Kernel	1	NEW PERSON(#200)[4, 6, 10, 12, 14, 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)[17]

Fields, Total: 97

Field #	Name	Loc	Type	Details
.01	HOOK-UP DATE/TIME	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 HOLTER PROCEDURE` DESCRIPTION: `This field identifies the specific Holter procedure.` TECHNICAL DESCR: `ORDER ENTRY TYPE: IDENTIFIER` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `691.6^B` `1)= S ^MCAR(691.6,"B",$E(X,1,30),DA)=""` `2)= K ^MCAR(691.6,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `691.6^AD^MUMPS` `1)= S MCARCDIE="^MCAR(691.6," D CHGDTE1^MCARPROC` `2)= S MCARCDIE="^MCAR(691.6," D CHGDTE^MCARPROC` `This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent Holter 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 HOLTER procedure, 2 to 10 characters. SSN need not be entered since this has already been 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 Holter 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.66	691.66 DESCRIPTION: `This field contains the patient's physical complaints or symptoms.`
.05	RISK FACTOR	.4;0	POINTER Multiple #691.67	691.67 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.6^C` `1)= S ^MCAR(691.6,"C",$E(X,1,30),DA)=""` `2)= K ^MCAR(691.6,"C",$E(X,1,30),DA)` `This cross-reference allows look-ups by patient.` CROSS-REFERENCE: `691.6^AC^MUMPS` `1)= S MCARCDIE="^MCAR(691.6," D CHGPAT^MCARPROC` `2)= S MCARCDIE="^MCAR(691.6," D KILL^MCARPROC` `This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent Holter procedure for this patient.`
2	HT IN	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<50)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 50 AND 100` DESCRIPTION: `This field contains the patient's height in inches at the time of the procedure.`
3	WT LBS	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>350)!(X<50)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 50 AND 350` DESCRIPTION: `This field contains the weight of the patient at the time of the procedure.`
4	REQUESTED BY	0;5	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 12, 1994` HELP-PROMPT: `Enter medical provider that ordered this procedure.` DESCRIPTION: `This field identifies the medical provider who ordered this procedure.` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"` EXPLANATION: `Check if this person holds the PROVIDER key.`
5	DATE REQUESTED	0;6	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter date/time procedure is ordered.` DESCRIPTION: `This field identifies the time/date the procedure was ordered.`
5.5	REASON FOR STUDY	8;0	SET Multiple #691.65	691.65 DESCRIPTION: `This field contains the rationale for ordering this procedure.` TECHNICAL DESCR: `ORDER ENTRY TYPE: INDICATION`
5.8	OTHER INDICATIONS	10;0	WORD-PROCESSING #691.68	TECHNICAL DESCR: `ORDER ENTRY TYPE: INDICATION` LAST EDITED: `FEB 21, 1990` HELP-PROMPT: `Free Text entry of reason for study.` DESCRIPTION: `This field identifies field is used to define indications not included in the Reason for Study set.` TECHNICAL DESCR: `ORDER ENTRY TYPE: INDICATION`
6	APPROVED BY	0;7	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 12, 1994` HELP-PROMPT: `Enter medical provider that approved the request for this procedure.` DESCRIPTION: `This field identifies the medical provider who approved the request for this procedure.` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"` EXPLANATION: `Check if this person holds the PROVIDER key.`
7	DATE APPROVED	0;8	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter date procedure request was approved.` DESCRIPTION: `This field is used to document the date of procedure request approval.`
8	APPOINTMENT DATE	0;9	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter date procedure is/was scheduled.` DESCRIPTION: `This field contains the date this procedure is/was scheduled.`
10	HOOK-UP BY	0;11	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 12, 1994` HELP-PROMPT: `Enter medical provider that physically initiated this procedure.` DESCRIPTION: `This field identifies the medical provider who physically initiated this procedure.` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"` EXPLANATION: `Only providers can be selected.`
11	RETURN DATE & TIME	0;12	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter date/time the patient is scheduled to return. This date is automatically set to the appointment date/time plus 24 hours by the system.` DESCRIPTION: `This field contains the time/date which the patient is scheduled for return. This date is automatically set to the appointment time/date plus 24 hours by the system.`
12	SCANNED BY	0;13	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 12, 1994` HELP-PROMPT: `Enter medical provider that performed Holter scan.` DESCRIPTION: `This field documents the medical provider who performed the Holter scan.` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"` EXPLANATION: `Only providers can be selected.`
13	SCANNED DATE	0;14	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter date the scanning procedure was performed.` DESCRIPTION: `This field documents the date the scanning procedure was performed.`
14	REVIEWED BY	0;15	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 the medical provider that reviewed this procedure.` DESCRIPTION: `This field identifies the medical provider who reviewed this procedure.` TECHNICAL DESCR: `ORDER ENTRY TYPE: IDENTIFIER` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"` EXPLANATION: `Only providers can be selected.` CROSS-REFERENCE: `^^TRIGGER^691.6^701` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691.6,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.6,14,1,1,1.4)` `1.4)= S DIH=$S($D(^MCAR(691.6,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691.6,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.6,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(691.6,14,1,1,2.1) X ^DD(691.6,14,1,1,2.4)` `2.1)= S X=DIV S Y(1)=$S($D(^MCAR(691.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,15),X=X` `2.4)= S DIH=$S($D(^MCAR(691.6,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691.6,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= INTERNAL(#14)` `DELETE VALUE)= INTERNAL(#14)` `FIELD)= #701` `This trigger sets the primary provider file.`
15	REVIEW DATE	0;16	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter the date the review occurred.` DESCRIPTION: `This field documents the date the review occurred.`
16	PATIENT CATEGORY	0;17	SET	'I' FOR INPATIENT; 'O' FOR OUTPATIENT; HELP-PROMPT: `Enter code for inpatient or outpatient status.` DESCRIPTION: `This field defines either inpatient or outpatient status.`
17	WARD/CLINIC	0;18	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `SEP 13, 1991` DESCRIPTION: `This field identifies the in house address of the patient.`
18	HEART MED	1;0	POINTER Multiple #691.61	691.61 DESCRIPTION: `This field contains the multiple cardiac medicines that the patient was taking at the time of this procedure.`
19	HOLTER RUN NUMBER	2;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<2)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 2 AND 99999` DESCRIPTION: `This field contains the facility generated procedure number.`
20	RECORDER NUMBER	2;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99999` DESCRIPTION: `This field identifies the recorder used in this procedure.`
21	BATTERY NUMBER	2;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>5)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 5` DESCRIPTION: `This field identifies the battery used in this procedure.`
22	MALFUNCTIONS	2;4	SET	'Y' FOR YES; 'N' FOR NO; HELP-PROMPT: `Enter code for whether or not any procedure malfunction occurred.` DESCRIPTION: `This field documents whether any procedure malfunction occurred.`
23	MALFUNCTION TYPE	3;0	WORD-PROCESSING #691.62	DESCRIPTION: `This free text field provides documentation or comments regarding the malfunction.` HELP-PROMPT: `Enter comments regarding any malfunction.` DESCRIPTION: `This free text field provides documentation or comments regarding the malfunction.`
24	TAPE QUALITY	4;1	SET	'G' FOR GOOD; 'P' FOR POOR; 'U' FOR UNREADABLE; HELP-PROMPT: `Enter code for gross evaluation of tape quality.` DESCRIPTION: `This contains the gross evaluation of the tape quality.`
25	TOTAL HOURS	4;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<2)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 2 AND 99` DESCRIPTION: `This field documents the length in hours of this procedure.`
26	READABLE HOURS	4;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 99` DESCRIPTION: `This field documents the length in hours of distortion free procedure readings.`
27	AVERAGE HR	4;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>200)!(X<20)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 20 AND 200` DESCRIPTION: `This field contains the average heart rate for the entire Holter session.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
28	MAX HR	4;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>300)!(X<40)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 10, 1992` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 40 AND 300` DESCRIPTION: `This field identifies documents the greatest heart rate that was monitored during this procedure.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
29	TIME MAX HR	4;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<5)!'(X?.2N1":"2N1"AM"!(X?.2N1":"2N1"PM")) X` LAST EDITED: `MAR 20, 1987` HELP-PROMPT: `Time Maximum Heart rate occurred in format HH:MM followed by AM or PM Ex: 11:45AM or 6:33PM` DESCRIPTION: `This field identifies field documents the exact time at which maximum heart rate occurred.`
30	MIN HR	4;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>200)!(X<10)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 03, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 10 AND 200` DESCRIPTION: `This field identifies documents the lowest heart rate that was monitored during this procedure.`
31	TIME MIN HR	4;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<5)!'(X?.2N1":"2N1"AM"!(X?.2N1":"2N1"PM")) X` LAST EDITED: `MAR 20, 1987` HELP-PROMPT: `Time Minimum Heart rate occurred in format HH:MM followed by AM or PM Ex: 11:22AM or 5:07PM` DESCRIPTION: `This documents the time at which minimum heart rate occurred during this procedure.`
32	QRS TOTAL	4;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>220000)!(X<1000)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 03, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1000 AND 220000` DESCRIPTION: `This field identifies is the total number of ventricular complexes generated (monitored) during this procedure.`
33	VPBS (VENT)	4;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 26, 1987` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 99999` DESCRIPTION: `This field identifies is the total number of ventricular ectopic beats monitored during this procedure.`
34	VPBS PERCENT (VENT)		COMPUTED	MUMPS CODE: `X ^DD(691.6,34,9.3) S X=X100,X=$S(Y(691.6,34,2):Y(691.6,34,3),Y(691.6,34,4):Y(691.6,34,5),Y(691.6,34,6):X) S X=$J(X,0,1)` `9.2 = S Y(691.6,34,1)=$S($D(^MCAR(691.6,D0,4)):^(4),1:"") S X='$P(Y(691.6,34,1),U,9),Y(691.6,34,2)=X S X="",Y(691.6,34,3)=X S X='$P(Y(691.6,34,1),U,10)` `9.3 = X ^DD(691.6,34,9.2) S Y(691.6,34,4)=X S X="",Y(691.6,34,5)=X S X=1,Y(691.6,34,6)=X S X=$P(Y(691.6,34,1),U,10),X=$S($P(Y(691.6,34,1),U,9):X/$P(Y(691.6,34,1),U,9),1:"*****")` ALGORITHM: `$S('#32:"",'#33:"",1:#33/#32100) (ALWAYS 1 DECIMAL DIGITS)` LAST EDITED: `DEC 31, 1986` DESCRIPTION: `This field identifies is computed from VPBS(VENT)/QRS TOTAL.`
35	AVE/HR	4;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 9999` DESCRIPTION: `This field identifies the average rate of premature ventricular ectopy per hour.`
36	MAX/HR	4;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Highest PVC total per one hour. 0 to 9999` DESCRIPTION: `This field identifies is the maximum number of ventricular ectopy monitored during any hour of this procedure.`
37	ISOLATED (VENT)	4;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 03, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 99999` DESCRIPTION: `This field identifies is the total number of isolated ventricular ectopy.`
38	BIGEMINY (VENT)	4;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 9999` DESCRIPTION: `This field identifies is the total number of ventricular ectopy occurring in a bigeminal pattern during this procedure.`
39	COUPLETS (VENT)	4;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 9999` DESCRIPTION: `This field identifies is the total number of ventricular ectopy occurring in a couplet pattern during this procedure.`
40	NUM OF RUNS 3 OR MORE (VENT)	4;16	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>10000)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 03, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 10000` DESCRIPTION: `This field identifies is the total number of occurrences of ventricular ectopy in groups of 3 or more monitored during this procedure.`
40.5	RUNS 100 BPM OR MORE (VENT)	9;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 23, 1987` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits` DESCRIPTION: `This field identifies is the total number of occurrences of ventricular tachycardia monitored during this procedure.`
41	BEATS IN RUNS (VENT)	4;17	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<3)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 03, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 3 AND 99999` DESCRIPTION: `This field identifies is the total number of ventricular ectopy occurring in groups of 3 or more monitored during this procedure.`
42	BEATS LONGEST RUN (VENT)	4;18	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<3)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 03, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 3 AND 9999` DESCRIPTION: `This field identifies is the number of ventricular complexes that occurred in the longest ventricular tachycardia event monitored during this procedure.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
43	BEATS FASTEST RUN (VENT)	4;19	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<3)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 03, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 3 AND 9999` DESCRIPTION: `This field identifies is the total number of ventricular ectopy occurring in the fastest run of ventricular ectopy monitored during this procedure.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
44	BPM IN FASTEST RUN (VENT)	4;20	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>300)!(X<20)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 20 AND 300` DESCRIPTION: `This field identifies is the highest ventricular rate occurring in ectopic runs of 3 or more monitored during this procedure.`
45	ATRIAL BEATS TOTAL	4;21	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>220000)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 03, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 220000` DESCRIPTION: `This field identifies is the sum of all P waves monitored during this procedure.`
46	ECTOPICS (ATR)	4;22	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>220000)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 03, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 220000` DESCRIPTION: `This field identifies is the total number of atrial complexes of non-SA node origin monitored during this procedure.`
47	ECTOPICS PERCENT (ATR)		COMPUTED	MUMPS CODE: `X ^DD(691.6,47,9.3) S X=X100,X=$S(Y(691.6,47,2):Y(691.6,47,3),Y(691.6,47,4):Y(691.6,47,5),Y(691.6,47,6):X) S X=$J(X,0,1) S:X?1"0"1"."1"0" X=""` `9.2 = S Y(691.6,47,1)=$S($D(^MCAR(691.6,D0,4)):^(4),1:"") S X='$P(Y(691.6,47,1),U,22),Y(691.6,47,2)=X S X="",Y(691.6,47,3)=X S X='$P(Y(691.6,47,1),U,21)` `9.3 = X ^DD(691.6,47,9.2) S Y(691.6,47,4)=X S X="",Y(691.6,47,5)=X S X=1,Y(691.6,47,6)=X S X=$P(Y(691.6,47,1),U,22),X=$S($P(Y(691.6,47,1),U,21):X/$P(Y(691.6,47,1),U,21),1:"*****")` ALGORITHM: `$S('#46:"",'#45:"",1:#46/#45100)` LAST EDITED: `MAY 12, 1987` DESCRIPTION: `This field identifies is computed from ECTOPICS/ATRIAL BEATS TOTAL.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
48	AV/H (ATR)	4;23	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 999` DESCRIPTION: `This field identifies the average rate of supraventricular ectopy per hour.`
49	MAX/H (ATR)	4;24	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 999` DESCRIPTION: `This field identifies is the maximum number of atrial ectopy monitored during any hour of this procedure.`
50	ISOLATED (ATR)	4;25	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 27, 1987` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 99999` DESCRIPTION: `This field identifies is the total number of single atrial ectopy monitored during this procedure.`
50.5	COUPLETS (ATR)	4;26	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 21, 1990` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field is used to quantify the amount of back-to-back PVC's or PVC's occurring in pairs.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
51	BLOCKED APC (ATR)	6;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 27, 1987` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 99999` DESCRIPTION: `This field identifies is the total number of non-conducted atrial ectopy monitored during this procedure.`
52	NUM. RUNS SVT (ATR)	6;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 999` DESCRIPTION: `This field identifies is the total number of occurrences of groups of supraventricular tachycardia monitored during this procedure.`
53	BTS IN RUNS (ATR)	6;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<2)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 2 AND 999` DESCRIPTION: `This field identifies is the average number of atrial ectopy occurring in groups of 3 or more monitored during this procedure.`
54	BTS LONGEST RUN (ATR)	6;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<2)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 2 AND 999` DESCRIPTION: `This field identifies is the total number of supraventricular ectopy in the largest group monitored during this procedure.`
55	BTS FASTEST RUN (ATR)	6;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>300)!(X<3)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 26, 1987` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 3 AND 300` DESCRIPTION: `This field identifies is the total number of atrial ectopy monitored during the fastest run of atrial tachycardia.`
56	BPM FASTEST RUN (ATR)	6;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>300)!(X<10)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 10 AND 300` DESCRIPTION: `This field identifies is the fastest rate of atrial tachycardia monitored during this procedure(beats/minute).`
57	HEART BLOCK	6;7	SET	'A' FOR ABSENT; 'FD' FOR FIRST DEGREE BLOCK; 'MI' FOR MOBITZ I SECOND DEGREE, FREQ, RARE; 'MII' FOR MOBITZ II SECOND DEGREE, FREQ, RARE; 'TD' FOR THIRD DEGREE HEART BLOCK, FREQ, RARE; HELP-PROMPT: `Enter code for degree of heart block monitored during this procedure.` DESCRIPTION: `This field contains the degree of heart block monitored during this procedure.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
58	PAUSES (SINUS)	6;8	SET	'Y' FOR YES; 'N' FOR NO; HELP-PROMPT: `Enter code for whether sinus pauses were monitired during this procedure.` DESCRIPTION: `This field indicates whether sinus pauses were monitored during this procedure.`
59	LONGEST SINUS PAUSE	6;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>10)!(X<.1)!(X?.E1"."2N.N) X` LAST EDITED: `NOV 06, 1987` HELP-PROMPT: `Type a Number between .1 and 10, 1 Decimal Digit` DESCRIPTION: `This field identifies is the length of the longest sinus pause monitored during this procedure in the range of .1 and 10 seconds.`
60	PAUSES (VENT)	6;10	SET	'Y' FOR YES; 'N' FOR NO; HELP-PROMPT: `Enter code fo whether occurrence of ventricular pauses were monitored during this procedure.` DESCRIPTION: `This field indicates the occurrence of ventricular pauses monitored during this procedure.`
61	LONGEST PAUSE (VENT)	6;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>10)!(X<.1)!(X?.E1"."2N.N) X` LAST EDITED: `NOV 06, 1987` HELP-PROMPT: `Type a Number between .1 and 10, 1 Decimal Digit` DESCRIPTION: `This field identifies is the longest occurrence of ventricular pause monitored during this procedure in the range of .1 and 10 seconds.`
62	INTERPRETATION	7;0	WORD-PROCESSING #691.63	TECHNICAL DESCR: `ORDER ENTRY TYPE: DIAGNOSIS` HELP-PROMPT: `Enter clinical evaluation of the patient's cardiac condition based on the information collected by this procedure.` DESCRIPTION: `This free text field contains the clinical evaluation of the patient's cardiac condition based on the information collected by this procedure.` TECHNICAL DESCR: `ORDER ENTRY TYPE: DIAGNOSIS`
63	COMMENT	5;0	WORD-PROCESSING #691.64	DESCRIPTION: `This free text field provides an area for the medical provider to remark on the data collected in this procedure.` HELP-PROMPT: `Medical provider should enter remarks on data collected in this procedure.` DESCRIPTION: `This free text field provides an area for the medical provider to remark on the data collected in this procedure.`
64	ST LEVEL	9;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>5)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `SEP 23, 1987` HELP-PROMPT: `Type The Number in Millimeters between 0 and 5, 2 Decimal Digits` DESCRIPTION: `This field identifies is the level of ST segment deviation from baseline monitored during this procedure in the range of 0 and 5 millimeters using 2 decimal digits.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
65	ST LEVEL DEP/ELEV	9;3	SET	'D-SY' FOR DEPRESSION WITH SYMPTOMS; 'D' FOR DEPRESSION WITHOUT SYMPTOMS; 'E-SY' FOR ELEVATION WITH SYMPTOMS; 'E' FOR ELEVATION WITHOUT SYMPTOMS; LAST EDITED: `SEP 23, 1987` DESCRIPTION: `This field contains the evaluation of ST segment deviation monitored during this procedure.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
66	AUTOMATED INSTRUMENT DATA	A;1	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 10, 1990` HELP-PROMPT: `Enter last date that ECG was successfully transferred into the DHCP system through the automated interface.` DESCRIPTION: `This field stores the last date that the ECG was successfully transferred into the DHCP system through the automated interface.`
67	VENDOR	11;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<4) X` LAST EDITED: `DEC 06, 1990` HELP-PROMPT: `The algorithms used develop the values generated by the Holter recording devices are vendor specific.` DESCRIPTION: `This field is used to identify the Holter System Manufacturer.`
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 1-79 character field will be displayed on the Summary of Patient Procedures.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
700	ICD DIAGNOSIS	ICD;0	POINTER Multiple #691.69	691.69 DESCRIPTION: `This field identifies 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 REVIEWED BY field of the HOLTER 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.6^APCE` `1)= S ^MCAR(691.6,"APCE",$E(X,1,30),DA)=""` `2)= K ^MCAR(691.6,"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.6^ES` `1)= S ^MCAR(691.6,"ES",$E(X,1,30),DA)=""` `2)= K ^MCAR(691.6,"ES",$E(X,1,30),DA)` `This Cross-Referenc allows look-up 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 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 DELETATION	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(	14(XREF 1n1.4), 14(XREF 1n2.4)
^DD(691.6	14(XREF 1S), 14(XREF 1K), 34+1, 34OF9.3+1, 47+1, 47OF9.3+1
^DPT - [#2]	ID1+1
^MCAR(690 - [#690]	ID1+1
^MCAR(691.6 - [#691.6]	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 14(XREF 1S), 14(XREF 1n1.4), 14(XREF 1K), 14(XREF 1n2.1), 14(XREF 1n2.4), 34OF9.2+1 , 47OF9.2+1, 900(XREF 1S), 900(XREF 1K), 1506(XREF 1S), 1506(XREF 1K)

Name	Field # of Occurrence
^("ES"	IDX1+1
^("PROV"	14(XREF 1S), 14(XREF 1n1.4), 14(XREF 1K), 14(XREF 1n2.4)
^(0	ID1+1, 14(XREF 1n2.1)
^(4	34OF9.2+1, 47OF9.2+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1, 5+1, 7+1, 8+1, 11+1, 13+1, 15+1, 66+1, 1502+1, 1505+1 , 1507+1, 1508+1, 1514+1*
>> D0	14(XREF 1S), 14(XREF 1K), 14(XREF 1n2.1), 34OF9.2+1, 47OF9.2+1
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 14(XREF 1S), 14(XREF 1K), 900(XREF 1S), 900(XREF 1K), 1506(XREF 1S), 1506(XREF 1K)
DIC	ID1+1, IDX1+1, 4+1!, 6+1!, 10+1!, 12+1!, 14+1!, 701+1!
DIC("S"	4+1, 4SCR+1, 6+1, 6SCR+1, 10+1, 10SCR+1, 12+1, 12SCR+1, 14+1, 14SCR+1 , 701+1*
>> DIE	4+1, 6+1, 10+1, 12+1, 14+1, 701+1
>> DIG	14(XREF 1n1.4), 14(XREF 1n2.4)
>> DIH	14(XREF 1n1.4), 14(XREF 1n2.4)
>> DIU	14(XREF 1S), 14(XREF 1K)
DIV	14(XREF 1S), 14(XREF 1n1.4), 14(XREF 1K), 14(XREF 1n2.1), 14(XREF 1n2.4)
DIV(0	14(XREF 1S), 14(XREF 1n1.4), 14(XREF 1K), 14(XREF 1n2.4)
>> MCARCDIE	.01(XREF 2S), .01(XREF 2K), 1(XREF 2S), 1(XREF 2K)
U	ID1+1, 14(XREF 1S), 14(XREF 1n1.4), 14(XREF 1K), 14(XREF 1n2.1), 14(XREF 1n2.4), 34OF9.2+1, 34OF9.3+1, 47OF9.2+1, 47OF9.3+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, 1(XREF 1S), 1(XREF 1K), 2+1!, 3+1!, 4+1!, 5+1! , 6+1!, 7+1!, 8+1!, 10+1!, 11+1!, 12+1!, 13+1!, 14+1!, 14(XREF 1S), 14(XREF 1n1.4) , 14(XREF 1K), 14(XREF 1n2.1), 14(XREF 1n2.4), 15+1!, 19+1!, 20+1!, 21+1!, 25+1!, 26+1!, 27+1! , 28+1!, 29+1!, 30+1!, 31+1!, 32+1!, 33+1!, 34+1, 34OF9.2+1, 34OF9.3+1, 35+1! , 36+1!, 37+1!, 38+1!, 39+1!, 40+1!, 40.5+1!, 41+1!, 42+1!, 43+1!, 44+1! , 45+1!, 46+1!, 47+1, 47OF9.2+1, 47OF9.3+1, 48+1!, 49+1!, 50+1!, 50.5+1!, 51+1! , 52+1!, 53+1!, 54+1!, 55+1!, 56+1!, 59+1!, 61+1!, 64+1!, 66+1!, 67+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, 4+1, 5+1, 6+1, 7+1, 8+1, 10+1, 11+1, 12+1, 13+1 , 14+1, 14(XREF 1S), 14(XREF 1K), 15+1, 66+1, 701+1, 1502+1, 1505+1, 1507+1, 1508+1 , 1514+1
Y(	34+1, 34OF9.2+1, 34OF9.3+1, 47+1, 47OF9.2+1, 47OF9.3+1
Y(1	14(XREF 1S), 14(XREF 1K), 14(XREF 1n2.1)
ZZ	ID1+1*!

Customize PDF page

Package: Medicine

Global: ^MCAR(691.6

Information

Description

Directly Accessed By Routines, Total: 13

Accessed By FileMan Db Calls, Total: 2

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 10

Fields, Total: 97

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	.01+1, 5+1, 7+1, 8+1, 11+1, 13+1, 15+1, 66+1, 1502+1, 1505+1 , 1507+1, 1508+1, 1514+1
^DIC	4+1, 6+1, 10+1, 12+1, 14+1, 701+1
^DICR	14(XREF 1n1.4), 14(XREF 1n2.4)
CHGDTE^MCARPROC	.01(XREF 2K)
CHGDTE1^MCARPROC	.01(XREF 2S)
CHGPAT^MCARPROC	1(XREF 2S)
KILL^MCARPROC	1(XREF 2K)