Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  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

Directly Accessed By Routines, Total: 20

Package Total Routines
Medicine 20 MCARAM0    MCARAM0A    MCARAM0B    MCARAM0C    MCARAM0D    MCARAM0E    MCARAM0F    MCARAM0G
MCARAM0H    MCARAM5    MCARAM6    MCARAMLA    MCARAMLB    MCARAMLC    MCARAMLD    MCARAMLG
MCARAPI    MCAROK    MCOBE1    MCPOS01B    

Accessed By FileMan Db Calls, Total: 7

Package Total Routines
Medicine 7 MCARAM0C    MCARAM0D    MCARAM0E    MCARAM0F    MCARAM5    MCARAPI    MCARP    

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: 11

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)]    
IHS Patient 1 VISIT(#9000010)[900]    
Kernel 1 NEW PERSON(#200)[12, 701, 1500, 1503, 1512]    
Order Entry Results Reporting 1 ORDER(#100)[1000]    
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.
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

  • 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 ICD9 Diagnosis(es) for the procedure.  The field also contains a NARRATIVE DIAGNOSIS subfield which will be used in the future.
  • 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 |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All