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

Package: Medicine

Global: ^MCAR(691


Information

FileMan FileNo FileMan Filename Package
691 ECHO Medicine

Description

Directly Accessed By Routines, Total: 8

Package Total Routines
Medicine 8 MCARBSA    MCARIPST    MCARLV    MCAROE1    MCAROE2    MCOBK    MCPOS01B    MCRPEC

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Medicine 2 MCARP    MCRPEC    

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

Package Total FileMan Files
Medicine 7 MEDICAL PATIENT(#690)[1]    MEDICAL DESCRIPTION(#693)[#691.06(.01)]    MEDICATION(#695)[#691.01(.01)]    REGIONAL WALL MOTION(#695.1)[#691.04(.01)]    PAST HISTORY AND RISK FACTOR(#695.4)[#691.09(.01)]    SYMPTOM(#695.5)[#691.08(.01)]    MEDICAL DIAGNOSIS/ICD CODES(#697.5)[#691.15(.01)]    
Consult Request Tracking 1 REQUEST/CONSULTATION(#123)[1001]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[#691.19(.01)]    
IHS Patient 1 VISIT(#9000010)[900]    
Kernel 1 NEW PERSON(#200)[39, 43, 701, 1500, 1503, 1512]    
Order Entry Results Reporting 1 ORDER(#100)[1000]    
Scheduling 1 HOSPITAL LOCATION(#44)[40]    

Fields, Total: 109

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:  MAY 21, 1996
  • HELP-PROMPT:  ENTER PATIENT NAME OR DATE AND TIME OF ECHO PROCEDURE
  • DESCRIPTION:  
    This field identifies the date and time when the echo was taken.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  IDENTIFIER
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  691^B
    1)= S ^MCAR(691,"B",$E(X,1,30),DA)=""
    2)= K ^MCAR(691,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  691^AF^MUMPS
    1)= S MCARCDIE="^MCAR(691," D CHGDTE1^MCARPROC
    2)= S MCARCDIE="^MCAR(691," D CHGDTE^MCARPROC
    This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent echo 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 ECHO. 2-10 Characters in length. SSN need not be entered as it is already recorded.
  • DESCRIPTION:  
    Enter any site specific unique identification number for this ECHO test.  No need to enter the SSN.  SSN is already recorded for this ECHO.
.03 SUMMARY .2;1 SET
************************REQUIRED FIELD************************
  • 'N' FOR NORMAL;
  • 'A' FOR ABNORMAL;
  • 'B' FOR BORDERLINE;

  • LAST EDITED:  AUG 13, 1987
  • DESCRIPTION:  
    This field identifies the result of the echo procedure.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
.04 SYMPTOM .3;0 POINTER Multiple #691.08 691.08

  • DESCRIPTION:  
    This field identifies the medical patients symptoms listed on the procedure request form.
.05 RISK FACTOR .4;0 POINTER Multiple #691.09 691.09

  • DESCRIPTION:  
    This field identifies the medical patient's risk factors listed on the procedure request form.
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 name.
  • DESCRIPTION:  
    This field identifies the medical patient's name.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  IDENTIFIER
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  691^C
    1)= S ^MCAR(691,"C",$E(X,1,30),DA)=""
    2)= K ^MCAR(691,"C",$E(X,1,30),DA)
    This cross-reference allows look-ups by patient.
  • CROSS-REFERENCE:  691^AE^MUMPS
    1)= S MCARCDIE="^MCAR(691," D CHGPAT^MCARPROC
    2)= S MCARCDIE="^MCAR(691," D KILL^MCARPROC
    This cross-reference permits access to medical procedures for a patient in date order, from most recent to least recent.
1.1 WT LBS 13;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>500)!(X<40)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 10, 1988
  • HELP-PROMPT:  Weight in Lbs. Enter a number from 40 to 500.
  • DESCRIPTION:  
    This field identifies the medical patient's weight in pounds.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  691^AC^MUMPS
    1)= D ^MCARBSA
    2)= S $P(^MCAR(691,DA,13),U,3)="" S X="" D A^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 (#2).
1.15 SEX COMPUTED

  • MUMPS CODE:  X ^DD(691,1.15,9.4) S X=$P($P(Y(691,1.15,202),$C(59)_$P(Y(691,1.15,201),U,2)_":",2),$C(59),1) S D0=Y(691,1.15,80)
    9.2 = S Y(691,1.15,80)=$S($D(D0):D0,1:""),Y(691,1.15,1)=$S($D(^MCAR(691,D0,0)):^(0),1:""),D0=$P(Y(691,1.15,1),U,2) S:'$D(^MCAR(690,+D0,0)) D0=-1 S Y(691,1.15,180)=$S($D(D0):D0,1:"")
    9.3 = X ^DD(691,1.15,9.2) S Y(691,1.15,101)=$S($D(^MCAR(690,D0,0)):^(0),1:""),D0=$P(Y(691,1.15,101),U,1) S:'$D(^DPT(+D0,0)) D0=-1
    9.4 = X ^DD(691,1.15,9.3) S Y(691,1.15,202)=$C(59)_$S($D(^DD(2,.02,0)):$P(^(0),U,3),1:""),Y(691,1.15,201)=$S($D(^DPT(D0,0)):^(0),1:"")
  • ALGORITHM:  #1:#.01:SEX
  • LAST EDITED:  MAR 06, 1990
  • DESCRIPTION:  
    This code tells the gender of the patient.
1.2 HT IN 13;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>96)!(X<40)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 10, 1988
  • HELP-PROMPT:  Height in inches. Enter a number from 40 to 96.
  • DESCRIPTION:  
    This field identifies the medical patient's height in inches.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  691^AD^MUMPS
    1)= D ^MCARBSA
    2)= S $P(^MCAR(691,DA,13),U,3)="" S X="" D A^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 (#2).
2 BODY SURFACE AREA 13;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."3N.N) X
    9.1 =             D ^MCARBSA
  • LAST EDITED:  MAY 09, 1996
  • HELP-PROMPT:  Type a Number between 0 and 99, 2 Decimal Digits
  • DESCRIPTION:  
    This field identifies the patient's BSA, computed from patient's height and weight.
    WRITE AUTHORITY:  ^
    UNEDITABLE
  • CROSS-REFERENCE:  691^AI^MUMPS
    1)= D ^MCARLV
    2)= S $P(^MCAR(691,DA,13),U,6)=""
    This cross-reference computes the patient's left ventricular mass from the patient's body surface area and the dimensions of the ventricular septum, posterior wall, and left ventricular diastole, and inserts the computed
    value into the LV MASS field (#32.8).
3 RESTING SYSTOLIC BP 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>300)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 25, 1999
  • HELP-PROMPT:  Type a Number between 0 and 300, 0 Decimal Digits
  • DESCRIPTION:  
    This field identifies the patient's resting systolic blood pressure.
4 RESTING DIASTOLIC BP 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>300)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 25, 1999
  • HELP-PROMPT:  Type a Number between 0 and 300, 0 Decimal Digits
  • DESCRIPTION:  
    This field identifies the patient's resting diastolic blood pressure.
5 RESTING HEART RATE 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>150)!(X<30)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 30 AND 150
  • DESCRIPTION:  
    This field identifies the patient's resting heart rate.
6 RHYTHM 0;7 SET
  • '1' FOR NSR;
  • '2' FOR A-FIB;
  • '3' FOR OTHER;

  • HELP-PROMPT:  Enter code for patient ECG/EKG rhythm.
  • DESCRIPTION:  
    This field identifies the patient's current ECG/EKG rhythm.
7 STUDY QUALITY 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>4)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE 1 FOR POOR, 2 FOR FAIR, 3 FOR GOOD, AND 4 FOR EXCELLENT
  • DESCRIPTION:  
    This field identifies the technical quality of the procedure.
7.5 STUDY TYPE 16;0 SET Multiple #691.48 691.48
8 MED(CARDIOLOGY MEDICATION) 1;0 POINTER Multiple #691.01 691.01

  • DESCRIPTION:  
    This field identifies the medications listed on the medical patient's request form.
9 PRE-DX 2;0 SET Multiple #691.02 691.02

  • DESCRIPTION:  
    This defines the medical patient's pre-diagnosis listed on the procedure request form.
10 COMMENT 3;0 WORD-PROCESSING #691.03

  • DESCRIPTION:  
    This allows the user to make specific comments on a particular field.
11 SEPTUM 4;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>60)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 23, 1987
  • HELP-PROMPT:  ENTER NUMBER OF MILLIMETERS 0-60
  • DESCRIPTION:  
    This allows the user to enter the dimensions of the ventricular septum.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
  • CROSS-REFERENCE:  691^AG^MUMPS
    1)= D ^MCARLV
    2)= S $P(^MCAR(691,DA,13),U,6)=""
    This cross-reference performs the same action as the 'AI' cross-reference of the BODY SURFACE AREA field (#2).
12 POSTERIOR WALL 4;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>60)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 06, 1986
  • HELP-PROMPT:  ENTER NUMBER OF MILLIMETERS 0-60
  • DESCRIPTION:  
    This allows the user to enter the dimensions of the posterior wall.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
  • CROSS-REFERENCE:  691^AH^MUMPS
    1)= D ^MCARLV
    2)= S $P(^MCAR(691,DA,13),U,6)=""
    This cross-reference performs the same action as the 'AI' cross-reference of the BODY SURFACE AREA field (#2).
13 LT. ATRIUM 4;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>120)!(X<10)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 06, 1986
  • HELP-PROMPT:  ENTER NUMBER OF MILLIMETERS 10-120
  • DESCRIPTION:  
    This allows the user to enter the dimensions of the left atrium.
14 AORTIC ROOT 4;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<10)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 06, 1986
  • HELP-PROMPT:  ENTER NUMBER OF MILLIMETERS 10-100
  • DESCRIPTION:  
    This allows the user to enter the dimensions of the aortic root.
15 RT VENTRICLE 4;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<5)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 06, 1986
  • HELP-PROMPT:  ENTER NUMBER OF MILLIMETERS 5-100
  • DESCRIPTION:  
    This allows the user to enter the dimensions of the right ventricle.
16 ANT. RV WALL 4;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 06, 1986
  • HELP-PROMPT:  ENTER NUMBER OF MILLIMETERS 1-20
  • DESCRIPTION:  
    This allows the user to enter the dimensions of the anterior right ventricular wall.
17 LT. VENT. DIASTOLE 4;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>150)!(X<20)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 06, 1986
  • HELP-PROMPT:  ENTER NUMBER OF MILLIMETERS 20-150
  • DESCRIPTION:  
    This allows the user to enter the internal left ventricular diastolic dimensions.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
  • CROSS-REFERENCE:  691^AJ^MUMPS
    1)= D ^MCARLV
    2)= S $P(^MCAR(691,DA,13),U,6)=""
    This cross-reference performs the same action as the 'AJ' cross-reference of the BODY SURFACE AREA field (#2).
18 LT. VENT. SYSTOLE 4;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>150)!(X<5)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 06, 1986
  • HELP-PROMPT:  ENTER NUMBER OF MILLIMETERS 5-150
  • DESCRIPTION:  
    This allows the user to enter the internal left ventricular systolic dimensions.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
19 % FRACT. SHORTENING COMPUTED

  • MUMPS CODE:  X ^DD(691,19,9.4) S X=$J(Y(691,19,8),Y(691,19,9),X) S X=$J(X,0,0)
    9.2 = S Y(691,19,1)=$S($D(^MCAR(691,D0,4)):^(4),1:"") S X=$P(Y(691,19,1),U,7)="",Y(691,19,2)=X S X="",Y(691,19,3)=X S X=$P(Y(691,19,1),U,8)="",Y(691,19,4)=X S X=""
    9.3 = X ^DD(691,19,9.2) S Y(691,19,5)=X S X=1,Y(691,19,6)=X,Y(691,19,7)=X S X=$P(Y(691,19,1),U,7)-$P(Y(691,19,1),U,8),X=$S($P(Y(691,19,1),U,7):X/$P(Y(691,19,1),U,7),1:"*******")
    9.4 = X ^DD(691,19,9.3) S X=X*100,X=$S(Y(691,19,2):Y(691,19,3),Y(691,19,4):Y(691,19,5),Y(691,19,6):X),Y(691,19,8)=X S X=0,Y(691,19,9)=X S X=0
  • ALGORITHM:  $J($S(#17="":"",#18="":"",1:(#17-#18/#17*100)),0,0) (ALWAYS 0 DECIMAL DIGITS)
  • LAST EDITED:  MAY 04, 1994
  • DESCRIPTION:  
    This field identifies the computed percent shortening fraction of the left ventricular.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
20 E-SEPT. 4;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 06, 1986
  • HELP-PROMPT:  ENTER NUMBER OF MILLIMETERS 1-100
  • DESCRIPTION:  
    This allows the user to enter the E-point of the mitral valve to septum dimensions.
21 LV XS AREA, MIT. SYST. 5;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>200)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 06, 1986
  • HELP-PROMPT:  CENTIMETERS
22 LV XS AREA, PAP. MUSC. SYST. 5;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 06, 1986
  • HELP-PROMPT:  CENTIMETERS
23 LV XS AREA, AP. 4-CH SYST. 5;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>200)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 06, 1986
  • HELP-PROMPT:  CENTIMETERS
24 LV XS AREA, MIT. DIAST. 5;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>200)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 06, 1986
  • HELP-PROMPT:  CENTIMETERS
25 LV XS AREA, PAP. MUSC. DIAST. 5;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>200)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 06, 1986
  • HELP-PROMPT:  CENTIMETERS
26 LV XS AREA, AP. 4-CH DIAST. 5;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>200)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 06, 1986
  • HELP-PROMPT:  CENTIMETERS
27 % FAS MITRAL LEVEL COMPUTED

  • MUMPS CODE:  S Y(691,27,1)=$S($D(^MCAR(691,D0,5)):^(5),1:"") S X=$P(Y(691,27,1),U,4)-$P(Y(691,27,1),U,1),X=$S($P(Y(691,27,1),U,4):X/$P(Y(691,27,1),U,4),1:"*******") S X=$J(X,0,1)
    9.2 = S Y(691,27,1)=$S($D(^MCAR(691,D0,5)):^(5),1:"") S X=$P(Y(691,27,1),U,4)="",Y(691,27,2)=X S X="",Y(691,27,3)=X S X=$P(Y(691,27,1),U,1)="",Y(691,27,4)=X S X=""
    9.3 = X ^DD(691,27,9.2) S Y(691,27,5)=X S X=1,Y(691,27,6)=X S X=$P(Y(691,27,1),U,4)-$P(Y(691,27,1),U,1),X=$S($P(Y(691,27,1),U,4):X/$P(Y(691,27,1),U,4),1:"*******")
  • ALGORITHM:  (#24-#21)/#24 (ALWAYS 1 DECIMAL DIGITS)
  • LAST EDITED:  JAN 02, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 25 AND 99
28 % FAS PAP. MUSCLE COMPUTED

  • MUMPS CODE:  S Y(691,28,1)=$S($D(^MCAR(691,D0,5)):^(5),1:"") S X=$P(Y(691,28,1),U,5)-$P(Y(691,28,1),U,2),X=$S($P(Y(691,28,1),U,5):X/$P(Y(691,28,1),U,5),1:"*******") S X=$J(X,0,1)
    9.2 = S Y(691,28,1)=$S($D(^MCAR(691,D0,5)):^(5),1:"") S X=$P(Y(691,28,1),U,5)="",Y(691,28,2)=X S X="",Y(691,28,3)=X S X=$P(Y(691,28,1),U,2)="",Y(691,28,4)=X S X=""
    9.3 = X ^DD(691,28,9.2) S Y(691,28,5)=X S X=1,Y(691,28,6)=X,Y(691,28,7)=X S X=$P(Y(691,28,1),U,5)-$P(Y(691,28,1),U,2),X=$S($P(Y(691,28,1),U,5):X/$P(Y(691,28,1),U,5),1:"*******")
  • ALGORITHM:  (#25-#22)/#25 (ALWAYS 1 DECIMAL DIGITS)
  • LAST EDITED:  JAN 02, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 20 AND 99
29 % FAS AP. 4-CH VIEW COMPUTED

  • MUMPS CODE:  S Y(691,29,1)=$S($D(^MCAR(691,D0,5)):^(5),1:"") S X=$P(Y(691,29,1),U,6)-$P(Y(691,29,1),U,3),X=$S($P(Y(691,29,1),U,6):X/$P(Y(691,29,1),U,6),1:"*******") S X=$J(X,0,1)
    9.2 = S Y(691,29,1)=$S($D(^MCAR(691,D0,5)):^(5),1:"") S X=$P(Y(691,29,1),U,6)="",Y(691,29,2)=X S X="",Y(691,29,3)=X S X=$P(Y(691,29,1),U,3)="",Y(691,29,4)=X S X=""
    9.3 = X ^DD(691,29,9.2) S Y(691,29,5)=X S X=1,Y(691,29,6)=X,Y(691,29,7)=X S X=$P(Y(691,29,1),U,6)-$P(Y(691,29,1),U,3),X=$S($P(Y(691,29,1),U,6):X/$P(Y(691,29,1),U,6),1:"*******")
  • ALGORITHM:  (#26-#23)/#26 (ALWAYS 1 DECIMAL DIGITS)
  • LAST EDITED:  JAN 02, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 20 AND 99
30 EDV 5;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<.1)!(X?.E1"."2N.N) X
  • LAST EDITED:  NOV 07, 1986
  • HELP-PROMPT:  ENTER NUMBER IN MILLILITERS, 1 DECIMAL PLACE .1-999
  • DESCRIPTION:  
    This allows the user to enter the left ventricular end diastolic volume.
31 ESV 5;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<.1)!(X?.E1"."2N.N) X
  • LAST EDITED:  NOV 07, 1986
  • 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.
31.1 ANGIOGRAPHIC CARDIAC OUTPUT COMPUTED

  • MUMPS CODE:  X ^DD(691,31.1,9.4) S X=X*Y,X=$S(Y(691,31.1,2):Y(691,31.1,3),Y(691,31.1,5):Y(691,31.1,6),Y(691,31.1,7):Y(691,31.1,8),Y(691,31.1,9):X)
    9.2 = S Y(691,31.1,1)=$S($D(^MCAR(691,D0,0)):^(0),1:""),Y(691,31.1,4)=$S($D(^(5)):^(5),1:"") S X=$P(Y(691,31.1,1),U,6)="",Y(691,31.1,2)=X S X="",Y(691,31.1,3)=X
    9.3 = X ^DD(691,31.1,9.2) S X=$P(Y(691,31.1,4),U,10)="",Y(691,31.1,5)=X S X="",Y(691,31.1,6)=X S X=$P(Y(691,31.1,4),U,11)="",Y(691,31.1,7)=X S X="",Y(691,31.1,8)=X S X=1
    9.4 = X ^DD(691,31.1,9.3) S Y(691,31.1,9)=X S X=$P(Y(691,31.1,1),U,6),Y(691,31.1,10)=X S X=$P(Y(691,31.1,4),U,10)-$P(Y(691,31.1,4),U,11),Y=X,X=Y(691,31.1,10),X=X
  • ALGORITHM:  $S(#5="":"",#30="":"",#31="":"",1:#5*(#30-#31))
  • LAST EDITED:  AUG 13, 1996
  • DESCRIPTION:  This field computes the Angiographic Cardiac Output from the Resting Heart Rate (#5), EDV (#30), and ESV (#31).
    The formula used is:  Heart_Rate * ( EDV - ESV ).





32
EF

COMPUTED

  • MUMPS CODE:  X ^DD(691,32,9.3) S X=X*100,X=$S(Y(691,32,2):Y(691,32,3),Y(691,32,4):Y(691,32,5),Y(691,32,6):X) S X=$J(X,0,1)
    9.2 = S Y(691,32,1)=$S($D(^MCAR(691,D0,5)):^(5),1:"") S X='$P(Y(691,32,1),U,10),Y(691,32,2)=X S X="",Y(691,32,3)=X S X='$P(Y(691,32,1),U,11),Y(691,32,4)=X S X=""
    9.3 = X ^DD(691,32,9.2) S Y(691,32,5)=X S X=1,Y(691,32,6)=X,Y(691,32,7)=X S X=$P(Y(691,32,1),U,10)-$P(Y(691,32,1),U,11),X=$S($P(Y(691,32,1),U,10):X/$P(Y(691,32,1),U,10),1:"*******")
  • ALGORITHM:  $S('#30:"",'#31:"",1:(#30-#31/#30*100))  (ALWAYS 1 DECIMAL DIGITS)
  • LAST EDITED:  NOV 24, 1986
  • DESCRIPTION:  
    This defines the computed left ventricular ejection fraction.





32.1
ESTIMATED EF
13;4
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 23, 1987
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    This allows the user to enter the left ventricular ejection fraction.





32.2
ESTIMATED EF DESCRIPTOR
13;5
SET

  • 'N' FOR NORMAL;
  • 'I' FOR INCREASED;
  • 'MIN' FOR MINIMALLY DEPRESSED;
  • 'MOD' FOR MODERATELY DEPRESSED;
  • 'S' FOR SEVERELY DEPRESSED;
  • LAST EDITED:  JUN 23, 1987
  • HELP-PROMPT:  Enter code for estimated ejection fraction descriptor.
  • DESCRIPTION:  
    This allows the user to enter the estimated ejection fraction descriptor.





32.8
LV MASS

COMPUTED

  • MUMPS CODE:  D ^MCARLV S X=$J(X,0,3)
  • ALGORITHM:  D ^MCARLV  (ALWAYS 3 DECIMAL DIGITS)





33
REGIONAL WALL MOTION
6;0
POINTER Multiple #691.04 
691.04
  • DESCRIPTION:  
    This allows the user to enter multiple left ventricular regional wall abnormalities.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN





34
DOPPLER
7;0
SET Multiple #691.05 
691.05
  • DESCRIPTION:  
    This allows the user to enter multiple doppler findings.





34.1
AORTIC MAX VELOCITY
8;1
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>8)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  JUN 23, 1987
  • HELP-PROMPT:  Meters/sec between 0 and 8, 2 Decimal Digits
  • DESCRIPTION:  
    This allows the user to enter the calculated aortic maximum velocity.





34.2
AORTIC MEAN VELOCITY
8;2
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>8)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  JUN 23, 1987
  • HELP-PROMPT:  Meters/sec between 0 and 8, 2 Decimal Digits
  • DESCRIPTION:  
    This allows the user to enter the calculated mean velocity.





34.3
AORTIC INTEGRAL
8;3
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 31, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 100 (cm)
  • DESCRIPTION:  
    This allows the user to enter the calculated aortic valve integral.





34.4
LVOT MAX VELOCITY
8;4
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>8)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  JUN 23, 1987
  • HELP-PROMPT:  Meters/sec between 0 and 8, 2 Decimal Digits
  • DESCRIPTION:  
    This allows the user to enter the left ventricular outflow tract maximum velocity.





34.5
LVOT MEAN VELOCITY
8;5
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>8)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  JUN 23, 1987
  • HELP-PROMPT:  Meters/sec between 0 and 8, 2 Decimal Digits
  • DESCRIPTION:  
    This allows the user to enter the left ventricular outflow tract mean velocity.





34.6
LVOT INTEGRAL
8;6
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 31, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 100 (cm/sec)
  • DESCRIPTION:  
    This allows the user to enter the left ventricular outflow tract integral.





34.7
AORTIC MAX PRESSURE GRADIENT

COMPUTED

  • MUMPS CODE:  X ^DD(691,34.7,9.2) S Y=X,X=Y(691,34.7,4),X=X*Y,Y=X,X=Y(691,34.7,1),X=X*Y,Y(691,34.7,5)=X S X=5,Y(691,34.7,6)=X S X=1,X=$J(Y(691,34.7,5),Y(691,34.7,6),X)
    9.2 = S Y(691,34.7,3)=$S($D(^MCAR(691,D0,8)):^(8),1:"") S X=4,Y(691,34.7,1)=X,Y(691,34.7,2)=X S X=$P(Y(691,34.7,3),U,1),Y(691,34.7,4)=X S X=$P(Y(691,34.7,3),U,1)
    9.3 = X ^DD(691,34.7,9.2) S X=X/100,Y=X,X=Y(691,34.7,4),X=X*Y,Y=X,X=Y(691,34.7,1),X=X*Y,Y(691,34.7,5)=X S X=3,Y(691,34.7,6)=X S X=0
    9.4 = X ^DD(691,34.7,9.3) S X=X*Y,Y=X,X=Y(691,34.7,5),X=X*Y,X=$S(Y(691,34.7,2):Y(691,34.7,3),Y(691,34.7,4):X),Y(691,34.7,8)=X S X=0,Y(691,34.7,9)=X S X=1
  • ALGORITHM:  $J(4*((#34.1)*(#34.1)),5,1)
  • LAST EDITED:  MAR 02, 1988
  • DESCRIPTION:  
    This defines the computed aortic valve maximum pressure gradient.
  • SUM:  S X=4,Y(1)=X,Y(2)=X S X=S("691^34.1")/100,Y(3)=X S X=S("691^34.1")/100,Y=X,X=Y(3),X=X*Y,Y=X,X=Y(1),X=X*Y S Y=X





34.8
AORTIC MEAN PRESSURE GRADIENT
8;7
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 31, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 200 (mm of Hg)
  • DESCRIPTION:  
    This allows the user to enter the aortic valve mean pressure gradient.





34.9
AORTIC ESTIMATED VALVE ORIFICE
8;8
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>4)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  MAR 31, 1987
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 4 (cm2  1 Decimal allowed)
  • DESCRIPTION:  
    This allows the user to enter the calculated aortic valve estimated orifice.





35
MITRAL MAX VELOCITY
8;9
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>3)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  JUN 23, 1987
  • HELP-PROMPT:  Meters/sec between 0 and 3, 2 Decimal Digits
  • DESCRIPTION:  
    This allows the user to enter the calculated mitral valve maximum velocity.





35.1
MITRAL MEAN VELOCITY
8;10
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>3)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  JUN 23, 1987
  • HELP-PROMPT:  Meters/sec between 0 and 3, 2 Decimal Digits
  • DESCRIPTION:  
    This allows the user to enter the mitral valve mean velocity.





35.2
MITRAL INTEGRAL
8;11
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 31, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 100 (cm)
  • DESCRIPTION:  
    This allows the user to enter the mitral valve calculated integral.





35.3
MITRAL MAX GRADIENT

COMPUTED

  • MUMPS CODE:  X ^DD(691,35.3,9.2) S Y=X,X=Y(691,35.3,4),X=X*Y,Y=X,X=Y(691,35.3,1),X=X*Y,Y(691,35.3,5)=X S X=5,Y(691,35.3,6)=X S X=1,X=$J(Y(691,35.3,5),Y(691,35.3,6),X)
    9.2 = S Y(691,35.3,3)=$S($D(^MCAR(691,D0,8)):^(8),1:"") S X=4,Y(691,35.3,1)=X,Y(691,35.3,2)=X S X=$P(Y(691,35.3,3),U,9),Y(691,35.3,4)=X S X=$P(Y(691,35.3,3),U,9)
    9.3 = X ^DD(691,35.3,9.2) S X=X/100,Y=X,X=Y(691,35.3,4),X=X*Y,Y=X,X=Y(691,35.3,1),X=X*Y,Y(691,35.3,5)=X S X=3,Y(691,35.3,6)=X S X=0
  • ALGORITHM:  $J(4*((#35)*(#35)),5,1)
  • LAST EDITED:  MAR 02, 1988
  • DESCRIPTION:  
    This defines the computed mitral valve maximum gradient.





35.4
MITRAL MEAN GRADIENT
8;12
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>50)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 31, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 50 (mm of Hg)
  • DESCRIPTION:  
    This allows the user to enter the mitral valve mean gradient.





35.5
MITRAL P 1/2
8;13
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 31, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 1000 (msec)
  • DESCRIPTION:  
    This allows the user to enter the mitral valve P-1/2 time.





35.6
MITRAL EST VALVE ORIFICE
8;14
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>4)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  MAR 31, 1987
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 4 (1 Decimal allowed)(mm2)
  • DESCRIPTION:  
    This defines the computed mitral valve estimated orifices.





35.65
COMPUTED MITRAL VALVE ORIFICE

COMPUTED

  • MUMPS CODE:  S Y(691,35.65,1)=$S($D(^MCAR(691,D0,8)):^(8),1:"") S X=220,X=$S($P(Y(691,35.65,1),U,13):X/$P(Y(691,35.65,1),U,13),1:"*******") S X=$J(X,0,1)
  • ALGORITHM:  220/#35.5  (ALWAYS 1 DECIMAL DIGITS)
  • DESCRIPTION:  
    This defines the computed mitral valve orifices.





35.7
PULMONIC MAX VELOCITY
12;1
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>5)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  JUN 23, 1987
  • HELP-PROMPT:  Meters/sec between 0 and 5, 2 Decimal Digits
  • DESCRIPTION:  
    This allows the user to enter the calculated pulmonic valve maximum velocity.





35.8
PULMONIC MEAN VELOCITY
12;2
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>5)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  JUN 23, 1987
  • HELP-PROMPT:  Meters/sec between 0 and 5, 2 Decimal Digits
  • DESCRIPTION:  
    This allows the user to enter the calculated pulmonic valve mean velocity.





35.9
PULMONIC INTEGRAL
12;3
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 31, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 100 (cm)
  • DESCRIPTION:  
    This allows the user to enter the calculated pulmonic valve integral.





36
PULMONIC MAX PRESSURE GRADIENT

COMPUTED

  • MUMPS CODE:  X ^DD(691,36,9.2) S Y=X,X=Y(691,36,4),X=X*Y,Y=X,X=Y(691,36,1),X=X*Y,Y(691,36,5)=X S X=5,Y(691,36,6)=X S X=1,X=$J(Y(691,36,5),Y(691,36,6),X)
    9.2 = S Y(691,36,3)=$S($D(^MCAR(691,D0,12)):^(12),1:"") S X=4,Y(691,36,1)=X,Y(691,36,2)=X S X=$P(Y(691,36,3),U,1),Y(691,36,4)=X S X=$P(Y(691,36,3),U,1)
    9.3 = X ^DD(691,36,9.2) S Y(691,36,6)=X S X=$P(Y(691,36,1),U,1)/100,Y(691,36,7)=X S X=$P(Y(691,36,1),U,1)/100,Y=X,X=Y(691,36,7),X=X*Y,Y=X,X=Y(691,36,5),X=X*Y
  • ALGORITHM:  $J(4*((#35.7)*(#35.7)),5,1)
  • LAST EDITED:  MAR 02, 1988
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 500
  • DESCRIPTION:  
    This field identifies the computed pulmonic valve maximum pressure gradient.





36.1
PULMONIC MEAN GRADIENT
12;4
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 31, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 200 (mm of Hg)
  • DESCRIPTION:  
    This allows the user to enter the calculated pulmonic valve mean gradient.





36.2
TRICUS DIAS MAX VEL (m/s)
12;5
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  OCT 22, 1990
  • HELP-PROMPT:  Type a Number between 0 and 100, 2 Decimal Digits
  • DESCRIPTION:  
    This allows the user to enter the calculated tricuspid valve maximum velocity.





36.3
TRICUSPID MEAN VELOCITY
12;6
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>3)!(X<0)!(X?.E1"."1N.N) X
    9.2 = S Y(691,36.3,1)=$S($D(^MCAR(691,D0,12)):^(12),1:"") S X=$P(Y(691,36.3,1),U,5),Y(691,36.3,2)=X S X="",Y(691,36.3,3)=X S X=1,Y(691,36.3,4)=X S X=$P(Y(691,36.3,1),U,5)
    9.1 =             $S(#36.2:"",1:#36.2*#36.2*4)
  • LAST EDITED:  APR 09, 1991
  • HELP-PROMPT:  Type a Number between 0 and 3, 0 Decimal Digits
  • DESCRIPTION:  
    This field quantifies the average speed of tricuspid valve flow.
    WRITE AUTHORITY:  ^





36.31
TRICUS DIAS MAX PRESS GRAD

COMPUTED

  • MUMPS CODE:  X ^DD(691,36.31,9.2) S Y(691,36.31,5)=X S X=$P(Y(691,36.31,1),U,5)*$P(Y(691,36.31,1),U,5)*4,X=$S(Y(691,36.31,2):Y(691,36.31,3),Y(691,36.31,4):X)
    9.2 = S Y(691,36.31,1)=$S($D(^MCAR(691,D0,12)):^(12),1:"") S X=$P(Y(691,36.31,1),U,5)="",Y(691,36.31,2)=X S X="",Y(691,36.31,3)=X S X=1,Y(691,36.31,4)=X
  • ALGORITHM:  $S(#36.2="":"",1:(#36.2*#36.2)*4)
  • DESCRIPTION:  
    This field is computed





36.4
TRICUS REGURG SYS MAX VEL(m/s)
12;7
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>5)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  OCT 22, 1990
  • HELP-PROMPT:  Type a Number between 0 and 5, 2 Decimal Digits
  • DESCRIPTION:  
    This allows the user to enter the calculated tricuspid valve integral.





36.5
PA SYSTOLIC PRESSURE
12;9
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
    9.2 = S Y(691,36.5,3)=$S($D(^MCAR(691,D0,12)):^(12),1:"") S X=4,Y(691,36.5,1)=X,Y(691,36.5,2)=X S X=$P(Y(691,36.5,3),U,5),Y(691,36.5,4)=X S X=$P(Y(691,36.5,3),U,5)
    9.3 = X ^DD(691,36.5,9.2) S X=X/100,Y=X,X=Y(691,36.5,4),X=X*Y,Y=X,X=Y(691,36.5,1),X=X*Y,Y(691,36.5,5)=X S X=3,Y(691,36.5,6)=X S X=0
    9.1 =             $J(4*((#36.2)*(#36.2)),5,1)
  • LAST EDITED:  OCT 22, 1990
  • HELP-PROMPT:  Type a Number between 0 and 100, 2 Decimal Digits
  • DESCRIPTION:  
    This field identifies is the Pulmonary Artery Wedge Pressure in millimeters of Mercury.
    WRITE AUTHORITY:  ^





36.6
TRICUSPID MEAN GRADIENT
12;8
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>50)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 31, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 50 (mm of Hg)
  • DESCRIPTION:  
    This field identifies the average Tricuspid gradient.





37
FINDINGS
9;0
POINTER Multiple #691.06 
691.06
  • DESCRIPTION:  
    This allows the user to enter multiple interpreted echo findings.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  DIAGNOSIS





37.5
DIAGNOSIS
14;0
POINTER Multiple #691.15 
691.15
  • DESCRIPTION:  
    This allows the user to enter multiple interpreted echo diagnoses.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  DIAGNOSIS
  • SCREEN:  S MCARNUM=+$O(^MCAR(697.2,"C","MCAR(691",0)),DIC("S")="I $D(^MCAR(697.5,""D"",MCARNUM,+Y))"
  • EXPLANATION:  CHOOSE ECHO DIAGNOSIS ONLY





38
OTHER CONCLUSION
10;0
WORD-PROCESSING #691.07

  • DESCRIPTION:  
    This allows the user to enter additional comments on the findings and diagnosis fields.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  DIAGNOSIS





39
CARDIOLOGY ATTENDING
11;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
  • DESCRIPTION:  
    This field identifies the physician who interpreted the procedure.
  • 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^701
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691,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,39,1,1,1.4)
    1.4)= S DIH=$S($D(^MCAR(691,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691,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,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(691,39,1,1,2.1) X ^DD(691,39,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^MCAR(691,D0,11)):^(11),1:"") S X=$P(Y(1),U,1),X=X
    2.4)= S DIH=$S($D(^MCAR(691,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= INTERNAL(CARDIOLOGY ATTENDING)
    DELETE VALUE)= INTERNAL(CARDIOLOGY ATTENDING)
    FIELD)= #701
    This trigger set the primary value field.





40
WARD/CLINIC
11;2
POINTER TO HOSPITAL LOCATION FILE (#44)
HOSPITAL LOCATION(#44)
  • LAST EDITED:  SEP 13, 1991
  • HELP-PROMPT:  Enter patient's location.
  • DESCRIPTION:  
    This allows the user to enter the medical patients location.





41
ONSET DATE ATRIAL FIB
11;3
DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 04, 1986
  • HELP-PROMPT:  Enter date of onset of patient's atrial fibrillation ECG/EKG rythm.
  • DESCRIPTION:  
    This allows the user to enter the date of the onset of the patient's atrial fibrillation ECG/EKG rhythm.





42
DURATION ATRIAL FIB
11;4
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1) X
  • LAST EDITED:  MAR 04, 1986
  • HELP-PROMPT:  ANSWER MUST BE 1-12 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This allows the user to enter the duration of the atrial fibrillation ECG/EKG rhythm.





43
CARDIOLOGY FELLOW
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:  OCT 25, 1994
  • HELP-PROMPT:  Enter name of clinical staff member assigned to patient.
  • DESCRIPTION:  
    This field identifies one of the key members of the clinical staff assigned to follow this patient.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
  • EXPLANATION:  Check if this person holds the PROVIDER key.





44
STUDY PHASE
11;6
SET

  • '1' FOR PRE-CV;
  • '2' FOR POST-CV;
  • '3' FOR 1 MON CV;
  • '4' FOR 6 MON CV;
  • LAST EDITED:  MAR 04, 1986





45
CARDIOVERSION DATE
11;7
DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:2910101X) X
  • LAST EDITED:  MAR 04, 1986
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1/1/1982 AND 1/1/1991





46
RHYTHM 2
11;8
SET

  • '1' FOR A-FIB;
  • '2' FOR A-FLUTTER;
  • '3' FOR NSR;
  • LAST EDITED:  MAR 04, 1986





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 allows the user to enter the procedure summary information.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN





700
ICD DIAGNOSIS
ICD;0
POINTER Multiple #691.19
691.19
  • DESCRIPTION:  
    This field contains the ICD9 Diagnosis(es) for the procedure.  This field also contains a sub-field labeled NARRATIVE DIAGNOSIS which will be used in the future.





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 ATTENDING field of the ECHO 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^APCE
    1)= S ^MCAR(691,"APCE",$E(X,1,30),DA)=""
    2)= K ^MCAR(691,"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:  DEC 29, 1992
  • DESCRIPTION:  
    This field contains the provider who enter the information into the database.





1501
COSIGNER VALIDATION CODE
ES;2
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  DEC 29, 1992
  • 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:  DEC 29, 1992





1503
VERIFYING DUZ
ES;4
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • LAST EDITED:  DEC 31, 1992





1504
SIGNER VALIDATION CODE
ES;5
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  DEC 29, 1992
  • 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:  DEC 29, 1992





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^ES
    1)= S ^MCAR(691,"ES",$E(X,1,30),DA)=""
    2)= K ^MCAR(691,"ES",$E(X,1,30),DA)
    This cross-reference allows the 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:  DEC 29, 1992





1508
DATE OF VERIFIED
ES;9
DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 29, 1992





1509
SUPERSEDED
ES;10
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 05, 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:  JAN 04, 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:  DEC 29, 1992





1512
DELETER DUZ
ES;13
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • LAST EDITED:  AUG 31, 1999





1513
SUPERSEDED DATE
ES;14
DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 01, 1993





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





2005
IMAGE
2005;0
POINTER Multiple #691.02005 
691.02005
  • 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