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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^LRO(69.6

Package: Lab Service

Global: ^LRO(69.6


Information

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

Description

Directly Accessed By Routines, Total: 28

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

Accessed By FileMan Db Calls, Total: 9

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

Pointer To FileMan Files, Total: 7

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)[12#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

External References

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LRO(69.6 - [#69.6] IXACSL+1*, IXACKL+1!, IXACKEIC+1!, IXADSL+1*, IXADKL+1!, IXADKEIC+1!, IXAESL+1*, IXAEKL+1!, IXAEKEIC+1!, IXRSTSL+1*
, IXRSTKL+1!, IXRSTKEIC+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)

Naked Globals

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

Local Variables

Legend:

>> 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
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All