Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 69.99

Package: Lab Service

LABORATORY SITE(#69.9)-->69.99

Sub-Field: 69.99


Information

Parent File Name Number Package
LABORATORY SITE(#69.9) HOSPITAL SITE 69.99 Lab Service

Details

Field # Name Loc Type Details
.01 HOSPITAL SITE 0;1 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • INPUT TRANSFORM:  S DINUM=X
  • LAST EDITED:  NOV 06, 1997
  • DESCRIPTION:  
    This is the hospital site where parameters may aply.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  69.99^AXM^MUMPS
    1)= I $G(^LAB(69.9,DA(1),9,DA,0)) D MAXDAY^LR7OV1(X,1,$P(^(0),"^",2))
    2)= I $G(^LAB(69.9,DA(1),9,DA,0)) D MAXDAY^LR7OV1(X,1,"")
    Trigger LR MAX DAYS CONTINUOUS parameter in CPRS.
  • CROSS-REFERENCE:  69.99^AXU^MUMPS
    1)= I $G(^LAB(69.9,DA(1),9,DA,0)) D URG^LR7OV1(X,1,$S($P(^(0),"^",5):"YES",1:"NO"))
    2)= D URG^LR7OV1(X,1,"NO")
    Trigger the LR ASK URGENCY parameter in CPRS.
  • CROSS-REFERENCE:  69.99^AXT^MUMPS
    1)= I $G(^LAB(69.9,DA(1),9,DA,0)) D TYPE^LR7OV1(X,1,$P(^(0),"^",6))
    2)= I $G(^LAB(69.9,DA(1),9,DA,0)) D TYPE^LR7OV1(X,1,"")
    Triggers the LR DEFAULT TYPE QUICK parameter in CPRS.
1 MAX DAYS FOR CONTINUOUS ORDERS 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>30)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 06, 1997
  • HELP-PROMPT:  Type a Number between 0 and 30, 0 Decimal Digits
  • DESCRIPTION:  
    This is the maximum number of days that multiple-continuous orders can be placed for this location.
  • CROSS-REFERENCE:  69.99^AXM1^MUMPS
    1)= I $G(^LAB(69.9,DA(1),9,DA,0)) D MAXDAY^LR7OV1($P(^(0),"^"),1,X)
    2)= I $G(^LAB(69.9,DA(1),9,DA,0)) D MAXDAY^LR7OV1($P(^(0),"^"),1,"")
    Trigger LR MAX DAYS CONTINUOUS parameter in CPRS.
4 ASK URGENCY 0;5 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  NOV 06, 1997
  • DESCRIPTION:  
    Answer YES to this field to prompt with urgency for every test when ordering through OE/RR.  Tests with a forced urgency as defined in the Laboratory test file overide this parameter.
  • CROSS-REFERENCE:  69.99^AXU1^MUMPS
    1)= I $G(^LAB(69.9,DA(1),9,DA,0)) D URG^LR7OV1($P(^(0),"^"),1,X)
    2)= I $G(^LAB(69.9,DA(1),9,DA,0)) D URG^LR7OV1($P(^(0),"^"),1,"")
    Triggers LR ASK URGENCY parameter in CPRS.
5 DEFAULT TYPE FOR QUICK ORDERS 0;6 SET
  • 'WC' FOR WARD COLLECT;
  • 'SP' FOR SEND PATIENT;
  • 'LC' FOR LAB COLLECT;

  • LAST EDITED:  NOV 06, 1997
  • HELP-PROMPT:  Enter the type of collection (Ward collect, Send patient or Lab collect) that Quick Orders should use.
  • DESCRIPTION:  
    The entry in this field will determine the type of collection that 'Quick Orders' will have assigned to them.  ex: Ward Collect, Send Patient or Lab Collect
  • CROSS-REFERENCE:  69.99^AXT1^MUMPS
    1)= I $G(^LAB(69.9,DA(1),9,DA,0)) D TYPE^LR7OV1($P(^(0),"^"),1,X)
    2)= I $G(^LAB(69.9,DA(1),9,DA,0)) D TYPE^LR7OV1($P(^(0),"^"),1,"")
    Triggers the LR DEFAULT TYPE QUICK parameter in CPRS.
Info |  Details |  All