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

Package: Medicine

Global: ^MCAR(691


Information

FileMan FileNo FileMan Filename Package
691 ECHO Medicine

Description

Directly Accessed By Routines, Total: 22

Package Total Routines
Medicine 20 ^MCAR(691    DIAGNOSIS    ICD DIAGNOSIS    IMAGE    MCARBSA    MCARECHO1    MCARECHOB    MCARIPST
MCARLV    MCAROE1    MCAROE2    MCFLECHO    MCFLEP    MCOBK    MCPOS01B    MCRPEC
MED(CARDIOLOGY MEDICATION)    RISK FACTOR    STUDY TYPE    SYMPTOM    
Clinical Procedures 1 MDCVT1    

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

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)]    
Imaging 1 IMAGE(#2005)[#691.02005(.01)]    
Kernel 1 NEW PERSON(#200)[3943701150015031512]    
Order Entry Results Reporting 1 ORDER(#100)[1000]    
PCE Patient Care Encounter 1 VISIT(#9000010)[900]    
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 ICD Diagnosis(es) for the procedure.
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.

External References

Name Field # of Occurrence
^%DT .01+1, 41+1, 45+1, 1502+1, 1505+1, 1507+1, 1508+1, 1513+1, 1514+1
^DIC 39+1, 43+1, 701+1
^DICR 39(XREF 1n1.4), 39(XREF 1n2.4)
^MCARBSA 1.1(XREF 1S), 1.2(XREF 1S)
A^MCARBSA 1.1(XREF 1K), 1.2(XREF 1K)
^MCARLV 2(XREF 1S), 11(XREF 1S), 12(XREF 1S), 17(XREF 1S), 32.8+1
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( 39(XREF 1n1.4), 39(XREF 1n2.4)
^DD(2 1.15OF9.4+1
^DD(691 1.15+1, 1.15OF9.3+1, 1.15OF9.4+1, 19+1, 19OF9.3+1, 19OF9.4+1, 27OF9.3+1, 28OF9.3+1, 29OF9.3+1, 31.1+1
, 31.1OF9.3+1, 31.1OF9.4+1, 32+1, 32OF9.3+1, 34.7+1, 34.7OF9.3+1, 34.7OF9.4+1, 35.3+1, 35.3OF9.3+1, 36+1
, 36OF9.3+1, 36.31+1, 36.5OF9.3+1, 39(XREF 1S), 39(XREF 1K)
^DPT - [#2] ID1+1, 1.15OF9.3+1, 1.15OF9.4+1
^MCAR(690 - [#690] ID1+1, 1.15OF9.2+1, 1.15OF9.3+1
^MCAR(691 - [#691] .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1.1(XREF 1K), 1.15OF9.2+1, 1.2(XREF 1K), 2(XREF 1K), 11(XREF 1K), 12(XREF 1K)
17(XREF 1K), 19OF9.2+1, 27+1, 27OF9.2+1, 28+1, 28OF9.2+1, 29+1, 29OF9.2+1, 31.1OF9.2+1, 32OF9.2+1
, 34.7OF9.2+1, 35.3OF9.2+1, 35.65+1, 36OF9.2+1, 36.3OF9.2+1, 36.31OF9.2+1, 36.5OF9.2+1, 39(XREF 1S), 39(XREF 1n1.4), 39(XREF 1K)
39(XREF 1n2.1), 39(XREF 1n2.4), 900(XREF 1S), 900(XREF 1K), 1506(XREF 1S), 1506(XREF 1K)

Naked Globals

Name Field # of Occurrence
^("ES" IDX1+1
^("PROV" 39(XREF 1S), 39(XREF 1n1.4), 39(XREF 1K), 39(XREF 1n2.4)
^(0 ID1+1, 1.15OF9.2+1, 1.15OF9.3+1, 1.15OF9.4+1, 31.1OF9.2+1
^(11 39(XREF 1n2.1)
^(12 36OF9.2+1, 36.3OF9.2+1, 36.31OF9.2+1, 36.5OF9.2+1
^(4 19OF9.2+1
^(5 27+1, 27OF9.2+1, 28+1, 28OF9.2+1, 29+1, 29OF9.2+1, 31.1OF9.2+1, 32OF9.2+1
^(8 34.7OF9.2+1, 35.3OF9.2+1, 35.65+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*, 41+1*, 45+1*, 1502+1*, 1505+1*, 1507+1*, 1508+1*, 1513+1*, 1514+1*
>> D0 1.15+1*, 1.15OF9.2+1*, 1.15OF9.3+1*, 1.15OF9.4+1, 19OF9.2+1, 27+1, 27OF9.2+1, 28+1, 28OF9.2+1, 29+1
, 29OF9.2+1, 31.1OF9.2+1, 32OF9.2+1, 34.7OF9.2+1, 35.3OF9.2+1, 35.65+1, 36OF9.2+1, 36.3OF9.2+1, 36.31OF9.2+1, 36.5OF9.2+1
39(XREF 1S), 39(XREF 1K), 39(XREF 1n2.1)
>> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1.1(XREF 1K), 1.2(XREF 1K), 2(XREF 1K), 11(XREF 1K), 12(XREF 1K), 17(XREF 1K)
39(XREF 1S), 39(XREF 1K), 900(XREF 1S), 900(XREF 1K), 1506(XREF 1S), 1506(XREF 1K)
DIC ID1+1, IDX1+1, 39+1!*, 43+1!*, 701+1!*
DIC("S" 39+1*, 39SCR+1*, 43+1*, 43SCR+1*, 701+1*
>> DIE 39+1, 43+1, 701+1
>> DIG 39(XREF 1n1.4), 39(XREF 1n2.4)
>> DIH 39(XREF 1n1.4), 39(XREF 1n2.4)
>> DIU 39(XREF 1S), 39(XREF 1K)
DIV 39(XREF 1S), 39(XREF 1n1.4), 39(XREF 1K), 39(XREF 1n2.1), 39(XREF 1n2.4)
DIV(0 39(XREF 1S), 39(XREF 1n1.4), 39(XREF 1K), 39(XREF 1n2.4)
>> MCARCDIE .01(XREF 2S), .01(XREF 2K), 1(XREF 2S), 1(XREF 2K)
U ID1+1, 1.1(XREF 1K), 1.15+1, 1.15OF9.2+1, 1.15OF9.3+1, 1.15OF9.4+1, 1.2(XREF 1K), 2(XREF 1K), 11(XREF 1K), 12(XREF 1K)
17(XREF 1K), 19OF9.2+1, 19OF9.3+1, 27+1, 27OF9.2+1, 27OF9.3+1, 28+1, 28OF9.2+1, 28OF9.3+1, 29+1
, 29OF9.2+1, 29OF9.3+1, 31.1OF9.2+1, 31.1OF9.3+1, 31.1OF9.4+1, 32OF9.2+1, 32OF9.3+1, 34.7OF9.2+1, 35.3OF9.2+1, 35.65+1
, 36OF9.2+1, 36OF9.3+1, 36.3OF9.2+1, 36.31+1, 36.31OF9.2+1, 36.5OF9.2+1, 39(XREF 1S), 39(XREF 1n1.4), 39(XREF 1K), 39(XREF 1n2.1)
39(XREF 1n2.4)
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.15+1*, 1.2+1!
1.2(XREF 1K), 2+1!, 3+1!, 4+1!, 5+1!, 7+1!, 11+1!, 12+1!, 13+1!, 14+1!
, 15+1!, 16+1!, 17+1!, 18+1!, 19+1*, 19OF9.2+1*, 19OF9.3+1*, 19OF9.4+1*, 20+1!, 21+1!
, 22+1!, 23+1!, 24+1!, 25+1!, 26+1!, 27+1*, 27OF9.2+1*, 27OF9.3+1*, 28+1*, 28OF9.2+1*
, 28OF9.3+1*, 29+1*, 29OF9.2+1*, 29OF9.3+1*, 30+1!, 31+1!, 31.1+1*, 31.1OF9.2+1*, 31.1OF9.3+1*, 31.1OF9.4+1*
, 32+1*, 32OF9.2+1*, 32OF9.3+1*, 32.1+1!, 32.8+1*, 34.1+1!, 34.2+1!, 34.3+1!, 34.4+1!, 34.5+1!
, 34.6+1!, 34.7+1*, 34.7OF9.2+1*, 34.7OF9.3+1*, 34.7OF9.4+1*, 34.8+1!, 34.9+1!, 35+1!, 35.1+1!, 35.2+1!
, 35.3+1*, 35.3OF9.2+1*, 35.3OF9.3+1*, 35.4+1!, 35.5+1!, 35.6+1!, 35.65+1*, 35.7+1!, 35.8+1!, 35.9+1!
, 36+1*, 36OF9.2+1*, 36OF9.3+1*, 36.1+1!, 36.2+1!, 36.3+1!, 36.3OF9.2+1*, 36.31+1*, 36.31OF9.2+1*, 36.4+1!
, 36.5+1!, 36.5OF9.2+1*, 36.5OF9.3+1*, 36.6+1!, 39+1*!, 39(XREF 1S), 39(XREF 1n1.4), 39(XREF 1K), 39(XREF 1n2.1), 39(XREF 1n2.4)
, 41+1*!, 42+1!, 43+1*!, 45+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!
Y .01+1, 31.1+1, 31.1OF9.4+1*, 34.7+1*, 34.7OF9.3+1*, 34.7OF9.4+1*, 35.3+1*, 35.3OF9.3+1*, 36+1*, 36OF9.3+1*
, 36.5OF9.3+1*, 39+1, 39(XREF 1S), 39(XREF 1K), 41+1, 43+1, 45+1, 701+1, 1502+1, 1505+1
, 1507+1, 1508+1, 1513+1, 1514+1
Y(1 39(XREF 1S), 39(XREF 1K), 39(XREF 1n2.1)
Y(691 1.15+1, 1.15OF9.2+1*, 1.15OF9.3+1*, 1.15OF9.4+1*, 19+1, 19OF9.2+1*, 19OF9.3+1*, 19OF9.4+1*, 27+1*, 27OF9.2+1*
, 27OF9.3+1*, 28+1*, 28OF9.2+1*, 28OF9.3+1*, 29+1*, 29OF9.2+1*, 29OF9.3+1*, 31.1+1, 31.1OF9.2+1*, 31.1OF9.3+1*
, 31.1OF9.4+1*, 32+1, 32OF9.2+1*, 32OF9.3+1*, 34.7+1*, 34.7OF9.2+1*, 34.7OF9.3+1*, 34.7OF9.4+1*, 35.3+1*, 35.3OF9.2+1*
, 35.3OF9.3+1*, 35.65+1*, 36+1*, 36OF9.2+1*, 36OF9.3+1*, 36.3OF9.2+1*, 36.31+1*, 36.31OF9.2+1*, 36.5OF9.2+1*, 36.5OF9.3+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