STANDARD DATA DICTIONARY #691.6 -- HOLTER FILE 3/24/25 PAGE 1
STORED IN ^MCAR(691.6, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file stores data for Holter tests done on a patient.
DD ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: MEDICAL PATIENT (#1)[R]
"X1": W:$D(^("ES")) " ",@("$P($P($C(59)_$S($D(^DD(691.6,1506,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(""ES"")
,U,7)_"":"",2),$C(59),1)")
POINTED TO BY: RESULT field (#11) of the REQUEST/CONSULTATION File (#123)
ASSOCIATED RESULTS field (#.01) of the ASSOCIATED RESULTS sub-field (#123.03) of the REQUEST/CONSULTATION File
(#123)
CROSS
REFERENCED BY: MEDICAL PATIENT(AC), HOOK-UP DATE/TIME(AD), PCC POINTER(APCE), HOOK-UP DATE/TIME(B), MEDICAL PATIENT(C),
RELEASE CODE(ES)
691.6,.01 HOOK-UP DATE/TIME 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 05, 1987
HELP-PROMPT: ENTER PATIENT'S NAME OR DATE AND TIME OF 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.
691.6,.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.
691.6,.03 SUMMARY .2;1 SET (Required)
'N' FOR NORMAL;
'A' FOR ABNORMAL;
'B' FOR BORDERLINE;
'T' FOR TECHNICALLY UNSATISFACTORY;
LAST EDITED: AUG 13, 1987
HELP-PROMPT: This field identifies the result of the Holter procedure.
DESCRIPTION:
This field contains the gross evaluation of the results of this procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.6,.04 SYMPTOM .3;0 POINTER Multiple #691.66 (Add New Entry without Asking)
DESCRIPTION:
This field contains the patient's physical complaints or symptoms.
691.66,.01 SYMPTOM 0;1 POINTER TO SYMPTOM FILE (#695.5) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $D(^MCAR(695.5,""C"",""HOLTER"",+Y))!($D(^MCAR(695.5,""C"",""C"",+Y)))" D ^DIC K DIC
S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 30, 1996
HELP-PROMPT: HISTORY OF PRESENT ILLNESS
DESCRIPTION:
This field contains the patients physical complaints or symtoms.
SCREEN: S DIC("S")="I $D(^MCAR(695.5,""C"",""HOLTER"",+Y))!($D(^MCAR(695.5,""C"",""C"",+Y)))"
EXPLANATION: Choose symptoms applying to HOLTER or Cardiology only
CROSS-REFERENCE:691.66^B
1)= S ^MCAR(691.6,DA(1),.3,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.6,DA(1),.3,"B",$E(X,1,30),DA)
691.6,.05 RISK FACTOR .4;0 POINTER Multiple #691.67 (Add New Entry without Asking)
DESCRIPTION: This field contains the morbidity factors which this patient is most susceptible to in regards to
this procedure.
691.67,.01 RISK FACTOR 0;1 POINTER TO PAST HISTORY AND RISK FACTOR FILE (#695.4) (Multiply asked)
LAST EDITED: JUL 14, 1986
HELP-PROMPT: RELEVANT PAST HISTORY
DESCRIPTION: This field contains the morbidity factors which this patient is most susceptible to in regards to
this procedure.
CROSS-REFERENCE: 691.67^B
1)= S ^MCAR(691.6,DA(1),.4,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.6,DA(1),.4,"B",$E(X,1,30),DA)
691.6,1 MEDICAL PATIENT 0;2 POINTER TO MEDICAL PATIENT FILE (#690) (Required)
LAST EDITED: JUL 10, 1987
HELP-PROMPT: Enter patient's last name, followed by a comma, followed by a space, followed by the first name,
followed by a space, followed by the middle initial.
DESCRIPTION: This field identifies the patient's last name, followed by a comma, followed by a space(optional),
followed by the first name, followed by a space, followed by the middle initial.
TECHNICAL DESCR:
ORDER ENTRY TYPE: IDENTIFIER
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 691.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.
691.6,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.
691.6,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.
691.6,4 REQUESTED BY 0;5 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: 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.
691.6,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.
691.6,5.5 REASON FOR STUDY 8;0 SET Multiple #691.65 (Add New Entry without Asking)
DESCRIPTION:
This field contains the rationale for ordering this procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: INDICATION
691.65,.01 REASON FOR STUDY 0;1 SET (Multiply asked)
INDICATION
'1' FOR SYNCOPE;
'2' FOR HX SUDDEN DEATH OR SUSTAINED V-T;
'3' FOR DOCUMENTED V ECTOPY;
'4' FOR DOCUMENTED SVT;
'5' FOR WPW;
'6' FOR PACEMAKER;
'7' FOR EFFICACY OF THERAPY;
'8' FOR LIGHTHEADEDNESS;
'9' FOR RECENT INFARCT;
HELP-PROMPT: Enter code for reason procedure is ordered.
DESCRIPTION:
This field contains the rationale for ordering this procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: INDICATION
691.6,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
691.6,6 APPROVED BY 0;7 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: 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.
691.6,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.
691.6,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.
691.6,10 HOOK-UP BY 0;11 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: 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.
691.6,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.
691.6,12 SCANNED BY 0;13 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: 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.
691.6,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.
691.6,14 REVIEWED BY 0;15 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 23, 1996
HELP-PROMPT: Enter 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.
691.6,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.
691.6,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.
691.6,17 WARD/CLINIC 0;18 POINTER TO HOSPITAL LOCATION FILE (#44)
LAST EDITED: SEP 13, 1991
DESCRIPTION:
This field identifies the in house address of the patient.
691.6,18 HEART MED 1;0 POINTER Multiple #691.61 (Add New Entry without Asking)
DESCRIPTION: This field contains the multiple cardiac medicines that the patient was taking at the time of this
procedure.
691.61,.01 HEART MED 0;1 POINTER TO MEDICATION FILE (#695) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(695,""C"",""C"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 22, 1988
HELP-PROMPT: Enter name of cardiac medication.
DESCRIPTION:
This field identifies the name of the cardiac medication.
SCREEN: S DIC("S")="I $D(^MCAR(695,""C"",""C"",+Y))"
EXPLANATION: CHOOSE CARDIAC MEDICATIONS ONLY
CROSS-REFERENCE: 691.61^B
1)= S ^MCAR(691.6,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.6,DA(1),1,"B",$E(X,1,30),DA)
691.61,1 DOSE 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: SEP 03, 1986
HELP-PROMPT: ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
DESCRIPTION:
This field contains the amount of drug taken at any given time.
691.61,2 FREQUENCY 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<2) X
LAST EDITED: MAY 18, 1988
HELP-PROMPT: ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
DESCRIPTION:
This field contains the rate at which the prescribed dose is given.
691.6,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.
691.6,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.
691.6,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.
691.6,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.
691.6,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.
691.6,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.
691.6,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.
691.6,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.
691.6,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
691.6,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
691.6,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.
691.6,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.
691.6,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.
691.6,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.
691.6,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.
691.6,34 VPBS PERCENT (VENT) ; COMPUTED
MUMPS CODE: X ^DD(691.6,34,9.3) S X=X*100,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(6
91.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/#32*100) (ALWAYS 1 DECIMAL DIGITS)
LAST EDITED: DEC 31, 1986
DESCRIPTION:
This field identifies is computed from VPBS(VENT)/QRS TOTAL.
691.6,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.
691.6,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.
691.6,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.
691.6,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.
691.6,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.
691.6,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.
691.6,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.
691.6,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.
691.6,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
691.6,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
691.6,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.
691.6,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.
691.6,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.
691.6,47 ECTOPICS PERCENT (ATR) ; COMPUTED
MUMPS CODE: X ^DD(691.6,47,9.3) S X=X*100,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(6
91.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/#45*100)
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
691.6,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.
691.6,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.
691.6,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.
691.6,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
691.6,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.
691.6,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.
691.6,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.
691.6,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.
691.6,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.
691.6,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).
691.6,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
691.6,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.
691.6,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.
691.6,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.
691.6,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.
691.6,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
691.6,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.
691.6,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
691.6,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
691.6,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.
691.6,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.
691.6,600 PROCEDURE SUMMARY .2;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>79!($L(X)<1) X
LAST EDITED: NOV 28, 1990
HELP-PROMPT: Answer must be 1-79 characters in length. This will appear on the 'Summary of Patient Procedures'.
DESCRIPTION:
This 1-79 character field will be displayed on the Summary of Patient Procedures.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.6,700 ICD DIAGNOSIS ICD;0 POINTER Multiple #691.69
DESCRIPTION:
This field identifies the ICD Diagnosis(es) for the procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.69,.01 ICD DIAGNOSIS 0;1 POINTER TO ICD DIAGNOSIS FILE (#80) (Multiply asked)
LAST EDITED: MAR 10, 1993
DESCRIPTION:
This field identifies an ICD Diagnosis for the procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
CROSS-REFERENCE: 691.69^B
1)= S ^MCAR(691.6,DA(1),"ICD","B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.6,DA(1),"ICD","B",$E(X,1,30),DA)
691.69,.02 NARRATIVE DIAGNOSIS 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
LAST EDITED: JAN 02, 1992
HELP-PROMPT: Answer must be 1-80 characters in length.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.6,701 PRIMARY PROVIDER PROV;1 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 25, 1994
DESCRIPTION: This contains the primary provider. It is triggered by another field in the file and is located
here to provider a standard provider location for use in transferring data to the PCC.
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the REVIEWED BY field of the HOLTER File
691.6,900 PCC POINTER PCC;1 POINTER TO VISIT FILE (#9000010)
LAST EDITED: MAY 17, 1996
DESCRIPTION: This field is used to link the Medicine package results with the PCC Visit File for use by
Queryman.
CROSS-REFERENCE: 691.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.
691.6,1000 ORIFN OR;1 POINTER TO ORDER FILE (#100)
LAST EDITED: JUL 09, 1991
HELP-PROMPT: Enter Consult Order.
DESCRIPTION: This field contains a pointer to the 'Consult Orders' internal file number, stored in file 100.
This field is entered when results are entered in the Medicine package.
691.6,1001 GMRCO OR;2 POINTER TO REQUEST/CONSULTATION FILE (#123)
LAST EDITED: AUG 16, 1991
HELP-PROMPT: Enter the 'Request/Consultation' internal file number.
DESCRIPTION: This field contains a pointer to the internal number of the consult order stored in the
REQUEST/CONSULTATION file (123). This field is entered when results are entered in the Medicine
package.
691.6,1500 ENTERING DUZ ES;1 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: FEB 12, 1993
691.6,1501 COSIGNER VALIDATION CODE ES;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: FEB 12, 1993
HELP-PROMPT: Answer must be 1-40 characters in length.
691.6,1502 ENTERING DATE ES;3 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 12, 1993
691.6,1503 VERIFYING DUZ ES;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: FEB 12, 1993
691.6,1504 SIGNER VALIDATION CODE ES;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: FEB 12, 1993
HELP-PROMPT: Answer must be 1-40 characters in length.
691.6,1505 VERIFIER DATE ES;6 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 12, 1993
691.6,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.
691.6,1507 DATE OF RELEASED ES;8 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 12, 1993
691.6,1508 DATE OF VERIFIED ES;9 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 12, 1993
691.6,1509 SUPERSEDED ES;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 12, 1993
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
691.6,1510 SUPERSEDED BY ES;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 12, 1993
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
691.6,1511 MARK FOR DELETATION ES;12 SET
'1' FOR MARK FOR DELETION;
LAST EDITED: FEB 12, 1993
691.6,1512 DELETER DUZ ES;13 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: FEB 12, 1993
691.6,1513 SUPERSEDED DATE ES;14 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: FEB 12, 1993
HELP-PROMPT: Answer must be 1-40 characters in length.
691.6,1514 CREATION DATE ES;15 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 12, 1993
691.6,1515 SUPERSEDED NUMBER ES;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 04, 1993
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
FILES POINTED TO FIELDS
HOSPITAL LOCATION (#44) WARD/CLINIC (#17)
ICD DIAGNOSIS (#80) ICD DIAGNOSIS:ICD DIAGNOSIS (#.01)
MEDICAL PATIENT (#690) MEDICAL PATIENT (#1)
MEDICATION (#695) HEART MED:HEART MED (#.01)
NEW PERSON (#200) REQUESTED BY (#4)
APPROVED BY (#6)
HOOK-UP BY (#10)
SCANNED BY (#12)
REVIEWED BY (#14)
PRIMARY PROVIDER (#701)
ENTERING DUZ (#1500)
VERIFYING DUZ (#1503)
DELETER DUZ (#1512)
ORDER (#100) ORIFN (#1000)
PAST HISTORY AND RISK FACTOR
(#695.4) RISK FACTOR:RISK FACTOR (#.01)
REQUEST/CONSULTATION (#123) GMRCO (#1001)
SYMPTOM (#695.5) SYMPTOM:SYMPTOM (#.01)
VISIT (#9000010) PCC POINTER (#900)
INPUT TEMPLATE(S):
MCARHOLTA NOV 28, 1990@09:51 USER #0
MCARHOLTFM JAN 14, 1992@12:01 USER #0
MCARHOLTFMBRIEF MAY 12, 1994@09:23 USER #0
MCBLHOLTER MAR 09, 1993@13:12 USER #0
MCFLHOLTER MAR 09, 1993@13:26 USER #0
PRINT TEMPLATE(S):
MCARHOLT1 MAY 06, 1998@08:29 USER #0 ^MCAROH1 @
MCARHOLT2 MAY 13, 1996@09:50 USER #0 ^MCAROH2 @
MCARHOLTERBRPR MAY 13, 1996@09:52 USER #0 ^MCOBH1 @
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):