Global: ^LAM

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.

purged/over written during file updating with addition procedure codes.

UNEDITABLE

1)= S ^LAM("B",$E(X,1,60),DA)=""

2)= K ^LAM("B",$E(X,1,60),DA)

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)

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.

This field is used to further explain the procedure if required.

This field contains a condensed version of the name.

1)= S ^LAM("F",$E(X,1,30),DA)=""

2)= K ^LAM("F",$E(X,1,30),DA)

The code number of the AMIS report for the procedure.

UNEDITABLE

1)= S ^LAM("C",$E(X,1,30)_" ",DA)=""

2)= K ^LAM("C",$E(X,1,30)_" ",DA)

1)= S ^LAM("E",$E(X,1,30),DA)=""

2)= K ^LAM("E",$E(X,1,30),DA)

The AMIS unit weight.

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.

value.

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.

E.g., case, std, qc, test, spec, etc.

The cost of the procedure being done.

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.

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.

This field is not presently used by the system. It will be converted to other uses in later software versions.

This field is used to identify the vender/manufacturer of this particular procedure or instrument.

This field is a nationally defined category. This field will provide a method of group data on the national level.

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.

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)

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)

If the workload code has ever been reported by this institution, this field will be set to yes by the system.

1)= S ^LAM("AC",$E(X,1,30),DA)=""

2)= K ^LAM("AC",$E(X,1,30),DA)

3)= Use to determine

If this procedure code is for a batch analyzer, this field should be set to yes.

This is a synonym field.

Specimen associated with the test

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.

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.

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

Associated or linked names from local laboratory tables (files).

This field is used for storing general notes regarding inactive or erroneous code(s).

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

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.

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.

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.

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.

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.

This field contains the timing of the measurement or observation for this test for this WKLD CODE LOINC default code.

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

This field contains the backward pointer to the Laboratory Test file (#60).

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.

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

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.

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.