STANDARD DATA DICTIONARY #691.5 -- ELECTROCARDIOGRAM (EKG) FILE 9/29/25 PAGE 1
STORED IN ^MCAR(691.5, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file stores data on EKGs 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.5,1506,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(""ES"")
,U,7)_"":"",2),$C(59),1)")
POINTED TO BY: RESULT field (#11) of the REQUEST/CONSULTATION File (#123)
ASSOCIATED RESULTS field (#.01) of the ASSOCIATED RESULTS sub-field (#123.03) of the REQUEST/CONSULTATION File
(#123)
CROSS
REFERENCED BY: MEDICAL PATIENT(AC), DATE/TIME(AD), PCC POINTER(APCE), DATE/TIME(B), MEDICAL PATIENT(C), RELEASE STATUS(ES)
691.5,.01 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 ELECTROCARDIOGRAM
DESCRIPTION:
This field identifies the specific EKG procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: IDENTIFIER
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 691.5^B
1)= S ^MCAR(691.5,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.5,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 691.5^AD^MUMPS
1)= S MCARCDIE="^MCAR(691.5," D CHGDTE1^MCARPROC
2)= S MCARCDIE="^MCAR(691.5," D CHGDTE^MCARPROC
This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to
record the most recent EKG procedure for this patient.
691.5,.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 EKG,2 to 10 characters. SSN need not be entered
since it is already entered.
DESCRIPTION: This field identifies the patient's identification number assigned by the medical facility. In
most cases it is the person's social security number.
691.5,.03 SUMMARY .2;1 SET
'N' FOR NORMAL;
'A' FOR ABNORMAL;
'B' FOR BORDERLINE;
'T' FOR TECHNICALLY UNSATISFACTORY;
LAST EDITED: APR 04, 1994
DESCRIPTION:
This field contains the gross evaluation of the results of this procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
691.5,.04 SYMPTOM .3;0 POINTER Multiple #691.51 (Add New Entry without Asking)
DESCRIPTION:
This field contains the patient's physical complaints or symptoms.
691.51,.01 SYMPTOM 0;1 POINTER TO SYMPTOM FILE (#695.5) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(695.5,""C"",""C"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 22, 1988
HELP-PROMPT: HISTORY OF PRESENT ILLNESS
DESCRIPTION:
This field contains the patient's physical complaints or symptoms.
SCREEN: S DIC("S")="I $D(^MCAR(695.5,""C"",""C"",+Y))"
EXPLANATION: CHOOSE CARDIAC SCREENS ONLY
CROSS-REFERENCE: 691.51^B
1)= S ^MCAR(691.5,DA(1),.3,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.5,DA(1),.3,"B",$E(X,1,30),DA)
691.5,.05 RISK FACTOR .4;0 POINTER Multiple #691.52 (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.52,.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.52^B
1)= S ^MCAR(691.5,DA(1),.4,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.5,DA(1),.4,"B",$E(X,1,30),DA)
691.5,.06 HEART MED 2;0 POINTER Multiple #691.53 (Add New Entry without Asking)
DESCRIPTION: This field documents the cardiac medicines that the patient is taking at the time of this procedure
(multiple).
691.53,.01 HEART MED 0;1 POINTER TO MEDICATION FILE (#695) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(695,""C"",""C"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 22, 1988
HELP-PROMPT: Enter cardiac medicine that the patient is taking at the time of this procedure.
DESCRIPTION: This field documents the cardiac medicines that the patient is taking at the time of this
procedure (multiple).
SCREEN: S DIC("S")="I $D(^MCAR(695,""C"",""C"",+Y))"
EXPLANATION: CHOOSE CARDIAC MEDICATIONS ONLY
CROSS-REFERENCE: 691.53^B
1)= S ^MCAR(691.5,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.5,DA(1),2,"B",$E(X,1,30),DA)
691.53,1 DOSE 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: DEC 17, 1986
HELP-PROMPT: ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
DESCRIPTION: This allows the user to enter in the dosage for the cardiac medicine that the patient is taking
at the time of this procedure.
691.53,2 FREQUENCY 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<2) X
LAST EDITED: MAY 18, 1988
HELP-PROMPT: ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
DESCRIPTION: This allows the user to enter the time/number of times the patient is to take the cardiac
medicine.
691.5,.07 WEIGHT (LBS) 4;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>500)!(X<10)!(X?.E1"."1N.N) X
LAST EDITED: MAR 16, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 10 AND 500
DESCRIPTION:
The weight of the patient at the time of the procedure is stored here.
691.5,.08 HEIGHT (INCHES) 4;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>96)!(X<36)!(X?.E1"."1N.N) X
LAST EDITED: MAR 16, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 36 AND 96
DESCRIPTION:
The height of the patient in inches at the time of the procedure.
691.5,1 MEDICAL PATIENT 0;2 POINTER TO MEDICAL PATIENT FILE (#690) (Required)
LAST EDITED: JUL 10, 1987
HELP-PROMPT: Enter patient's name - Last, First MI
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: UNKNOWN
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 691.5^C
1)= S ^MCAR(691.5,"C",$E(X,1,30),DA)=""
2)= K ^MCAR(691.5,"C",$E(X,1,30),DA)
This cross-reference allows look-ups by patient.
CROSS-REFERENCE: 691.5^AC^MUMPS
1)= S MCARCDIE="^MCAR(691.5," D CHGPAT^MCARPROC
2)= S MCARCDIE="^MCAR(691.5," D KILL^MCARPROC
This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to
record the most recent EKG procedure for this patient.
691.5,2 TYPE OF EKG 0;3 SET
'S' FOR STAT RETRIEVAL;
'R' FOR ROUTINE;
'O' FOR ORIGINAL;
LAST EDITED: MAY 31, 1989
HELP-PROMPT: Enter code for the type of ECG/EKG.
DESCRIPTION:
This allows the user to enter the type of ECG/EKG.
691.5,3 VENT. RATE 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>400)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUN 04, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 400
DESCRIPTION:
This allows the user to enter the ventricular rate.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.5,4 PR INTERVAL 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 20, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 999
DESCRIPTION:
This allows the user to enter ECG/EKG PR interval.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.5,5 QRS DURATION 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 20, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 999
DESCRIPTION:
This allows the user to enter the ECG/EKG QRS duration.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.5,6 QT 0;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 20, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 999
DESCRIPTION:
This allows the user to enter the QT interval.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.5,7 QTC 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 20, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 999
DESCRIPTION:
This allows the user to enter the QTC interval.
691.5,8 P AXIS 0;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>360)!(X<-360)!(X?.E1"."1N.N) X
LAST EDITED: APR 13, 1995
HELP-PROMPT: Type a Number between -360 and 360, 0 Decimal Digits
DESCRIPTION:
This allows the user to enter the P axis.
691.5,9 R AXIS 0;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>360)!(X<-360)!(X?.E1"."1N.N) X
LAST EDITED: APR 13, 1995
HELP-PROMPT: Type a Number between -360 and 360, 0 Decimal Digits
DESCRIPTION:
This allows the user to enter the R axis.
691.5,10 T AXIS 0;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>360)!(X<-360)!(X?.E1"."1N.N) X
LAST EDITED: APR 13, 1995
HELP-PROMPT: Type a Number between -360 and 360, 0 Decimal Digits
DESCRIPTION:
This allows the user to enter the T axis.
691.5,11 CONFIRMATION STATUS 0;12 SET
'C' FOR CONFIRMED;
'U' FOR UNCONFIRMED;
LAST EDITED: MAR 20, 1986
HELP-PROMPT: Enter code for confirmation status.
DESCRIPTION:
This allows the user to enter the ECG/EKG confirmation status.
691.5,12 INTERPRETED 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: APR 23, 1996
DESCRIPTION:
This allows the user to enter the interpreting physician.
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.5^701
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691.5,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.5,12,1,1,1.4)
1.4)= S DIH=$S($D(^MCAR(691.5,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691
.5,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.5,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),
U,1),X=X S DIU=X K Y X ^DD(691.5,12,1,1,2.1) X ^DD(691.5,12,1,1,2.4)
2.1)= S X=DIV S Y(1)=$S($D(^MCAR(691.5,D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X
2.4)= S DIH=$S($D(^MCAR(691.5,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691
.5,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= INTERNAL(#12)
DELETE VALUE)= INTERNAL(#12)
FIELD)= #701
This trigger sets the primary provider file.
691.5,13 COMPARISON STATEMENT 1;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>100!($L(X)<4) X
LAST EDITED: FEB 25, 1987
HELP-PROMPT: ANSWER MUST BE 4-100 CHARACTERS IN LENGTH
DESCRIPTION:
This allows the user to enter the ECG/EKG comparison statement.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.5,14 INTERPRETATION CODE (RHYTHM) 3;0 POINTER Multiple #691.54 (Add New Entry without Asking)
LAST EDITED: APR 23, 1986
DESCRIPTION:
This allows the user to enter multiple rhythm interpretation codes.
691.54,.01 INTERPRETATION CODE (RHYTHM) 0;1 POINTER TO ECG INTERPRETATION FILE (#693.3) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)=""R""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 25, 1987
HELP-PROMPT: Enter rhythm interpretation code.
DESCRIPTION:
This allows the user to enter multiple rhythm interpretation codes.
SCREEN: S DIC("S")="I $P(^(0),U,3)=""R"""
EXPLANATION: Rhythm Interpretation Codes Only
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 691.54^B
1)= S ^MCAR(691.5,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.5,DA(1),3,"B",$E(X,1,30),DA)
691.54,1 CODE MODIFIER 0;2 SET
'1' FOR DEFINITE;
'2' FOR PROBABLE;
'3' FOR POSSIBLE;
'4' FOR BORDERLINE;
'5' FOR CONSIDER;
'6' FOR CHANGES OR SERIAL;
LAST EDITED: FEB 25, 1987
HELP-PROMPT: Enter code to describe rhythm.
DESCRIPTION:
This allows the user to describe the interpretation code (rhythm).
691.5,14.1 INTERPRETATION CODE (CONFIG) 5;0 POINTER Multiple #691.55 (Add New Entry without Asking)
DESCRIPTION:
This allows the user to enter multiple configuration interpretation codes.
691.55,.01 INTERPRETATION CODE (CONFIG) 0;1 POINTER TO ECG INTERPRETATION FILE (#693.3) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 25, 1987
HELP-PROMPT: Enter config interpretation code.
DESCRIPTION:
This allows the user to enter multiple config interpretation codes.
SCREEN: S DIC("S")="I $P(^(0),U,3)=""C"""
EXPLANATION: Screen for Configuration Codes only
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 691.55^B
1)= S ^MCAR(691.5,DA(1),5,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.5,DA(1),5,"B",$E(X,1,30),DA)
691.55,1 CODE MODIFIER 0;2 SET
'1' FOR DEFINITE;
'2' FOR PROBABLE;
'3' FOR POSSIBLE;
'4' FOR BORDERLINE;
'5' FOR CONSIDER;
'6' FOR CHANGES OR SERIAL;
LAST EDITED: JUN 25, 1987
HELP-PROMPT: Enter type of interpretation code (config).
DESCRIPTION:
This allows the user to describe the type of interpretation code (config).
691.5,14.2 INTERPRETATION CODE (PACING) 6;0 POINTER Multiple #691.56 (Add New Entry without Asking)
DESCRIPTION:
This allows the user to enter multiple pacing interpretation codes.
691.56,.01 INTERPRETATION CODE (PACING) 0;1 POINTER TO ECG INTERPRETATION FILE (#693.3) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)=""P""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 25, 1987
HELP-PROMPT: Enter pacing interpretation code.
DESCRIPTION:
This allows the user to enter multiple pacing interpretation codes.
SCREEN: S DIC("S")="I $P(^(0),U,3)=""P"""
EXPLANATION: SCREEN FOR PACING
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 691.56^B
1)= S ^MCAR(691.5,DA(1),6,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.5,DA(1),6,"B",$E(X,1,30),DA)
691.56,1 CODE MODIFIER 0;2 SET
'1' FOR DEFINITE;
'2' FOR PROBABLE;
'3' FOR POSSIBLE;
'4' FOR BORDERLINE;
'5' FOR CONSIDER;
'6' FOR CHANGES OR SERIAL;
LAST EDITED: JUN 25, 1987
HELP-PROMPT: Enter interpretation code (pacing).
DESCRIPTION:
This allows the user to describe the type of interpretation code (pacing).
691.5,15 DIASTOLIC BP 4;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>300)!(X<20)!(X?.E1"."1N.N) X
LAST EDITED: APR 14, 1988
HELP-PROMPT: Type a Whole Number between 20 and 300
DESCRIPTION:
This allows the user to enter the diastolic blood pressure.
691.5,16 SYSTOLIC BP 4;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>300)!(X<20)!(X?.E1"."1N.N) X
LAST EDITED: APR 14, 1988
HELP-PROMPT: Type a Whole Number between 20 and 300
DESCRIPTION:
This allows the user to enter the systolic blood pressure.
691.5,17 COMMENT 7;0 WORD-PROCESSING #691.517
DESCRIPTION:
This allows the user to make specific comments regarding the ECG/EKG.
LAST EDITED: AUG 07, 1987
HELP-PROMPT: Enter specific comments regarding ECG/EKG.
DESCRIPTION:
This allows the user to make specific comments regarding the ECG/EKG.
691.5,18 WARD/CLINIC 8;1 POINTER TO HOSPITAL LOCATION FILE (#44)
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Enter the in-house patient address.
DESCRIPTION:
This field identifies the in-house patient address.
691.5,20 AUTO-INSTRUMENT DIAGNOSIS 9;0 WORD-PROCESSING #691.57 (NOWRAP)
TECHNICAL DESCR:
ORDER ENTRY TYPE: DIAGNOSIS
LAST EDITED: APR 19, 1989
HELP-PROMPT: Enter interpretation of the procedure generated by the instrument (EKG monitor).\
DESCRIPTION:
This field contains the interpretation of the procedure generated by the instrument(EKG monitor).
TECHNICAL DESCR:
ORDER ENTRY TYPE: DIAGNOSIS
691.5,21 AUTOMATED INSTRUMENT DATA ? A;1 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 20, 1989
DESCRIPTION: This field stores the last date that the ECG was successfully transferred into DHCP system through
the automated interface
691.5,600 PROCEDURE SUMMARY .2;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>79!($L(X)<1) X
LAST EDITED: NOV 28, 1990
HELP-PROMPT: Answer must be 1-79 characters in length. This will appear on the 'Summary of Patient Procedures'.
DESCRIPTION:
Answer must be 1-79 characters in length. This will appear on the 'Summary of Patient Procedures'.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.5,700 ICD DIAGNOSIS ICD;0 POINTER Multiple #691.58
DESCRIPTION:
This field identifies the ICD Diagnosis(es) for the procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.58,.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.58^B
1)= S ^MCAR(691.5,DA(1),"ICD","B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.5,DA(1),"ICD","B",$E(X,1,30),DA)
691.58,.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.5,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 INTERPRETED BY field of the ELECTROCARDIOGRAM (EKG) File
691.5,899 MARKED FOR DELETION MFD;1 SET
'1' FOR MARKED FOR DELETION;
LAST EDITED: JUL 31, 1992
691.5,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.5^APCE
1)= S ^MCAR(691.5,"APCE",$E(X,1,30),DA)=""
2)= K ^MCAR(691.5,"APCE",$E(X,1,30),DA)
Pointer to the Visit file.
691.5,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.5,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.5,1500 ENTERING DUZ ES;1 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JAN 11, 1993
691.5,1501 COSIGNER VALIDATION CODE ES;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: JAN 11, 1993
HELP-PROMPT: Answer must be 1-30 characters in length.
691.5,1502 ENTERING DATE ES;3 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 11, 1993
691.5,1503 VERIFYING DUZ ES;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JAN 11, 1993
691.5,1504 SIGNER VALIDATION CODE ES;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: JAN 11, 1993
HELP-PROMPT: Answer must be 1-40 characters in length.
691.5,1505 VERIFIER DATE ES;6 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 11, 1993
691.5,1506 RELEASE STATUS 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.5^ES
1)= S ^MCAR(691.5,"ES",$E(X,1,30),DA)=""
2)= K ^MCAR(691.5,"ES",$E(X,1,30),DA)
This cross-refernce allows look-up by release status.
691.5,1507 DATE OF RELEASED ES;8 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 11, 1993
691.5,1508 DATE OF VERIFIED ES;9 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 11, 1993
691.5,1509 SUPERSEDED ES;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 11, 1993
HELP-PROMPT: Type a Number between 0 and 9999999999999, 0 Decimal Digits
691.5,1510 SUPERSEDED BY ES;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 11, 1993
HELP-PROMPT: Type a Number between 0 and 9999999999, 0 Decimal Digits
691.5,1511 MARK FOR DELETION ES;12 SET
'1' FOR MARK FOR DELETION;
LAST EDITED: JAN 11, 1993
691.5,1512 DELETER DUZ ES;13 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: FEB 12, 1993
691.5,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.5,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
HELP-PROMPT: Answer must be 1-30 characters in length.
691.5,2005 IMAGE 2005;0 POINTER Multiple #691.52005 (Add New Entry without Asking)
DESCRIPTION:
This field points to an entry in the Image File.
691.52005,.01 IMAGE 0;1 POINTER TO IMAGE FILE (#2005) (Multiply asked)
LAST EDITED: JUN 30, 1997
DESCRIPTION:
This field points to an entry in the Image File.
CROSS-REFERENCE: 691.52005^B
1)= S ^MCAR(691.5,DA(1),2005,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.5,DA(1),2005,"B",$E(X,1,30),DA)
FILES POINTED TO FIELDS
ECG INTERPRETATION (#693.3) INTERPRETATION CODE (RHYTHM):INTERPRETATION CODE (RHYTHM) (#.01)
INTERPRETATION CODE (CONFIG):INTERPRETATION CODE (CONFIG) (#.01)
INTERPRETATION CODE (PACING):INTERPRETATION CODE (PACING) (#.01)
HOSPITAL LOCATION (#44) WARD/CLINIC (#18)
ICD DIAGNOSIS (#80) ICD DIAGNOSIS:ICD DIAGNOSIS (#.01)
IMAGE (#2005) IMAGE:IMAGE (#.01)
MEDICAL PATIENT (#690) MEDICAL PATIENT (#1)
MEDICATION (#695) HEART MED:HEART MED (#.01)
NEW PERSON (#200) INTERPRETED BY (#12)
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):
MCARECG1 JAN 14, 1992@11:57 USER #0
MCARECGA NOV 28, 1990@09:47 USER #0
MCARECGB AUG 20, 1992@09:39 USER #0
MCBLECG MAR 09, 1993@13:05 USER #0
MCFLECG MAR 09, 1993@13:16 USER #0
PRINT TEMPLATE(S):
MCARECGBRPR MAY 13, 1996@09:46 USER #0 ^MCOBE1 @
MCAREKG1 MAR 07, 2001@09:12 USER #0 ^MCAROK @
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):