Global: ^LRO(69.6

FileMan FileNo	FileMan Filename	Package
69.6	LAB PENDING ORDERS ENTRY	Lab Service

Package	Total	Routines
Automated Lab Instruments	13	LA7PURG LA7S EXEP SORT LA7SBCR1 LA7SMPXL LA7SSR LA7VHLU LA7VIN3 LA7VIN5B LA7VMSG1 LA7VORM LA7VORR1 ^LAHM(62.93 LA7VORU
Lab Service	12	AP INFO AP SPECIMENS LR232 LR302A LRDPAREF LRORDB LRPEND LRWLST1 LRWLST12 ORDERED TESTS RELATED NAME ^LRO(69.6

Package	Total	Routines
Automated Lab Instruments	5	LA7PURG LA7SMPXL LA7VIN2A LA7VIN5B LA7VORM
Lab Service	4	LRDPAREF LRORDB LRPEND LRWLST12

Package	Total	FileMan Files
Lab Service	6	LABORATORY TEST(#60)[#69.64(11)] TOPOGRAPHY FIELD(#61)[4, #69.6061(.02)] COLLECTION SAMPLE(#62)[5, #69.6061(.03)] URGENCY(#62.05)[#69.64(12)] LAB ELECTRONIC CODES(#64.061)[6, #69.64(5)] REFERRAL PATIENT(#67)[7]
Kernel	1	INSTITUTION(#4)[1, 2, #69.6063(.02)]

Fields, Total: 31

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!(X?1P.E)!(X'?1U.ANP)!(X'[",") X I $D(X) S X=$$LRPNM^LRAFUNC(X) K:$L(X)>30!($L(X)>30) X` HELP-PROMPT: `NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION` CROSS-REFERENCE: `69.6^B` `1)= S ^LRO(69.6,"B",$E(X,1,30),DA)=""` `2)= K ^LRO(69.6,"B",$E(X,1,30),DA)`
.02	SEX	0;2	SET	'M' FOR MALE; 'F' FOR FEMALE; 'U' FOR UNKNOWN; LAST EDITED: `FEB 09, 1997`
.03	DOB	0;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 13, 1996`
.06	RACE	.1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `FEB 24, 2004` HELP-PROMPT: `Answer must be 1-60 characters in length.` DESCRIPTION: `Stores the patient's race using HL7 code and text.`
.09	PAT ID	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<5) X` LAST EDITED: `DEC 08, 1999` HELP-PROMPT: `Answer must be 5-30 characters in length.` CROSS-REFERENCE: `69.6^C` `1)= S ^LRO(69.6,"C",$E(X,1,30),DA)=""` `2)= K ^LRO(69.6,"C",$E(X,1,30),DA)`
1	ORDERING SITE	0;4	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `APR 03, 2007` CROSS-REFERENCE: `69.6^RST^MUMPS` `1)= S:($P(^LRO(69.6,DA,0),U,4)'="")&($P(^(0),U,6)'="") ^LRO(69.6,"RST",$P(^(0),U,4),$P(^(0),U,6),DA)=""` `2)= K:$P(^LRO(69.6,DA,0),U,6)'="" ^LRO(69.6,"RST",X,$P(^(0),U,6),DA)` `The format is as follows: ^LRO(69.6,"RST",ORDERING SITE,ORDERING SITE UID,DA)=""` `This cross reference is used to identify unique id's by ordering site. The cross reference is useful for packaging multiple results for a site into one message.` RECORD INDEXES: `AC (#1062), RST (#1065)`
2	COLLECTING SITE	0;5	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `APR 03, 2007` CROSS-REFERENCE: `69.6^AC^MUMPS` `1)= S ^LRO(69.6,"AC",$P(^LRO(69.6,DA,0),U,4),$P(^(0),U,5),DA)=""` `2)= K ^LRO(69.6,"AC",$P(^LRO(69.6,DA,0),U,4),$P(^(0),U,5),DA)` `This MUMPS cross reference is used to sort pending orders for an ordering site by collecting site. The format is shown below.` `^LRO(69.6,"AC",ORDERING SITE (pointer),COLLECTING SITE (pointer),IEN) = ""` CROSS-REFERENCE: `69.6^AE^MUMPS` `1)= S ^LRO(69.6,"AE",$P(^LRO(69.6,DA,0),U,5),DA)=""` `2)= K ^LRO(69.6,"AE",$P(^LRO(69.6,DA,0),U,5),DA)` `This MUMPS cross reference is used to sort pending orders by collecting site. The format is shown below.` `^LRO(69.6,"AE",COLLECTING SITE (pointer),IEN) = ""` FIELD INDEX: `AE (#1064) REGULAR IR SORTING ONLY` `Short Descr: Used to sort pending orders by collecting site.` `Description: This MUMPS cross reference is used to sort pending orders by collecting site.` `The format is shown below.` `^LRO(69.6,"AE",COLLECTING SITE (pointer),IEN) = ""` `Set Logic: S ^LRO(69.6,"AE",X,DA)=""` `Kill Logic: K ^LRO(69.6,"AE",X,DA)` `Whole Kill: K ^LRO(69.6,"AE")` `X(1): COLLECTING SITE (69.6,2) (Subscr 1) (forwards)` RECORD INDEXES: `AC (#1062)`
3	ORDERING SITE UID	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `APR 03, 2007` HELP-PROMPT: `Answer must be 1-30 characters in length.` CROSS-REFERENCE: `69.6^E` `1)= S ^LRO(69.6,"E",$E(X,1,30),DA)=""` `2)= K ^LRO(69.6,"E",$E(X,1,30),DA)` CROSS-REFERENCE: `69.6^RST1^MUMPS` `1)= S:($P(^LRO(69.6,DA,0),U,4)'="")&($P(^(0),U,6)'="") ^LRO(69.6,"RST",$P(^(0),U,4),$P(^(0),U,6),DA)=""` `2)= K:$P(^LRO(69.6,DA,0),U,4)'="" ^LRO(69.6,"RST",$P(^(0),U,4),X,DA)` `The format is as follows: ^LRO(69.6,"RST",ORDERING SITE,ORDERING SITE UID,DA)=""` `This cross reference is used to identify unique id's by ordering site. The cross reference is useful for packaging multiple results for a site into one message.` CROSS-REFERENCE: `69.6^AF^MUMPS` `1)= S LRX=$P(^LRO(69.6,DA,0),U,14) I $L(LRX) S ^LRO(69.6,"AD",LRX,X,DA)=""` `2)= S LRX=$P(^LRO(69.6,DA,0),U,14) I $L(LRX) K ^LRO(69.6,"AD",LRX,X,DA)` `This MUMPS cross reference is used to sort pending orders for a shipping manifest by ordering site UID. The format is shown below.` `^LRO(69.6,"AD",SHIPPING MANIFEST,ORDERING SITE UID,IEN) = ""` RECORD INDEXES: `AD (#1063), RST (#1065)`
3.2	ORDERING SITE ACC #	0;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `DEC 08, 1999` HELP-PROMPT: `Answer must be 1-20 characters in length.`
4	SPECIMEN	0;7	POINTER TO TOPOGRAPHY FIELD FILE (#61)	TOPOGRAPHY FIELD(#61) LAST EDITED: `NOV 13, 1996`
5	COLLECTION SAMPLE	0;8	POINTER TO COLLECTION SAMPLE FILE (#62)	COLLECTION SAMPLE(#62) LAST EDITED: `NOV 13, 1996`
6	SPECIMEN STATUS	0;10	POINTER TO LAB ELECTRONIC CODES FILE (#64.061)	LAB ELECTRONIC CODES(#64.061) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,7)=""U""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAY 29, 1997` SCREEN: `S DIC("S")="I $P(^(0),U,7)=""U"""` EXPLANATION: `ALLOWS ONLY THE SELECTION OF A STATUS`
7	FILE REF	0;11	POINTER TO REFERRAL PATIENT FILE (#67)	REFERRAL PATIENT(#67) LAST EDITED: `FEB 27, 1997`
9	VISIT NUMBER	0;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 26, 1996` HELP-PROMPT: `Type a Number between 1 and 99999999, 0 Decimal Digits`
10	ORDERED DATE/TIME	1;1	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 14, 1996`
11	COLLECTED DATE/TIME	1;2	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 14, 1996`
11.1	COLLECTION END DATE/TIME	1;9	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 25, 2001` HELP-PROMPT: `Enter the date/time that the specimen collection ended.` DESCRIPTION: `Used to record the collection end date/time of specimen collection when the specimen has a timed collection, i.e. 24 hour urine, 72 hour stool, etc.`
12	SHIPPED DATE/TIME	1;3	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 14, 1996`
13	RECD DATE/TIME	1;4	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 14, 1996`
14	TRANS DATE/TIME	1;5	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 14, 1996`
15	DATA ACCEPT DATE/TIME	1;6	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 14, 1996`
16	COMPLETE DATE/TIME	1;7	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 14, 1996`
17	INCOMING MESS #	1;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `NOV 25, 1996` HELP-PROMPT: `Answer must be 1-15 characters in length.`
18	SHIPPING MANIFEST	0;14	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `APR 03, 2007` HELP-PROMPT: `Enter in the 3-30 character invoice number of the shipped specimen.` DESCRIPTION: `This field should contain the invoice number from the collection labs SHIPPING MANIFEST file.` CROSS-REFERENCE: `69.6^AD^MUMPS` `1)= S LRX=$P(^LRO(69.6,DA,0),U,6) I $L(LRX) S ^LRO(69.6,"AD",X,LRX,DA)=""` `2)= S LRX=$P(^LRO(69.6,DA,0),U,6) I $L(LRX) K ^LRO(69.6,"AD",X,LRX,DA)` `This MUMPS cross reference is used to sort pending orders for a shipping manifest by ordering site UID. The format is shown below.` `^LRO(69.6,"AD",SHIPPING MANIFEST,ORDERING SITE UID,IEN) = ""` CROSS-REFERENCE: `69.6^D` `1)= S ^LRO(69.6,"D",$E(X,1,30),DA)=""` `2)= K ^LRO(69.6,"D",$E(X,1,30),DA)` `This X-Ref is used to allow FileMan lookup on shipping manifest numbers.` RECORD INDEXES: `AD (#1063)`
20	ORDERED TESTS	2;0	Multiple #69.64	69.64
61	AP SPECIMENS	61;0	Multiple #69.6061	69.6061 DESCRIPTION: `Stores the specimens information that accompany an AP order. Information is moved to corresponding fields in LAB DATA file (#63) when order is accessioned.` INDEXED BY: `AP SPECIMEN (B)`
63	AP INFO	63;0	SET Multiple #69.6063	69.6063 DESCRIPTION: `Stores the various textual information that accompanies AP orders` `- patient history, pre-op diagnosis, operative findings, gross` `description, frozen section , etc.`
99	COMMENTS	99;0	WORD-PROCESSING #69.699	LAST EDITED: `NOV 25, 1996`
700	HL ENCODING CHARACTERS	700;E1,5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<1) X` LAST EDITED: `SEP 04, 2001` HELP-PROMPT: `Answer must be 1-5 characters in length` DESCRIPTION: `Stores the HL7 field separator and encoding characters from the HL7 message used to create this pending order entry. This allows the HL7 data that is saved from the message to be processed and returned to the placer.` `SOURCE OF DATA: HL7 ORM order message`
700.02	HL PID-2	700.02;E1,250	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>250!($L(X)<1) X` LAST EDITED: `FEB 21, 2003` HELP-PROMPT: `Answer must be 1-250 characters in length` DESCRIPTION: `Stores the placer's patient identification information from PID-2 for transmittal back to the placer when the order is completed.` `SOURCE OF DATA: HL7 ORM order message`
700.04	HL PID-4	700.04;E1,250	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>250!($L(X)<1) X` LAST EDITED: `FEB 21, 2003` HELP-PROMPT: `Answer must be 1-250 characters in length` DESCRIPTION: `Stores the placer's patient identification information from PID-4 for transmittal back to the placer when the order is completed.` `SOURCE OF DATA: HL7 ORM order message`

Name	Field # of Occurrence
^%DT	.03+1, 10+1, 11+1, 11.1+1, 12+1, 13+1, 14+1, 15+1, 16+1
EN^DDIOL	IDW1+1, IDW2+1, IDW3+1
^DIC	6+1
$$EXTERNAL^DILFD	IDW1+1, IDW2+1, IDW3+1
$$LRPNM^LRAFUNC	.01+1
$$FMTE^XLFDT	IDW1+1, IDW3+1

Name	Field # of Occurrence
^(0	IDW1+1, IDW2+1, IDW3+1, 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 3(XREF 2S), 3(XREF 2K)
^(1	IDW3+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.03+1, 10+1, 11+1, 11.1+1, 12+1, 13+1, 14+1, 15+1, 16+1*
>> DA	IXACSL+1, IXACKL+1, IXADSL+1, IXADKL+1, IXAESL+1, IXAEKL+1, IXRSTSL+1, IXRSTKL+1, .01(XREF 1S), .01(XREF 1K) , .09(XREF 1S), .09(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 3(XREF 1S), 3(XREF 1K) , 3(XREF 2S), 3(XREF 2K), 3(XREF 3S), 3(XREF 3K), 18(XREF 1S), 18(XREF 1K), 18(XREF 2S), 18(XREF 2K)
DIC	6+1!*
DIC("S"	6+1, 6SCR+1
>> DIE	6+1
LRX	IDW1+1~, IDW2+1~, IDW3+1~*, 3(XREF 3S), 3(XREF 3K), 18(XREF 1S), 18(XREF 1K)
LRX(1	IDW3+1*
U	IDW1+1, IDW2+1, IDW3+1, 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 3(XREF 2S) , 3(XREF 2K), 3(XREF 3S), 3(XREF 3K), 18(XREF 1S), 18(XREF 1K)
X	IXAESL+1, IXAEKL+1, .01+1!, .01(XREF 1S), .01(XREF 1K), .03+1!, .06+1!, .09+1!, .09(XREF 1S), .09(XREF 1K) , 1(XREF 1K), 3+1!, 3(XREF 1S), 3(XREF 1K), 3(XREF 2K), 3(XREF 3S), 3(XREF 3K), 3.2+1!, 6+1!, 9+1! , 10+1!, 11+1!, 11.1+1!, 12+1!, 13+1!, 14+1!, 15+1!, 16+1*!, 17+1!, 18+1! , 18(XREF 1S), 18(XREF 1K), 18(XREF 2S), 18(XREF 2K), 700+1!, 700.02+1!, 700.04+1!
X(1	IXACSL+1, IXACKL+1, IXADSL+1, IXADKL+1, IXRSTSL+1, IXRSTKL+1
X(2	IXACSL+1, IXACKL+1, IXADSL+1, IXADKL+1, IXRSTSL+1, IXRSTKL+1
>> Y	.03+1, 6+1, 10+1, 11+1, 11.1+1, 12+1, 13+1, 14+1, 15+1, 16+1

Customize PDF page

Package: Lab Service

Global: ^LRO(69.6

Information

Description

Directly Accessed By Routines, Total: 28

Accessed By FileMan Db Calls, Total: 9

Pointer To FileMan Files, Total: 7

Fields, Total: 31

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: