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

Package: Medicine

Global: ^MCAR(691.6


Information

FileMan FileNo FileMan Filename Package
691.6 HOLTER Medicine

Description

Directly Accessed By Routines, Total: 12

Package Total Routines
Medicine 11 HEART MED    ICD DIAGNOSIS    MCOBH1    RISK FACTOR    ^MCAR(691.6    MCAR7H    MCAROH1    MCAROH11
MCAROH2    MCPOS01B    SYMPTOM    
Clinical Procedures 1 MDCVT1    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Medicine 2 MCAR7H    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: 10

Package Total FileMan Files
Medicine 4 MEDICAL PATIENT(#690)[1]    MEDICATION(#695)[#691.61(.01)]    PAST HISTORY AND RISK FACTOR(#695.4)[#691.67(.01)]    SYMPTOM(#695.5)[#691.66(.01)]    
Consult Request Tracking 1 REQUEST/CONSULTATION(#123)[1001]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[#691.69(.01)]    
Kernel 1 NEW PERSON(#200)[46101214701150015031512]    
Order Entry Results Reporting 1 ORDER(#100)[1000]    
PCE Patient Care Encounter 1 VISIT(#9000010)[900]    
Scheduling 1 HOSPITAL LOCATION(#44)[17]    

Fields, Total: 97

Field # Name Loc Type Details
.01 HOOK-UP DATE/TIME 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 05, 1987
  • HELP-PROMPT:  ENTER PATIENT'S NAME OR DATE AND TIME OF HOLTER PROCEDURE
  • DESCRIPTION:  
    This field identifies the specific Holter procedure.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  IDENTIFIER
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  691.6^B
    1)= S ^MCAR(691.6,"B",$E(X,1,30),DA)=""
    2)= K ^MCAR(691.6,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  691.6^AD^MUMPS
    1)= S MCARCDIE="^MCAR(691.6," D CHGDTE1^MCARPROC
    2)= S MCARCDIE="^MCAR(691.6," D CHGDTE^MCARPROC
    This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent Holter 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 HOLTER procedure, 2 to 10 characters. SSN need not be entered since this has already been 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 Holter 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.66 691.66

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

  • 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.6^C
    1)= S ^MCAR(691.6,"C",$E(X,1,30),DA)=""
    2)= K ^MCAR(691.6,"C",$E(X,1,30),DA)
    This cross-reference allows look-ups by patient.
  • CROSS-REFERENCE:  691.6^AC^MUMPS
    1)= S MCARCDIE="^MCAR(691.6," D CHGPAT^MCARPROC
    2)= S MCARCDIE="^MCAR(691.6," D KILL^MCARPROC
    This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent Holter procedure for this patient.
2 HT IN 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<50)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 50 AND 100
  • DESCRIPTION:  
    This field contains the patient's height in inches at the time of the procedure.
3 WT LBS 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>350)!(X<50)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 50 AND 350
  • DESCRIPTION:  
    This field contains the weight of the patient at the time of the procedure.
4 REQUESTED BY 0;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 12, 1994
  • HELP-PROMPT:  Enter medical provider that ordered this procedure.
  • DESCRIPTION:  
    This field identifies the medical provider who ordered this procedure.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
  • EXPLANATION:  Check if this person holds the PROVIDER key.
5 DATE REQUESTED 0;6 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter date/time procedure is ordered.
  • DESCRIPTION:  
    This field identifies the time/date the procedure was ordered.
5.5 REASON FOR STUDY 8;0 SET Multiple #691.65 691.65

  • DESCRIPTION:  
    This field contains the rationale for ordering this procedure.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  INDICATION
5.8 OTHER INDICATIONS 10;0 WORD-PROCESSING #691.68

  • DESCRIPTION:  
    This field identifies field is used to define indications not included in the Reason for Study set.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  INDICATION
6 APPROVED BY 0;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 12, 1994
  • HELP-PROMPT:  Enter medical provider that approved the request for this procedure.
  • DESCRIPTION:  
    This field identifies the medical provider who approved the request for this procedure.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
  • EXPLANATION:  Check if this person holds the PROVIDER key.
7 DATE APPROVED 0;8 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter date procedure request was approved.
  • DESCRIPTION:  
    This field is used to document the date of procedure request approval.
8 APPOINTMENT DATE 0;9 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter date procedure is/was scheduled.
  • DESCRIPTION:  
    This field contains the date this procedure is/was scheduled.
10 HOOK-UP BY 0;11 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 12, 1994
  • HELP-PROMPT:  Enter medical provider that physically initiated this procedure.
  • DESCRIPTION:  
    This field identifies the medical provider who physically initiated this procedure.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
  • EXPLANATION:  Only providers can be selected.
11 RETURN DATE & TIME 0;12 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter date/time the patient is scheduled to return. This date is automatically set to the appointment date/time plus 24 hours by the system.
  • DESCRIPTION:  
    This field contains the time/date which the patient is scheduled for return.  This date is automatically set to the appointment time/date plus 24 hours by the system.
12 SCANNED BY 0;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 12, 1994
  • HELP-PROMPT:  Enter medical provider that performed Holter scan.
  • DESCRIPTION:  
    This field documents the medical provider who performed the Holter scan.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
  • EXPLANATION:  Only providers can be selected.
13 SCANNED DATE 0;14 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter date the scanning procedure was performed.
  • DESCRIPTION:  
    This field documents the date the scanning procedure was performed.
14 REVIEWED BY 0;15 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 the medical provider that reviewed this procedure.
  • DESCRIPTION:  
    This field identifies the medical provider who reviewed this procedure.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  IDENTIFIER
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
  • EXPLANATION:  Only providers can be selected.
  • CROSS-REFERENCE:  ^^TRIGGER^691.6^701
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691.6,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.6,14,1,1,1.4)
    1.4)= S DIH=$S($D(^MCAR(691.6,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691.6,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.6,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(691.6,14,1,1,2.1) X ^DD(691.6,14,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^MCAR(691.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,15),X=X
    2.4)= S DIH=$S($D(^MCAR(691.6,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691.6,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= INTERNAL(#14)
    DELETE VALUE)= INTERNAL(#14)
    FIELD)= #701
    This trigger sets the primary provider file.
15 REVIEW DATE 0;16 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter the date the review occurred.
  • DESCRIPTION:  
    This field documents the date the review occurred.
16 PATIENT CATEGORY 0;17 SET
  • 'I' FOR INPATIENT;
  • 'O' FOR OUTPATIENT;

  • HELP-PROMPT:  Enter code for inpatient or outpatient status.
  • DESCRIPTION:  
    This field defines either inpatient or outpatient status.
17 WARD/CLINIC 0;18 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  SEP 13, 1991
  • DESCRIPTION:  
    This field identifies the in house address of the patient.
18 HEART MED 1;0 POINTER Multiple #691.61 691.61

  • DESCRIPTION:  
    This field contains the multiple cardiac medicines that the patient was taking at the time of this procedure.
19 HOLTER RUN NUMBER 2;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<2)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 2 AND 99999
  • DESCRIPTION:  
    This field contains the facility generated procedure number.
20 RECORDER NUMBER 2;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 99999
  • DESCRIPTION:  
    This field identifies the recorder used in this procedure.
21 BATTERY NUMBER 2;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>5)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 5
  • DESCRIPTION:  
    This field identifies the battery used in this procedure.
22 MALFUNCTIONS 2;4 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • HELP-PROMPT:  Enter code for whether or not any procedure malfunction occurred.
  • DESCRIPTION:  
    This field documents whether any procedure malfunction occurred.
23 MALFUNCTION TYPE 3;0 WORD-PROCESSING #691.62

  • DESCRIPTION:  
    This free text field provides documentation or comments regarding the malfunction.
24 TAPE QUALITY 4;1 SET
  • 'G' FOR GOOD;
  • 'P' FOR POOR;
  • 'U' FOR UNREADABLE;

  • HELP-PROMPT:  Enter code for gross evaluation of tape quality.
  • DESCRIPTION:  
    This contains the gross evaluation of the tape quality.
25 TOTAL HOURS 4;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<2)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 2 AND 99
  • DESCRIPTION:  
    This field documents the length in hours of this procedure.
26 READABLE HOURS 4;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99
  • DESCRIPTION:  
    This field documents the length in hours of distortion free procedure readings.
27 AVERAGE HR 4;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>200)!(X<20)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 20 AND 200
  • DESCRIPTION:  
    This field contains the average heart rate for the entire Holter session.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
28 MAX HR 4;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>300)!(X<40)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 10, 1992
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 40 AND 300
  • DESCRIPTION:  
    This field identifies documents the greatest heart rate that was monitored during this procedure.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
29 TIME MAX HR 4;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<5)!'(X?.2N1":"2N1"AM"!(X?.2N1":"2N1"PM")) X
  • LAST EDITED:  MAR 20, 1987
  • HELP-PROMPT:  Time Maximum Heart rate occurred in format HH:MM followed by AM or PM Ex: 11:45AM or 6:33PM
  • DESCRIPTION:  
    This field identifies field documents the exact time at which maximum heart rate occurred.
30 MIN HR 4;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>200)!(X<10)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 03, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 10 AND 200
  • DESCRIPTION:  
    This field identifies documents the lowest heart rate that was monitored during this procedure.
31 TIME MIN HR 4;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<5)!'(X?.2N1":"2N1"AM"!(X?.2N1":"2N1"PM")) X
  • LAST EDITED:  MAR 20, 1987
  • HELP-PROMPT:  Time Minimum Heart rate occurred in format HH:MM followed by AM or PM Ex: 11:22AM or 5:07PM
  • DESCRIPTION:  
    This documents the time at which minimum heart rate occurred during this procedure.
32 QRS TOTAL 4;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>220000)!(X<1000)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 03, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1000 AND 220000
  • DESCRIPTION:  
    This field identifies is the total number of ventricular complexes generated (monitored) during this procedure.
33 VPBS (VENT) 4;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 26, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99999
  • DESCRIPTION:  
    This field identifies is the total number of ventricular ectopic beats monitored during this procedure.
34 VPBS PERCENT (VENT) COMPUTED

  • MUMPS CODE:  X ^DD(691.6,34,9.3) S X=X*100,X=$S(Y(691.6,34,2):Y(691.6,34,3),Y(691.6,34,4):Y(691.6,34,5),Y(691.6,34,6):X) S X=$J(X,0,1)
    9.2 = S Y(691.6,34,1)=$S($D(^MCAR(691.6,D0,4)):^(4),1:"") S X='$P(Y(691.6,34,1),U,9),Y(691.6,34,2)=X S X="",Y(691.6,34,3)=X S X='$P(Y(691.6,34,1),U,10)
    9.3 = X ^DD(691.6,34,9.2) S Y(691.6,34,4)=X S X="",Y(691.6,34,5)=X S X=1,Y(691.6,34,6)=X S X=$P(Y(691.6,34,1),U,10),X=$S($P(Y(691.6,34,1),U,9):X/$P(Y(691.6,34,1),U,9),1:"*******")
  • ALGORITHM:  $S('#32:"",'#33:"",1:#33/#32*100) (ALWAYS 1 DECIMAL DIGITS)
  • LAST EDITED:  DEC 31, 1986
  • DESCRIPTION:  
    This field identifies is computed from VPBS(VENT)/QRS TOTAL.
35 AVE/HR 4;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
  • DESCRIPTION:  
    This field identifies the average rate of premature ventricular ectopy per hour.
36 MAX/HR 4;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Highest PVC total per one hour. 0 to 9999
  • DESCRIPTION:  
    This field identifies is the maximum number of ventricular ectopy monitored during any hour of this procedure.
37 ISOLATED (VENT) 4;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 03, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99999
  • DESCRIPTION:  
    This field identifies is the total number of isolated ventricular ectopy.
38 BIGEMINY (VENT) 4;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
  • DESCRIPTION:  
    This field identifies is the total number of ventricular ectopy occurring in a bigeminal pattern during this procedure.
39 COUPLETS (VENT) 4;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
  • DESCRIPTION:  
    This field identifies is the total number of ventricular ectopy occurring in a couplet pattern during this procedure.
40 NUM OF RUNS 3 OR MORE (VENT) 4;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 03, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 10000
  • DESCRIPTION:  
    This field identifies is the total number of occurrences of ventricular ectopy in groups of 3 or more monitored during this procedure.
40.5 RUNS 100 BPM OR MORE (VENT) 9;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 23, 1987
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This field identifies is the total number of occurrences of ventricular tachycardia monitored during this procedure.
41 BEATS IN RUNS (VENT) 4;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<3)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 03, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 3 AND 99999
  • DESCRIPTION:  
    This field identifies is the total number of ventricular ectopy occurring in groups of 3 or more monitored during this procedure.
42 BEATS LONGEST RUN (VENT) 4;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<3)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 03, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 3 AND 9999
  • DESCRIPTION:  
    This field identifies is the number of ventricular complexes that occurred in the longest ventricular tachycardia event monitored during this procedure.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
43 BEATS FASTEST RUN (VENT) 4;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<3)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 03, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 3 AND 9999
  • DESCRIPTION:  
    This field identifies is the total number of ventricular ectopy occurring in the fastest run of ventricular ectopy monitored during this procedure.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
44 BPM IN FASTEST RUN (VENT) 4;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>300)!(X<20)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 20 AND 300
  • DESCRIPTION:  
    This field identifies is the highest ventricular rate occurring in ectopic runs of 3 or more monitored during this procedure.
45 ATRIAL BEATS TOTAL 4;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>220000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 03, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 220000
  • DESCRIPTION:  
    This field identifies is the sum of all P waves monitored during this procedure.
46 ECTOPICS (ATR) 4;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>220000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 03, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 220000
  • DESCRIPTION:  
    This field identifies is the total number of atrial complexes of non-SA node origin monitored during this procedure.
47 ECTOPICS PERCENT (ATR) COMPUTED

  • MUMPS CODE:  X ^DD(691.6,47,9.3) S X=X*100,X=$S(Y(691.6,47,2):Y(691.6,47,3),Y(691.6,47,4):Y(691.6,47,5),Y(691.6,47,6):X) S X=$J(X,0,1) S:X?1"0"1"."1"0" X=""
    9.2 = S Y(691.6,47,1)=$S($D(^MCAR(691.6,D0,4)):^(4),1:"") S X='$P(Y(691.6,47,1),U,22),Y(691.6,47,2)=X S X="",Y(691.6,47,3)=X S X='$P(Y(691.6,47,1),U,21)
    9.3 = X ^DD(691.6,47,9.2) S Y(691.6,47,4)=X S X="",Y(691.6,47,5)=X S X=1,Y(691.6,47,6)=X S X=$P(Y(691.6,47,1),U,22),X=$S($P(Y(691.6,47,1),U,21):X/$P(Y(691.6,47,1),U,21),1:"*******")
  • ALGORITHM:  $S('#46:"",'#45:"",1:#46/#45*100)
  • LAST EDITED:  MAY 12, 1987
  • DESCRIPTION:  
    This field identifies is computed from ECTOPICS/ATRIAL BEATS TOTAL.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
48 AV/H (ATR) 4;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999
  • DESCRIPTION:  
    This field identifies the average rate of supraventricular ectopy per hour.
49 MAX/H (ATR) 4;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999
  • DESCRIPTION:  
    This field identifies is the maximum number of atrial ectopy monitored during any hour of this procedure.
50 ISOLATED (ATR) 4;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 27, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99999
  • DESCRIPTION:  
    This field identifies is the total number of single atrial ectopy monitored during this procedure.
50.5 COUPLETS (ATR) 4;26 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 21, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This field is used to quantify the amount of back-to-back PVC's or PVC's occurring in pairs.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
51 BLOCKED APC (ATR) 6;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 27, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99999
  • DESCRIPTION:  
    This field identifies is the total number of non-conducted atrial ectopy monitored during this procedure.
52 NUM. RUNS SVT (ATR) 6;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999
  • DESCRIPTION:  
    This field identifies is the total number of occurrences of groups of supraventricular tachycardia monitored during this procedure.
53 BTS IN RUNS (ATR) 6;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<2)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 2 AND 999
  • DESCRIPTION:  
    This field identifies is the average number of atrial ectopy occurring in groups of 3 or more monitored during this procedure.
54 BTS LONGEST RUN (ATR) 6;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<2)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 2 AND 999
  • DESCRIPTION:  
    This field identifies is the total number of supraventricular ectopy in the largest group monitored during this procedure.
55 BTS FASTEST RUN (ATR) 6;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>300)!(X<3)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 26, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 3 AND 300
  • DESCRIPTION:  
    This field identifies is the total number of atrial ectopy monitored during the fastest run of atrial tachycardia.
56 BPM FASTEST RUN (ATR) 6;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>300)!(X<10)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 10 AND 300
  • DESCRIPTION:  
    This field identifies is the fastest rate of atrial tachycardia monitored during this procedure(beats/minute).
57 HEART BLOCK 6;7 SET
  • 'A' FOR ABSENT;
  • 'FD' FOR FIRST DEGREE BLOCK;
  • 'MI' FOR MOBITZ I SECOND DEGREE, FREQ, RARE;
  • 'MII' FOR MOBITZ II SECOND DEGREE, FREQ, RARE;
  • 'TD' FOR THIRD DEGREE HEART BLOCK, FREQ, RARE;

  • HELP-PROMPT:  Enter code for degree of heart block monitored during this procedure.
  • DESCRIPTION:  
    This field contains the degree of heart block monitored during this procedure.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
58 PAUSES (SINUS) 6;8 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • HELP-PROMPT:  Enter code for whether sinus pauses were monitired during this procedure.
  • DESCRIPTION:  
    This field indicates whether sinus pauses were monitored during this procedure.
59 LONGEST SINUS PAUSE 6;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<.1)!(X?.E1"."2N.N) X
  • LAST EDITED:  NOV 06, 1987
  • HELP-PROMPT:  Type a Number between .1 and 10, 1 Decimal Digit
  • DESCRIPTION:  
    This field identifies is the length of the longest sinus pause monitored during this procedure in the range of .1 and 10 seconds.
60 PAUSES (VENT) 6;10 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • HELP-PROMPT:  Enter code fo whether occurrence of ventricular pauses were monitored during this procedure.
  • DESCRIPTION:  
    This field indicates the occurrence of ventricular pauses monitored during this procedure.
61 LONGEST PAUSE (VENT) 6;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<.1)!(X?.E1"."2N.N) X
  • LAST EDITED:  NOV 06, 1987
  • HELP-PROMPT:  Type a Number between .1 and 10, 1 Decimal Digit
  • DESCRIPTION:  
    This field identifies is the longest occurrence of ventricular pause monitored during this procedure in the range of .1 and 10 seconds.
62 INTERPRETATION 7;0 WORD-PROCESSING #691.63

  • DESCRIPTION:  
    This free text field contains the clinical evaluation of the patient's cardiac condition based on the information collected by this procedure.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  DIAGNOSIS
63 COMMENT 5;0 WORD-PROCESSING #691.64

  • DESCRIPTION:  
    This free text field provides an area for the medical provider to remark on the data collected in this procedure.
64 ST LEVEL 9;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>5)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  SEP 23, 1987
  • HELP-PROMPT:  Type The Number in Millimeters between 0 and 5, 2 Decimal Digits
  • DESCRIPTION:  
    This field identifies is the level of ST segment deviation from baseline monitored during this procedure in the range of 0 and 5 millimeters using 2 decimal digits.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
65 ST LEVEL DEP/ELEV 9;3 SET
  • 'D-SY' FOR DEPRESSION WITH SYMPTOMS;
  • 'D' FOR DEPRESSION WITHOUT SYMPTOMS;
  • 'E-SY' FOR ELEVATION WITH SYMPTOMS;
  • 'E' FOR ELEVATION WITHOUT SYMPTOMS;

  • LAST EDITED:  SEP 23, 1987
  • DESCRIPTION:  
    This field contains the evaluation of ST segment deviation monitored during this procedure.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
66 AUTOMATED INSTRUMENT DATA A;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 10, 1990
  • HELP-PROMPT:  Enter last date that ECG was successfully transferred into the DHCP system through the automated interface.
  • DESCRIPTION:  
    This field stores the last date that the ECG was successfully transferred into the DHCP system through the automated interface.
67 VENDOR 11;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<4) X
  • LAST EDITED:  DEC 06, 1990
  • HELP-PROMPT:  The algorithms used develop the values generated by the Holter recording devices are vendor specific.
  • DESCRIPTION:  
    This field is used to identify the Holter System Manufacturer.
600 PROCEDURE SUMMARY .2;2 FREE TEXT
************************REQUIRED FIELD************************

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

  • DESCRIPTION:  
    This field identifies 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 REVIEWED BY field of the HOLTER 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.6^APCE
    1)= S ^MCAR(691.6,"APCE",$E(X,1,30),DA)=""
    2)= K ^MCAR(691.6,"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.6^ES
    1)= S ^MCAR(691.6,"ES",$E(X,1,30),DA)=""
    2)= K ^MCAR(691.6,"ES",$E(X,1,30),DA)
    This Cross-Referenc allows look-up by release status.
1507 DATE OF RELEASED ES;8 DATE

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

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

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

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 12, 1993
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
1511 MARK FOR DELETATION ES;12 SET
  • '1' FOR MARK FOR 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, 5+1, 7+1, 8+1, 11+1, 13+1, 15+1, 66+1, 1502+1, 1505+1
, 1507+1, 1508+1, 1514+1
^DIC 4+1, 6+1, 10+1, 12+1, 14+1, 701+1
^DICR 14(XREF 1n1.4), 14(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( 14(XREF 1n1.4), 14(XREF 1n2.4)
^DD(691.6 14(XREF 1S), 14(XREF 1K), 34+1, 34OF9.3+1, 47+1, 47OF9.3+1
^DPT - [#2] ID1+1
^MCAR(690 - [#690] ID1+1
^MCAR(691.6 - [#691.6] .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 14(XREF 1S), 14(XREF 1n1.4), 14(XREF 1K), 14(XREF 1n2.1), 14(XREF 1n2.4), 34OF9.2+1
, 47OF9.2+1, 900(XREF 1S), 900(XREF 1K), 1506(XREF 1S), 1506(XREF 1K)

Naked Globals

Name Field # of Occurrence
^("ES" IDX1+1
^("PROV" 14(XREF 1S), 14(XREF 1n1.4), 14(XREF 1K), 14(XREF 1n2.4)
^(0 ID1+1, 14(XREF 1n2.1)
^(4 34OF9.2+1, 47OF9.2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*, 5+1*, 7+1*, 8+1*, 11+1*, 13+1*, 15+1*, 66+1*, 1502+1*, 1505+1*
, 1507+1*, 1508+1*, 1514+1*
>> D0 14(XREF 1S), 14(XREF 1K), 14(XREF 1n2.1), 34OF9.2+1, 47OF9.2+1
>> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 14(XREF 1S), 14(XREF 1K), 900(XREF 1S), 900(XREF 1K), 1506(XREF 1S), 1506(XREF 1K)
DIC ID1+1, IDX1+1, 4+1!*, 6+1!*, 10+1!*, 12+1!*, 14+1!*, 701+1!*
DIC("S" 4+1*, 4SCR+1*, 6+1*, 6SCR+1*, 10+1*, 10SCR+1*, 12+1*, 12SCR+1*, 14+1*, 14SCR+1*
, 701+1*
>> DIE 4+1, 6+1, 10+1, 12+1, 14+1, 701+1
>> DIG 14(XREF 1n1.4), 14(XREF 1n2.4)
>> DIH 14(XREF 1n1.4), 14(XREF 1n2.4)
>> DIU 14(XREF 1S), 14(XREF 1K)
DIV 14(XREF 1S), 14(XREF 1n1.4), 14(XREF 1K), 14(XREF 1n2.1), 14(XREF 1n2.4)
DIV(0 14(XREF 1S), 14(XREF 1n1.4), 14(XREF 1K), 14(XREF 1n2.4)
>> MCARCDIE .01(XREF 2S), .01(XREF 2K), 1(XREF 2S), 1(XREF 2K)
U ID1+1, 14(XREF 1S), 14(XREF 1n1.4), 14(XREF 1K), 14(XREF 1n2.1), 14(XREF 1n2.4), 34OF9.2+1, 34OF9.3+1, 47OF9.2+1, 47OF9.3+1
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .02+1!, 1(XREF 1S), 1(XREF 1K), 2+1!, 3+1!, 4+1*!, 5+1*!
, 6+1*!, 7+1*!, 8+1*!, 10+1*!, 11+1*!, 12+1*!, 13+1*!, 14+1*!, 14(XREF 1S), 14(XREF 1n1.4)
14(XREF 1K), 14(XREF 1n2.1), 14(XREF 1n2.4), 15+1*!, 19+1!, 20+1!, 21+1!, 25+1!, 26+1!, 27+1!
, 28+1!, 29+1!, 30+1!, 31+1!, 32+1!, 33+1!, 34+1*, 34OF9.2+1*, 34OF9.3+1*, 35+1!
, 36+1!, 37+1!, 38+1!, 39+1!, 40+1!, 40.5+1!, 41+1!, 42+1!, 43+1!, 44+1!
, 45+1!, 46+1!, 47+1*, 47OF9.2+1*, 47OF9.3+1*, 48+1!, 49+1!, 50+1!, 50.5+1!, 51+1!
, 52+1!, 53+1!, 54+1!, 55+1!, 56+1!, 59+1!, 61+1!, 64+1!, 66+1*!, 67+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, 4+1, 5+1, 6+1, 7+1, 8+1, 10+1, 11+1, 12+1, 13+1
, 14+1, 14(XREF 1S), 14(XREF 1K), 15+1, 66+1, 701+1, 1502+1, 1505+1, 1507+1, 1508+1
, 1514+1
Y( 34+1, 34OF9.2+1*, 34OF9.3+1*, 47+1, 47OF9.2+1*, 47OF9.3+1*
Y(1 14(XREF 1S), 14(XREF 1K), 14(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