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.9001

Package: Lab Service

LABORATORY SITE(#69.9)-->69.9001

Sub-Field: 69.9001


Information

Parent File Name Number Package
LABORATORY SITE(#69.9) PHLEBOTOMY ORDER CUT-OFF TIME 69.9001 Lab Service

Details

Field # Name Loc Type Details
.01 PHLEBOTOMY ORDER CUT-OFF TIME 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X'?4N X I $D(X) S DINUM=$E(X,1,2)*3600+($E(X,3,4)*60)
  • LAST EDITED:  AUG 28, 1998
  • HELP-PROMPT:  ENTER TIME IN MILITARY TIME FORMAT, e.g. 0630
  • DESCRIPTION:  
    The order cutoff time for associated collection time. Time is in 24 hour format.  Orders placed after the cut-off time will be put on the next routine lab collection.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  69.9001^AXC2^MUMPS
    1)= Q
    2)= Q:'$$XPARCK^LR7OV2  I $L($P($G(^LAB(69.9,DA(1),4,DA,0)),"^",4)) N X D DEL^XPAR($$DIV^LR7OV1($P(^(0),"^",4)),"LR PHLEBOTOMY COLLECTION",DA)
    Update CPRS Collection parameter
1 PHLEBOTOMY COLLECTION TIME 0;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X'?4N!($E(X,3,4)>59)!(+X>2400)!(X<$P(^LAB(69.9,DA(1),4,DA,0),"^")) X
  • LAST EDITED:  AUG 28, 1998
  • HELP-PROMPT:  ENTER TIME IN MILITARY TIME FORMAT, e.g. 0630 (must be after CUT-OFF TIME)
  • DESCRIPTION:  
    This is the default time for the routine phlebotomy collection.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^69.9001^2
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(69.9,D0,4,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(69.9001,1,1,1,1.1) X ^DD(69.9001,1,1,1,1.4)
    1.1)= S X=DIV S Y=$S($D(^LAB(69.9,DA(1),4,DA,0)):$P(^(0),"^",2),1:"") I $L(Y) S X=$E(Y,1,2)*3600+($E(X,3,4)*60)
    1.4)= S DIH=$S($D(^LAB(69.9,DIV(0),4,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=69.9001,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(69.9,D0,4,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(69.9001,1,1,1,2.4)
    2.4)= S DIH=$S($D(^LAB(69.9,DIV(0),4,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=69.9001,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S Y=$S($D(^LAB(69.9,DA(1),4,DA,0)):$P(^(0),"^",2),1:"") I $L(Y) S X=$E(Y,1,2)*3600+($E(X,3,4)*60)
    DELETE VALUE)= @
    FIELD)= $H FORMAT
  • CROSS-REFERENCE:  69.9001^AXC^MUMPS
    1)= I $P($G(^LAB(69.9,DA(1),4,DA,0)),"^",4) D COLTIM^LR7OV1($P(^(0),"^",4),DA,X)
    2)= Q:'$$XPARCK^LR7OV2  I $L($P($G(^LAB(69.9,DA(1),4,DA,0)),"^",4)) N X D DEL^XPAR($$DIV^LR7OV1($P(^(0),"^",4)),"LR PHLEBOTOMY COLLECTION",DA)
    Triggers LR PHLEBOTOMY COLLECTION parameter in CPRS.
2 $H FORMAT FOR COLLECTION TIME 0;3 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 15, 1988
  • DESCRIPTION:  
    This field is computed from what is entered in the PHLEBOTOMY COLLECTION field.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the PHLEBOTOMY COLLECTION TIME field of the PHLEBOTOMY ORDER CUT-OFF TIME sub-field of the LABORATORY SITE File
  • CROSS-REFERENCE:  69.9001^AC
    1)= S ^LAB(69.9,DA(1),4,"AC",$E(X,1,30),DA)=""
    2)= K ^LAB(69.9,DA(1),4,"AC",$E(X,1,30),DA)
3 DIVISION 0;4 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  AUG 28, 1998
  • HELP-PROMPT:  Enter the Division this collection time applies to.
  • DESCRIPTION:  
    Allows a multi-division site to define which collection times are applicable to which division.  OE/RR-LAB interface uses this to screen out times for Lab Collection.
  • CROSS-REFERENCE:  69.9001^AXC1^MUMPS
    1)= I $L($P($G(^LAB(69.9,DA(1),4,DA,0)),"^",2)) D COLTIM^LR7OV1(X,DA,$P(^(0),"^",2))
    2)= Q:'$$XPARCK^LR7OV2  D DEL^XPAR($$DIV^LR7OV1(X),"LR PHLEBOTOMY COLLECTION",DA)
    Triggers LR PHLEBOTOMY COLLECTION parameter in CPRS.
Info |  Details |  All