Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Print Page as PDF

Sub-Field: 68.24

Package: Lab Service

LOAD/WORK LIST(#68.2)-->68.23-->68.24

Sub-Field: 68.24

Information

Parent File	Name	Number	Package
68.23	TEST	68.24	Lab Service

Details

Field #	Name	Loc	Type	Details
.01	TEST	0;1	POINTER TO LABORATORY TEST FILE (#60)	LABORATORY TEST(#60) LAST EDITED: `OCT 02, 1986` DESCRIPTION: `These are the tests to be brought onto the load/work list from the accessions.` CROSS-REFERENCE: `68.24^B` `1)= S ^LRO(68.2,DA(2),10,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^LRO(68.2,DA(2),10,DA(1),1,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `^^TRIGGER^68.24^2` `1)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^LRO(68.2,D0,10,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X="1" X ^DD(68.24,.01,1,2,1.4)` `1.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2` `1.4)= S DIH=$S($D(^LRO(68.2,DIV(0),10,DIV(1),1,DIV(2),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=68.24,DIG=2 D ^DIC` `R:$O(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^LRO(68.2,D0,10,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(68.24,.01,1,2,2.4)` `2.4)= S DIH=$S($D(^LRO(68.2,DIV(0),10,DIV(1),1,DIV(2),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=68.24,DIG=2 D ^DIC` `R:$O(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= "1"` `DELETE VALUE)= @` `FIELD)= BUILD` CROSS-REFERENCE: `68.24^AO^MUMPS` `1)= S LRINST=DA(2),LRPROF=DA(1) D BUILD^LRLLP4` `2)= K ^LRO(68.2,DA(2),10,DA(1),1,"AO")` `3)= This X-ref is built by BUILD^LRLLP4 if it doesn't exist. It is the expansion of all panels in this profile.`
1	SPECIMEN	0;2	POINTER TO TOPOGRAPHY FIELD FILE (#61)	TOPOGRAPHY FIELD(#61) LAST EDITED: `APR 02, 1984` DESCRIPTION: `This field should have data if the test previously defined is to be included from a given accession only if the site/specimen defined matches with this entry.`
2	BUILD NAME ONLY	0;3	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JAN 17, 1986` DESCRIPTION: `If the test previously defined is not the/a panel to define the workpattern, this entry should be "yes". The panel from file 60 defines the order of the workpattern, if more than one panel is NOT a "Build Name Only", the` `workpattern will be scrambled if the tests in the panels have some of the same tests. A "yes" means the test name is to be used solely for purposes of identifying the test(s) to be brought from an accession to the` `load/work list.` `I.E.: If "Yes", don't use this entry to define the order of display.` NOTES: `TRIGGERED by the TEST field of the TEST sub-field of the PROFILE sub-field of the LOAD/WORK LIST File` CROSS-REFERENCE: `68.24^AC^MUMPS` `1)= K ^LRO(68.2,DA(2),10,DA(1),1,"AO") ;D BUILD^LRLLP4` `2)= K ^LRO(68.2,DA(2),10,DA(1),1,"AO")`
3	POC WKLD METHOD	0;4	POINTER TO WKLD SUFFIX CODES FILE (#64.2)	WKLD SUFFIX CODES(#64.2) LAST EDITED: `AUG 17, 2004` HELP-PROMPT: `Enter the workload method suffix to be associated with this POC test.` DESCRIPTION: `Designates the WKLD method suffix to be assigned to this Point of Care (POC) test results when this test is ordered. This allows multiple POC vendor systems to be interfaced to VistA via one POC interface and still assign` `the appropriate methodology to the test result.`
4	POC COLLECTION SAMPLE	0;5	POINTER TO COLLECTION SAMPLE FILE (#62)	COLLECTION SAMPLE(#62) LAST EDITED: `MAY 25, 2005` HELP-PROMPT: `Enter the related collection sample for this test/specimen` DESCRIPTION: `Allows the site to specify the collection sample to use when ordering this test and specimen combination.`