Global: ^LRO(68.2

FileMan FileNo	FileMan Filename	Package
68.2	LOAD/WORK LIST	Lab Service

Package	Total	Routines
Lab Service	47	LR232 LR302A LRCAPV LRCKF68 LRCKF68A LRCKFLA LRCKFLAA LRFLAG LRGP LRGP1 LRGP2 LRGV LRLL LRLL1 LRLL1A LRLL2 LRLL3 LRLLP LRLLP2 LRLLP3 LRLLP4 LRLLP5 LRLLS LRLLS2 LRLLS3 LRLLU LRLNCV LRMILL LRMIV1 LROLOVER LRSETUP LRVR LRVR0 LRVRMI3 ^LRO(68.2 LRVR1 LRVR4 LRVRA LRVRARU LRVRPOC LRVRPOCU LRVRW LRWRKLST PROFILE RELATED NAME ^LAB(62.4 TEST
Automated Lab Instruments	35	LA7ADL1 LA7PCFG LA7UCFG LA7UID1 LA7UIIN1 LA7UIO LA7UTILB LA7VIN LADOWN LAHTCCAD ^LAHM(62.93 LA7VIN4A LABCX4D LACOAGX2 LADIMD LADOWN1 LAEKT7D LAEPXD LAGEN LAH717D LAHT1KD LAKDIFF3 LAMIAUT7 LAMIAUT8 LAMILL LAMIVTKD LAMIVTLD LAMIVTLG LAMSD LAPERD LAPMAXD LASMAC4 LASMACA LAXSYMBL ^LAHM(62.485

Package	Total	Routines
Lab Service	12	LRCAPV LRCKFLAA LRFLAG LRGP1 LRLL LRLLP LRLLS LRLNCV LRMILL LRMIV LRVR LRVRPOCU
Automated Lab Instruments	6	LA7PCFG LA7UCFG LADOWN LAHWATCH LAMIAUT7 LAMILL

Package	Total	FileMan Files
Lab Service	1	AUTO INSTRUMENT(#62.4)[3]

Package	Total	FileMan Files
Lab Service	8	LABORATORY TEST(#60)[#68.222(.01), #68.24(.01), #68.3(.01)] TOPOGRAPHY FIELD(#61)[#68.22(4), #68.24(1), #68.27(.01)] COLLECTION SAMPLE(#62)[#68.24(4)] URGENCY(#62.05)[#68.222(.02)] EXECUTE CODE(#62.07)[.02, .07, .12] LAB CONTROL NAME(#62.3)[#68.26(.01), #68.28(.01), #68.29(.01)] WKLD SUFFIX CODES(#64.2)[.14, #68.24(3)] ACCESSION(#68)[1, 1.5, 1.7, #68.21(4), #68.22(.01), #68.23(2)]
Kernel	3	SECURITY KEY(#19.1)[51] INSTITUTION(#4)[#68.23(2.3)] NEW PERSON(#200)[#68.21(3)]

Fields, Total: 28

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `DEC 13, 1991` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `Name of the load or work list.` CROSS-REFERENCE: `68.2^B` `1)= S ^LRO(68.2,"B",$E(X,1,30),DA)=""` `2)= K ^LRO(68.2,"B",$E(X,1,30),DA)`
.02	LOAD TRANSFORM	0;2	POINTER TO EXECUTE CODE FILE (#62.07)	EXECUTE CODE(#62.07) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,3)[""L""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 30, 1984` DESCRIPTION: `This entry controls the algorithm for placing work on the list. Inquire to the EXECUTE CODES file (Loadlist types) for specifics. Leave this blank unless you want more sophisticated placement.` SCREEN: `S DIC("S")="I $P(^(0),U,3)[""L"""` EXPLANATION: `EXECUTE CODES APPROPRIATE FOR LOAD TRANSFORM`
.03	TYPE	0;3	SET	**********************REQUIRED FIELD********************** '0' FOR SEQUENCE/BATCH; '1' FOR TRAY,CUP; '2' FOR POINT OF CARE; LAST EDITED: `OCT 04, 2001` DESCRIPTION: `Determines if this list is a sequence/batch, tray,cup or Point of Care (POC) type of load/work list.` TECHNICAL DESCR: `Point of Care (POC) is a type of interface that downloads and stores results for a bed side analyzer (device) ie. Glucometers` `Accession and verification procedures are modified to accommodate POC type of data storage. POC results are not verified in the classical laboratory method.`
.04	CUPS PER TRAY	0;4	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 25, 1984` HELP-PROMPT: `Enter the number of samples on a tray or rack (0 if not a tray instrument)` DESCRIPTION: `Contains number of cups per tray if a tray,cup type.`
.05	FULL TRAY'S ONLY	0;5	SET	**********************REQUIRED FIELD********************** '0' FOR NO; '1' FOR YES; LAST EDITED: `APR 02, 1984` HELP-PROMPT: `ANSWER YES IF YOU WANT ONLY FULL TRAY'S PUT ON THE LIST` DESCRIPTION: `If you want to accept full trays only set this field to YES.`
.06	EXPAND PANELS ON PRINT	0;6	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `APR 04, 1984` HELP-PROMPT: `ANSWER YES IF YOU WANT ALL TEST PANELS ENPANDED WHEN PRINTED.` DESCRIPTION: `If you want test panels expanded to display all tests when printed, this field must contain YES.`
.07	INITIAL SETUP	0;7	POINTER TO EXECUTE CODE FILE (#62.07)	EXECUTE CODE(#62.07) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,3)[""L""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 10, 1984` DESCRIPTION: `This code would be used each time a load or work list is built for the first time after it has been "cleared". "Special" initialization may be customized through the EXECUTE CODE chosen.` SCREEN: `S DIC("S")="I $P(^(0),U,3)[""L"""` EXPLANATION: `EXECUTE CODES APPROPRIATE FOR INITIAL SETUP`
.08	VERIFY BY	0;8	SET	'A' FOR ACCESSION; 'M' FOR MACHINE SEQUENCE; 'T' FOR TRAY; 'W' FOR WORKLIST; LAST EDITED: `AUG 22, 1984` HELP-PROMPT: `This entry will force the way this Load/Work list works.` DESCRIPTION: `Determines the method of verification for this list.`
.09	SUPPRESS SEQUENCE #	0;9	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `NOV 30, 1993` DESCRIPTION: `"YES" will suppress the sequence # listing.`
.1	INCLUDE UNCOLLECTED ACCESSIONS	0;10	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JAN 04, 1985` HELP-PROMPT: `A 'YES' IN THIS FIELD WILL INCLUDE ALL ACCESSION THAT HAVE TESTS FOR THE PROFILE.` DESCRIPTION: `This field is used to tell the load list routine whether to include (if set to YES) ALL accessions that have the tests in the profile, or (if set to NO) only accessions that have ARRIVED in the lab.`
.11	SHORT TEST LIST	0;11	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUL 22, 1985` HELP-PROMPT: `Enter YES if you want a short list of the tests.` DESCRIPTION: `If this field contains "YES" a short test list will be generated.`
.12	AUTO MICRO EDIT TEMPLATE	0;13	POINTER TO EXECUTE CODE FILE (#62.07)	EXECUTE CODE(#62.07) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,3)=""E""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUN 05, 1989` HELP-PROMPT: `Enter the execute code to be used when verifying Auto Micro results` DESCRIPTION: `Select Execute Code to be associated with this Load/worklist.` SCREEN: `S DIC("S")="I $P(^(0),U,3)=""E"""` EXPLANATION: `SELECT ONLY EDIT TYPE TEMPLATES`
.14	WKLD METHOD	SUF;1	POINTER TO WKLD SUFFIX CODES FILE (#64.2)	WKLD SUFFIX CODES(#64.2) LAST EDITED: `SEP 18, 2001` DESCRIPTION: `This field will be used as default response when setting up WKLD code during verification. This field updated after the technologist confirm the method for this particular verification session. The name and suffix number` `are automatically stuff for the user.` CROSS-REFERENCE: `^^TRIGGER^68.2^.15` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68.2,D0,"SUF")):^("SUF"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(68.2,.14,1,1,1.1) S DIH=$G(^LRO(68.2,DIV(0),"SUF")),DIV=X S $P(^("SUF"),U,2)=DIV,DIH=68.2,DIG=.15 D` `^DICR` `1.1)= S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^LAB(64.2,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(64.2,D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68.2,D0,"SUF")):^("SUF"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" S DIH=$G(^LRO(68.2,DIV(0),"SUF")),DIV=X S $P(^("SUF"),U,2)=DIV,DIH=68.2,DIG=.15 D ^DICR` `3)= Sets the WKLD CODE SUFFIX NAME into .15` `CREATE VALUE)= WKLD METHOD:NAME` `DELETE VALUE)= @` `FIELD)= WKLD CODE METHOD NAME` `This trigger will stuff the WKLD CODE SUFFIX name (.01) into field #.15.` CROSS-REFERENCE: `^^TRIGGER^68.2^.16` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68.2,D0,"SUF")):^("SUF"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(68.2,.14,1,2,1.1) S DIH=$G(^LRO(68.2,DIV(0),"SUF")),DIV=X S $P(^("SUF"),U,3)=DIV,DIH=68.2,DIG=.16 D` `^DICR` `1.1)= S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^LAB(64.2,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(64.2,D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0)` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68.2,D0,"SUF")):^("SUF"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^LRO(68.2,DIV(0),"SUF")),DIV=X S $P(^("SUF"),U,3)=DIV,DIH=68.2,DIG=.16 D ^DICR` `3)= Sets the WKLD CODE SUFFIX number into .16` `CREATE VALUE)= WKLD METHOD:WKLD SUFFIX CODE` `DELETE VALUE)= @` `FIELD)= WKLD CODE SUFFIX` `This trigger will stuff the WKLD CODE SUFFIX number into field # .16.`
.15	WKLD CODE METHOD NAME	SUF;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `DEC 21, 1990` HELP-PROMPT: `Answer must be 1-40 characters in length.` DESCRIPTION: `The field should contain the subsection which should receive credit for workload any time a user selects this worklist.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the WKLD METHOD field of the LOAD/WORK LIST File`
.16	WKLD CODE SUFFIX	SUF;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<4) X` LAST EDITED: `JUL 07, 1992` HELP-PROMPT: `Answer must be 4 characters in length.` DESCRIPTION: `This field indicates what is the standard default method used by this particular LOAD/WORK LIST. This suffix is appended to prefix or procedure wkld code for each test verified.` `WRITE AUTHORITY: ^` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `TRIGGERED by the WKLD METHOD field of the LOAD/WORK LIST File`
1	MAJOR ACCESSION AREA	SUF;7	POINTER TO ACCESSION FILE (#68)	ACCESSION(#68) LAST EDITED: `DEC 27, 1990` DESCRIPTION: `This field contains the major accession area which should recieve the workload credit. Anytime a user selects this worklist the entry will be used to tally workload.` `NOTE: THIS FIELD IS ASSOCIATED WITH WORKLOAD.`
1.5	LAB SUBSECTION	SUF;8	POINTER TO ACCESSION FILE (#68)	ACCESSION(#68) LAST EDITED: `DEC 27, 1990` DESCRIPTION: `This is the next level down from the Major Accession area. An example might be, chemistry is the major accession area and Sp chemistry would be the lab subsection.`
1.7	WORK AREA	SUF;9	POINTER TO ACCESSION FILE (#68)	ACCESSION(#68) INPUT TRANSFORM: `S DIC("S")="I $L($P(^(0),U,17))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 20, 1991` DESCRIPTION: `This is the lowest level of work distribution. Generally this would indicate the work bench where the work is to be done. An example might be Chemistry (major accession area), Sp Chemistry (lab sub section) and Drug` `screens (work area).` `Note: The default for, major accession area, lab sub section and work area is the entry above it. The order is as follows:` `Major accession area Default is the accession area of the test.` `Lab Subsection Default is the Major accession area.` `Work Area Default is the Lab Subsection.` `If none of these fields are filled in, then the default answer for all is the accession area of the test. This means the reports will not be broken down into separate areas for any management reports.` SCREEN: `S DIC("S")="I $L($P(^(0),U,17))"` EXPLANATION: `Select only accession area identified as work areas.`
2	RUN or TRAY NUMBER	1;0	Multiple #68.21	68.21 DESCRIPTION: `All data in this multiple field is computer generated.` `WRITE AUTHORITY: ^`
11	DATE OF SETUP	2;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 20, 1984` DESCRIPTION: `The date the load/work list was created is stored here.`
12	FIRST TRAY	2;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 20, 1984` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 999` DESCRIPTION: `The first tray built on the last "build" is stored here.`
13	STARTING CUP	2;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 30, 1984` HELP-PROMPT: `THIS IS THE STARTING CUP FOR THE LAST RUN` DESCRIPTION: `The starting cup (or sequence number) on the last "build" is stored here.`
14	LAST TRAY	2;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `THIS IS THE STARTING CUP FOR THE LAST RUN` DESCRIPTION: `The last tray built on the last "build" is stored here.`
15	LAST CUP	2;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 20, 1984` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 9999` DESCRIPTION: `The last cup (or sequence number) on the last "build" is stored here.`
30	BUILDING IN PROGRESS	3;1	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `APR 10, 1985` HELP-PROMPT: `THIS FIELD SHOULD NOT BE EDITED WHEN CREATING A NEW LOAD LIST.` DESCRIPTION: `While the load list is being built, the program sets this flag to YES. At the completion of building, this flag is returned to NO. The purpose is to keep multiple users from competing for the same load list at the same` `time. If the flag is left set, set to NO to continue building load lists.`
50	PROFILE	10;0	Multiple #68.23	68.23 DESCRIPTION: `Only ONE load or work list can exist at a time. But more than one profile can be defined to make "alternate" groupings of tests for the load/worklist which might be used on an infrequent or non-standard basis.` IDENTIFIED BY: `ACCESSION AREA(#2)[R]` INDEXED BY: `AUTO RELEASE (AR)`
51	USER ACCESS AUTHORIZATION	0;12	POINTER TO SECURITY KEY FILE (#19.1)	SECURITY KEY(#19.1) LAST EDITED: `NOV 14, 1988` DESCRIPTION: `If left blank, any lab person may access this load/worklist. If filled in only lab person holding the authorization may use this load/worklist.`
52	ADDITIONAL LAB TESTS	4;0	POINTER Multiple #68.3	68.3 DESCRIPTION: `To used for any additional WKLD codes used for this particular W/L.`

Name	Line Occurrences (* Changed, ! Killed)
^DD(68.2	.14(XREF 1S), .14(XREF 2S)
^LAB(64.2 - [#64.2]	.14(XREF 1n1.1), .14(XREF 2n1.1)
^LRO(68.2 - [#68.2]	IXARSL+1*, IXARKL+1!, IXARKEIC+1!, .01(XREF 1S), .01(XREF 1K), .14(XREF 1S), .14(XREF 1K), .14(XREF 2S), .14(XREF 2K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	11+1*
>> D0	.14(XREF 1S), .14(XREF 1n1.1), .14(XREF 1K), .14(XREF 2S), .14(XREF 2n1.1), .14(XREF 2K)
>> DA	IXARSL+1, IXARKL+1, .01(XREF 1S), .01(XREF 1K), .14(XREF 1S), .14(XREF 1K), .14(XREF 2S), .14(XREF 2K)
>> DA(1	IXARSL+1, IXARKL+1
DIC	.02+1!, .07+1!, .12+1!, 1.7+1!
DIC("S"	.02+1, .02SCR+1, .07+1, .07SCR+1, .12+1, .12SCR+1, 1.7+1, 1.7SCR+1
>> DIE	.02+1, .07+1, .12+1, 1.7+1
>> DIG	.14(XREF 1S), .14(XREF 1K), .14(XREF 2S), .14(XREF 2K)
>> DIH	.14(XREF 1S), .14(XREF 1K), .14(XREF 2S), .14(XREF 2K)
>> DIU	.14(XREF 1S), .14(XREF 1K), .14(XREF 2S), .14(XREF 2K)
DIV	.14(XREF 1S), .14(XREF 1n1.1), .14(XREF 1K), .14(XREF 2S), .14(XREF 2n1.1), .14(XREF 2K)
DIV(0	.14(XREF 1S), .14(XREF 1K), .14(XREF 2S), .14(XREF 2K)
>> I(0	.14(XREF 1n1.1), .14(XREF 2n1.1)
U	.14(XREF 1S), .14(XREF 1n1.1), .14(XREF 1K), .14(XREF 2S), .14(XREF 2n1.1), .14(XREF 2K)
X	IXARSL+1, IXARKL+1, .01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, .04+1!, .07+1!, .12+1!, .14(XREF 1S) , .14(XREF 1n1.1), .14(XREF 1K), .14(XREF 2S), .14(XREF 2n1.1), .14(XREF 2K), .15+1!, .16+1!, 1.7+1!, 11+1*!, 12+1! , 13+1!, 14+1!, 15+1!
Y	.02+1, .07+1, .12+1, .14(XREF 1S), .14(XREF 1K), .14(XREF 2S), .14(XREF 2K), 1.7+1, 11+1
Y(1	.14(XREF 1S), .14(XREF 1K), .14(XREF 2S), .14(XREF 2K)
Y(101	.14(XREF 1n1.1), .14(XREF 2n1.1)

Customize PDF page

Package: Lab Service

Global: ^LRO(68.2

Information

Description

Directly Accessed By Routines, Total: 82

Accessed By FileMan Db Calls, Total: 18

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 11

Fields, Total: 28

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	11+1
^DIC	.02+1, .07+1, .12+1, 1.7+1
^DICR	.14(XREF 1S), .14(XREF 1K), .14(XREF 2S), .14(XREF 2K)

Name	Field # of Occurrence
^("SUF"	.14(XREF 1S), .14(XREF 1K), .14(XREF 2S), .14(XREF 2K)
^(0	.14(XREF 1n1.1), .14(XREF 2n1.1)