Global: ^LAB(69.5

FileMan FileNo	FileMan Filename	Package
69.5	LAB SEARCH/EXTRACT	Lab Service

Package	Total	Routines
Lab Service	28	ANTIMICROBIAL SUSCEPTIBILITY ETIOLOGY EXCLUDED SITES ICD DIAGNOSIS INCLUDED SITES LAB TEST LR132P LR175P LR421P LREPI LREPI2 LREPI2A LREPI3 LREPI4 LREPI5 LREPICD LREPICY LREPIPI LREPIRM LREPIRP7 ^LAB(69.5 LREPIRS LREPIRS2 LREPISRV LREPISV1 PTF RELATED NAME SNOMED CODES

Package	Total	Routines
Lab Service	3	LR175P LREPICD LREPIPI

Package	Total	FileMan Files
Lab Service	5	LABORATORY TEST(#60)[#69.52(.01)] TOPOGRAPHY FIELD(#61)[#69.56(.01), #69.57(.01)] ETIOLOGY FIELD(#61.2)[#69.53(.01)] ANTIMICROBIAL SUSCEPTIBILITY(#62.06)[#69.55(.01)] LAB SEARCH/EXTRACT PROTOCOL(#69.4)[12]
DRG Grouper	2	ICD DIAGNOSIS(#80)[#69.54(.01)] ICD CODING SYSTEMS(#80.4)[#69.54(1)]
Registration	1	PTF(#45)[#69.514(.01)]

Fields, Total: 22

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X` LAST EDITED: `MAR 16, 2004` HELP-PROMPT: `Enter a Name (3 to 30 characters) for the Search/Extract parameter you are defining.` DESCRIPTION: `This is the name of the Search/Extract parameter you are defining.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `69.5^B` `1)= S ^LAB(69.5,"B",$E(X,1,30),DA)=""` `2)= K ^LAB(69.5,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `69.5^D^MUMPS` `1)= D UP^LRXREF S ^LAB(69.5,"D",X,DA)=""` `2)= D UP^LRXREF K ^LAB(69.5,"D",X,DA)` `The name is converted to upper case and stored in the "D" x-ref for easier lookup. ^LAB(69.5,"D",UPPERCASE NAME, IEN)`
.05	REFERENCE NUMBER	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N)!(X'>99)!$D(^LAB(69.5,"C",X)) X` LAST EDITED: `NOV 29, 1996` HELP-PROMPT: `Type a unique number between 100 and 999 to identify this entry. Numbers from 1 to 99 are reserved for future use.` DESCRIPTION: `This is a unique number used to identify this entry.` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `69.5^C` `1)= S ^LAB(69.5,"C",$E(X,1,30),DA)=""` `2)= K ^LAB(69.5,"C",$E(X,1,30),DA)`
1	INACTIVE	0;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 19, 2002` HELP-PROMPT: `'1' or 'YES' indicates that this is an inactive entry. '0' or 'NO' indicates that this is an active entry.` DESCRIPTION: `This defines if this entry is active or not.`
2	LAB TEST	1;0	POINTER Multiple #69.52	69.52 DESCRIPTION: `This is the test that is to be searched for and retrieved.`
3	ETIOLOGY	2;0	POINTER Multiple #69.53	69.53 DESCRIPTION: `This defines the Etiology to search for.`
4	ICD DIAGNOSIS	3;0	POINTER Multiple #69.54	69.54 LAST EDITED: `JUN 12, 2012` DESCRIPTION: `This defines the ICD Diagnoses to search for.`
5	ANTIMICROBIAL SUSCEPTIBILITY	4;0	POINTER Multiple #69.55	69.55 LAST EDITED: `JAN 22, 1997` DESCRIPTION: `This determines that if any of the Etiologies selected are to be resistant to any Antimicrobials.`
6	INCLUDED SITES	5;0	POINTER Multiple #69.56	69.56 LAST EDITED: `OCT 04, 1996` DESCRIPTION: `This determines what Topography to screen for.`
7	EXCLUDED SITES	6;0	POINTER Multiple #69.57	69.57 DESCRIPTION: `This determines what Topography to screen out.`
8	SNOMED CODES	9;0	Multiple #69.58	69.58 DESCRIPTION: `This is a list of SNOMED codes to be included in the search.`
9	RUN DATE	0;4	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 06, 1997` HELP-PROMPT: `Enter the date that the last Auto Search/Extract processed.` DESCRIPTION: `The date that the last Auto Search/Extract processed`
10	CYCLE	0;5	SET	'M' FOR MONTHLY; 'D' FOR DAILY; LAST EDITED: `DEC 03, 1997` HELP-PROMPT: `Select whether this parameter is to be used 'D'aily or 'M'onthly` DESCRIPTION: `This field defines how often the this entry is acted upon by the nightly task.` CROSS-REFERENCE: `^^TRIGGER^69.5^10.5` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(69.5,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(69.5,10,1,1,1.4)` `1.4)= S DIH=$S($D(^LAB(69.5,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=69.5,DIG=10.5 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(^LAB(69.5,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(69.5,10,1,1,2.4)` `2.4)= S DIH=$S($D(^LAB(69.5,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=69.5,DIG=10.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= ""` `DELETE VALUE)= ""` `FIELD)= LAG DAY`
10.5	LAG DAYS	0;3	NUMBER	INPUT TRANSFORM: `S CYC=$P(^LAB(69.5,DA,0),U,5),MAX=$S(CYC="D":99,CYC="M":26,1:0) K:+X'=X!(X>MAX)!(X<1)!(X?.E1"."1N.N) X K MAX,CYC` LAST EDITED: `SEP 04, 1997` HELP-PROMPT: `Enter the numbers of lag days desired. The amount allowed will very depending on the cycle type.` DESCRIPTION: `This is the number of days that the search should wait after the test was ordered to ensure that the results have been entered in the system.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `TRIGGERED by the CYCLE field of the LAB SEARCH/EXTRACT File`
11	FIRST ENCOUNTER	0;6	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `DEC 30, 1996` HELP-PROMPT: `Enter '1' to limit the output to the first encounter for the patient. '0' will list all encounters.` DESCRIPTION: `This determines if after the first encounter is found and extracted should sequential encounters be extracted.`
12	PROTOCOL	0;7	POINTER TO LAB SEARCH/EXTRACT PROTOCOL FILE (#69.4)	LAB SEARCH/EXTRACT PROTOCOL(#69.4) LAST EDITED: `NOV 06, 2003` HELP-PROMPT: `Select the Protocol to be used to define the output messages.` DESCRIPTION: `This defines what protocol is associated with the parameters.` `UNEDITABLE`
13	FOLLOW PTF	0;8	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `OCT 17, 1996` HELP-PROMPT: `'YES' or '1' indicates that the PTF record will be followed until a discharge has been entered.` DESCRIPTION: `This determines whether the discharge information should be updated upon discharge if a inpatient encounter does not have an existing discharge.`
14	PTF	7;0	POINTER Multiple #69.514	69.514 DESCRIPTION: `This is the PTF file enty to be followed.`
15	Description	8;0	WORD-PROCESSING #69.515	DESCRIPTION: `This is the general description for the entry.` LAST EDITED: `DEC 02, 1996` HELP-PROMPT: `Enter the general description for this entry.` DESCRIPTION: `This is the general description for this entry.`
16	SEX	0;10	SET	'M' FOR MALE; 'F' FOR FEMALE; 'O' FOR OTHER; LAST EDITED: `NOV 17, 1997` HELP-PROMPT: `Enter the sex code to be included in the search. Leave blank if all types are to be included.` DESCRIPTION: `This is the sex code to be included in the search. All types will be included if this field is left blank.`
17	BEFORE DATE OF BIRTH	0;11	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 17, 1997` HELP-PROMPT: `Enter a date to screen out patients born after the date entered.` DESCRIPTION: `Patients born after the date entered will not be included in the report.`
18	AFTER DATE OF BIRTH	0;12	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 17, 1997` HELP-PROMPT: `A birthdate to screen patients. ie patients DOB after 1/1/1950.` DESCRIPTION: `Persons born before the date entered will not be included in the report.`
19	PREVIOUS CYCLE	0;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1.N) X` LAST EDITED: `SEP 09, 2003` HELP-PROMPT: `Type a number between 1 and 99.` DESCRIPTION: `By entering a number here the Lab search engine knows to look at a previous cycle for updates to data. How far back it looks is based on the cycle and number entered. For example if the cycle is monthly and the previous` `cycle is 1 then the search engine will also search 1 month back for data.` `UNEDITABLE`

NAME: VANC-RES ENTEROCOCCUS	NAME: HEPATITIS C ANTIBODY POS	NAME: PEN-RES PNEUMOCOCCUS	NAME: CLOSTRIDIUM DIFFICILE	NAME: TUBERCULOSIS	NAME: STREPTOCOCCUS GROUP A	NAME: LEGIONELLA	NAME: CANDIDA
NAME: CRYPTOSPORIDIUM	NAME: E. COLI 0157:H7	NAME: MALARIA	NAME: DENGUE	NAME: CREUTZFELDT-JAKOB DISEASE	NAME: LEISHMANIASIS	NAME: HEPATITIS C ANTIBODY NEG	NAME: HEPATITIS A ANTIBODY POS
NAME: HEPATITIS B POS	NAME: VANC-RES COAG NEG STAPH	NAME: ALL STREP PNEUMO	NAME: ALL ENTEROCOCCI	NAME: METH-RES STAPH AUREUS	NAME: ALL STAPH AUREUS	NAME: VANC-RES STAPH AUREUS

Name	Line Occurrences (* Changed, ! Killed)
^DD(	10(XREF 1n1.4), 10(XREF 1n2.4)
^DD(69.5	10(XREF 1S), 10(XREF 1K)
^LAB(69.5 - [#69.5]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .05+1, .05(XREF 1S), .05(XREF 1K), 10(XREF 1S), 10(XREF 1n1.4), 10(XREF 1K) , 10(XREF 1n2.4), 10.5+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	9+1, 17+1, 18+1*
CYC	10.5+1*!
>> D0	10(XREF 1S), 10(XREF 1K)
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .05(XREF 1S), .05(XREF 1K), 10(XREF 1S), 10(XREF 1K), 10.5+1
>> DIG	10(XREF 1n1.4), 10(XREF 1n2.4)
>> DIH	10(XREF 1n1.4), 10(XREF 1n2.4)
>> DIU	10(XREF 1S), 10(XREF 1K)
DIV	10(XREF 1S), 10(XREF 1n1.4), 10(XREF 1K), 10(XREF 1n2.4)
DIV(0	10(XREF 1S), 10(XREF 1n1.4), 10(XREF 1K), 10(XREF 1n2.4)
MAX	10.5+1*!
U	10(XREF 1S), 10(XREF 1n1.4), 10(XREF 1K), 10(XREF 1n2.4), 10.5+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .05+1!, .05(XREF 1S), .05(XREF 1K), 9+1!, 10(XREF 1S) , 10(XREF 1n1.4), 10(XREF 1K), 10(XREF 1n2.4), 10.5+1!, 17+1!, 18+1*!, 19+1!
Y	9+1, 10(XREF 1S), 10(XREF 1K), 17+1, 18+1
Y(1	10(XREF 1S), 10(XREF 1K)

Customize PDF page

Package: Lab Service

Global: ^LAB(69.5

Information

Description

Directly Accessed By Routines, Total: 28

Accessed By FileMan Db Calls, Total: 3

Pointer To FileMan Files, Total: 8

Fields, Total: 22

Found Entries, Total: 23

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	9+1, 17+1, 18+1
^DICR	10(XREF 1n1.4), 10(XREF 1n2.4)
UP^LRXREF	.01(XREF 2S), .01(XREF 2K)