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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^MCAR(691.1

Package: Medicine

Global: ^MCAR(691.1


Information

FileMan FileNo FileMan Filename Package
691.1 CARDIAC CATHETERIZATION Medicine

Description

Directly Accessed By Routines, Total: 29

Package Total Routines
Medicine 26 HEART MEDICATION    ICD DIAGNOSIS    IMAGE    INTERVENTION    LMCA NARROWING #    MCARBSA    MCARCATH1    MCARCATHB
MCARFLCATH    MCARGIBRIEF    MCAROC1    MCAROC2    MCAROC21    MCAROC22    MCAROC3    MCAROC31
MCAROC4    MCAROC41    MCFLCATH    MCFLECG    MCOBC1    MCOBC11    MCPOS01B    ^MCAR(691.1
RISK FACTOR    SYMPTOM    
Clinical Procedures 1 MDCVT1    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Medicine 1 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: 25

Package Total FileMan Files
Medicine 18 MEDICAL PATIENT(#690)[1]    INTERPRETATION(#693.2)[59]    MEDICATION(#695)[#691.16(.01)]    CATH PROCEDURE(#695.3)[#691.11(.01)#691.13(.01)]    PAST HISTORY AND RISK FACTOR(#695.4)[#691.44(.01)]    SYMPTOM(#695.5)[#691.43(.01)]    HEART CATHETER(#695.6)[#691.22(.01)#691.23(.01)#691.24(.01)]
NORMALITY OF CORONARY VESSEL(#695.9)[27323439]    SEGMENT OF CORONARY ARTERIES(#696)[#691.27(.01)#691.28(.01)#691.28(1)#691.3(.01)#691.31(.01)#691.31(1)#691.32(.01)#691.33(.01)#691.33(1)#691.35(.01)#691.36(.01)]
PERCENTAGE LESION(#696.1)[#691.27(1)#691.29(.01)#691.3(1)#691.32(1)#691.35(1)#691.36(1)#691.36(2)]
LESION MORPHOLOGY(#696.2)[#691.27(2)#691.29(1)#691.3(2)#691.32(2)#691.47(1)]    MORPHOLOGY OF DISTAL VESSEL(#696.3)[293641]
BYPASS GRAFT SEGMENT(#696.4)[#691.35(2)]    LEFT VENTRICULOGRAPHY(#696.5)[#691.39(.01)]    MITRAL REGURG ON LV GRAM(#696.7)[51]    COMPLICATION(#696.9)[#691.4(.01)]    REFERRING PHYSICIAN/AGENCY(#697.1)[4]    MEDICAL DIAGNOSIS/ICD CODES(#697.5)[#691.18(.01)]    
Consult Request Tracking 1 REQUEST/CONSULTATION(#123)[1001]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[#691.46(.01)]    
Imaging 1 IMAGE(#2005)[#691.12005(.01)]    
Kernel 1 NEW PERSON(#200)[62636465701150015031512]    
Order Entry Results Reporting 1 ORDER(#100)[1000]    
PCE Patient Care Encounter 1 VISIT(#9000010)[900]    
Scheduling 1 HOSPITAL LOCATION(#44)[5]    

Fields, Total: 102

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:  JAN 12, 1989
  • HELP-PROMPT:  ENTER PATIENT NAME OR DATE AND TIME OF CARDIAC CATHETERIZATION
  • DESCRIPTION:  
    This date/time field identifies the catheterization procedure.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  IDENTIFIER
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  691.1^B
    1)= S ^MCAR(691.1,"B",$E(X,1,30),DA)=""
    2)= K ^MCAR(691.1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  691.1^AD^MUMPS
    1)= S MCARCDIE="^MCAR(691.1," D CHGDTE1^MCARPROC
    2)= S MCARCDIE="^MCAR(691.1," D CHGDTE^MCARPROC
    This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent cardiac catherization 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 catheterization 2-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
************************REQUIRED FIELD************************
  • 'N' FOR NORMAL;
  • 'A' FOR ABNORMAL;
  • 'B' FOR BORDERLINE;

  • LAST EDITED:  AUG 13, 1987
  • DESCRIPTION:  
    This fields contains the gross evaluation of the results of this procedure.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
.04 SYMPTOM .3;0 POINTER Multiple #691.43 691.43

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

  • HELP-PROMPT:  This entry will match one found in the Risk Factor file.
  • DESCRIPTION:  
    This field contains the morbidity factors which this patient is most susceptible to.
1 MEDICAL PATIENT 0;2 POINTER TO MEDICAL PATIENT FILE (#690)
************************REQUIRED FIELD************************
MEDICAL PATIENT(#690)

  • LAST EDITED:  JUL 10, 1987
  • DESCRIPTION:  
    This field identifies the name of the patient 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.1^C
    1)= S ^MCAR(691.1,"C",$E(X,1,30),DA)=""
    2)= K ^MCAR(691.1,"C",$E(X,1,30),DA)
    This cross-reference allows look-ups by patient.
  • CROSS-REFERENCE:  691.1^AC^MUMPS
    1)= S MCARCDIE="^MCAR(691.1," D CHGPAT^MCARPROC Q
    2)= S MCARCDIE="^MCAR(691.1," D KILL^MCARPROC Q
    This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent cardiac catheterization procedure for this patient.
1.1 WT LBS 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>500)!(X<40)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 02, 1989
  • HELP-PROMPT:  Weight in pounds. Enter a number from 40 to 500.
  • DESCRIPTION:  
    The weight of the patient at the time of the procedure is stored here.
  • CROSS-REFERENCE:  691.1^AE^MUMPS
    1)= D CATH^MCARBSA
    2)= S $P(^MCAR(691.1,DA,0),U,9)="",X="" D B^MCARBSA
    This cross-reference computes the patient's body surface area from the patient's height and weight and inserts the computed value into the BODY SURFACE AREA field (#1.3).
1.2 HT IN 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>96)!(X<40)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 02, 1989
  • HELP-PROMPT:  Height in Inches. Type a number from 40 to 96.
  • DESCRIPTION:  
    The height in inches at the time of the procedure.
  • CROSS-REFERENCE:  691.1^AF^MUMPS
    1)= D CATH^MCARBSA
    2)= S $P(^MCAR(691.1,DA,0),U,9)="",X="" D B^MCARBSA
    This cross-reference computes the patient's body surface area from the patient's height and weight and inserts the computed value into the BODY SURFACE AREA field (#1.3).
1.3 BODY SURFACE AREA 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  AUG 03, 1989
  • HELP-PROMPT:  Calculated from weight and height fields.
  • DESCRIPTION:  
    This field identifies parameter is calculated by height and weight and stored in square meters.
    UNEDITABLE
3 CATH NUMBER 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<1) X
  • LAST EDITED:  AUG 02, 1989
  • HELP-PROMPT:  Answer must be 1-9 characters in length.
  • DESCRIPTION:  
    This allows the user to enter the cardiac catheterization procedure number.
4 REFERRING PHYSICIAN/AGENCY 0;5 POINTER TO REFERRING PHYSICIAN/AGENCY FILE (#697.1) REFERRING PHYSICIAN/AGENCY(#697.1)

  • LAST EDITED:  MAY 18, 1988
  • DESCRIPTION:  
    This allows the user to enter the referring physician/agency/hospital's name.
5 WARD/CLINIC 0;6 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  SEP 13, 1991
  • DESCRIPTION:  
    This field identifies the in-house patient address.
6 CCL LOG PROCEDURE 1;0 POINTER Multiple #691.11 691.11

  • DESCRIPTION:  
    This allows the user to enter the cardiac catheterization procedure.
7 TECH COMMENT 2;0 WORD-PROCESSING #691.12

  • DESCRIPTION:  
    This allows the cardiac cath. technician to enter comments pertaining to the procedure.
8 PROCEDURE 3;0 POINTER Multiple #691.13 691.13

  • DESCRIPTION:  
    This allows the user to enter multiple cardiac cath. procedure.
9 HISTORY 4;0 WORD-PROCESSING #691.14

  • DESCRIPTION:  
    This allows the user to enter a brief medical history.
11 HEART MEDICATION 6;0 POINTER Multiple #691.16 691.16

  • DESCRIPTION:  
    This field documents the cardiac medicines that the patient is taking at the time of this procedure. (multiple)
12 PHYSICAL EXAM 7;0 WORD-PROCESSING #691.17

  • DESCRIPTION:  
    This allows the user to enter data obtained from medical patient's physical examination.
13 INDICATION 8;0 POINTER Multiple #691.18 691.18

  • LAST EDITED:  AUG 23, 1991
  • DESCRIPTION:  
    This allows the user to enter multiple pre-cardiac catheterization diagnoses.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  INDICATION
15 PREMEDICATION 10;0 SET Multiple #691.2 691.2

  • DESCRIPTION:  
    This allows the user to enter multiple pre-cardiac catheterization medications.
16 VASCULAR ACCESS 11;0 SET Multiple #691.21 691.21

  • DESCRIPTION:  
    This allows the user to enter multiple cardiac catheterization vascular accesses.
17 FLUORO TIME 12;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<.1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 23, 1990
  • HELP-PROMPT:  Type a Number between .1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    This allows the user to enter catheterization fluoroscopy time.
18 USE OF SHEATH 12;2 SET
  • 'A' FOR ARTERY;
  • 'V' FOR VEIN;
  • 'B' FOR BOTH ARTERY AND VEIN;
  • 'N' FOR NEITHER ARTERY NOR VEIN;

  • DESCRIPTION:  
    This defines the use of a sheath during cardiac catheterization.
19 RIGHT HEART CATHETER 12;3 SET
  • 'C' FOR 7F COURNAND;
  • 'Z' FOR 7F ZUCKER;
  • 'S' FOR 7F SWAN GANZ;
  • 'E' FOR 7F EPPENDORF;

  • DESCRIPTION:  
    This allows the user to enter the specific right heart catheter used.
20 LEFT VENTRICULAR CATHETER 13;0 POINTER Multiple #691.22 691.22

  • DESCRIPTION:  
    This allows the user to enter multiple left ventricular catheters used.
21 RIGHT CORONARY CATHETER 14;0 POINTER Multiple #691.23 691.23

  • DESCRIPTION:  
    This allows the user to enter multiple right coronary catheters used.
22 LEFT CORONARY CATHETER 15;0 POINTER Multiple #691.24 691.24

  • DESCRIPTION:  
    This allows the user to enter multiple left coronary catheters used.
23 AORTOGRAPHY PROJECTION 16;1 SET
  • 'L' FOR LAO;
  • 'R' FOR RAO;

  • DESCRIPTION:  
    This field identifies the view of the aortography projection.
24 OTHER PROCEDURE AND COMMENT 17;0 WORD-PROCESSING #691.25

  • DESCRIPTION:  
    This allows the user to enter unspecified procedures and comments.
25 PROTAMINE 18;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-20 CHARACTERS IN LENGTH DESCRIBING MG OF PROTAMINE ADMINISTERED
  • DESCRIPTION:  
    This allows the user to enter the protamine used during the cardiac catheterization.
26 INTERVENTION 19;0 SET Multiple #691.26 691.26

  • DESCRIPTION:  
    This allows the user to enter multiple cardiac catheterization interventions.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
27 RCA NORMALITY 20;1 POINTER TO NORMALITY OF CORONARY VESSEL FILE (#695.9) NORMALITY OF CORONARY VESSEL(#695.9)

  • LAST EDITED:  FEB 10, 1986
  • DESCRIPTION:  
    This allows the user to enter the right coronary artery normality.
28 RCA SEGMENT 21;0 POINTER Multiple #691.27 691.27

  • DESCRIPTION:  
    This allows the user to enter multiple right coronary artery segments.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
29 RCA DISTAL VESSEL 22;1 POINTER TO MORPHOLOGY OF DISTAL VESSEL FILE (#696.3) MORPHOLOGY OF DISTAL VESSEL(#696.3)

  • LAST EDITED:  FEB 10, 1986
  • DESCRIPTION:  
    This allows the user to enter the right coronary artery distal vessel.
30 RCA COLLATERAL 22;2 SET
  • 'P' FOR PRESENT;
  • 'N' FOR NOT PRESENT;

  • DESCRIPTION:  
    This allows the user to enter the right coronary artery collateral vessel.
31 RCA ORIGIN OF COLLATERAL 23;0 POINTER Multiple #691.28 691.28

  • DESCRIPTION:  
    This allows the user to enter multiple right coronary artery origins of collateral vessels.
32 LEFT MAIN CA NORMALITY 24;1 POINTER TO NORMALITY OF CORONARY VESSEL FILE (#695.9) NORMALITY OF CORONARY VESSEL(#695.9)

  • LAST EDITED:  FEB 10, 1986
  • DESCRIPTION:  
    This allows the user to enter the left main coronary artery normality.
33 LMCA NARROWING 25;0 POINTER Multiple #691.29 691.29

  • DESCRIPTION:  
    This allows the user to enter multiple left main coronary artery narrowings.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
33.5 LMCA NARROWING # 25.5;0 Multiple #691.47 691.47

  • DESCRIPTION:  
    This allows the user to enter multiple left main coronary artery narrowings.
34 LAD NORMALITY 26;1 POINTER TO NORMALITY OF CORONARY VESSEL FILE (#695.9) NORMALITY OF CORONARY VESSEL(#695.9)

  • LAST EDITED:  FEB 10, 1986
  • DESCRIPTION:  
    This allows the user to enter the left anterior descending coronary artery normality.
35 LAD SEGMENT 27;0 POINTER Multiple #691.3 691.3

  • DESCRIPTION:  
    This allows the user to enter multiple left anterior descending coronary artery segments.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
36 LAD DISTAL VESSELS 28;1 POINTER TO MORPHOLOGY OF DISTAL VESSEL FILE (#696.3) MORPHOLOGY OF DISTAL VESSEL(#696.3)

  • LAST EDITED:  FEB 10, 1986
  • DESCRIPTION:  
    This allows the user to enter the left anterior descending distal vessels.
37 LAD COLLATERALS 28;2 SET
  • 'N' FOR NONE;
  • 'P' FOR PRESENT;

  • DESCRIPTION:  
    This allows the user to enter left anterior descending collateral vessels.
38 LAD ORIGIN OF COLLATERALS 29;0 POINTER Multiple #691.31 691.31

  • DESCRIPTION:  
    This allows the user to enter the left anterior descending arterial origin of collaterals (multiple).
39 CIRCUMFLEX NORMALITY 30;1 POINTER TO NORMALITY OF CORONARY VESSEL FILE (#695.9) NORMALITY OF CORONARY VESSEL(#695.9)

  • LAST EDITED:  FEB 10, 1986
  • DESCRIPTION:  
    This allows the user to enter the circumflex coronary normality.
40 CIRCUMFLEX SEGMENT 31;0 POINTER Multiple #691.32 691.32

  • DESCRIPTION:  
    This allows the user to enter multiple circumflex artery segments.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
41 CIRCUMFLEX DISTAL VESSEL 32;1 POINTER TO MORPHOLOGY OF DISTAL VESSEL FILE (#696.3) MORPHOLOGY OF DISTAL VESSEL(#696.3)

  • LAST EDITED:  FEB 10, 1986
  • DESCRIPTION:  
    This allows the user to enter circumflex coronary artery distal vessels.
42 CIRCUMFLEX COLLATERALS 32;2 SET
  • 'N' FOR NONE;
  • 'P' FOR PRESENT;

  • DESCRIPTION:  
    This allows the user to enter the circumflex coronary artery collaterals.
43 CIR. ORIGIN OF COLLATERALS 33;0 POINTER Multiple #691.33 691.33

  • DESCRIPTION:  
    This allows the user to enter the origin of circumflex collaterals.  (multiple)
44 FLUOROSCOPY 34;0 SET Multiple #691.34 691.34

  • DESCRIPTION:  
    This allows the user to enter multiple visualizations of calcium noted during the cardiac cath.
45 DOMINANCE 35;1 SET
  • 'L' FOR LEFT DOMINANCE;
  • 'R' FOR RIGHT DOMINANCE;
  • 'B' FOR BALANCED DOMINANCE;

  • DESCRIPTION:  
    This allows the user to enter the dominant coronary tree.
46 BYPASS GRAFT? 35;2 SET
  • 'N' FOR NOT PRESENT;
  • 'P' FOR PRESENT;

  • LAST EDITED:  AUG 04, 1986
  • DESCRIPTION:  
    This allows the user to enter the presence of coronary bypass grafts.
47 DISTAL ANASTOMOSIS 36;0 POINTER Multiple #691.35 691.35

  • DESCRIPTION:  
    This allows the user to enter multiple distal anastomosis.
48 ANGIOPLASTY SEGMENT 37;0 POINTER Multiple #691.36 691.36

  • DESCRIPTION:  
    This allows the user to enter multiple angioplasty segments.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
49 LEFT VENTRICULOGRAPHY 38;1 SET
  • 'N' FOR NORMAL;
  • 'A' FOR ABNORMAL;
  • 'G' FOR GLOBAL HYPOKINESIS;
  • 'NO' FOR NOT PERFORMED;

  • DESCRIPTION:  
    This field identifies the field used to enter the performance of a left ventriculography.
50 LEFT VENTRICULAR WALL MOTION 39;0 POINTER Multiple #691.39 691.39

  • DESCRIPTION:  
    This allows the user to enter multiple LV wall motion normalities.
51 MITRAL REGURGITATION 40;1 POINTER TO MITRAL REGURG ON LV GRAM FILE (#696.7) MITRAL REGURG ON LV GRAM(#696.7)

  • LAST EDITED:  FEB 10, 1986
  • DESCRIPTION:  
    This allows the user to enter the presence of mitral regurgitation.
51.5 MITRAL REGURGITANT FRACTION 40;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 24, 1987
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    This allows the user to enter the mitral regurgitation fraction.
51.6 AORTIC REGURGITANT FRACTION 40;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 24, 1987
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    This allows the user to enter aortic regurgitant fraction.
51.7 TOTAL REGURGITANT FRACTION 40;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 24, 1987
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    This defines the computed total regurgitant fraction.
52 THROMBUS OM LV GRAM 40;2 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • DESCRIPTION:  
    This allows the user to enter presence of a LV thrombus.
53 LV EJECTION FRACTION 40;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 29, 1987
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    This allows the user to enter the calculated LV ejection fraction.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
54 AORTOGRAPHY 40;4 SET
  • '0' FOR NONE;
  • '1' FOR 1+;
  • '2' FOR 2+;
  • '3' FOR 3+;
  • '4' FOR 4+;
  • '5' FOR 5+;

  • DESCRIPTION:  
    This allows the user to enter the aortography projection.
55 AORTIC ROOT 40;5 SET
  • 'N' FOR NORMAL;
  • 'D' FOR DILATED;

  • LAST EDITED:  MAR 27, 1996
  • DESCRIPTION:  
    This allows the user to enter the aortic root dimensions normality.
56 SINUSES OF VALSALVA 40;6 SET
  • '2' FOR 2 SINUSES OF VALSALVA;
  • '3' FOR 3 SINUSES OF VALSALVA;

  • LAST EDITED:  APR 14, 1988
  • DESCRIPTION:  
    This allows the user to enter number of sinuses of valsalva.
57 BYPASS GRAFTS 40;7 SET
  • '0' FOR NONE;
  • '1' FOR ONE;
  • '2' FOR TWO;
  • '3' FOR THREE;
  • '4' FOR FOUR;
  • '5' FOR FIVE;

  • DESCRIPTION:  
    This allows the user to enter number of coronary bypass grafts.
58 COMPLICATION 41;0 POINTER Multiple #691.4 691.4

  • DESCRIPTION:  
    This allows the user to enter multiple cardiac cath. complications.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
59 INTERPRETATION 42;1 POINTER TO INTERPRETATION FILE (#693.2) INTERPRETATION(#693.2)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 09, 1990
  • HELP-PROMPT:  Enter the interpretation of the cardiac cath procedure.
  • DESCRIPTION:  
    This allows the user to enter the final interpretation of the cardiac cath.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=""C"""
  • EXPLANATION:  CHOOSES CATHETERIZATION CODES ONLY
60 CONCLUSION 43;0 WORD-PROCESSING #691.41

  • DESCRIPTION:  
    This allows the user to enter specific statements in reference to the cardiac cath.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
61 PLAN 44;0 WORD-PROCESSING #691.42

  • DESCRIPTION:  
    This allows the user to enter specific statements in reference to the patient's management plan.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
62 CARDIOLOGY FELLOW 45;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:  MAY 09, 1996
  • DESCRIPTION:  
    This allows the user to enter the primary cardiology fellow.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
  • EXPLANATION:  Check if this person holds the PROVIDER key.
63 CARDIOLOGY STAFF 45;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:  MAY 09, 1996
  • DESCRIPTION:  
    This allows the user to enter the primary physician in attendance.
  • 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.1^701
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691.1,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.1,63,1,1,1.4)
    1.4)= S DIH=$S($D(^MCAR(691.1,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691.1,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.1,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(691.1,63,1,1,2.1) X ^DD(691.1,63,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^MCAR(691.1,D0,45)):^(45),1:"") S X=$P(Y(1),U,2),X=X
    2.4)= S DIH=$S($D(^MCAR(691.1,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691.1,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= INTERNAL(CARDIOLOGY STAFF)
    DELETE VALUE)= INTERNAL(CARDIOLOGY STAFF)
    FIELD)= #701
    This trigger is used to populate the generic primary provider field, 701.
64 CARDIOLOGY FELLOW-2ND 5;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:  MAY 09, 1996
  • HELP-PROMPT:  Enter name of 2nd Cardiology fellow
  • DESCRIPTION:  
    This allows the user to enter the secondary cardiology fellow.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
  • EXPLANATION:  Check if this person holds the PROVIDER key.
65 CARDIOLOGY STAFF-2ND 5;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:  MAY 09, 1996
  • HELP-PROMPT:  Enter name of 2nd attending physician
  • DESCRIPTION:  
    This allows the user to enter the secondary physician in attendance.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
  • EXPLANATION:  Check if this person holds the PROVIDER key.
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 field will be displayed in the summary areas of Order Entry/Results Reporting and Health Care Summaries.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
700 ICD DIAGNOSIS ICD;0 POINTER Multiple #691.46 691.46

  • DESCRIPTION:  
    This field contains 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:  MAY 09, 1996
  • 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))"
  • EXPLANATION:  Check if this person holds the PROVIDER key.
  • NOTES:  TRIGGERED by the CARDIOLOGY STAFF field of the CARDIAC CATHETERIZATION File
899 MARKED FOR DELETION MFD;1 SET
  • '1' FOR MARKED FOR DELETION;

  • LAST EDITED:  JUL 31, 1992
  • DESCRIPTION:  
    This field is used by lookup operations to screen out such records from general access by the electronic medical record.  The functionality allows this record to remain in the system for auditing purposes.
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.1^APCE
    1)= S ^MCAR(691.1,"APCE",$E(X,1,30),DA)=""
    2)= K ^MCAR(691.1,"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 the 'Consult Orders' internal file number.
  • 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 04, 1993
  • HELP-PROMPT:  The Current person updating the procedure
  • DESCRIPTION:  
    This field identifies the individual who created this version of the record, the last person to edit the entree.
1501 ENTERING ELECTRONIC SIGNATURE ES;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  FEB 04, 1993
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This is the scrambled electronic signature.
1502 ENTERING DATE ES;3 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 04, 1993
  • HELP-PROMPT:  The Current Date of the update.
  • DESCRIPTION:  
    This is the date and time that the record was entered.
1503 VERIFYING DUZ ES;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 04, 1993
  • HELP-PROMPT:  The person that sign it.
  • DESCRIPTION:  
    This is the New Person file identifier of the person releasing the record.  The person entering the electronic signature is captured here.
1504 VERIFIER ELECTRONIC SIGNATURE ES;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  FEB 04, 1993
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This is the electronic signature of the verifier.
1505 VERIFIER DATE ES;6 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 04, 1993
  • HELP-PROMPT:  The date that the procedure was signed
  • DESCRIPTION:  
    This is the date that the record was verified.
1506 RELEASE CODE ES;7 SET
  • 'D' FOR DRAFT;
  • 'PD' FOR PROBLEM DRAFT;
  • 'RV' FOR RELEASE ON-LINE VERIFIED;
  • 'ROV' FOR RELEASE OFF-LINE VERIFIED;
  • 'RNV' FOR RELEASE NOT VERIFIED;
  • 'S' FOR SUPERSEDED;
  • 'SRV' FOR SUPERSEDING RELEASE ON-LINE VERIFIED;
  • 'SROV' FOR SUPERSEDING RELEASE OFF-LINE VERIFIED;

  • LAST EDITED:  MAR 04, 1993
  • HELP-PROMPT:  Select the current status of the procedure
  • DESCRIPTION:  
    This field controls the release status of the record.
  • CROSS-REFERENCE:  691.1^ES
    1)= S ^MCAR(691.1,"ES",$E(X,1,30),DA)=""
    2)= K ^MCAR(691.1,"ES",$E(X,1,30),DA)
    This cross-reference allows editing 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 04, 1993
  • HELP-PROMPT:  The that the procedure was mad available to non-key holders.
  • DESCRIPTION:  
    This is the date that the record was released to the general medical record viewer.
1508 DATE OF VERIFIED ES;9 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 04, 1993
  • HELP-PROMPT:  The date that the procedure was verified.
  • DESCRIPTION:  
    This is the date and time that the procedure was signed electronically.
1509 SUPERSEDED ES;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 04, 1993
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This indicator controls the process of superseding released records which require addendums or changes.  This functionality allows an auditing of information which has been available for the medical record.
1510 SUPERSEDED BY ES;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 04, 1993
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This field directs the flow of supersessions of records.
1511 MARKED FOR DELETION ES;12 SET
  • '1' FOR MARKED FOR DELETION;

  • LAST EDITED:  FEB 04, 1993
  • DESCRIPTION:  
    This field allows the record to remain in the database but screened from the medical record.
1512 DELETER DUZ ES;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 04, 1993
  • DESCRIPTION:  
    This field documents the identity of the deleter.
1513 SUPERSEDED DATE ES;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  FEB 04, 1993
  • HELP-PROMPT:  Do not enter information in this field
  • DESCRIPTION:  
    This is the date and time that the supersession took place.
1514 RECORD CREATATION DATE ES;15 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 04, 1993
  • DESCRIPTION:  
    This field stores the date the original file entry for this procedure was made.
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
  • DESCRIPTION:  
    This value documents the sequence number of record revisions.
2005 IMAGE 2005;0 POINTER Multiple #691.12005 691.12005

  • DESCRIPTION:  
    This field points to an entry in the image file.
2006 RESTING HEART RATE CO;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>150)!(X<30)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 06, 1997
  • HELP-PROMPT:  Type a Number between 30 and 150, 0 Decimal Digits
  • DESCRIPTION:  
    This field identifies the patient's resting heart rate.
2007 END DIASTOLIC VOLUME CO;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<.1)!(X?.E1"."2N.N) X
  • LAST EDITED:  MAR 06, 1997
  • HELP-PROMPT:  Enter Number in Milliliters, 1 Decimal Place .1-999
  • DESCRIPTION:  
    This allows the user to enter the left ventricular diastolic volume.
2008 END SYSTOLIC VOLUME CO;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<.1)!(X?.E1"."2N.N) X
  • LAST EDITED:  MAR 06, 1997
  • HELP-PROMPT:  Enter Number of Square Centimeters, 1 Decimal Place .1-999
  • DESCRIPTION:  
    This allows the user to enter the left ventricular end systolic volume.
2009 CARDIAC OUTPUT COMPUTED

  • MUMPS CODE:  X ^DD(691.1,2009,9.5) S X=$S(Y(691.1,2009,2):Y(691.1,2009,3),Y(691.1,2009,4):Y(691.1,2009,5),Y(691.1,2009,6):Y(691.1,2009,7),Y(691.1,2009,8):X)
    9.2 = S Y(691.1,2009,1)=$S($D(^MCAR(691.1,D0,"CO")):^("CO"),1:"") S X=$P(Y(691.1,2009,1),U,1)="",Y(691.1,2009,2)=X S X="",Y(691.1,2009,3)=X S X=$P(Y(691.1,2009,1),U,2)
    9.3 = X ^DD(691.1,2009,9.2) S X=X="",Y(691.1,2009,4)=X S X="",Y(691.1,2009,5)=X S X=$P(Y(691.1,2009,1),U,3)="",Y(691.1,2009,6)=X S X="",Y(691.1,2009,7)=X S X=1
    9.4 = X ^DD(691.1,2009,9.3) S Y(691.1,2009,8)=X S X=$P(Y(691.1,2009,1),U,1),Y(691.1,2009,9)=X S X=$P(Y(691.1,2009,1),U,2)-$P(Y(691.1,2009,1),U,3)
    9.5 = X ^DD(691.1,2009,9.4) S Y=X,X=Y(691.1,2009,9),X=X*Y
  • ALGORITHM:  $S(#2006="":"",#2007="":"",#2008="":"",1:#2006*(#2007-#2008))
  • DESCRIPTION:  This field computes the Angiographic Cardiac Output from the Resting Heart Rate (#2006), EDV (#2007), and ESV (#2008).
    The formula used is:   Heart_Rate * (EDV - ESV).

External References

Name Field # of Occurrence
^%DT .01+1, 1502+1, 1505+1, 1507+1, 1508+1, 1514+1
^DIC 59+1, 62+1, 63+1, 64+1, 65+1, 701+1
^DICR 63(XREF 1n1.4), 63(XREF 1n2.4)
B^MCARBSA 1.1(XREF 1K), 1.2(XREF 1K)
CATH^MCARBSA 1.1(XREF 1S), 1.2(XREF 1S)
CHGDTE^MCARPROC .01(XREF 2K)
CHGDTE1^MCARPROC .01(XREF 2S)
CHGPAT^MCARPROC 1(XREF 2S)
KILL^MCARPROC 1(XREF 2K)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( 63(XREF 1n1.4), 63(XREF 1n2.4)
^DD(691.1 63(XREF 1S), 63(XREF 1K), 2009+1, 2009OF9.3+1, 2009OF9.4+1, 2009OF9.5+1
^DPT - [#2] ID1+1
^MCAR(690 - [#690] ID1+1
^MCAR(691.1 - [#691.1] .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1.1(XREF 1K), 1.2(XREF 1K), 63(XREF 1S), 63(XREF 1n1.4), 63(XREF 1K), 63(XREF 1n2.1)
63(XREF 1n2.4), 900(XREF 1S), 900(XREF 1K), 1506(XREF 1S), 1506(XREF 1K), 2009OF9.2+1

Naked Globals

Name Field # of Occurrence
^("CO" 2009OF9.2+1
^("ES" IDX1+1
^("PROV" 63(XREF 1S), 63(XREF 1n1.4), 63(XREF 1K), 63(XREF 1n2.4)
^(0 ID1+1
^(45 63(XREF 1n2.1)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*, 1502+1*, 1505+1*, 1507+1*, 1508+1*, 1514+1*
>> D0 63(XREF 1S), 63(XREF 1K), 63(XREF 1n2.1), 2009OF9.2+1
>> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1.1(XREF 1K), 1.2(XREF 1K), 63(XREF 1S), 63(XREF 1K), 900(XREF 1S), 900(XREF 1K)
1506(XREF 1S), 1506(XREF 1K)
DIC ID1+1, IDX1+1, 59+1!*, 62+1!*, 63+1!*, 64+1!*, 65+1!*, 701+1!*
DIC("S" 59+1*, 59SCR+1*, 62+1*, 62SCR+1*, 63+1*, 63SCR+1*, 64+1*, 64SCR+1*, 65+1*, 65SCR+1*
, 701+1*, 701SCR+1*
>> DIE 59+1, 62+1, 63+1, 64+1, 65+1, 701+1
>> DIG 63(XREF 1n1.4), 63(XREF 1n2.4)
>> DIH 63(XREF 1n1.4), 63(XREF 1n2.4)
>> DIU 63(XREF 1S), 63(XREF 1K)
DIV 63(XREF 1S), 63(XREF 1n1.4), 63(XREF 1K), 63(XREF 1n2.1), 63(XREF 1n2.4)
DIV(0 63(XREF 1S), 63(XREF 1n1.4), 63(XREF 1K), 63(XREF 1n2.4)
>> MCARCDIE .01(XREF 2S), .01(XREF 2K), 1(XREF 2S), 1(XREF 2K)
U ID1+1, 1.1(XREF 1K), 1.2(XREF 1K), 63(XREF 1S), 63(XREF 1n1.4), 63(XREF 1K), 63(XREF 1n2.1), 63(XREF 1n2.4), 2009OF9.2+1, 2009OF9.3+1
, 2009OF9.4+1
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .02+1!, 1(XREF 1S), 1(XREF 1K), 1.1+1!, 1.1(XREF 1K), 1.2+1!, 1.2(XREF 1K)
, 1.3+1!, 3+1!, 17+1!, 25+1!, 51.5+1!, 51.6+1!, 51.7+1!, 53+1!, 59+1*!, 62+1*!
, 63+1*!, 63(XREF 1S), 63(XREF 1n1.4), 63(XREF 1K), 63(XREF 1n2.1), 63(XREF 1n2.4), 64+1*!, 65+1*!, 600+1!, 701+1*!
900(XREF 1S), 900(XREF 1K), 1501+1!, 1502+1*!, 1504+1!, 1505+1*!, 1506(XREF 1S), 1506(XREF 1K), 1507+1*!, 1508+1*!
, 1509+1!, 1510+1!, 1513+1!, 1514+1*!, 1515+1!, 2006+1!, 2007+1!, 2008+1!, 2009+1*, 2009OF9.2+1*
, 2009OF9.3+1*, 2009OF9.4+1*, 2009OF9.5+1*
Y .01+1, 59+1, 62+1, 63+1, 63(XREF 1S), 63(XREF 1K), 64+1, 65+1, 701+1, 1502+1
, 1505+1, 1507+1, 1508+1, 1514+1, 2009OF9.5+1*
Y( 2009+1, 2009OF9.2+1*, 2009OF9.3+1*, 2009OF9.4+1*, 2009OF9.5+1
Y(1 63(XREF 1S), 63(XREF 1K), 63(XREF 1n2.1)
ZZ ID1+1*!
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All