Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All
Print Page as PDF
Global: ^MCAR(691.5

Package: Medicine

Global: ^MCAR(691.5


Information

FileMan FileNo FileMan Filename Package
691.5 ELECTROCARDIOGRAM (EKG) Medicine

Description

Accessed By FileMan Db Calls, Total: 8

Package Total Routines
Medicine 7 MCARAM0C    MCARAM0D    MCARAM0E    MCARAM0F    MCARAM5    MCARAPI    MCARP    
Clinical Procedures 1 MDAPI1    

Pointed To By FileMan Files, Total: 1

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

Pointer To FileMan Files, Total: 12

Package Total FileMan Files
Medicine 5 MEDICAL PATIENT(#690)[1]    ECG INTERPRETATION(#693.3)[#691.54(.01), #691.55(.01), #691.56(.01)]
MEDICATION(#695)[#691.53(.01)]    PAST HISTORY AND RISK FACTOR(#695.4)[#691.52(.01)]    SYMPTOM(#695.5)[#691.51(.01)]    
Consult Request Tracking 1 REQUEST/CONSULTATION(#123)[1001]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[#691.58(.01)]    
Imaging 1 IMAGE(#2005)[#691.52005(.01)]    
Kernel 1 NEW PERSON(#200)[12, 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)[18]    

Fields, Total: 53

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:  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.
.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.
.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
.04 SYMPTOM .3;0 POINTER Multiple #691.51 691.51

  • DESCRIPTION:  
    This field contains the patient's physical complaints or symptoms.
.05 RISK FACTOR .4;0 POINTER Multiple #691.52 691.52

  • DESCRIPTION:  
    This field contains the morbidity factors which this patient is most susceptible to in regards to this procedure.
.06 HEART MED 2;0 POINTER Multiple #691.53 691.53

  • DESCRIPTION:  
    This field documents the cardiac medicines that the patient is taking at the time of this procedure (multiple).
.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.
.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.
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 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.
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.
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
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
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
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
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.
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.
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.
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.
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.
12 INTERPRETED 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:  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.
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
14 INTERPRETATION CODE (RHYTHM) 3;0 POINTER Multiple #691.54 691.54

  • LAST EDITED:  APR 23, 1986
  • DESCRIPTION:  
    This allows the user to enter multiple rhythm interpretation codes.
14.1 INTERPRETATION CODE (CONFIG) 5;0 POINTER Multiple #691.55 691.55

  • DESCRIPTION:  
    This allows the user to enter multiple configuration interpretation codes.
14.2 INTERPRETATION CODE (PACING) 6;0 POINTER Multiple #691.56 691.56

  • DESCRIPTION:  
    This allows the user to enter multiple pacing interpretation codes.
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.
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.
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.
18 WARD/CLINIC 8;1 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  SEP 13, 1991
  • HELP-PROMPT:  Enter the in-house patient address.
  • DESCRIPTION:  
    This field identifies the in-house patient address.
20 AUTO-INSTRUMENT DIAGNOSIS 9;0 WORD-PROCESSING #691.57

  • 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
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
600 PROCEDURE SUMMARY .2;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>79!($L(X)<1) X
  • LAST EDITED:  NOV 28, 1990
  • HELP-PROMPT:  Answer must be 1-79 characters in length. This will appear on the 'Summary of Patient Procedures'.
  • DESCRIPTION:  
    Answer must be 1-79 characters in length. This will appear on the 'Summary of Patient Procedures'.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
700 ICD DIAGNOSIS ICD;0 POINTER Multiple #691.58 691.58

  • 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 INTERPRETED BY field of the ELECTROCARDIOGRAM (EKG) File
899 MARKED FOR DELETION MFD;1 SET
  • '1' FOR MARKED FOR DELETION;

  • LAST EDITED:  JUL 31, 1992
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.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.
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:  JAN 11, 1993
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.
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
1503 VERIFYING DUZ ES;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 11, 1993
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.
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
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.
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
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
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
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
1511 MARK FOR DELETION ES;12 SET
  • '1' FOR MARK FOR DELETION;

  • LAST EDITED:  JAN 11, 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
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
2005 IMAGE 2005;0 POINTER Multiple #691.52005 691.52005

  • DESCRIPTION:  
    This field points to an entry in the Image File.
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All