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 | Pointer To FileMan Files | Fields | Found Entries | External References | Global Variables Directly Accessed | Local Variables | All

Print Page as PDF

Global: ^LAB(66.4

Package: Lab Service

Global: ^LAB(66.4

Information

FileMan FileNo	FileMan Filename	Package
66.4	LAB MLTF MANAGED ITEMS	Lab Service

Description

This file is maintaining items needed for lab test interaction with NTRT for Master Lab Test File (MLTF) items.

Directly Accessed By Routines, Total: 12

Package	Total	Routines
Lab Service	12	LR500PO LR664L LRMLED LRMLEDA LRMLPRG LRMLRCP LRMLREI LRMLRIV LRMLWT LRSRVR9 ^LAB(66.4 RELATED NAME

Accessed By FileMan Db Calls, Total: 10

Package	Total	Routines
Lab Service	10	LR500PO LR664L LRMLED LRMLEDA LRMLPRG LRMLRCP LRMLREI LRMLRIV LRMLWT LRSRVR9

Pointer To FileMan Files, Total: 1

Package	Total	FileMan Files
Kernel	1	INSTITUTION(#4)[.01]

Fields, Total: 17

Field #	Name	Loc	Type	Details
.01	INSTITUTION POINTER	0;1	POINTER TO INSTITUTION FILE (#4)	**********************REQUIRED FIELD********************** INSTITUTION(#4) LAST EDITED: `JUL 26, 2016` HELP-PROMPT: `Enter the Institution For this Medical Center` DESCRIPTION: `This is the institution for the facility.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `66.4^B` `1)= S ^LAB(66.4,"B",$E(X,1,30),DA)=""` `2)= K ^LAB(66.4,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `66.4^ANM^MUMPS` `1)= S ^LAB(66.4,"ANM",($$GET1^DIQ(4,X_",",.01)),DA)=""` `2)= K ^LAB(66.4,"ANM",($$GET1^DIQ(4,X_",",.01)),DA)` `this is the name cross reference for the .01 field.`
.02	NTRT SEND METHOD	0;2	SET	'M' FOR MAILMAN; 'X' FOR XML; 'N' FOR NONE DO NOT SEND; LAST EDITED: `MAY 16, 2016` HELP-PROMPT: `Enter Method That New Tests are Sent to NTRT for Validation.` DESCRIPTION: `This is the method for sending NTRT requests for new lab tests/specimens.`
.03	AUTO REMINDERS PARAMETER	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>300)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 08, 2016` HELP-PROMPT: `Type a number between 0 and 300, 0 decimal digits.` DESCRIPTION: `This is the default number for the Auto Reminders Parameter for use by the VHA Program Office.`
.04	AUDIT PURGE DAYS	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>600)!(X<220)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 31, 2016` HELP-PROMPT: `Type a number between 220 and 600, 0 decimal digits.` DESCRIPTION: `The number of days of the AUDIT DATE/TIME multiple in the` `60 file (field 140), the minimum is 220, the max is 600.`
.05	CTT TOOLING ACTIVE	0;5	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `MAR 16, 2018` HELP-PROMPT: `Enter Y if CTT TOOLING is active.` DESCRIPTION: `This field indicates if CTT TOOLING is active for the facility to send new lab test/specimens NTRT requests to.`
.06	LAB IEN	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>10000000)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 24, 2016` HELP-PROMPT: `Type a number between 0 and 10000000, 0 decimal digits.` DESCRIPTION: `This is the lab IEN when patch was loaded and is used for determining exception tests` `This field is set once and should not be changed.` TECHNICAL DESCR: `The highest IEN for ^LAB(60 (Laboratory Test File #60) at the time when the Lab LOINC patch is loaded. This is for use with the NTRT process.`
.07	SUBSCRIPT FOR NTRT	0;7	SET	'1' FOR CH; '2' FOR MI; '4' FOR SP; '5' FOR CY; '7' FOR CH AND MI; '8' FOR ALL SUBSCRIPTS; LAST EDITED: `JUN 10, 2016` HELP-PROMPT: `Enter the number that corresponds to the subscript to be sent to NTRT.` DESCRIPTION: `This is used by the NTRT message program to determine which new lab tests/specimens are sent to NTRT.`
.08	LAST AUTO TEST ID	0;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `JUN 01, 2016` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `This is the field that will be populated with the file 60 TEST IEN that has been evaluated for MLTF` `by the auto walk routine LR60AM.`
.1	SEND NTRT MESSAGES	0;10	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 16, 2016` HELP-PROMPT: `Enter 1 to allow the sending of new lab tests to NTRT Enter 0 to not send new test to NTRT.` DESCRIPTION: `This field allows the facilities to control the sending of New Laboratory Tests that are` `not associated with the MLTF to NTRT for evaluation.`
1	DEFAULT NTRT MAIL GROUP	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `MAY 16, 2016` HELP-PROMPT: `Enter up to 80 characters for the NTRT mail group.` DESCRIPTION: `This is the default mail group to send NTRT request to when a new test/specimen is created`
2	DEFAULT SITE LAB MAIL GROUP	2;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `MAY 16, 2016` HELP-PROMPT: `Enter up to 80 characters for the sites default lab mail group for NTRT messages.` DESCRIPTION: `This is the default 'G.' local site lab mail group to send/receive messages with NTRT.`
3	SITE LAB SERVER	3;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `JUL 27, 2016` HELP-PROMPT: `Answer must be 1-80 characters in length.` DESCRIPTION: `This is the server that Lab Program Office will use to request reports.`
4	CTT TOOLING WEB ADDRESS	4;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>100!($L(X)<1) X` `MAXIMUM LENGTH: 100` LAST EDITED: `MAR 16, 2018` HELP-PROMPT: `Answer must be 1-100 characters in length.` DESCRIPTION: `This is the CTT TOOLING system NTRT web address for processing NTRT requests.`
5	CTT TOOLING PORT NUMBER	4;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 16, 2018` HELP-PROMPT: `Enter the port number for the CTT TOOLING system NTRT process. The port is a number between 1 and 9999999999.` DESCRIPTION: `This is the port number that the CTT TOOLING system uses for the NTRT process.`
6	CTT TOOLING NTRT PATH	5;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>100!($L(X)<1) X S:X'="" X=$TR(X,"/","~")` `MAXIMUM LENGTH: 100` LAST EDITED: `MAR 23, 2018` HELP-PROMPT: `Enter the CTT TOOLING system path for the NTRT process. The system path can be from 1 to 100 characters in length.` DESCRIPTION: `This is the path used in the CTT TOOLING system NTRT process.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
7	CTT TOOLING SCHEMA NAME	6;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` `MAXIMUM LENGTH: 60` LAST EDITED: `MAR 16, 2018` HELP-PROMPT: `Answer must be 1-60 characters in length.` DESCRIPTION: `This is the Schema name that CTT TOOLING will use to process NTRT request XML's. Example is 'CTT-TOOLING-NTRT.XSD'.`
8	CTT TOOLING SCHEMA PATH	6;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>100!($L(X)<1) X S:X'="" X=$TR(X,"/","~")` `MAXIMUM LENGTH: 100` LAST EDITED: `MAR 16, 2018` HELP-PROMPT: `Enter the path for the CTT TOOLING SCHEMA Name. The schema name can be from 1 to 100 characters in length.` DESCRIPTION: `This is the path to the CTT TOOLING SCHEMA NAME that CTT TOOLING will use to process incoming NTRT request XML's.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`

Found Entries, Total: 1

INSTITUTION POINTER: 4^1^PLATINUM

External References

Name	Field # of Occurrence
$$GET1^DIQ	.01(XREF 2S), .01(XREF 2K)

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(66.4 - [#66.4]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K)
X	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .03+1!, .04+1!, .06+1!, .08+1!, 1+1!, 2+1! , 3+1!, 4+1!, 5+1!, 6+1!, 7+1!, 8+1!

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | Found Entries | External References | Global Variables Directly Accessed | Local Variables | All