Global: ^LRO(64.03

FileMan FileNo	FileMan Filename	Package
64.03	WKLD LOG FILE	Lab Service

Package	Total	Routines
Lab Service	8	DATE OF EXTRACT LR105PO RELATED NAME ^LRO(64.03 LR105 LRCAPDL LRCAPDSS LRCAPV3
DSS Extracts	1	ECXLABN

Package	Total	Routines
DSS Extracts	1	ECXLABN

Package	Total	FileMan Files
Lab Service	10	LABORATORY TEST(#60)[7] TOPOGRAPHY FIELD(#61)[16] URGENCY(#62.05)[8] LAB CONTROL NAME(#62.3)[2] WKLD CODE(#64)[10] ACCESSION(#68)[6] REFERRAL PATIENT(#67)[2] RESEARCH(#67.1)[2] STERILIZER(#67.2)[2] ENVIRONMENTAL(#67.3)[2]
Kernel	2	INSTITUTION(#4)[4] NEW PERSON(#200)[1, 22, #64.317(4)]
Registration	2	FACILITY TREATING SPECIALTY(#45.7)[9] PATIENT(#2)[2]
Scheduling	1	HOSPITAL LOCATION(#44)[14]

Fields, Total: 23

Field #	Name	Loc	Type	Details
.01	SEQ NUMBER	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `APR 07, 1993` HELP-PROMPT: `Type a Number between 0 and 999999999, 0 Decimal Digits` DESCRIPTION: `This field is simply to index the file. This is an arbitrary number.`
1	PROVIDER	0;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 28, 1992` DESCRIPTION: `This is a pointer to VA(200. It does not have a screen for the provider security key.`
2	PATIENT NAME	0;3	VARIABLE POINTER	PATIENT(#2) LAB CONTROL NAME(#62.3) REFERRAL PATIENT(#67) RESEARCH(#67.1) STERILIZER(#67.2) ENVIRONMENTAL(#67.3) LAST EDITED: `JAN 30, 1992` DESCRIPTION: `This field may also contain names of controls, referrals and other names not just patients.`
3	DATE COMPLETE	0;4	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 17, 1996` DESCRIPTION: `This is the date the test procedure was completed. Each verified lab test may have more than one WKLD Code associated with it.` CROSS-REFERENCE: `64.03^AC` `1)= S ^LRO(64.03,"AC",$E(X,1,30),DA)=""` `2)= K ^LRO(64.03,"AC",$E(X,1,30),DA)` `3)= Complete Date X-ref`
4	REPORTING SITE	0;5	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `JAN 29, 1992` DESCRIPTION: `This is the institution where the test was verified. It is the user's DUZ(2). Several institutions maybe recorded for a single lab test, but one per Cap procedure.`
5	LOCATION TYPE	0;6	SET	'C' FOR CLINIC; 'M' FOR MODULE; 'W' FOR WARD; 'Z' FOR OTHER LOCATION; 'N' FOR NON-CLINIC STOP; 'F' FOR FILE AREA; 'I' FOR IMAGING; 'OR' FOR OPERATING ROOM; LAST EDITED: `FEB 12, 1992` DESCRIPTION: `This is the classification of the ordering location.`
6	ACCESSION AREA	0;7	POINTER TO ACCESSION FILE (#68)	ACCESSION(#68) LAST EDITED: `JAN 29, 1992` DESCRIPTION: `This is the accession area where the test is to be performed.`
7	LAB TEST NAME	0;8	POINTER TO LABORATORY TEST FILE (#60)	LABORATORY TEST(#60) LAST EDITED: `JAN 29, 1992` DESCRIPTION: `This the name of the lab test ordered. It can be a single test or a panel. The Cap code is associated with this lab test.`
8	URGENCY OF TEST	0;9	POINTER TO URGENCY FILE (#62.05)	URGENCY(#62.05) LAST EDITED: `JAN 29, 1992` DESCRIPTION: `This is the requested urgency of the lab test. WKL represent a test cap code which was generated solely because of workload logic. This test was not actually ordered but artificially generated to support workload` `functions. WKL can not be requested by users.`
9	TREATING SPECIALTY	0;10	POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7)	FACILITY TREATING SPECIALTY(#45.7) LAST EDITED: `JAN 29, 1992` DESCRIPTION: `This is not the PTF treating specialty.`
10	WKLD CODE	0;11	POINTER TO WKLD CODE FILE (#64)	WKLD CODE(#64) LAST EDITED: `APR 14, 1993` DESCRIPTION: `If the WKLD code was generated by the workload software, the name will have a '~' (tildy) in the name and the internal file number will be greater than 9999.`
11	LRIDT	0;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<7) X` LAST EDITED: `JAN 29, 1992` HELP-PROMPT: `Answer must be 7-15 characters in length.` DESCRIPTION: `This is number is 9999999-(accession date/time) or inverse date time. This number is use as a node subscript in the ^LR file to store the results of lab test.` `ie. ^LR(LRDFN,"CH",LRIDT,DATA NAME)=TEST RESULT^FLAGS`
12	DATE COLLECTED	0;13	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 17, 1996` DESCRIPTION: `This field contains the date the specimen was collected.` CROSS-REFERENCE: `64.03^AD` `1)= S ^LRO(64.03,"AD",$E(X,1,30),DA)=""` `2)= K ^LRO(64.03,"AD",$E(X,1,30),DA)` `3)= Date Collected X-Ref`
13	DATE ORDERED	0;14	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 17, 1996` DESCRIPTION: `This the original date the lab test was ordered.` CROSS-REFERENCE: `64.03^AE` `1)= S ^LRO(64.03,"AE",$E(X,1,30),DA)=""` `2)= K ^LRO(64.03,"AE",$E(X,1,30),DA)` `3)= Date Ordered X-Ref`
14	HOSPITAL LOCATION	0;15	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `FEB 12, 1992` DESCRIPTION: `This is the location from which the lab test was ordered. This field can also be used to determine the PTF treating specialty.`
15	ACCESSION FILE INDEX	0;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `FEB 12, 1992` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This is a compound field used to navigate back into the accession file. Each subscript is separated by vertical bar '\|', the structure is as follows: Accession area Pointer\|Accession date\|Accession number\|Lab Test` `pointer ^LRO(68,11,1,2920212,1,3,1,175,0)=...... Looks like 11\|2920212\|3\|175` `You can then get back to the entry in the Accession file (#68).`
16	SPECIMEN	0;17	POINTER TO TOPOGRAPHY FIELD FILE (#61)	TOPOGRAPHY FIELD(#61) LAST EDITED: `JUL 17, 1993` DESCRIPTION: `The specimen which is associated with this workload procedure.`
17	DATE OF EXTRACT	1;0	DATE Multiple #64.317	64.317
18	LAB BILLABLE PROCEDURE	2;1	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `AUG 25, 2010` DESCRIPTION: `If a "Y" is entered it will indicate that the test is considered to be a billable LMIP procedure (lab billable means Lab staff workload).` TECHNICAL DESCR: `This field indicates if the test is considered to be a billable LMIP procedure or not (lab billable means Lab staff workload).` `This field is derived from the BILLABLE PROCEDURE (#4) field of the WKLD CODE (#64) file.`
19	DSS FEEDER KEY	2;2	SET	'1' FOR YES; LAST EDITED: `MAR 08, 2010` DESCRIPTION: `If a "Y" is entered it indicates the WKLD Code should be used for DSS Laboratory data collection.` TECHNICAL DESCR: `This field indicates whether the WKLD CODE should be used for DSS Laboratory data collection. Codes that are defined as 'Y' (YES) will be extracted and passed to the DSS Laboratory API.` `This field is based on the value of the DSS FEEDER KEY (#14) field of the WKLD CODE (#64) file.`
20	DATA NAME	2;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` LAST EDITED: `MAR 08, 2010` HELP-PROMPT: `Answer must be 3-40 characters in length.` DESCRIPTION: `This field is the lab Data Name.` TECHNICAL DESCR: `This field will allow lab management and DSS staff to know whether the entry is a panel test and if it has been designated as a separately billable test. If this field has a value then it is not a panel test and is` `individually billable. If this field does not have a value then it's a panel test and is billable as a unit.` `This field indicates the data name for the lab test expressed in the DATA NAME (#400) field of the LABORATORY TEST File (#60) and is only populated if a test is a non-panel test and is part of the CHEM, HEM, TOX, SER, RIA,` `etc. area.`
21	DATA LOCATION	2;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<4) X` LAST EDITED: `MAR 08, 2010` HELP-PROMPT: `Answer must be 4-12 characters in length.` DESCRIPTION: `The Data Location field is only populated if a test is a non-panel test and is part of the CHEM, HEM, TOX, SER, RIA, etc. area.` TECHNICAL DESCR: `This field is derived from the LOCATION (DATA NAME)(#5) field of the LABORATORY(#60) file.`
22	PATHOLOGIST	2;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 17, 2014` HELP-PROMPT: `Enter the pathologist that performed the work.` DESCRIPTION: `This field will hold the primary pathologist for lab tests in the "AU", "CY", "SP", and "EM" subscripts, if it exists. For the "CY" subscript, the person identified here could also be a cytotech but only in neg GYN cases.` TECHNICAL DESCR: `All pathology information comes from the LAB DATA file (#63).` `For cytopathology, the data comes from the PATHOLOGIST/CYTOTECHNOLOGIST field (#.02) of the CYTOPATHOLOGY multiple (#9).` `For Surgical Pathology, the data comes from the PATHOLOGIST field (#.02) of the SURGICAL PATHOLOGY multiple (#8).` `For Electron Microscopy, the data comes from the PATHOLOGIST field (#.02) of the EM multiple (#2).` `For Autopsy, the data comes from the SENIOR PATHOLOGIST field (#13.6).`

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	3+1, 12+1, 13+1*
>> DA	3(XREF 1S), 3(XREF 1K), 12(XREF 1S), 12(XREF 1K), 13(XREF 1S), 13(XREF 1K)
X	.01+1!, 3+1!, 3(XREF 1S), 3(XREF 1K), 11+1!, 12+1!, 12(XREF 1S), 12(XREF 1K), 13+1*!, 13(XREF 1S) , 13(XREF 1K), 15+1!, 20+1!, 21+1!
>> Y	3+1, 12+1, 13+1

Customize PDF page

Package: Lab Service

Global: ^LRO(64.03

Information

Description

Directly Accessed By Routines, Total: 9

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 15

Fields, Total: 23

ICR, Total: 1

External References

Global Variables Directly Accessed

Local Variables

Legend: