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.8

Package: Medicine

Global: ^MCAR(691.8


Information

FileMan FileNo FileMan Filename Package
691.8 ELECTROPHYSIOLOGY (EP) Medicine

Description

Directly Accessed By Routines, Total: 3

Package Total Routines
Medicine 3 MCAROEP    MCOBEP    MCPOS01B    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Medicine 1 MCARP    

Pointed To By FileMan Files, Total: 3

Package Total FileMan Files
Medicine 2 ATRIAL STUDY(#691.9)[.5]    VENTRICULAR STUDY(#692)[.5]    
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]    MEDICATION(#695)[#691.803(.01)]    PAST HISTORY AND RISK FACTOR(#695.4)[#691.802(.01)]    SYMPTOM(#695.5)[#691.801(.01)]    MEDICAL DIAGNOSIS/ICD CODES(#697.5)[6#691.805(.01)]    
Consult Request Tracking 1 REQUEST/CONSULTATION(#123)[1001]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[#691.806(.01)]    
IHS Patient 1 VISIT(#9000010)[900]    
Kernel 1 NEW PERSON(#200)[161719202425701150015031512]    
Order Entry Results Reporting 1 ORDER(#100)[1000]    
Scheduling 1 HOSPITAL LOCATION(#44)[18]    

Fields, Total: 51

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 ELECTROPHYSIOLOGY
  • DESCRIPTION:  
    This field identifies the date and time that the procedure was entered into the database.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  IDENTIFIER
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  691.8^B
    1)= S ^MCAR(691.8,"B",$E(X,1,30),DA)=""
    2)= K ^MCAR(691.8,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  691.8^AD^MUMPS
    1)= S MCARCDIE="^MCAR(691.8," D CHGDTE1^MCARPROC
    2)= S MCARCDIE="^MCAR(691.8," D CHGDTE^MCARPROC
    This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent EP procedure for this patient.
.02 ID .1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<2) X
  • LAST EDITED:  JUL 23, 1987
  • HELP-PROMPT:  Enter any unique identification for this EP, 2 to 10 characters. SSN need not be entered since it has been previously entered.
  • DESCRIPTION:  
    This field identifies the patient identifier.
.03 SUMMARY .2;1 SET
************************REQUIRED FIELD************************
  • 'N' FOR NORMAL;
  • 'A' FOR ABNORMAL;
  • 'B' FOR BORDERLINE;

  • LAST EDITED:  AUG 13, 1987
  • HELP-PROMPT:  Enter Code to describe normalcy of procedure performed.
  • DESCRIPTION:  
    This field summarizes the results of this procedure.
.04 SYMPTOM 1;0 POINTER Multiple #691.801 691.801

  • DESCRIPTION:  
    These are the clinical signs of disease.
.05 RISK FACTOR 2;0 POINTER Multiple #691.802 691.802

  • DESCRIPTION:  
    These are the conditions which contribute to the overall percentages of disease.
.9 HEART MEDICATION 3;0 POINTER Multiple #691.803 691.803

  • DESCRIPTION:  
    This field identifies the medication which the patient has been prescribed
1 MEDICAL PATIENT 0;2 POINTER TO MEDICAL PATIENT FILE (#690)
************************REQUIRED FIELD************************
MEDICAL PATIENT(#690)

  • LAST EDITED:  JUL 23, 1987
  • HELP-PROMPT:  Enter patients name: Last, First MI
  • DESCRIPTION:  
    This field identifies the patients 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.8^C
    1)= S ^MCAR(691.8,"C",$E(X,1,30),DA)=""
    2)= K ^MCAR(691.8,"C",$E(X,1,30),DA)
    This cross-reference allows look-ups by patient.
  • CROSS-REFERENCE:  691.8^AC^MUMPS
    1)= S MCARCDIE="^MCAR(691.8," D CHGPAT^MCARPROC
    2)= S MCARCDIE="^MCAR(691.8," D KILL^MCARPROC
    This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent EP procedure for this patient.
3 HOSPITAL OF STUDY 4;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3) X
  • LAST EDITED:  SEP 20, 1989
  • HELP-PROMPT:  Answer must be 3-40 characters in length.
  • DESCRIPTION:  
    This field defines the facility performing this procedure.
4 REASON FOR STUDY 4;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>120!($L(X)<1) X
  • LAST EDITED:  OCT 02, 1989
  • HELP-PROMPT:  Answer must be 1-120 characters in length.
  • DESCRIPTION:  
    This field documents the rationale of the procedure for this patient.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
5 ARRHYTHMIA DX 5;0 POINTER Multiple #691.805 691.805

  • DESCRIPTION:  
    This field identifies an arrhythmia diagnosis field.
6 CARDIAC DX 6;1 POINTER TO MEDICAL DIAGNOSIS/ICD CODES FILE (#697.5) MEDICAL DIAGNOSIS/ICD CODES(#697.5)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^MCAR(697.5,""A.CATH"",$P(^MCAR(697.5,+Y,0),U),+Y))",(D,MCDF)="A.CATH" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 23, 1991
  • HELP-PROMPT:  Enter cardiac diagnosis field.
  • DESCRIPTION:  
    This field identifies a cardiac diagnosis field.
  • SCREEN:  S DIC("S")="I $D(^MCAR(697.5,""A.CATH"",$P(^MCAR(697.5,+Y,0),U),+Y))",(D,MCDF)="A.CATH"
  • EXPLANATION:  CARDIAC CATHERIZATION CODES ONLY
  • EXECUTABLE HELP:  Q:$D(DJJ) N DO S X="?",DIC(0)="X",DIC="^MCAR(697.5,",D="A.CATH" D MIX^DIC1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
7 HX 7;0 WORD-PROCESSING #691.87
8 EJECTION FRACTION 8;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    This field quantifies the cardiac efficiency.
9 EJECTION FRACTION METHOD 8;2 SET
  • 'RVG' FOR RVG;
  • 'VENT' FOR VENTRICULOGRAPHY;
  • '2-DE' FOR 2D ECHO;

  • HELP-PROMPT:  Enter methodolody used to determine the ejection fraction.
  • DESCRIPTION:  
    This field documents the methodology used to determine the ejection fraction.
10 HEART BLOCK 9;0 SET Multiple #691.804 691.804

  • DESCRIPTION:  
    This field defines the state of heart block.
11 CAROTID STIMULATION 10;0 SET Multiple #691.811 691.811

  • DESCRIPTION:  
    This field documents the episodes of carotid stimulation.
12 SVT-TYPE 11;0 SET Multiple #691.812 691.812

  • DESCRIPTION:  
    This field defines the SVT-type
13 INTERPRETATION 12;0 WORD-PROCESSING #691.813

  • HELP-PROMPT:  ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field documents the clinical interpretation.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
14 COMMENT 13;0 WORD-PROCESSING #691.814

  • DESCRIPTION:  
    This field identifies a word processing comment field.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
15 FOLLOW UP 14;0 SET Multiple #691.815 691.815

  • DESCRIPTION:  
    This field documents follow up care/diagnostics.
16 CARDIOLOGY STAFF 15;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:  APR 23, 1996
  • HELP-PROMPT:  Enter participating clinical staff.
  • DESCRIPTION:  
    This field identifies the participating clinical staff.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  IDENTIFIER
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
  • CROSS-REFERENCE:  ^^TRIGGER^691.8^701
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691.8,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.8,16,1,1,1.4)
    1.4)= S DIH=$S($D(^MCAR(691.8,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691.8,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.8,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(691.8,16,1,1,2.1) X ^DD(691.8,16,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^MCAR(691.8,D0,15)):^(15),1:"") S X=$P(Y(1),U,1),X=X
    2.4)= S DIH=$S($D(^MCAR(691.8,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691.8,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= INTERNAL(#16)
    DELETE VALUE)= INTERNAL(#16)
    FIELD)= #701
    This trigger sets the primary provider file.
17 CARDIOLOGY FELLOW 15;2 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
  • HELP-PROMPT:  Enter participating clinical fellow.
  • DESCRIPTION:  
    This field identifies the participating clinical fellow.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
18 WARD/CLINIC 15;3 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  SEP 13, 1991
  • HELP-PROMPT:  Enter patient's location.
  • DESCRIPTION:  
    This field identifies the patient's location.
19 CARDIOLOGY STAFF-2ND 15;4 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
  • HELP-PROMPT:  Enter name of 2nd attending physician
  • DESCRIPTION:  
    This field identifies the secondary participating staff member.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
20 CARDIOLOGY FELLOW-2ND 15;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:  OCT 25, 1994
  • HELP-PROMPT:  Enter name of 2nd cardiology fellow
  • DESCRIPTION:  
    This field identifies the secondary clinical fellow.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
21 DISCHARGE DATE 16;0 DATE Multiple #691.96 691.96
22 FOLLOW UP 17;0 SET Multiple #691.97 691.97
24 CARDIOLOGY STAFF 19;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  K:'$D(^VA(200,"AK.PROVIDER",$P(Y,U,2),+Y)) X
  • LAST EDITED:  JAN 08, 1987
25 CARDIOLOGY FELLOW 19;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  K:'$D(^VA(200,"AK.PROVIDER",$P(Y,U,2),+Y)) X
  • LAST EDITED:  JAN 08, 1987
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 is provided as input into the summary of patient procedures.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
700 ICD DIAGNOSIS ICD;0 POINTER Multiple #691.806 691.806

  • DESCRIPTION:  
    This field contains the ICD9 Diagnosis(es) for the procedure.  This field also contains a subfield labeled NARRATIVE DIAGNOSIS 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 CARDIOLOGY STAFF field of the ELECTROPHYSIOLOGY (EP) 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.8^APCE
    1)= S ^MCAR(691.8,"APCE",$E(X,1,30),DA)=""
    2)= K ^MCAR(691.8,"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 VERFIFYING 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.8^ES
    1)= S ^MCAR(691.8,"ES",$E(X,1,30),DA)=""
    2)= K ^MCAR(691.8,"ES",$E(X,1,30),DA)
    This cross-reference 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 DELETATION;

  • 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
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All