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

Package: Lab Service

Global: ^LAM


Information

FileMan FileNo FileMan Filename Package
64 WKLD CODE Lab Service

Description

Directly Accessed By Routines, Total: 147

Package Total Routines
Lab Service 106 CODE    ETIOLOGY WKLD CODE    LR WKLD CODE BY SECTION    LR163    LR263    LR278    LR302POA    LR334PO
LR334POA    LR451    LR511    LR515    LR7OU4    LR7OU5    LR7OU64    LR7OU641
LR7OV0    LRAPWR1    LRARCPTS    LRBLDPAW    LRBLPEW    LRBLWDS    LRCAPD    LRCAPD2
LRCAPDSS    LRCAPFF    LRCAPML1    LRCAPPH1    LRCAPPH3    LRCAPTS    LRCAPU    LRCAPV11
LRCAPV1A    LRCAPV2    LRCAPV3    LRCKF64    LRCKF68A    LRLAM    LRLNCDEL    LRLS
LRNIGHT2    LRORDB    LRSRVR1    LRSRVR2    LRSRVR3    LRSRVR7    LRSRVR9    LRVER1
LRVRPOCU    LRWLST12    ORDERED TEST    TIME ASPECT    ^LAM    ASSOCIATED NAME    EXECUTE WKLD CODE    LR127PO
LR258PO    LR274POA    LR302A    LR302PO    LR477    LR493    LR502    LR7OB3
LR7OB63    LR7OR2    LR7OU3    LRAPKOE    LRAPLG1    LRARCAM7    LRARCML1    LRARCU
LRBEBA4    LRCAPACC    LRCAPAM1    LRCAPAM2    LRCAPAM7    LRCAPBB    LRCAPBV1    LRCAPES1
LRCAPFDS    LRCAPPH    LREPI1    LREPI1A    LREPI2    LREPI2A    LREPILK    LRJSAU60
LRLNC0    LRLNC63    LRLNC63A    LRLNCMD    LRLNCNLT    LRLNCPRT    LRLNCST    LRLNCSUF
LRLNCV    LRMLED    LRNIGHT1    LRSRVR2A    LRSRVR9A    LRTOCOST    LRXREF    SPECIMEN
SYNONYM    WKLD CODE    
Automated Lab Instruments 10 LA7PCFG    LA7SRPT3    LA7UIO1    LA7VHLUB    LA7VLCM7    LA7VOBRA    LA7VOBXA    LA7VORM3
LA7VORR1    LA7VPFL    
DSS Extracts 6 ECXALAR2    ECXFEKEY    ECXLABN    ECXLABR    ECXLARPT    ECXUTL6    
National Laboratory Test 5 ASSOCIATED NAME    CODE    SPECIMEN    SYNONYM    TIME ASPECT    
VBECS 2 VBECRPCA    VBECRPCW    
Pharmacy Benefits Management 1 PSULR1    

Accessed By FileMan Db Calls, Total: 65

Package Total Routines
Lab Service 49 LR127PO    LR163    LR258PO    LR263    LR302PO    LR334    LR334PO    LR451
LR477    LR493    LR502    LR511    LR515    LR7OU4    LR7OU5    LRARC1A
LRARCR1A    LRCAP64S    LRCAPBV    LRCAPBV1    LRCAPD    LRCAPD2    LRCAPES1    LRCAPF
LRCAPFDS    LRCAPPH    LRCAPR1A    LRCAPV11    LRCAPV1A    LRCKF64    LRLNC0    LRLNC63
LRLNCDEL    LRLNCMD    LRLNCPMP    LRRP7    LRRP8A    LRRPU    LRSRVR1    LRSRVR2
LRSRVR2A    LRSRVR3    LRSRVR9    LRSRVR9A    LRTSTOUT    LRVER1    LRVER3    LRVR0
LRVRMI5    
Automated Lab Instruments 12 LA7QRY1    LA7SMP    LA7SMU2A    LA7SRR    LA7VHLU5    LA7VIN5    LA7VIN5B    LA7VMSG
LA7VOBRA    LA7VOBXA    LA7VORUA    LA7VSET    
DSS Extracts 3 ECXALAB    ECXLABN    ECXUTL6    
VBECS 1 VBECRPCA    

Pointed To By FileMan Files, Total: 16

Package Total FileMan Files
Lab Service 14 LABORATORY TEST(#60)[6464.1#60.06(.01)#60.12(.01)#60.13(.01)#60.14(.01)]    ETIOLOGY FIELD(#61.2)[#61.211(.01)]    FUNCTION FIELD(#61.3)[#61.34(.01)]    COLLECTION SAMPLE(#62)[#62.211(.01)]    ANTIMICROBIAL SUSCEPTIBILITY(#62.06)[64]    EXECUTE CODE(#62.07)[#62.09(.01)]    BLOOD PRODUCT(#66)[#66.06(.01)]    LAB DSS LAR EXTRACT(#64.036)[#64.368(3)]    LAB DATA(#63)[#63.00014(.06)]    BLOOD INVENTORY(#65)[#65.311(.01)]    BLOOD DONOR(#65.5)[#65.59911(.01)]    WKLD LOG FILE(#64.03)[10]    WKLD DATA(#64.1)[#64.111(.01)#64.13(.01)]    ACCESSION(#68)[#68.14(.01)]    
Mental Health 1 CLOZAPINE LAB TEST(#603.02)[.011]    
VBECS 1 VBECS WORKLOAD CAPTURE(#6002.01)[6]    

Pointer To FileMan Files, Total: 14

Package Total FileMan Files
Lab Service 12 LABORATORY TEST(#60)[25.5#64.02(3)#64.023(.01)]
TOPOGRAPHY FIELD(#61)[#64.01(.01)]    MORPHOLOGY FIELD(#61.1)[#64.018(.01)]    ETIOLOGY FIELD(#61.2)[#64.023(.01)]    ANTIMICROBIAL SUSCEPTIBILITY(#62.06)[#64.023(.01)]    LAB ELECTRONIC CODES(#64.061)[25.225.363#64.02(.01)#64.02(1)]    WKLD CODE LAB SECT(#64.21)[13]    WKLD ITEM FOR COUNT(#64.22)[6]    WKLD INSTRUMENT MANUFACTURER(#64.3)[12]    BLOOD PRODUCT(#66)[#64.023(.01)]    LAB LOINC(#95.3)[25#64.02(4)]    ACCESSION(#68)[21]    
CPT HCPCS Codes 1 CPT(#81)[#64.018(.01)]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[#64.018(.01)]    

Fields, Total: 31

Field # Name Loc Type Details
.01 PROCEDURE 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<2) X
  • OUTPUT TRANSFORM:  I $L($G(Y)) S:$P($G(^LAM(+$O(^LAM("B",Y,0)),0)),U,5) Y="+"_Y
  • LAST EDITED:  MAR 14, 2006
  • HELP-PROMPT:  Answer must be 2-60 characters in length.
  • DESCRIPTION:  The procedure or test name.
    The names contained in this file are derived from a national list of laboratory procedures. This file is updated as needed from VACO Pathology.
    THIS FILE SHOULD NOT BE EDITED BY FILEMAN AT THE LOCAL LEVEL.
    Utilities are provided for local sites to manipulate distributed file data to meet their needs. If a site determines a procedure which they perform is not in this file, they are to contact VACO pathology for procedures to
    obtain new entries.
    When attempting to look up data in this file, do not use commas, dash hyphens or slash.
    AS A GENERAL RULE THE SYNONYM FIELD HAS THE FIRST WORD AND THE SECOND WORD OF A PROCEDURE REVERSED TO PERMIT EASIER LOOK UP. YOU MAY LOOKUP DATA USING EITHER UP OR LOWER CASE NAMES.
  • TECHNICAL DESCR:  The entries from 0-99999 are nationally distributed procedures The entries above 99999 are additional procedures required by this site to report LMIP/Workload data. Data found between 0-99999 will be periodically
    purged/over written during file updating with addition procedure codes.
  • DELETE TEST:  1,0)= I 1
    UNEDITABLE
  • CROSS-REFERENCE:  64^B
    1)= S ^LAM("B",$E(X,1,60),DA)=""
    2)= K ^LAM("B",$E(X,1,60),DA)
  • CROSS-REFERENCE:  64^D^MUMPS
    1)= D UP^LRXREF S ^LAM("D",X,DA)=""
    2)= D UP^LRXREF K ^LAM("D",X,DA)
    The name is converted to upper case and stored in the "D" x-ref for easier lookup.  ^LAM("D",UPPERCASE NAME,IEN)
  • CROSS-REFERENCE:  64^VR^MUMPS
    1)= S ^LAM("VR")=$G(^LAM("VR"))
    2)= Q
    3)= Indicate which data version
    This X-Ref is to track installation of new released workload procedures.
.02 DESCRIPTION 2;0 WORD-PROCESSING #64.04

  • DESCRIPTION:  
    This field is used to further explain the procedure if required.
.04 PRINT NAME 3;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  MAR 14, 1994
  • HELP-PROMPT:  Answer must be 2-30 characters in length.
  • DESCRIPTION:  
    This field contains a condensed version of the name.
  • CROSS-REFERENCE:  64^F
    1)= S ^LAM("F",$E(X,1,30),DA)=""
    2)= K ^LAM("F",$E(X,1,30),DA)
1 WKLD CODE 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<10)!'(X?5N1"."4N.5N) X I '$D(DIU(0)),$D(X),'$D(^LAM("E",X,DA)),$D(^LAM("E",X)) D EN^DDIOL("Already Exist ","","!?20") K X
  • LAST EDITED:  MAR 03, 2017
  • HELP-PROMPT:  Answer must be 10-11 characters in length. ie XXXXX.YYYY
  • DESCRIPTION:  
    The code number of the AMIS report for the procedure.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  64^C
    1)= S ^LAM("C",$E(X,1,30)_" ",DA)=""
    2)= K ^LAM("C",$E(X,1,30)_" ",DA)
  • CROSS-REFERENCE:  64^E
    1)= S ^LAM("E",$E(X,1,30),DA)=""
    2)= K ^LAM("E",$E(X,1,30),DA)
2 WKLD UNIT WEIGHT 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>900)!(X<.1)!(X?.E1"."2N.N) X
  • LAST EDITED:  NOV 14, 1988
  • HELP-PROMPT:  Type a Number between .1 and 900, 1 Decimal Digit
  • DESCRIPTION:  
    The AMIS unit weight.
4 BILLABLE PROCEDURE 0;5 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 26, 1993
  • DESCRIPTION:  If this test is considered to be a billable LMIP procedure enter yes to this prompt.
    These procedure will be cumulated and sent to the national data base for LMIP reporting. On certain reports a '+' will appear in front of the name of the procedure to indicate it is defined as billable.
  • TECHNICAL DESCR:  Use this field to determine if this procedure should be included in the total number of billable test(s) performed on patients. Not all procedures are done on patient's specimen(s) or results in a billable clinical
    value.
5 Reserve 1 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  DEC 28, 2000
  • HELP-PROMPT:  Answer must be 1-5 characters in length
  • DESCRIPTION:  
    This field is not presently used at this time. The field is not obsolete but will be converted to other functions in a later version.
6 UNIT FOR COUNT 0;7 POINTER TO WKLD ITEM FOR COUNT FILE (#64.22)
************************REQUIRED FIELD************************
WKLD ITEM FOR COUNT(#64.22)

  • LAST EDITED:  APR 16, 1990
  • DESCRIPTION:  
    E.g., case, std, qc, test, spec, etc.
7 COST 0;10 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>10000)!(X<0) X
  • LAST EDITED:  OCT 29, 1991
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 10000, 2 Decimal Digits
  • DESCRIPTION:  
    The cost of the procedure being done.
8 PRICE 0;11 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>10000)!(X<.01) X
  • LAST EDITED:  MAY 06, 1997
  • HELP-PROMPT:  Type a Dollar Amount between .01 and 10000, 2 Decimal Digits
  • DESCRIPTION:  This field contains the price charged to another facility. This field differs from the COST field (#7) in that this figure includes profit margin.
    If PRICE is required for custom reports and this field is blank, the COST field amount will be used. If the COST field is blank the value of 1 will be used as the default amount.
9 SORTING GROUP 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  APR 26, 1993
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    If the site would like to attach some arbitrary value to this code, it may be done in this field. The system makes no use of this field, it is designed solely for the site's use.
11 Reserve 3 0;13 SET
  • '1' FOR YES;

  • LAST EDITED:  MAR 25, 1993
  • DESCRIPTION:  
    This field is not presently used by the system. It will be converted to other uses in later software versions.
12 MANUFACTURER 0;14 POINTER TO WKLD INSTRUMENT MANUFACTURER FILE (#64.3) WKLD INSTRUMENT MANUFACTURER(#64.3)

  • LAST EDITED:  DEC 20, 1989
  • DESCRIPTION:  
    This field is used to identify the vender/manufacturer of this particular procedure or instrument.
13 WKLD CODE LAB SECTION 0;15 POINTER TO WKLD CODE LAB SECT FILE (#64.21)
************************REQUIRED FIELD************************
WKLD CODE LAB SECT(#64.21)

  • LAST EDITED:  APR 01, 1995
  • DESCRIPTION:  
    This field is a nationally defined category. This field will provide a method of group data on the national level.
14 DSS Feeder Key 0;16 SET
  • '1' FOR YES;

  • LAST EDITED:  OCT 16, 1996
  • DESCRIPTION:  This field is used to indicate that this code Wkld Code should be used for DSS Laboratory data collection. Codes that are defined as YES will be extracted and passed to the DSS Laboratory API. Guidelines for the use of
    this field will be jointly issued by the Pathology & Laboratory Medicine Service Headquarters and the DSS Program Office.
    General guidelines for the defining Wkld Codes as DSS Feeder Key should pass the following tests: 1) Patient's test results are entered via the Laboratory Package.  2) The person's salary that actually performs the test
    analysis and supply costs does not come from a Laboratory fund control point.  3) The test/Wkld Code is not required to be reported for CAP LMIP purposes.  4) The Wkld Code is not marked as billable.
  • NOTES:  TRIGGERED by the ES DISPLAY ORDER field of the WKLD CODE File
  • CROSS-REFERENCE:  64^AF^MUMPS
    1)= S ^LAM("AF",$P(^LAM(DA,0),U,2),DA)=""
    2)= K ^LAM("AF",$P(^LAM(DA,0),U,2),DA)
    If the DSS Feeder key field is set Yes, then creat a cross reference containing the WKLD CODE number, field #1
    ^LAM("AF",WKLD CODE,IEN)
  • CROSS-REFERENCE:  64^AG^MUMPS
    1)= S ^LAM("AG",DA,$P(^LAM(DA,0),U,2))=""
    2)= K ^LAM("AG",DA,$P(^LAM(DA,0),U,2))
    If the DSS Feeder key field is set to yes, creat a cross reference contain the WKLD CODE number, field #1.
    ^LAM("AG",IEN,WKLD CODE)
15 ACTIVATE WKLD CODE 0;17 SET
  • '1' FOR YES;

  • LAST EDITED:  APR 26, 1993
  • DESCRIPTION:  
    If the workload code has ever been reported by this institution, this field will be set to yes by the system.
  • CROSS-REFERENCE:  64^AC
    1)= S ^LAM("AC",$E(X,1,30),DA)=""
    2)= K ^LAM("AC",$E(X,1,30),DA)
    3)= Use to determine
16 BATCH ANALYZER 0;18 SET
  • '1' FOR YES;

  • LAST EDITED:  AUG 22, 1991
  • DESCRIPTION:  
    If this procedure code is for a batch analyzer, this field should be set to yes.
18 CODE 4;0 VARIABLE POINTER Multiple #64.018 64.018

  • LAST EDITED:  FEB 25, 1993
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
19 SYNONYM 1;0 Multiple #64.019 64.019

  • LAST EDITED:  APR 25, 1993
  • DESCRIPTION:  
    This is a synonym field.
20 SPECIMEN 5;0 POINTER Multiple #64.01 64.01

  • DESCRIPTION:  
    Specimen associated with the test
21 LOCAL ACC AREA 6;1 POINTER TO ACCESSION FILE (#68) ACCESSION(#68)

  • LAST EDITED:  MAR 27, 1995
  • DESCRIPTION:  This field is used to link workload codes to accession area on the local system. Select the accession area this workload code should be associate with. Later enhancements will allow certain LMIP reports to sorted based on
    this field.
    When new reports become available, this field will be used instead of the WKLD CODE LAB SECT (pointer to file #64.21) which is assigned nationally. If this field is blank, file #64.21 lab section will be used. The
    reports will indicate those entries not pointed to any local accession area.
  • CROSS-REFERENCE:  ^^TRIGGER^64^22
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAM(D0,6)):^(6),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(64,21,1,1,1.1) X ^DD(64,21,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LRO(68,+D0,0)) D0=-1 S Y(101)=$S($D(^LRO(68,D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^LAM(DIV(0),6)):^(6),1:""),DIV=X S $P(^(6),U,2)=DIV,DIH=64,DIG=22 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(^LAM(D0,6)):^(6),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" S DIH=$S($D(^LAM(DIV(0),6)):^(6),1:""),DIV=X S $P(^(6),U,2)=DIV,DIH=64,DIG=22 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= LOCAL ACC AREA:AREA
    DELETE VALUE)= @
    FIELD)= ACC AREA NAME
    This field contains the free text name of the LOCAL ACC AREA field #21.  This field is not editable by the user.
22 ACC AREA NAME 6;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<2) X
  • LAST EDITED:  MAR 27, 1995
  • HELP-PROMPT:  Answer must be 2-20 characters in length.
  • DESCRIPTION:  
    This field contains the free text name of the LOCAL ACC AREA pointer. It is triggered by field #21 and not editable by user.
    WRITE AUTHORITY:  ^
    UNEDITABLE
  • NOTES:  TRIGGERED by the LOCAL ACC AREA field of the WKLD CODE File
23 ASSOCIATED NAME 7;0 VARIABLE POINTER Multiple #64.023 64.023

  • DESCRIPTION:  
    Associated or linked names from local laboratory tables (files).
24 WKLD CODE NOTES 8;0 WORD-PROCESSING #64.024

  • DESCRIPTION:  
    This field is used for storing general notes regarding inactive or erroneous code(s).
25 DEFAULT LOINC CODE 9;1 POINTER TO LAB LOINC FILE (#95.3) LAB LOINC(#95.3)

  • OUTPUT TRANSFORM:  I $G(Y) S Y=$S($L($P($G(^LAB(95.3,Y,0)),U,15)):Y_"-"_$P(^LAB(95.3,Y,0),U,15),1:Y)
  • LAST EDITED:  JUN 07, 2005
  • DESCRIPTION:  
    This field is used to identify the default LOINC code. This field is usually used when the specimen is not clinically significant (i.e. body fluids).
  • CROSS-REFERENCE:  64^AH
    1)= S ^LAM("AH",$E(X,1,30),DA)=""
    2)= K ^LAM("AH",$E(X,1,30),DA)
    This X-ref is used to identify all WKLD CODE that have a DEFAULT LOINC CODE assigned.
  • CROSS-REFERENCE:  ^^TRIGGER^64^25.2
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '$D(DIU(0)) I X S X=DIV S Y(1)=$S($D(^LAM(D0,9)):^(9),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" S DIH=$G(^LAM(DIV(0),9)),DIV=X S $P(^(9),U,2)=DIV,DIH=64,DIG=25.2 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '$D(DIU(0)) I X S X=DIV S Y(1)=$S($D(^LAM(D0,9)):^(9),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" S DIH=$G(^LAM(DIV(0),9)),DIV=X S $P(^(9),U,2)=DIV,DIH=64,DIG=25.2 D ^DICR
    3)= Remove TIME ASPECT if LOINC DEFAULT CODE is changed.
    CREATE CONDITION)= I '$D(DIU(0))
    CREATE VALUE)= @
    DELETE CONDITION)= I '$D(DIU(0))
    DELETE VALUE)= @
    FIELD)= TIME ASPECT
    Remove old TIME ASPECT date when LOINC DEFAULT CODE is changed or deleted.
  • CROSS-REFERENCE:  ^^TRIGGER^64^25.3
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '$D(DIU(0)) I X S X=DIV S Y(1)=$S($D(^LAM(D0,9)):^(9),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^LAM(DIV(0),9)),DIV=X S $P(^(9),U,3)=DIV,DIH=64,DIG=25.3 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '$D(DIU(0)) I X S X=DIV S Y(1)=$S($D(^LAM(D0,9)):^(9),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^LAM(DIV(0),9)),DIV=X S $P(^(9),U,3)=DIV,DIH=64,DIG=25.3 D ^DICR
    3)= Remove UNITS when LOINC DEFAULT CODE is changed.
    CREATE CONDITION)= I '$D(DIU(0))
    CREATE VALUE)= @
    DELETE CONDITION)= I '$D(DIU(0))
    DELETE VALUE)= @
    FIELD)= UNITS
    Remove old UNITS data when LOINC DEFAULT CODE is changed or deleted.
  • CROSS-REFERENCE:  ^^TRIGGER^64^25.4
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '$D(DIU(0)) I X S X=DIV S Y(1)=$S($D(^LAM(D0,9)):^(9),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" S DIH=$G(^LAM(DIV(0),9)),DIV=X S $P(^(9),U,4)=DIV,DIH=64,DIG=25.4 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '$D(DIU(0)) I X S X=DIV S Y(1)=$S($D(^LAM(D0,9)):^(9),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" S DIH=$G(^LAM(DIV(0),9)),DIV=X S $P(^(9),U,4)=DIV,DIH=64,DIG=25.4 D ^DICR
    3)= Remove DATA LOCATION when LOINC DEFAULT CODE is changed.
    CREATE CONDITION)= I '$D(DIU(0))
    CREATE VALUE)= @
    DELETE CONDITION)= I '$D(DIU(0))
    DELETE VALUE)= @
    FIELD)= DATA LOCATION
    Remove old DATA LOCATION date when LOINC DEFAULT CODE is changed or deleted.
  • CROSS-REFERENCE:  ^^TRIGGER^64^25.5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '$D(DIU(0)) I X S X=DIV S Y(1)=$S($D(^LAM(D0,9)):^(9),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" S DIH=$G(^LAM(DIV(0),9)),DIV=X S $P(^(9),U,5)=DIV,DIH=64,DIG=25.5 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '$D(DIU(0)) I X S X=DIV S Y(1)=$S($D(^LAM(D0,9)):^(9),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" S DIH=$G(^LAM(DIV(0),9)),DIV=X S $P(^(9),U,5)=DIV,DIH=64,DIG=25.5 D ^DICR
    3)= Remove TEST when DEFAULT LOINC CODE is changed.
    CREATE CONDITION)= I '$D(DIU(0))
    CREATE VALUE)= @
    DELETE CONDITION)= I '$D(DIU(0))
    DELETE VALUE)= @
    FIELD)= TEST
    Remove old TEST when DEFAULT LOINC CODE is changed.
25.2 TIME ASPECT 9;2 POINTER TO LAB ELECTRONIC CODES FILE (#64.061) LAB ELECTRONIC CODES(#64.061)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,7)=""S""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 07, 2001
  • DESCRIPTION:  
    This field contains the timing of the measurement or observation for this test for this WKLD CODE LOINC default code.
  • SCREEN:  S DIC("S")="I $P(^(0),U,7)=""S"""
  • EXPLANATION:  Select only specimen codes
  • NOTES:  TRIGGERED by the DEFAULT LOINC CODE field of the WKLD CODE File
25.3 UNITS 9;3 POINTER TO LAB ELECTRONIC CODES FILE (#64.061) LAB ELECTRONIC CODES(#64.061)

  • LAST EDITED:  AUG 07, 2001
  • NOTES:  TRIGGERED by the DEFAULT LOINC CODE field of the WKLD CODE File
25.4 DATA LOCATION 9;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  AUG 07, 2001
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    This field contains the data storage location of the result. It comes from the FIELD field (#13) in file 60 and it is the data dictionary field in file 63, subfile 63.04 ['CH' subcript tests].
  • NOTES:  TRIGGERED by the DEFAULT LOINC CODE field of the WKLD CODE File
25.5 TEST 9;5 POINTER TO LABORATORY TEST FILE (#60) LABORATORY TEST(#60)

  • LAST EDITED:  AUG 07, 2001
  • DESCRIPTION:  
    This field contains the backward pointer to the Laboratory Test file (#60).
  • NOTES:  TRIGGERED by the DEFAULT LOINC CODE field of the WKLD CODE File
  • CROSS-REFERENCE:  64^AM
    1)= S ^LAM("AM",$E(X,1,30),DA)=""
    2)= K ^LAM("AM",$E(X,1,30),DA)
    3)= Contain the link to Laboratory Test file
    This cross reference is used to identify the laboratory test that set the default LOINC code.
26 ES DISPLAY ORDER 10;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>500)!(X<1)!(X?.E1"."1N.N) X I $D(X),'$D(DIU(0)),$D(^LAM("AK",X)) D EN^DDIOL("Already Exist on "_$P($G(^LAM($O(^LAM("AK",X,0)),0)),U),"","!?20") K X
  • LAST EDITED:  AUG 26, 2002
  • HELP-PROMPT:  Type a Number between 1 and 500, 0 Decimal Digits
  • DESCRIPTION:  
    This field is used to by the LAB CPT BILLING option to display those CPT codes defined by this NLT codes and will be referenced by this number.  The number entered must be unique between 1-500.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  64^AK
    1)= S ^LAM("AK",$E(X,1,30),DA)=""
    2)= K ^LAM("AK",$E(X,1,30),DA)
    3)= Display Order Field
    This cross ref is used to determine the display order of NLT code that are associated with ES CPT encoding.
  • CROSS-REFERENCE:  ^^TRIGGER^64^14
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAM(D0,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X=DIV S X=1 S DIH=$G(^LAM(DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=64,DIG=14 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAM(D0,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="" S DIH=$G(^LAM(DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=64,DIG=14 D ^DICR
    3)= Indicate Professional CPT code
    CREATE VALUE)= S X=1
    DELETE VALUE)= @
    FIELD)= DSS Feeder Key
    In order to ensure that DSS workload extract will capture professional related NLT/CPT codes. This trigger will automatically set the DSS Feeder Key to yes.
    Note: Only techinical workload should be reported as LMIP workload. Professional NLT codes should NOT be marked as billable.
63 MI/AP DATABASE CODE 63;1 POINTER TO LAB ELECTRONIC CODES FILE (#64.061) LAB ELECTRONIC CODES(#64.061)

  • INPUT TRANSFORM:  N DIC,Y,LRX S LRX=X S:'$G(LRFPRIV) DIC("S")="I $P(^(0),U)[""Rpt Date""" S DIC=64.061,DIC(0)="NM" D ^DIC K:Y'>0 X I $D(X) S X=+Y
  • LAST EDITED:  FEB 27, 2007
  • HELP-PROMPT:  Select 'Rpt Date' for subscript of ordered test
  • DESCRIPTION:  
    Used for Microbiology ("MI" subscript) and Anatomic Pathology ("SP", "EM", "CY" subscripts) to link the reportable components of a report with its corresponding orderable test.
  • TECHNICAL DESCR:  Used by LDSI II message building software to determine which reports should be contained out-going HL7 messages.
    Example 1:
    Select LABORATORY TEST NAME:    CULTURE & SUSCEPTIBILITY NATIONAL VA LAB CODE: Culture & Sensitivity// MI/AP DATABASE CODE: MI Bacteria Rpt Date//
    Orderable test in LABORATORY TEST (#60) is "Culture and Sensitivity."
    The "NATIONAL VA LAB CODE" (#64) field is linked to "Culture & Sensitivity".
    Now the "Culture & Sensitivity" code in WKLD CODE (#64) field "MI/AP DATABASE CODE"  (#63) field would point to "MI Bacteriology Rpt Date"
    Example 2:
    Select LABORATORY TEST NAME:    VIRAL CULTURE NATIONAL VA LAB CODE: Culture Viral// MI/AP DATABASE CODE: MI Virology Rpt Date//
    Orderable test in LABORORATORY TEST (#60) is "VIRAL CULTURE."
    The "NATIONAL VA LAB CODE" (#64) field is linked to "Culture Viral."
    Now the "Culture Viral" code in WKLD CODE (#64) file field "MI/AP DATABASE" field (#63) is linked to "MI Virology Rpt Date"
    Example 3:
    Select LABORATORY TEST NAME: TISSUE EXAM NATIONAL VA LAB CODE: Surgical Pathology Tissue Exam//
    MI/AP DATABASE CODE: SP Complete Rpt Date//
    Orderable test in LABORORATORY TEST (#60) is "TISSUE EXAM."
    The "NATIONAL VA LAB CODE" (#64) field is linked to "Surgical Pathology Tissue Exam."
    Now the "Culture Viral" code in WKLD CODE (#64) file field "MI/AP DATABASE" field (#63) is linked to "SP Complete Rpt Date"
  • SCREEN:  S DIC("S")="I $P(^(0),U)[""Rpt Date""" S DIC=64.061,DIC(0)="NM"
  • EXPLANATION:  Select only report complete date entries
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #5701
  • JAL FEDERAL HEALTH CARE CENTER
  • PROCEDURE (.01).
    Access: Read w/Fileman

    WKLD CODE (1).
    Access: Read w/Fileman

    DEFAULT LOINC CODE (25).
    Access: Read w/Fileman

    SPECIMEN (20).
    Access: Read w/Fileman

    SPECIMEN (.01).
    Access: Read w/Fileman

    TIME ASPECT (30).
    Access: Read w/Fileman

    LOINC CODE (4).
    Access: Read w/Fileman

    External References

    Name Field # of Occurrence
    EN^DDIOL 1+1, 26+1, 1+1, 26+1
    ^DIC 25.2+1, 63+1, 25.2+1, 63+1
    ^DICR 21(XREF 1n1.4), 21(XREF 1K), 25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K), 25(XREF 5S), 25(XREF 5K)
    26(XREF 2S), 26(XREF 2K), 21(XREF 1n1.4), 21(XREF 1K), 25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K)
    25(XREF 5S), 25(XREF 5K), 26(XREF 2S), 26(XREF 2K)
    UP^LRXREF .01(XREF 2S), .01(XREF 2K), .01(XREF 2S), .01(XREF 2K)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( 21(XREF 1n1.4), 21(XREF 1K), 21(XREF 1n1.4), 21(XREF 1K)
    ^DD(64 21(XREF 1S), 21(XREF 1S)
    ^LAB(95.3 - [#95.3] 25OT+1, 25OT+1
    ^LAM - [#64] .01OT+1, 14(XREF 1S), 14(XREF 1K), 14(XREF 2S), 14(XREF 2K), 21(XREF 1S), 21(XREF 1n1.4), 21(XREF 1K), 25(XREF 2S), 25(XREF 2K)
    25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K), 25(XREF 5S), 25(XREF 5K), 26+1, 26(XREF 2S), 26(XREF 2K), .01OT+1
    14(XREF 1S), 14(XREF 1K), 14(XREF 2S), 14(XREF 2K), 21(XREF 1S), 21(XREF 1n1.4), 21(XREF 1K), 25(XREF 2S), 25(XREF 2K), 25(XREF 3S)
    25(XREF 3K), 25(XREF 4S), 25(XREF 4K), 25(XREF 5S), 25(XREF 5K), 26+1, 26(XREF 2S), 26(XREF 2K)
    ^LAM("AC" 15(XREF 1S), 15(XREF 1K), 15(XREF 1S), 15(XREF 1K)
    ^LAM("AF" 14(XREF 1S), 14(XREF 1K), 14(XREF 1S), 14(XREF 1K)
    ^LAM("AG" 14(XREF 2S), 14(XREF 2K), 14(XREF 2S), 14(XREF 2K)
    ^LAM("AH" 25(XREF 1S), 25(XREF 1K), 25(XREF 1S), 25(XREF 1K)
    ^LAM("AK" 26+1, 26(XREF 1S), 26(XREF 1K), 26+1, 26(XREF 1S), 26(XREF 1K)
    ^LAM("AM" 25.5(XREF 1S), 25.5(XREF 1K), 25.5(XREF 1S), 25.5(XREF 1K)
    ^LAM("B" .01OT+1, .01(XREF 1S), .01(XREF 1K), .01OT+1, .01(XREF 1S), .01(XREF 1K)
    ^LAM("C" 1(XREF 1S), 1(XREF 1K), 1(XREF 1S), 1(XREF 1K)
    ^LAM("D" .01(XREF 2S), .01(XREF 2K), .01(XREF 2S), .01(XREF 2K)
    ^LAM("E" 1+1, 1(XREF 2S), 1(XREF 2K), 1+1, 1(XREF 2S), 1(XREF 2K)
    ^LAM("F" .04(XREF 1S), .04(XREF 1K), .04(XREF 1S), .04(XREF 1K)
    ^LAM("VR" .01(XREF 3S), .01(XREF 3S)
    ^LRO(68 - [#68] 21(XREF 1n1.1), 21(XREF 1n1.1)

    Naked Globals

    Name Field # of Occurrence
    ^("0" ID1+1, ID1+1
    ^(0 21(XREF 1n1.1), 26(XREF 2S), 26(XREF 2K), 21(XREF 1n1.1), 26(XREF 2S), 26(XREF 2K)
    ^(6 21(XREF 1S), 21(XREF 1n1.4), 21(XREF 1K), 21(XREF 1S), 21(XREF 1n1.4), 21(XREF 1K)
    ^(9 25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K), 25(XREF 5S), 25(XREF 5K), 25(XREF 2S), 25(XREF 2K)
    25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K), 25(XREF 5S), 25(XREF 5K)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> D0 21(XREF 1S), 21(XREF 1n1.1), 21(XREF 1K), 25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K), 25(XREF 5S)
    25(XREF 5K), 26(XREF 2S), 26(XREF 2K), 21(XREF 1S), 21(XREF 1n1.1), 21(XREF 1K), 25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K)
    25(XREF 4S), 25(XREF 4K), 25(XREF 5S), 25(XREF 5K), 26(XREF 2S), 26(XREF 2K)
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .04(XREF 1S), .04(XREF 1K), 1+1, 1(XREF 1S), 1(XREF 1K), 1(XREF 2S)
    1(XREF 2K), 14(XREF 1S), 14(XREF 1K), 14(XREF 2S), 14(XREF 2K), 15(XREF 1S), 15(XREF 1K), 21(XREF 1S), 21(XREF 1K), 25(XREF 1S)
    25(XREF 1K), 25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K), 25(XREF 5S), 25(XREF 5K), 25.5(XREF 1S)
    25.5(XREF 1K), 26(XREF 1S), 26(XREF 1K), 26(XREF 2S), 26(XREF 2K), .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .04(XREF 1S)
    .04(XREF 1K), 1+1, 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 14(XREF 1S), 14(XREF 1K), 14(XREF 2S), 14(XREF 2K)
    15(XREF 1S), 15(XREF 1K), 21(XREF 1S), 21(XREF 1K), 25(XREF 1S), 25(XREF 1K), 25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K)
    25(XREF 4S), 25(XREF 4K), 25(XREF 5S), 25(XREF 5K), 25.5(XREF 1S), 25.5(XREF 1K), 26(XREF 1S), 26(XREF 1K), 26(XREF 2S), 26(XREF 2K)
    DIC 25.2+1!*, 63+1~*, 63SCR+1*, 25.2+1!*, 63+1~*, 63SCR+1*
    DIC("S" 25.2+1*, 25.2SCR+1*, 63+1*, 63SCR+1*, 25.2+1*, 25.2SCR+1*, 63+1*, 63SCR+1*
    DIC(0 63+1*, 63SCR+1*, 63+1*, 63SCR+1*
    >> DIE 25.2+1, 25.2+1
    >> DIG 21(XREF 1n1.4), 21(XREF 1K), 25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K), 25(XREF 5S), 25(XREF 5K)
    26(XREF 2S), 26(XREF 2K), 21(XREF 1n1.4), 21(XREF 1K), 25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K)
    25(XREF 5S), 25(XREF 5K), 26(XREF 2S), 26(XREF 2K)
    >> DIH 21(XREF 1n1.4), 21(XREF 1K), 25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K), 25(XREF 5S), 25(XREF 5K)
    26(XREF 2S), 26(XREF 2K), 21(XREF 1n1.4), 21(XREF 1K), 25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K)
    25(XREF 5S), 25(XREF 5K), 26(XREF 2S), 26(XREF 2K)
    >> DIU 21(XREF 1S), 21(XREF 1K), 25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K), 25(XREF 5S), 25(XREF 5K)
    26(XREF 2S), 26(XREF 2K), 21(XREF 1S), 21(XREF 1K), 25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K)
    25(XREF 5S), 25(XREF 5K), 26(XREF 2S), 26(XREF 2K)
    >> DIU(0 1+1, 25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K), 25(XREF 5S), 25(XREF 5K), 26+1
    , 1+1, 25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K), 25(XREF 5S), 25(XREF 5K), 26+1
    DIV 21(XREF 1S), 21(XREF 1n1.1), 21(XREF 1n1.4), 21(XREF 1K), 25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K)
    25(XREF 5S), 25(XREF 5K), 26(XREF 2S), 26(XREF 2K), 21(XREF 1S), 21(XREF 1n1.1), 21(XREF 1n1.4), 21(XREF 1K), 25(XREF 2S), 25(XREF 2K)
    25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K), 25(XREF 5S), 25(XREF 5K), 26(XREF 2S), 26(XREF 2K)
    DIV(0 21(XREF 1S), 21(XREF 1n1.4), 21(XREF 1K), 25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K), 25(XREF 5S)
    25(XREF 5K), 26(XREF 2S), 26(XREF 2K), 21(XREF 1S), 21(XREF 1n1.4), 21(XREF 1K), 25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K)
    25(XREF 4S), 25(XREF 4K), 25(XREF 5S), 25(XREF 5K), 26(XREF 2S), 26(XREF 2K)
    >> I(0 21(XREF 1n1.1), 21(XREF 1n1.1)
    >> LRFPRIV 63+1, 63+1
    LRX 63+1~*, 63+1~*
    U ID1+1, .01OT+1, 14(XREF 1S), 14(XREF 1K), 14(XREF 2S), 14(XREF 2K), 21(XREF 1S), 21(XREF 1n1.1), 21(XREF 1n1.4), 21(XREF 1K)
    , 25OT+1, 25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K), 25(XREF 5S), 25(XREF 5K), 26+1
    26(XREF 2S), 26(XREF 2K), ID1+1, .01OT+1, 14(XREF 1S), 14(XREF 1K), 14(XREF 2S), 14(XREF 2K), 21(XREF 1S), 21(XREF 1n1.1)
    21(XREF 1n1.4), 21(XREF 1K), 25OT+1, 25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K), 25(XREF 5S)
    25(XREF 5K), 26+1, 26(XREF 2S), 26(XREF 2K)
    X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .04+1!, .04(XREF 1S), .04(XREF 1K), 1+1!, 1(XREF 1S)
    1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 2+1!, 5+1!, 7+1*!, 8+1*!, 9+1!, 15(XREF 1S), 15(XREF 1K)
    21(XREF 1S), 21(XREF 1n1.1), 21(XREF 1n1.4), 21(XREF 1K), 22+1!, 25(XREF 1S), 25(XREF 1K), 25(XREF 2S), 25(XREF 2K), 25(XREF 3S)
    25(XREF 3K), 25(XREF 4S), 25(XREF 4K), 25(XREF 5S), 25(XREF 5K), 25.2+1*!, 25.4+1!, 25.5(XREF 1S), 25.5(XREF 1K), 26+1!
    26(XREF 1S), 26(XREF 1K), 26(XREF 2S), 26(XREF 2K), 63+1!*, .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K)
    , .04+1!, .04(XREF 1S), .04(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 2+1!, 5+1!
    , 7+1*!, 8+1*!, 9+1!, 15(XREF 1S), 15(XREF 1K), 21(XREF 1S), 21(XREF 1n1.1), 21(XREF 1n1.4), 21(XREF 1K), 22+1!
    25(XREF 1S), 25(XREF 1K), 25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K), 25(XREF 5S), 25(XREF 5K)
    , 25.2+1*!, 25.4+1!, 25.5(XREF 1S), 25.5(XREF 1K), 26+1!, 26(XREF 1S), 26(XREF 1K), 26(XREF 2S), 26(XREF 2K), 63+1!*
    Y .01OT+1*, 21(XREF 1S), 21(XREF 1K), 25OT+1*, 25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K)
    25(XREF 5S), 25(XREF 5K), 25.2+1, 26(XREF 2S), 26(XREF 2K), 63+1~, .01OT+1*, 21(XREF 1S), 21(XREF 1K), 25OT+1*
    25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K), 25(XREF 5S), 25(XREF 5K), 25.2+1, 26(XREF 2S)
    26(XREF 2K), 63+1~
    Y(0 .01OT+1*, 25OT+1*, 25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K), 25(XREF 5S), 25(XREF 5K)
    , .01OT+1*, 25OT+1*, 25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K), 25(XREF 5S), 25(XREF 5K)
    Y(1 21(XREF 1S), 21(XREF 1K), 25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K), 25(XREF 5S), 25(XREF 5K)
    26(XREF 2S), 26(XREF 2K), 21(XREF 1S), 21(XREF 1K), 25(XREF 2S), 25(XREF 2K), 25(XREF 3S), 25(XREF 3K), 25(XREF 4S), 25(XREF 4K)
    25(XREF 5S), 25(XREF 5K), 26(XREF 2S), 26(XREF 2K)
    Y(101 21(XREF 1n1.1), 21(XREF 1n1.1)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All