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 |  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: 25

Package Total Routines
Automated Lab Instruments 16 LA7CHLU    LA7CORU    LA7PURG    LA7SBCR1    LA7SMPXL    LA7SSR    LA7VCIN3    LA7VHLU
LA7VIN3    LA7VLIN3    LA7VMSG1    LA7VORM    LA7VORR1    LA7VORU    LA7VQIN3    LA7VRIN3
Lab Service 9 LR232    LR286    LR302A    LRDPAREF    LRORDB    LRPEND    LRWLST1    LRWLST11
LRWLST12    

Accessed By FileMan Db Calls, Total: 18

Package Total Routines
Automated Lab Instruments 13 LA7PURG    LA7SMPXL    LA7VCIN2    LA7VCN5A    LA7VIN2    LA7VIN5A    LA7VLIN2    LA7VLN5A
LA7VORM    LA7VQIN2    LA7VQN5A    LA7VRIN2    LA7VRN5A    
Lab Service 5 LR286    LRDPAREF    LRORDB    LRPEND    LRWLST11    

Pointer To FileMan Files, Total: 7

Package Total FileMan Files
Lab Service 6 LABORATORY TEST(#60)[#69.64(11)]    TOPOGRAPHY FIELD(#61)[4]    COLLECTION SAMPLE(#62)[5]    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]    

Fields, Total: 29

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:  MAY 20, 1997
  • 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.





2
COLLECTING SITE
0;5
POINTER TO INSTITUTION FILE (#4)
INSTITUTION(#4)
  • LAST EDITED:  FEB 26, 1997
  • 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) = ""





3
ORDERING SITE UID
0;6
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  APR 12, 2002
  • 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) = ""





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:  AUG 21, 1997
  • 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.





20
ORDERED TESTS
2;0
Multiple #69.64 
69.64




99
COMMENTS
99;0
WORD-PROCESSING #69.699





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







    



Info | 
Desc | 
Directly Accessed By Routines | 
Accessed By FileMan Db Calls | 
Pointer To FileMan Files | 
Fields | 
All