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

Package: Medicine

Global: ^MCAR(691.7


Information

FileMan FileNo FileMan Filename Package
691.7 EXERCISE TOLERANCE TEST Medicine

Description

Directly Accessed By Routines, Total: 13

Package Total Routines
Medicine 11 COMPLICATIONS    HEART MED    ICD DIAGNOSIS    MCAROT    MCOBT    MCOETT11    ^MCAR(691.7    MCOETT1
MCPOS01B    RISK FACTOR    SYMPTOM    

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

Package Total FileMan Files
Medicine 6 MEDICAL PATIENT(#690)[1]    MEDICATION(#695)[#691.71(.01)]    PAST HISTORY AND RISK FACTOR(#695.4)[#691.702(.01)]    SYMPTOM(#695.5)[#691.701(.01)]    REASON (MEDICINE)(#695.8)[50]    COMPLICATION(#696.9)[#691.703(.01)]    
Consult Request Tracking 1 REQUEST/CONSULTATION(#123)[1001]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[#691.704(.01)]    
Kernel 1 NEW PERSON(#200)[5758701150015031512]    
Order Entry Results Reporting 1 ORDER(#100)[1000]    
PCE Patient Care Encounter 1 VISIT(#9000010)[900]    
Scheduling 1 HOSPITAL LOCATION(#44)[69]    

Fields, Total: 94

Field # Name Loc Type Details
.01 DATE/TIME OF TEST 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 05, 1987
  • HELP-PROMPT:  ENTER PATIENT'S NAME OR DATE AND TIME OF EXERCISE TOLERANCE TEST
  • DESCRIPTION:  
    This field identifies the precise Exercise Tolerance procedure.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  IDENTIFIER
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  691.7^B
    1)= S ^MCAR(691.7,"B",$E(X,1,30),DA)=""
    2)= K ^MCAR(691.7,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  691.7^AD^MUMPS
    1)= S MCARCDIE="^MCAR(691.7," D CHGDTE1^MCARPROC
    2)= S MCARCDIE="^MCAR(691.7," D CHGDTE^MCARPROC
    This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent exercise tolerance test 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, 2 to 10 characters. SSN need not be entered since it is already entered.
  • DESCRIPTION:  
    This field identifies the patient's identification number assigned by the medical facility.  In most cases it is the person's social security number.
.03 SUMMARY .2;1 SET
************************REQUIRED FIELD************************
  • 'N' FOR NORMAL;
  • 'A' FOR ABNORMAL;
  • 'B' FOR BORDERLINE;
  • 'T' FOR TECHNICALLY UNSATISFACTORY;

  • LAST EDITED:  AUG 13, 1987
  • HELP-PROMPT:  This field identifies the result of the ETT procedure.
  • DESCRIPTION:  
    This field contains the gross evaluation of the results of this procedure.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
.04 SYMPTOM .3;0 POINTER Multiple #691.701 691.701

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

  • DESCRIPTION:  
    This field contains the morbidity factors which  this patient is most susceptible to in regards to this procedure.
1 MEDICAL PATIENT 0;2 POINTER TO MEDICAL PATIENT FILE (#690)
************************REQUIRED FIELD************************
MEDICAL PATIENT(#690)

  • LAST EDITED:  JUL 10, 1987
  • HELP-PROMPT:  Enter patient's last name, followed by a comma, followed by a space, followed by the first name, followed by a space, followed by the middle initial.
  • DESCRIPTION:  
    This field identifies the patient's last name, followed by a comma, followed by a space (optional), followed by the first name, followed by a space, followed by the middle initial.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  IDENTIFIER
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  691.7^C
    1)= S ^MCAR(691.7,"C",$E(X,1,30),DA)=""
    2)= K ^MCAR(691.7,"C",$E(X,1,30),DA)
    This cross-reference allow looks-up on Patient.
  • CROSS-REFERENCE:  691.7^AC^MUMPS
    1)= S MCARCDIE="^MCAR(691.7," D CHGPAT^MCARPROC
    2)= S MCARCDIE="^MCAR(691.7," D KILL^MCARPROC
    This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent exercise tolerance test procedure for this patient.
2 DATE/TIME OF APPOINTMENT 0;3 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter Date/Time this procedure is scheduled.
  • DESCRIPTION:  
    This date/time field documents the scheduled time for this procedure.
3 REASON FOR TEST 0;4 SET
  • 'A' FOR Overt or Latent C.H.D.;
  • 'B' FOR Diff. diag. - chest pain etiology;
  • 'C' FOR Determination of functional capacity;
  • 'D' FOR Determination of need for cardiac rehab.;
  • 'E' FOR Research - drug evaluation;
  • 'F' FOR Screening for employm. or ins.;

  • LAST EDITED:  JUL 17, 1986
  • HELP-PROMPT:  Enter the code for rationale of procedure for this patient.
  • DESCRIPTION:  
    This field documents the rationale of the procedure for this patient.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  INDICATION
4 HEART MED 1;0 POINTER Multiple #691.71 691.71

  • DESCRIPTION:  
    This field (multiple) contains the cardiac medicines that the patient is taking at the time of this procedure.
4.5 OTHER MEDICATION 8;0 Multiple #691.74 691.74

  • DESCRIPTION:  
    This field (multiple) contains the non-cardiac medicines that the patient was taking at the time of this procedure.
5 RESTING EKG 2;0 WORD-PROCESSING #691.72

  • DESCRIPTION:  
    This field refers to the latest, pre-exercise EKG procedure.
6 REF. MD 3;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  FEB 26, 1986
  • HELP-PROMPT:  ANSWER MUST BE 3-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field identifies the referring physician.
6.1 WT LBS 10;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>500)!(X<40)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 26, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 40 AND 500
  • DESCRIPTION:  
    This field identifies is the patient's weight in pounds at the time of this procedure.
7 ETT PROTOCOL 3;2 SET
  • 'BR' FOR BRUCE;
  • 'M' FOR MODIFIED BRUCE;
  • 'N' FOR NAUGHTON;
  • 'BA' FOR BALKE;
  • 'L' FOR LEVEL MODIFIED BRUCE;
  • 'S' FOR SPECIAL;
  • 'BL' FOR BLOCKER;
  • 'MN' FOR MODIFIED NAUGHTON;
  • 'BI' FOR BICYCLE ERGOMETRY;
  • 'A' FOR ARM ERGOMETRY;

  • LAST EDITED:  JUN 23, 1987
  • HELP-PROMPT:  Enter code for protocol used in this procedure.
  • DESCRIPTION:  
    This field defines the protocol used in this procedure.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
8 HYPERVENTILATION 3;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This allows the user to enter information about the patient and hyperventilation.
9 RS HR 3;4 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 resting/supine heart rate.
10 RS SBP 3;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>250)!(X<40)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 27, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 40 AND 250
  • DESCRIPTION:  
    This field identifies the resting/supine systolic blood pressure.
11 RS DBP 3;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>150)!(X<40)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 23, 1987
  • HELP-PROMPT:  Type a Whole Number between 40 and 150
  • DESCRIPTION:  
    This field identifies resting/supine Diastolic blood pressure.
12 RS RPP COMPUTED

  • MUMPS CODE:  X ^DD(691.7,12,9.3) S X=$S(Y(691.7,12,2):Y(691.7,12,3),Y(691.7,12,4):Y(691.7,12,5),Y(691.7,12,6):X)
    9.2 = S Y(691.7,12,1)=$S($D(^MCAR(691.7,D0,3)):^(3),1:"") S X=$P(Y(691.7,12,1),U,4)="",Y(691.7,12,2)=X S X="",Y(691.7,12,3)=X S X=$P(Y(691.7,12,1),U,5)
    9.3 = X ^DD(691.7,12,9.2) S X=X="",Y(691.7,12,4)=X S X="",Y(691.7,12,5)=X S X=1,Y(691.7,12,6)=X S X=$P(Y(691.7,12,1),U,4)*$P(Y(691.7,12,1),U,5)/1000
  • ALGORITHM:  $S(#9="":"",#10="":"",1:#9*#10/1000)
  • DESCRIPTION:  
    This field identifies a number based on the resting heart rate and resting systolic pressure.
13 RU HR 3;7 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 resting/upright heart rate.
14 RU SBP 3;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>250)!(X<40)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 27, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 40 AND 250
  • DESCRIPTION:  
    This field identifies the resting,upright systolic blood pressure.
15 RU DBP 3;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>200)!(X<40)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 23, 1987
  • HELP-PROMPT:  Type a Whole Number between 40 and 200
  • DESCRIPTION:  
    This field identifies the resting/upright diastolic blood pressure.
16 RU RPP COMPUTED

  • MUMPS CODE:  X ^DD(691.7,16,9.3) S X=$S(Y(691.7,16,2):Y(691.7,16,3),Y(691.7,16,4):Y(691.7,16,5),Y(691.7,16,6):X)
    9.2 = S Y(691.7,16,1)=$S($D(^MCAR(691.7,D0,3)):^(3),1:"") S X=$P(Y(691.7,16,1),U,7)="",Y(691.7,16,2)=X S X="",Y(691.7,16,3)=X S X=$P(Y(691.7,16,1),U,8)
    9.3 = X ^DD(691.7,16,9.2) S X=X="",Y(691.7,16,4)=X S X="",Y(691.7,16,5)=X S X=1,Y(691.7,16,6)=X S X=$P(Y(691.7,16,1),U,7)*$P(Y(691.7,16,1),U,8)/1000
  • ALGORITHM:  $S(#13="":"",#14="":"",1:#13*#14/1000)
  • DESCRIPTION:  
    This field identifies based on the resting/upright heart rate and systolic pressure.
17 RS ST 3;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>5)!(X<-5)!(X?.E1"."2N.N) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN -5 AND 5
  • DESCRIPTION:  
    This field identifies the resting/supine ST elevation.
17.5 RU ST 7;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>5)!(X<-5)!(X?.E1"."2N.N) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN -5 AND 5
  • DESCRIPTION:  
    This field identifies the resting/upright ST elevation.
18 RS ST SLOPE 3;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9)!(X<-9)!(X?.E1"."2N.N) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN -9 AND 9
  • DESCRIPTION:  
    This field identifies the resting/supine ST slope.
19 RU ST SLOPE 3;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2)!(X<-5)!(X?.E1"."2N.N) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN -5 AND 2
  • DESCRIPTION:  
    This field identifies the resting/upright ST slope.
20 CP TME MIN 3;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>20)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 20
  • DESCRIPTION:  
    Enter the minutes portion of the elapsed time, that the chest pain occurred.
21 CP TME SEC 3;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>59)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 59
  • DESCRIPTION:  
    Enter the seconds portion of the elapsed time, that the chest pain occurred.
21.5 CP MODIFIER 10;2 SET
  • 'D' FOR DURING EXERCISE;
  • 'A' FOR AFTER EXERCISE;
  • 'C' FOR COMBINED;

  • LAST EDITED:  MAR 20, 1987
  • DESCRIPTION:  
    This field qualifies the type of chest pain that the patient experienced.
22 CP TIME TOTAL COMPUTED

  • MUMPS CODE:  X ^DD(691.7,22,9.3) S X=$S(Y(691.7,22,3):Y(691.7,22,4),Y(691.7,22,5):X)
    9.2 = S Y(691.7,22,1)=$S($D(^MCAR(691.7,D0,3)):^(3),1:"") S X=$P(Y(691.7,22,1),U,13)="",Y(691.7,22,2)=X S X=$P(Y(691.7,22,1),U,14)="",Y=X,X=Y(691.7,22,2),X=X
    9.3 = X ^DD(691.7,22,9.2) S X=X&Y,Y(691.7,22,3)=X S X="",Y(691.7,22,4)=X S X=1,Y(691.7,22,5)=X S X=$P(Y(691.7,22,1),U,13)*60+$P(Y(691.7,22,1),U,14)
  • ALGORITHM:  $S((#20="")&(#21=""):"",1:#20*60+#21)
  • LAST EDITED:  JUL 06, 1994
  • DESCRIPTION:  
    This field is the total time of chest pain in seconds computed from the two fields, CP TIME MIN and CP TIME SEC.
23 ONSET CP HR 3;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>300)!(X<50)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 23, 1987
  • HELP-PROMPT:  Type a Number between 50 and 300, 0 Decimal Digits
  • DESCRIPTION:  
    This field identifies the heart rate at the onset of chest pain.
24 ONSET CP SBP 3;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>300)!(X<40)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 27, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 40 AND 300
  • DESCRIPTION:  
    This field identifies the systolic blood pressure at the onset of chest pain.
25 ONSET CP DBP 3;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>200)!(X<20)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 23, 1987
  • HELP-PROMPT:  Type a Number between 20 and 200, 0 Decimal Digits
  • DESCRIPTION:  
    This field identifies the diastolic blood pressure at the onset of chest pain.
26 ONSET CP ST 3;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>1)!(X<-5)!(X?.E1"."2N.N) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN -5 AND 1,1 DECIMAL PLACE ALLOWED.
  • DESCRIPTION:  
    This field identifies the ST elevation at the onset of chest pain.
27 ONSET CP ST SLOPE 3;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9)!(X<-9)!(X?.E1"."2N.N) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN -9 AND 9,1 DECIMAL PLACE ALLOWED.
  • DESCRIPTION:  
    This field identifies the ST slope at the onset of chest pain.
28 ONSET CP RPP COMPUTED

  • MUMPS CODE:  X ^DD(691.7,28,9.3) S X=$S(Y(691.7,28,2):Y(691.7,28,3),Y(691.7,28,4):Y(691.7,28,5),Y(691.7,28,6):X)
    9.2 = S Y(691.7,28,1)=$S($D(^MCAR(691.7,D0,3)):^(3),1:"") S X=$P(Y(691.7,28,1),U,15)="",Y(691.7,28,2)=X S X="",Y(691.7,28,3)=X S X=$P(Y(691.7,28,1),U,16)=""
    9.3 = X ^DD(691.7,28,9.2) S Y(691.7,28,4)=X S X="",Y(691.7,28,5)=X S X=1,Y(691.7,28,6)=X S X=$P(Y(691.7,28,1),U,15)*$P(Y(691.7,28,1),U,16)/1000
  • ALGORITHM:  $S(#23="":"",#24="":"",1:#23*#24/1000)
  • LAST EDITED:  OCT 26, 1987
  • DESCRIPTION:  
    This field identifies the RPP at the onset of chest pain.
29 PK HR 4;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>300)!(X<50)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 23, 1987
  • HELP-PROMPT:  Type a Number between 50 and 300, 0 Decimal Digits
  • DESCRIPTION:  
    This field identifies the peak heart rate.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
30 PK SBP 4;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>300)!(X<40)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 27, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 40 AND 300
  • DESCRIPTION:  
    This field identifies the peak systolic blood pressure.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
31 PK DBP 4;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>200)!(X<40)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 23, 1987
  • HELP-PROMPT:  Type a Number between 40 and 200, 0 Decimal Digits
  • DESCRIPTION:  
    This field identifies the peak diastolic blood pressure.
32 PK EX MPH 4;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>7)!(X<1)!(X?.E1"."2N.N) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 1 AND 7
  • DESCRIPTION:  
    This field identifies the peak exercise miles per hour.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
32.1 KILO POND METERS (KPM) 10;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>3000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 23, 1987
  • HELP-PROMPT:  Type a Number between 0 and 3000, 0 Decimal Digits
  • DESCRIPTION:  
    This field identifies the kilo pond meters.
32.2 WATTS 10;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>500)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 23, 1987
  • HELP-PROMPT:  Type a Number between 0 and 500, 0 Decimal Digits
  • DESCRIPTION:  
    This field identifies the wattage.
33 PK EX GRADE 4;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>20)!(X<1)!(X?.E1"."2N.N) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 1 AND 20,1 DECIMAL PLACE ALLOWED.
  • DESCRIPTION:  
    This field identifies the peak exercise grade.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
34 METS 4;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>20)!(X<0)!(X?.E1"."2N.N) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 20,1 DECIMAL PLACE ALLOWED.
  • DESCRIPTION:  
    This field identifies the METS (Metabolic Equivalents-1 MET=3.5ml of O2 resting).
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
39 PK ST 4;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>6.1)!(X<-6.1)!(X?.E1"."2N.N) X
  • LAST EDITED:  MAR 19, 1987
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN -6.1 AND 6.1,1 DECIMAL PLACE ALLOWED.
  • DESCRIPTION:  
    This field identifies the peak ST elevation.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
40 PK ST SLOPE 4;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9)!(X<-9)!(X?.E1"."2N.N) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN -9 AND 9,1 DECIMAL PLACE ALLOWED.
  • DESCRIPTION:  
    This field identifies the peak ST slope.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
42 PK RPP COMPUTED

  • MUMPS CODE:  X ^DD(691.7,42,9.3) S X=$S(Y(691.7,42,2):Y(691.7,42,3),Y(691.7,42,4):Y(691.7,42,5),Y(691.7,42,6):X)
    9.2 = S Y(691.7,42,1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"") S X=$P(Y(691.7,42,1),U,1)="",Y(691.7,42,2)=X S X="",Y(691.7,42,3)=X S X=$P(Y(691.7,42,1),U,2)
    9.3 = X ^DD(691.7,42,9.2) S X=X="",Y(691.7,42,4)=X S X="",Y(691.7,42,5)=X S X=1,Y(691.7,42,6)=X S X=$P(Y(691.7,42,1),U,1)*$P(Y(691.7,42,1),U,2)/1000
  • ALGORITHM:  $S(#29="":"",#30="":"",1:#29*#30/1000)
  • DESCRIPTION:  
    This field identifies the peak RPP.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
43 EX TIME COMPUTED

  • MUMPS CODE:  X ^DD(691.7,43,9.3) S X=$S(Y(691.7,43,3):Y(691.7,43,4),Y(691.7,43,5):X)
    9.2 = S Y(691.7,43,1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"") S X=$P(Y(691.7,43,1),U,9)="",Y(691.7,43,2)=X S X=$P(Y(691.7,43,1),U,10)="",Y=X,X=Y(691.7,43,2),X=X
    9.3 = X ^DD(691.7,43,9.2) S X=X&Y,Y(691.7,43,3)=X S X="",Y(691.7,43,4)=X S X=1,Y(691.7,43,5)=X S X=$P(Y(691.7,43,1),U,9)*60+$P(Y(691.7,43,1),U,10)
  • ALGORITHM:  $S((#44="")&(#45=""):"",1:#44*60+#45)
  • LAST EDITED:  JAN 02, 1987
  • DESCRIPTION:  
    This field identifies the time at which exercise began.
  • SUM:  S X=S("120205^44")&S("120205^45")="",Y(1)=X S X="",Y(2)=X S X=1,Y(3)=X S X=60*S("120205^44")+S("120205^45"),X=$S(Y(1):Y(2),Y(3):X) S Y=X
44 EX TIME MIN 4;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>20)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 20
  • DESCRIPTION:  
    Enter the minutes portion of the elapsed time, that the exercise occurred.
45 EX TIME SEC 4;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>59.9)!(X<.1)!(X?.E1"."2N.N) X
  • LAST EDITED:  JUL 06, 1994
  • HELP-PROMPT:  Type a Number between .1 and 59.9, 1 Decimal Digit
  • DESCRIPTION:  
    Enter the seconds portion of the elapsed time, that the exercise occurred.
46 PREDICTED HR COMPUTED

  • MUMPS CODE:  X ^DD(691.7,46,9.4) S Y=X,X=Y(691.7,46,1),X=X-Y S D0=Y(691.7,46,80)
    9.2 = S Y(691.7,46,80)=$S($D(D0):D0,1:""),Y(691.7,46,2)=$S($D(^MCAR(691.7,D0,0)):^(0),1:"") S X=220,Y(691.7,46,1)=X
    9.3 = X ^DD(691.7,46,9.2) S D0=$P(Y(691.7,46,2),U,2) S:'$D(^MCAR(690,+D0,0)) D0=-1 S Y(691.7,46,180)=$S($D(D0):D0,1:""),Y(691.7,46,101)=$S($D(^MCAR(690,D0,0)):^(0),1:"")
    9.4 = X ^DD(691.7,46,9.3) S D0=$P(Y(691.7,46,101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 X $P(^DD(2,.033,0),U,5,99) S Y(691.7,46,201)=X S X=Y(691.7,46,201)
  • ALGORITHM:  220-(#1:#.01:#.033)
  • LAST EDITED:  DEC 31, 1986
  • DESCRIPTION:  
    This field identifies the predicted heart rate.
47 TIME ST - 1 5;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'((X?1.2N.":"1.2N)!(X?1"NA")) X
  • LAST EDITED:  MAR 14, 1990
  • HELP-PROMPT:  Enter the time in the format Min:Sec or 'NA' if not applicable. Minutes and Seconds can be 1 or 2 digits in length.
  • DESCRIPTION:  
    This field identifies time of ST-1.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
48 % TARGET HR COMPUTED

  • MUMPS CODE:  X ^DD(691.7,48,9.3) S X=$S(Y(691.7,48,2):Y(691.7,48,3),Y(691.7,48,4):X) S X=$J(X,0,0)
    9.2 = X $P(^DD(691.7,46,0),U,5,99) S Y(691.7,48,5)=X S Y(691.7,48,1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"") S X=$P(Y(691.7,48,1),U,1)="",Y(691.7,48,2)=X S X=""
    9.3 = X ^DD(691.7,48,9.2) S Y(691.7,48,3)=X S X=1,Y(691.7,48,4)=X S X=$P(Y(691.7,48,1),U,1),X=$S(Y(691.7,48,5):X/Y(691.7,48,5),1:"*******")*100
  • ALGORITHM:  $S(#29="":"",1:#29/#46*100) (ALWAYS 0 DECIMAL DIGITS)
  • LAST EDITED:  JAN 02, 1987
  • DESCRIPTION:  
    This field identifies the percentage of target heart rate achieved.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
  • SUM:  S X=S("691.7^29")="",Y(1)=X S X="",Y(2)=X S X=1,Y(3)=X S X=S("691.7^29"),X=$S(S("691.7^46"):X/S("691.7^46"),1:"*******")*100,X=$S(Y(1):Y(2),Y(3):X) S Y=X
49 TIME ST - 2 5;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'((X?1.2N.":"1.2N)!(X?1"NA")) X
  • LAST EDITED:  MAR 14, 1990
  • HELP-PROMPT:  Enter the time in the format MIN:SEC or 'NA' if not applicable. Minutes and seconds can be 1 or 2 digits.
  • DESCRIPTION:  
    This field identifies the time of ST-2.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
50 REASON FOR STOPPING 5;3 POINTER TO REASON (MEDICINE) FILE (#695.8) REASON (MEDICINE)(#695.8)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^MCAR(695.8,""AC"",""E"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 11, 1989
  • HELP-PROMPT:  Enter rationale for terminating procedure.
  • DESCRIPTION:  
    This field identifies the rationale for terminating the procedure.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
  • SCREEN:  S DIC("S")="I $D(^MCAR(695.8,""AC"",""E"",+Y))"
  • EXPLANATION:  CHOOSE ETT REASON FOR STOPPING ENTRIES ONLY
51 ARRHYTHMIAS 5;4 SET
  • 'N' FOR NONE;
  • 'DP' FOR DEC PVCS;
  • 'IFP' FOR INC FREQ PVCS;
  • 'IGC' FOR INC GRADE, COUPLETS;
  • 'IGT' FOR INC GRADE, TRIPLETS;
  • 'IVT' FOR INC SUST VT (>10);

  • HELP-PROMPT:  Enter code for cardiac rhythm irregularity.
  • DESCRIPTION:  
    This field identifies the documented cardiac rhythm irregularity.
52 OTHER EKG CHANGE 9;0 WORD-PROCESSING #691.75

  • DESCRIPTION:  
    This field identifies an irregularity.
53 HEART RATE RESPONSE 5;6 SET
  • 'N' FOR NORMAL;
  • 'A' FOR ABNORMAL;

  • HELP-PROMPT:  Enter code for heart rate response.
  • DESCRIPTION:  
    This field identifies the heart rate response.
53.5 BLOOD PRESSURE RESPONSE 7;4 SET
  • 'SR' FOR SYSTOLIC ROLL-OVER;
  • 'N' FOR NORMAL;
  • 'H' FOR HYPERTENSIVE;

  • HELP-PROMPT:  Enter code for blood pressure response.
  • DESCRIPTION:  
    This field identifies the blood pressure response.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
54 TIME RETURN BASELINE ST 5;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<3)!'(X?.2N1":"2N) X
  • LAST EDITED:  MAR 20, 1987
  • HELP-PROMPT:  ENTER TIME IN FORMAT MINUTES:SECONDS
  • DESCRIPTION:  
    This field identifies the time that the ST segment returned to baseline.
55 INTERPRETATION 5;8 SET
  • 'N' FOR NORMAL;
  • 'A' FOR ABNORMAL;
  • 'B' FOR BORDERLINE;

  • LAST EDITED:  JUL 08, 1986
  • HELP-PROMPT:  Enter code for interpretation.
  • DESCRIPTION:  
    This field identifies the interpretation field.
56 COMMENT 6;0 WORD-PROCESSING #691.73

  • DESCRIPTION:  
    This field identifies the comment (word-processing) field.
57 EKG TECHNICIAN 7;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:  SEP 12, 1994
  • HELP-PROMPT:  Enter staff member resposible for hooking up the patient.
  • DESCRIPTION:  
    This field identifies the staff member responsible for hooking up the patient.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
  • EXPLANATION:  Only enter Providers!
58 ATTN PHYS 7;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:  APR 23, 1996
  • HELP-PROMPT:  Enter patient's attending physician.
  • DESCRIPTION:  
    This field identifies the patient's attending physician.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
  • EXPLANATION:  Only providers can be selected.
  • CROSS-REFERENCE:  ^^TRIGGER^691.7^701
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691.7,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.7,58,1,1,1.4)
    1.4)= S DIH=$S($D(^MCAR(691.7,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691.7,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.7,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(691.7,58,1,1,2.1) X ^DD(691.7,58,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^MCAR(691.7,D0,7)):^(7),1:"") S X=$P(Y(1),U,2),X=X
    2.4)= S DIH=$S($D(^MCAR(691.7,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691.7,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= INTERNAL(#58)
    DELETE VALUE)= INTERNAL(#58)
    FIELD)= #701
    This trigger sets the primary provider file.
59 MPH MOD BRUCE COMPUTED

  • MUMPS CODE:  X ^DD(691.7,59,9.5) S X=$S(Y(691.7,59,2):Y(691.7,59,3),Y(691.7,59,5):Y(691.7,59,6),Y(691.7,59,7):Y(691.7,59,8),Y(691.7,59,9):Y(691.7,59,10),Y(691.7,59,11):Y(691.7,59,12),Y(691.7,59,13):X)
    9.2 = X $P(^DD(691.7,43,0),U,5,99) S Y(691.7,59,4)=X S Y(691.7,59,1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"") S X=$P(Y(691.7,59,1),U,4)'="",Y(691.7,59,2)=X
    9.3 = X ^DD(691.7,59,9.2) S X=$P(Y(691.7,59,1),U,4),Y(691.7,59,3)=X S X=Y(691.7,59,4)<540,Y(691.7,59,5)=X S X=1.7,Y(691.7,59,6)=X S X=Y(691.7,59,4)<720
    9.4 = X ^DD(691.7,59,9.3) S Y(691.7,59,7)=X S X=2.5,Y(691.7,59,8)=X S X=Y(691.7,59,4)<900,Y(691.7,59,9)=X S X=3.4,Y(691.7,59,10)=X S X=Y(691.7,59,4)
    9.5 = X ^DD(691.7,59,9.4) S Y(691.7,59,11)=X S X=4.2,Y(691.7,59,12)=X S X=1,Y(691.7,59,13)=X S X=""
  • ALGORITHM:  $S(#32'="":#32,#43<540:1.7,#43<720:2.5,#43<900:3.4,#43:4.2,1:"")
  • DESCRIPTION:  
    This identifies the MPH MOD BRUCE field (miles/hr of lower intensity standardized exercise test).
60 MPH SPECIAL COMPUTED

  • MUMPS CODE:  X ^DD(691.7,60,9.5) S X=$S(Y(691.7,60,2):Y(691.7,60,3),Y(691.7,60,5):Y(691.7,60,6),Y(691.7,60,7):Y(691.7,60,8),Y(691.7,60,9):Y(691.7,60,10),Y(691.7,60,11):Y(691.7,60,12),Y(691.7,60,13):X)
    9.2 = X $P(^DD(691.7,43,0),U,5,99) S Y(691.7,60,4)=X S Y(691.7,60,1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"") S X=$P(Y(691.7,60,1),U,4)'="",Y(691.7,60,2)=X
    9.3 = X ^DD(691.7,60,9.2) S X=$P(Y(691.7,60,1),U,4),Y(691.7,60,3)=X S X=Y(691.7,60,4)<360,Y(691.7,60,5)=X S X=1.7,Y(691.7,60,6)=X S X=Y(691.7,60,4)<540
    9.4 = X ^DD(691.7,60,9.3) S Y(691.7,60,7)=X S X=2.5,Y(691.7,60,8)=X S X=Y(691.7,60,4)<720,Y(691.7,60,9)=X S X=3.4,Y(691.7,60,10)=X S X=Y(691.7,60,4)<900
    9.5 = X ^DD(691.7,60,9.4) S Y(691.7,60,11)=X S X=4.2,Y(691.7,60,12)=X S X=1,Y(691.7,60,13)=X S X=""
  • ALGORITHM:  $S(#32'="":#32,#43<360:1.7,#43<540:2.5,#43<720:3.4,#43<900:4.2,1:"")
  • DESCRIPTION:  
    This field identifies the MPH Special field.
62 MPH BALKE COMPUTED

  • MUMPS CODE:  X ^DD(691.7,62,9.4) S X=$S(Y(691.7,62,2):Y(691.7,62,3),Y(691.7,62,5):Y(691.7,62,6),Y(691.7,62,8):X)
    9.2 = X $P(^DD(691.7,42,0),U,5,99) S Y(691.7,62,4)=X X $P(^DD(691.7,43,0),U,5,99) S Y(691.7,62,7)=X S Y(691.7,62,1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"")
    9.3 = X ^DD(691.7,62,9.2) S X=$P(Y(691.7,62,1),U,4)'="",Y(691.7,62,2)=X S X=$P(Y(691.7,62,1),U,4),Y(691.7,62,3)=X S X=Y(691.7,62,4)<14,Y(691.7,62,5)=X S X=2
    9.4 = X ^DD(691.7,62,9.3) S Y(691.7,62,6)=X S X=Y(691.7,62,7)<14,Y(691.7,62,8)=X S X=3
  • ALGORITHM:  $S(#32'="":#32,#42<14:2,#43<14:3)
  • DESCRIPTION:  
    This field identifies the MPH BALKE field.
65 GRADE SPECIAL COMPUTED

  • MUMPS CODE:  X ^DD(691.7,65,9.5) S X=$S(Y(691.7,65,2):Y(691.7,65,3),Y(691.7,65,5):Y(691.7,65,6),Y(691.7,65,7):Y(691.7,65,8),Y(691.7,65,9):Y(691.7,65,10),Y(691.7,65,11):Y(691.7,65,12),Y(691.7,65,13):Y(691.7,65,14),Y(691.7,65,15):X)
    9.2 = X $P(^DD(691.7,43,0),U,5,99) S Y(691.7,65,4)=X S Y(691.7,65,1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"") S X=$P(Y(691.7,65,1),U,4)'="",Y(691.7,65,2)=X
    9.3 = X ^DD(691.7,65,9.2) S X=$P(Y(691.7,65,1),U,5),Y(691.7,65,3)=X S X=Y(691.7,65,4)<180,Y(691.7,65,5)=X S X=5,Y(691.7,65,6)=X S X=Y(691.7,65,4)<360
    9.4 = X ^DD(691.7,65,9.3) S Y(691.7,65,7)=X S X=10,Y(691.7,65,8)=X S X=Y(691.7,65,4)<540,Y(691.7,65,9)=X S X=12,Y(691.7,65,10)=X S X=Y(691.7,65,4)<720
    9.5 = X ^DD(691.7,65,9.4) S Y(691.7,65,11)=X S X=14,Y(691.7,65,12)=X S X=Y(691.7,65,4)<9000,Y(691.7,65,13)=X S X=16,Y(691.7,65,14)=X S X=1,Y(691.7,65,15)=X S X=""
  • ALGORITHM:  $S(#32'="":#33,#43<180:5,#43<360:10,#43<540:12,#43<720:14,#43<9000:16,1:"")
  • DESCRIPTION:  
    This field identifies the GRADE SPECIAL field.
67 GRADE BALKE COMPUTED

  • MUMPS CODE:  X ^DD(691.7,67,9.5) S X=$S(Y(691.7,67,2):Y(691.7,67,3),Y(691.7,67,5):Y(691.7,67,6),Y(691.7,67,7):Y(691.7,67,8),Y(691.7,67,9):Y(691.7,67,10),Y(691.7,67,11):Y(691.7,67,12),Y(691.7,67,13):Y(691.7,67,14),Y(691.7,67,15):X)
    9.2 = X $P(^DD(691.7,43,0),U,5,99) S Y(691.7,67,4)=X S Y(691.7,67,1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"") S X=$P(Y(691.7,67,1),U,5)'="",Y(691.7,67,2)=X
    9.3 = X ^DD(691.7,67,9.2) S X=$P(Y(691.7,67,1),U,5),Y(691.7,67,3)=X S X=Y(691.7,67,4)<240,Y(691.7,67,5)=X S X=3,Y(691.7,67,6)=X S X=Y(691.7,67,4)<360
    9.4 = X ^DD(691.7,67,9.3) S Y(691.7,67,7)=X S X=7,Y(691.7,67,8)=X S X=Y(691.7,67,4)<480,Y(691.7,67,9)=X S X=10.5,Y(691.7,67,10)=X S X=Y(691.7,67,4)<600
    9.5 = X ^DD(691.7,67,9.4) S Y(691.7,67,11)=X S X=14,Y(691.7,67,12)=X S X=Y(691.7,67,4)<840,Y(691.7,67,13)=X S X=20.5,Y(691.7,67,14)=X S X=1,Y(691.7,67,15)=X S X=""
  • ALGORITHM:  $S(#33'="":#33,#43<240:3,#43<360:7,#43<480:10.5,#43<600:14,#43<840:20.5,1:"")
  • DESCRIPTION:  
    This field identifies the GRADE BALKE field.
69 WARD/CLINIC 10;5 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  SEP 13, 1991
  • HELP-PROMPT:  Enter in-house patient location.
  • DESCRIPTION:  
    This field identifies the in-house patient location.
70 COMPLICATIONS 11;0 POINTER Multiple #691.703 691.703

  • DESCRIPTION:  
    This field identifies the complications field.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
600 PROCEDURE SUMMARY .2;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>79!($L(X)<1) X
  • LAST EDITED:  NOV 28, 1990
  • HELP-PROMPT:  Answer must be 1-79 characters in length. This will appear on the 'Summary of Patient Procedures'.
  • DESCRIPTION:  
    Answer must be 1-79 characters in length.  This will appear on the 'Summary of Patient Procedures.'
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
700 ICD DIAGNOSIS ICD;0 POINTER Multiple #691.704 691.704

  • 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:  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 ATTN PHYS field of the EXERCISE TOLERANCE TEST 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.7^APCE
    1)= S ^MCAR(691.7,"APCE",$E(X,1,30),DA)=""
    2)= K ^MCAR(691.7,"APCE",$E(X,1,30),DA)
    Pointer to the Visit file.
1000 ORIFN OR;1 POINTER TO ORDER FILE (#100) ORDER(#100)

  • LAST EDITED:  JUL 09, 1991
  • HELP-PROMPT:  Enter Consult Order.
  • DESCRIPTION:  
    This field contains a pointer to the 'Consult Orders' internal file number, stored in file 100.  This field is entered when results are entered in the Medicine package.
1001 GMRCO OR;2 POINTER TO REQUEST/CONSULTATION FILE (#123) REQUEST/CONSULTATION(#123)

  • LAST EDITED:  AUG 16, 1991
  • HELP-PROMPT:  Enter the 'Request/Consultation' internal file number.
  • DESCRIPTION:  
    This field contains a pointer to the internal number of the consult order stored in the REQUEST/CONSULTATION file (123).  This field is entered when results are entered in the Medicine package.
1500 ENTERING DUZ ES;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 12, 1993
1501 COSIGNER VALIDATION CODE ES;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  FEB 12, 1993
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
1502 ENTERING DATE ES;3 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 12, 1993
1503 VERIFYING DUZ ES;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 12, 1993
1504 SIGNER VALIDATION CODE ES;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  FEB 12, 1993
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
1505 VERIFIER DATE ES;6 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 12, 1993
1506 RELEASE CODE ES;7 SET
  • 'D' FOR DRAFT;
  • 'PD' FOR PROBLEM DRAFT;
  • 'RV' FOR RELEASED ON-LINE VERIFIED;
  • 'ROV' FOR RELEASED OFF-LINE VERIFIED;
  • 'RNV' FOR RELEASED NOT VERIFIED;
  • 'S' FOR SUPERSEDED;
  • 'SRV' FOR RELEASED ON-LINE VERIFIED OF SUPERSEDED;
  • 'SROV' FOR RELEASED OFF-LINE VERIFIED OF SUPERSEDED;

  • LAST EDITED:  DEC 14, 1993
  • CROSS-REFERENCE:  691.7^ES
    1)= S ^MCAR(691.7,"ES",$E(X,1,30),DA)=""
    2)= K ^MCAR(691.7,"ES",$E(X,1,30),DA)
1507 DATE OF RELEASED ES;8 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 12, 1993
1508 DATE OF VERIFIED ES;9 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 12, 1993
1509 SUPERSEDED ES;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 12, 1993
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
1510 SUPERSEDED BY ES;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 12, 1993
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
1511 MARK FOR DELETION ES;12 SET
  • '1' FOR MARK FOR DELETION;

  • LAST EDITED:  FEB 12, 1993
1512 DELETER DUZ ES;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 12, 1993
1513 SUPERSEDED DATE ES;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  FEB 12, 1993
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
1514 CREATION DATE ES;15 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 12, 1993
1515 SUPERSEDED NUMBER ES;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 04, 1993
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits

External References

Name Field # of Occurrence
^%DT .01+1, 2+1, 1502+1, 1505+1, 1507+1, 1508+1, 1514+1
^DIC 50+1, 57+1, 58+1, 701+1
^DICR 58(XREF 1n1.4), 58(XREF 1n2.4)
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( 58(XREF 1n1.4), 58(XREF 1n2.4)
^DD(2 46OF9.4+1
^DD(691.7 12+1, 12OF9.3+1, 16+1, 16OF9.3+1, 22+1, 22OF9.3+1, 28+1, 28OF9.3+1, 42+1, 42OF9.3+1
, 43+1, 43OF9.3+1, 46+1, 46OF9.3+1, 46OF9.4+1, 48+1, 48OF9.2+1, 48OF9.3+1, 58(XREF 1S), 58(XREF 1K)
, 59+1, 59OF9.2+1, 59OF9.3+1, 59OF9.4+1, 59OF9.5+1, 60+1, 60OF9.2+1, 60OF9.3+1, 60OF9.4+1, 60OF9.5+1
, 62+1, 62OF9.2+1, 62OF9.3+1, 62OF9.4+1, 65+1, 65OF9.2+1, 65OF9.3+1, 65OF9.4+1, 65OF9.5+1, 67+1
, 67OF9.2+1, 67OF9.3+1, 67OF9.4+1, 67OF9.5+1
^DPT - [#2] ID1+1, 46OF9.4+1
^MCAR(690 - [#690] ID1+1, 46OF9.3+1
^MCAR(691.7 - [#691.7] .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 12OF9.2+1, 16OF9.2+1, 22OF9.2+1, 28OF9.2+1, 42OF9.2+1, 43OF9.2+1
, 46OF9.2+1, 48OF9.2+1, 58(XREF 1S), 58(XREF 1n1.4), 58(XREF 1K), 58(XREF 1n2.1), 58(XREF 1n2.4), 59OF9.2+1, 60OF9.2+1, 62OF9.2+1
, 65OF9.2+1, 67OF9.2+1, 900(XREF 1S), 900(XREF 1K), 1506(XREF 1S), 1506(XREF 1K)

Naked Globals

Name Field # of Occurrence
^("ES" IDX1+1
^("PROV" 58(XREF 1S), 58(XREF 1n1.4), 58(XREF 1K), 58(XREF 1n2.4)
^(0 ID1+1, 46OF9.2+1, 46OF9.3+1
^(3 12OF9.2+1, 16OF9.2+1, 22OF9.2+1, 28OF9.2+1
^(4 42OF9.2+1, 43OF9.2+1, 48OF9.2+1, 59OF9.2+1, 60OF9.2+1, 62OF9.2+1, 65OF9.2+1, 67OF9.2+1
^(7 58(XREF 1n2.1)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*, 2+1*, 1502+1*, 1505+1*, 1507+1*, 1508+1*, 1514+1*
>> D0 12OF9.2+1, 16OF9.2+1, 22OF9.2+1, 28OF9.2+1, 42OF9.2+1, 43OF9.2+1, 46+1*, 46OF9.2+1, 46OF9.3+1*, 46OF9.4+1*
, 48OF9.2+1, 58(XREF 1S), 58(XREF 1K), 58(XREF 1n2.1), 59OF9.2+1, 60OF9.2+1, 62OF9.2+1, 65OF9.2+1, 67OF9.2+1
>> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 58(XREF 1S), 58(XREF 1K), 900(XREF 1S), 900(XREF 1K), 1506(XREF 1S), 1506(XREF 1K)
DIC ID1+1, IDX1+1, 50+1!*, 57+1!*, 58+1!*, 701+1!*
DIC("S" 50+1*, 50SCR+1*, 57+1*, 57SCR+1*, 58+1*, 58SCR+1*, 701+1*
>> DIE 50+1, 57+1, 58+1, 701+1
>> DIG 58(XREF 1n1.4), 58(XREF 1n2.4)
>> DIH 58(XREF 1n1.4), 58(XREF 1n2.4)
>> DIU 58(XREF 1S), 58(XREF 1K)
DIV 58(XREF 1S), 58(XREF 1n1.4), 58(XREF 1K), 58(XREF 1n2.1), 58(XREF 1n2.4)
DIV(0 58(XREF 1S), 58(XREF 1n1.4), 58(XREF 1K), 58(XREF 1n2.4)
>> MCARCDIE .01(XREF 2S), .01(XREF 2K), 1(XREF 2S), 1(XREF 2K)
U ID1+1, 12OF9.2+1, 12OF9.3+1, 16OF9.2+1, 16OF9.3+1, 22OF9.2+1, 22OF9.3+1, 28OF9.2+1, 28OF9.3+1, 42OF9.2+1
, 42OF9.3+1, 43OF9.2+1, 43OF9.3+1, 46OF9.3+1, 46OF9.4+1, 48OF9.2+1, 48OF9.3+1, 58(XREF 1S), 58(XREF 1n1.4), 58(XREF 1K)
58(XREF 1n2.1), 58(XREF 1n2.4), 59OF9.2+1, 59OF9.3+1, 60OF9.2+1, 60OF9.3+1, 62OF9.2+1, 62OF9.3+1, 65OF9.2+1, 65OF9.3+1
, 67OF9.2+1, 67OF9.3+1
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .02+1!, 1(XREF 1S), 1(XREF 1K), 2+1*!, 6+1!, 6.1+1!, 8+1!
, 9+1!, 10+1!, 11+1!, 12+1*, 12OF9.2+1*, 12OF9.3+1*, 13+1!, 14+1!, 15+1!, 16+1*
, 16OF9.2+1*, 16OF9.3+1*, 17+1!, 17.5+1!, 18+1!, 19+1!, 20+1!, 21+1!, 22+1*, 22OF9.2+1*
, 22OF9.3+1*, 23+1!, 24+1!, 25+1!, 26+1!, 27+1!, 28+1*, 28OF9.2+1*, 28OF9.3+1*, 29+1!
, 30+1!, 31+1!, 32+1!, 32.1+1!, 32.2+1!, 33+1!, 34+1!, 39+1!, 40+1!, 42+1*
, 42OF9.2+1*, 42OF9.3+1*, 43+1*, 43OF9.2+1*, 43OF9.3+1*, 44+1!, 45+1!, 46+1*, 46OF9.2+1*, 46OF9.4+1*
, 47+1!, 48+1*, 48OF9.2+1*, 48OF9.3+1*, 49+1!, 50+1*!, 54+1!, 57+1*!, 58+1*!, 58(XREF 1S)
58(XREF 1n1.4), 58(XREF 1K), 58(XREF 1n2.1), 58(XREF 1n2.4), 59+1*, 59OF9.2+1*, 59OF9.3+1*, 59OF9.4+1*, 59OF9.5+1*, 60+1*
, 60OF9.2+1*, 60OF9.3+1*, 60OF9.4+1*, 60OF9.5+1*, 62+1*, 62OF9.2+1, 62OF9.3+1*, 62OF9.4+1*, 65+1*, 65OF9.2+1*
, 65OF9.3+1*, 65OF9.4+1*, 65OF9.5+1*, 67+1*, 67OF9.2+1*, 67OF9.3+1*, 67OF9.4+1*, 67OF9.5+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, 2+1, 22OF9.2+1*, 22OF9.3+1, 43OF9.2+1*, 43OF9.3+1, 46+1*, 50+1, 57+1, 58+1
58(XREF 1S), 58(XREF 1K), 701+1, 1502+1, 1505+1, 1507+1, 1508+1, 1514+1
Y( 12+1, 12OF9.2+1*, 12OF9.3+1*, 16+1, 16OF9.2+1*, 16OF9.3+1*, 22+1, 22OF9.2+1*, 22OF9.3+1*, 28+1
, 28OF9.2+1*, 28OF9.3+1*, 42+1, 42OF9.2+1*, 42OF9.3+1*, 43+1, 43OF9.2+1*, 43OF9.3+1*, 46+1, 46OF9.2+1*
, 46OF9.3+1*, 46OF9.4+1*, 48+1, 48OF9.2+1*, 48OF9.3+1*, 59+1, 59OF9.2+1*, 59OF9.3+1*, 59OF9.4+1*, 59OF9.5+1*
, 60+1, 60OF9.2+1*, 60OF9.3+1*, 60OF9.4+1*, 60OF9.5+1*, 62+1, 62OF9.2+1*, 62OF9.3+1*, 62OF9.4+1*, 65+1
, 65OF9.2+1*, 65OF9.3+1*, 65OF9.4+1*, 65OF9.5+1*, 67+1, 67OF9.2+1*, 67OF9.3+1*, 67OF9.4+1*, 67OF9.5+1*
Y(1 58(XREF 1S), 58(XREF 1K), 58(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