Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

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