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

Package: Medicine

Global: ^MCAR(698.2


Information

FileMan FileNo FileMan Filename Package
698.2 A LEAD IMPLANT Medicine

Description

Directly Accessed By Routines, Total: 7

Package Total Routines
Medicine 7 ICD DIAGNOSIS    MCAROPA    MCARPCS2    MCOBPA    ^MCAR(698.2    MCARPCS4    MCPOS01E    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Medicine 3 MCARPAC    MCARPACE    MCARPCS4    

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

Package Total FileMan Files
Medicine 4 MEDICAL PATIENT(#690)[1]    REASON (MEDICINE)(#695.8)[57]    PACEMAKER EQUIPMENT(#698.4)[215]    PACEMAKER MANUFACTURER(#698.6)[3]    
Consult Request Tracking 1 REQUEST/CONSULTATION(#123)[1001]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[#698.22(.01)]    
Kernel 1 NEW PERSON(#200)[300301302701]    
Order Entry Results Reporting 1 ORDER(#100)[1000]    
PCE Patient Care Encounter 1 VISIT(#9000010)[900]    

Fields, Total: 23

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

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • DESCRIPTION:  
    This allows analysis based on time.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: IDENTIFIER
  • CROSS-REFERENCE:  698.2^B
    1)= S ^MCAR(698.2,"B",$E(X,1,30),DA)=""
    2)= K ^MCAR(698.2,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  698.2^AC^MUMPS
    1)= S MCARCDIE="^MCAR(698.2," D CHGDTE1^MCARPROC
    2)= S MCARCDIE="^MCAR(698.2," D CHGDTE^MCARPROC
    This cross-reference makes an entry under the 'AD' index of the MEDICAL PATIENT file (#690) to record the most recent A lead implant procedure for this patient.
1 MEDICAL PATIENT 0;2 POINTER TO MEDICAL PATIENT FILE (#690) MEDICAL PATIENT(#690)

  • HELP-PROMPT:  Enter the patient's name, SSN, or other identifier
  • DESCRIPTION:  
    Patient's name.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: IDENTIFIER
  • CROSS-REFERENCE:  698.2^C
    1)= S ^MCAR(698.2,"C",$E(X,1,30),DA)=""
    2)= K ^MCAR(698.2,"C",$E(X,1,30),DA)
    This cross-reference allows look-ups by patient.
  • CROSS-REFERENCE:  698.2^AD^MUMPS
    1)= S MCARCDIE="^MCAR(698.2," D CHGPAT^MCARPROC
    2)= S MCARCDIE="^MCAR(698.2," D KILL^MCARPROC
    This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent A lead implant procedure for this patient.
2 A LEAD MODEL 0;3 POINTER TO PACEMAKER EQUIPMENT FILE (#698.4) PACEMAKER EQUIPMENT(#698.4)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^MCAR(698.4,+Y,0),U,2)[""A""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 23, 1996
  • HELP-PROMPT:  Enter the manufacturer's production name for this transmitter.
  • DESCRIPTION:  
    This field identifies the device by the manufacturer's production name.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: DIAGNOSIS
  • SCREEN:  S DIC("S")="I $P(^MCAR(698.4,+Y,0),U,2)[""A"""
  • EXPLANATION:  CHOOSE LEADS THAT ARE A LEAD OR BOTH A AND V LEADS ONLY
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^698.2^3
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(698.2,2,1,1,1.1) X ^DD(698.2,2,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^MCAR(698.4,+D0,0)) D0=-1 S Y(101)=$S($D(^MCAR(698.4,D0,0)):^(0),1:"") S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^MCAR(698.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=698.2,DIG=3 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(698.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(698.2,2,1,1,2.1) X ^DD(698.2,2,1,1,2.4)
    2.1)= S X=DIV X ^DD(698.2,2,1,1,59.2) S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)
    2.4)= S DIH=$S($D(^MCAR(698.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=698.2,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^MCAR(698.2,D0,0)):^(0),1:""),D0=$P(Y(1),U,3) S:'$D(^MCAR(698.4,+D0,0)) D0=-1 S Y(101)=$S($D(^MCAR(698.4,D0,0)):^(0),1:"")
    CREATE VALUE)= INTERNAL(#2:#2)
    DELETE VALUE)= INTERNAL(#2:#2)
    FIELD)= #3
    This cross-reference triggers the A LEAD MANUFACTURER field (#3).
3 A LEAD MANUFACTURER 0;4 POINTER TO PACEMAKER MANUFACTURER FILE (#698.6) PACEMAKER MANUFACTURER(#698.6)

  • HELP-PROMPT:  Enter the producer of this transmitter.
  • DESCRIPTION:  
    This field identifies the producer of the lead.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the A LEAD MODEL field of the A LEAD IMPLANT File
4 A LEAD SERIAL NUMBER 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<2) X
  • HELP-PROMPT:  ANSWER MUST BE 2-12 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field identifies the specific device.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: DIAGNOSIS
11 A LEAD THRESHOLD IN VOLTS 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>12)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  FEB 21, 1990
  • HELP-PROMPT:  Type a Number between 0 and 12, 1 Decimal Digit
  • DESCRIPTION:  
    This allows documentation of an initial threshold parameter.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
12 A LEAD THRESHOLD IN mA's AT .5 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>12)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  FEB 21, 1990
  • HELP-PROMPT:  Type a Number between 0 and 12, 1 Decimal Digit
  • DESCRIPTION:  
    This allows documentation of an initial threshold parameter.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
13 A LEAD RESISTANCE (OHMS) AT 5V 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>1000)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  FEB 21, 1990
  • HELP-PROMPT:  Type a Number between 0 and 1000, 2 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of an initial resistance parameter.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
14 P WAVE AMPLITUDE (MV) 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>25)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  FEB 21, 1990
  • HELP-PROMPT:  Type a Number between 0 and 25, 1 Decimal Digit
  • DESCRIPTION:  
    This allows documentation of the initial amplitude parameter.
15 A LEAD PSA USED 0;10 POINTER TO PACEMAKER EQUIPMENT FILE (#698.4) PACEMAKER EQUIPMENT(#698.4)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^MCAR(698.4,""C"",""P"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • DESCRIPTION:  
    This allows documentation of lead implementation.
  • SCREEN:  S DIC("S")="I $D(^MCAR(698.4,""C"",""P"",+Y))"
  • EXPLANATION:  CHOOSE PSA EQUIPMENT TYPE ONLY
56 EXPLANT DATE 1;1 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter the date that this apparatus was removed.
  • DESCRIPTION:  
    This allows documentation of lead removal.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
57 A LEAD EXPLANT REASON 1;2 POINTER TO REASON (MEDICINE) FILE (#695.8) REASON (MEDICINE)(#695.8)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^MCAR(695.8,""AC"",""L"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • HELP-PROMPT:  Enter the reason for this explant/implant procedure.
  • DESCRIPTION:  
    This allows documentation of explant rationale.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
  • SCREEN:  S DIC("S")="I $D(^MCAR(695.8,""AC"",""L"",+Y))"
  • EXPLANATION:  CHOOSE REASONS ASSOSCIATED WITH 'LEADS' ONLY
300 ATTENDING PHYSICIAN 3;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
  • HELP-PROMPT:  Enter the attending Physician
  • DESCRIPTION:  
    This field identifies the name of the Attending Physician for this A-Lead Implant.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
  • EXPLANATION:  Only select Providers!
  • CROSS-REFERENCE:  ^^TRIGGER^698.2^701
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698.2,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(698.2,300,1,1,1.4)
    1.4)= S DIH=$S($D(^MCAR(698.2,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=698.2,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(698.2,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(698.2,300,1,1,2.1) X ^DD(698.2,300,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^MCAR(698.2,D0,3)):^(3),1:"") S X=$P(Y(1),U,1),X=X
    2.4)= S DIH=$S($D(^MCAR(698.2,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=698.2,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= INTERNAL(#300)
    DELETE VALUE)= INTERNAL(#300)
    FIELD)= #701
    This trigger sets the primary provider file.
301 FELLOW-1st 3;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:  SEP 12, 1994
  • HELP-PROMPT:  Enter the 1st Fellow.
  • DESCRIPTION:  
    This field identifies the name of a Cardiology Fellow for this A-Lead Implant.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
  • EXPLANATION:  Only allow Providers!
302 FELLOW-2nd 3;3 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
  • DESCRIPTION:  
    This field identifies the name of a second Cardiology Fellow for this A-Lead Implant.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
  • EXPLANATION:  Only allow Providers!
500 COMMENTS 10;0 WORD-PROCESSING #698.21

  • DESCRIPTION:  
    This allows a documentation area of free form.
  • 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 21, 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 medical procedure summary report.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
601 SUMMARY .2;1 SET
************************REQUIRED FIELD************************
  • 'A' FOR ABNORMAL;
  • 'N' FOR NORMAL;

  • LAST EDITED:  NOV 21, 1990
  • DESCRIPTION:  
    This field summarizes the results of the procedure.
700 ICD DIAGNOSIS ICD;0 POINTER Multiple #698.22 698.22

  • 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 ATTENDING PHYSICIAN field of the A LEAD IMPLANT 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:  698.2^APCE
    1)= S ^MCAR(698.2,"APCE",$E(X,1,30),DA)=""
    2)= K ^MCAR(698.2,"APCE",$E(X,1,30),DA)
    Pointer to the Visit file.
1000 ORIFN OR;1 POINTER TO ORDER FILE (#100) ORDER(#100)

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

  • LAST EDITED:  AUG 16, 1991
  • HELP-PROMPT:  Enter the 'Request/Consultation' internal file number.
  • DESCRIPTION:  
    This field contains a pointer to the internal number of the consult order stored in the REQUEST/CONSULTATION file (123). This field is entered when results are entered in the Medicine package.

External References

Name Field # of Occurrence
^%DT .01+1, 56+1
^DIC 2+1, 15+1, 57+1, 300+1, 301+1, 302+1, 701+1
^DICR 2(XREF 1n1.4), 2(XREF 1n2.4), 300(XREF 1n1.4), 300(XREF 1n2.4)
Y^DIQ ID1+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( 2(XREF 1n1.4), 2(XREF 1n2.4), 300(XREF 1n1.4), 300(XREF 1n2.4)
^DD(690 ID1+1
^DD(698.2 2(XREF 1S), 2(XREF 1K), 2(XREF 1n2.1), 300(XREF 1S), 300(XREF 1K)
^MCAR(690 - [#690] ID1+1
^MCAR(698.2 - [#698.2] .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1n1.4), 2(XREF 1K), 2(XREF 1n2.4), 2(XREF 1n59.2), 300(XREF 1S)
300(XREF 1n1.4), 300(XREF 1K), 300(XREF 1n2.1), 300(XREF 1n2.4), 900(XREF 1S), 900(XREF 1K)
^MCAR(698.4 - [#698.4] 2(XREF 1n1.1), 2(XREF 1n59.2)

Naked Globals

Name Field # of Occurrence
^("PROV" 300(XREF 1S), 300(XREF 1n1.4), 300(XREF 1K), 300(XREF 1n2.4)
^(0 ID1+1, 2(XREF 1S), 2(XREF 1n1.1), 2(XREF 1n1.4), 2(XREF 1K), 2(XREF 1n2.4), 2(XREF 1n59.2)
^(3 300(XREF 1n2.1)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*, 56+1*
%I ID1+1*!
>> C ID1+1*
>> D0 2(XREF 1S), 2(XREF 1n1.1), 2(XREF 1K), 2(XREF 1n2.1), 2(XREF 1n59.2), 300(XREF 1S), 300(XREF 1K), 300(XREF 1n2.1)
>> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 300(XREF 1S), 300(XREF 1K), 900(XREF 1S), 900(XREF 1K)
DIC ID1+1, 2+1!*, 15+1!*, 57+1!*, 300+1!*, 301+1!*, 302+1!*, 701+1!*
DIC("S" 2+1*, 2SCR+1*, 15+1*, 15SCR+1*, 57+1*, 57SCR+1*, 300+1*, 300SCR+1*, 301+1*, 301SCR+1*
, 302+1*, 302SCR+1*, 701+1*
>> DIE 2+1, 15+1, 57+1, 300+1, 301+1, 302+1, 701+1
>> DIG 2(XREF 1n1.4), 2(XREF 1n2.4), 300(XREF 1n1.4), 300(XREF 1n2.4)
>> DIH 2(XREF 1n1.4), 2(XREF 1n2.4), 300(XREF 1n1.4), 300(XREF 1n2.4)
>> DIU 2(XREF 1S), 2(XREF 1K), 300(XREF 1S), 300(XREF 1K)
DIV 2(XREF 1S), 2(XREF 1n1.1), 2(XREF 1n1.4), 2(XREF 1K), 2(XREF 1n2.1), 2(XREF 1n2.4), 300(XREF 1S), 300(XREF 1n1.4), 300(XREF 1K), 300(XREF 1n2.1)
300(XREF 1n2.4)
DIV(0 2(XREF 1S), 2(XREF 1n1.4), 2(XREF 1K), 2(XREF 1n2.4), 300(XREF 1S), 300(XREF 1n1.4), 300(XREF 1K), 300(XREF 1n2.4)
>> I(0 2(XREF 1n1.1), 2(XREF 1n2.1), 2(XREF 1n59.2)
>> MCARCDIE .01(XREF 2S), .01(XREF 2K), 1(XREF 2S), 1(XREF 2K)
U ID1+1, 2(XREF 1S), 2(XREF 1n1.1), 2(XREF 1n1.4), 2(XREF 1K), 2(XREF 1n2.1), 2(XREF 1n2.4), 2(XREF 1n59.2), 300(XREF 1S), 300(XREF 1n1.4)
300(XREF 1K), 300(XREF 1n2.1), 300(XREF 1n2.4)
X .01+1*!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2+1*!, 2(XREF 1S), 2(XREF 1n1.1), 2(XREF 1n1.4), 2(XREF 1K)
2(XREF 1n2.1), 2(XREF 1n2.4), 4+1!, 11+1!, 12+1!, 13+1!, 14+1!, 15+1*!, 56+1*!, 57+1*!
, 300+1*!, 300(XREF 1S), 300(XREF 1n1.4), 300(XREF 1K), 300(XREF 1n2.1), 300(XREF 1n2.4), 301+1*!, 302+1*!, 600+1!, 701+1*!
900(XREF 1S), 900(XREF 1K)
Y ID1+1*, .01+1, 2+1, 2(XREF 1S), 2(XREF 1K), 15+1, 56+1, 57+1, 300+1, 300(XREF 1S)
300(XREF 1K), 301+1, 302+1, 701+1
Y(1 2(XREF 1S), 2(XREF 1K), 2(XREF 1n59.2), 300(XREF 1S), 300(XREF 1K), 300(XREF 1n2.1)
Y(101 2(XREF 1n1.1), 2(XREF 1n2.1), 2(XREF 1n59.2)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All