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

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

Print Page as PDF

Global: ^LAB(64.6

Package: Lab Service

Global: ^LAB(64.6

Information

FileMan FileNo	FileMan Filename	Package
64.6	INTERIM REPORTS	Lab Service

Description

This file is used to define whether or not your site will be generating interim reports of patient lab values and to what locations these reports will be sent or routed. Interim reports are defined as hard copy print- outs of a patient's test results which are generated between the times that the permanent chart copy (cumulative) is printed and made available. The entries in the fields of this file also let you determine whether or not to generate these interim reports automatically upon verification of the results in the lab, and specify the device (printer) for any of the reports to print on at a given location. NOTE: In order to have ANY location receive automatically generated interims, you must fill in the field 'Queue verified test(s) notice' in the LABORATORY SITE file (#69.9) with 'YES'.

Accessed By FileMan Db Calls, Total: 1

Package	Total	Routines
Lab Service	1	LR153

Pointer To FileMan Files, Total: 4

Package	Total	FileMan Files
Kernel	1	DEVICE(#3.5)[3]
Lab Service	1	URGENCY(#62.05)[4]
MailMan	1	DOMAIN(#4.2)[6]
Scheduling	1	HOSPITAL LOCATION(#44)[.01]

Fields, Total: 7

Field #	Name	Loc	Type	Details
.01	LOCATION	0;1	POINTER TO HOSPITAL LOCATION FILE (#44)	**********************REQUIRED FIELD********************** HOSPITAL LOCATION(#44) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)]""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 05, 1991` DESCRIPTION: `This is the ward or clinic that will be receiving interim reports.` SCREEN: `S DIC("S")="I $P(^(0),U,2)]"""""` EXPLANATION: `Can use only locations that have abbreviations.` CROSS-REFERENCE: `64.6^B` `1)= S ^LAB(64.6,"B",$E(X,1,30),DA)=""` `2)= K ^LAB(64.6,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `^^TRIGGER^64.6^5` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(64.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$P($G(^SC(+X,0)),U,2) X ^DD(64.6,.01,1,2,1.4)` `1.1)= S X=DIV S X=$S($L($P($G(^SC(+X,0)),U,2)):$P(^(0),U,2),1:"UNK")` `1.4)= S DIH=$S($D(^LAB(64.6,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=64.6,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `CREATE VALUE)= S X=$P($G(^SC(+X,0)),U,2)` `DELETE VALUE)= NO EFFECT` `FIELD)= LOCATION ABB` CROSS-REFERENCE: `64.6^AI^MUMPS` `1)= S:$P(^LAB(64.6,DA,0),U,3) ^LAB(64.6,"AI",$P(^LAB(64.6,DA,0),U,6),DA)=""` `2)= K:$P(^LAB(64.6,DA,0),U,3) ^LAB(64.6,"AI",$P(^LAB(64.6,DA,0),U,6),DA)` CROSS-REFERENCE: `64.6^AS1^MUMPS` `1)= S:$P(^LAB(64.6,DA,0),U,2) ^LAB(64.6,"AS",$P(^LAB(64.6,DA,0),U,6),DA)=""` `2)= K:$P(^LAB(64.6,DA,0),U,2) ^LAB(64.6,"AS",$P(^LAB(64.6,DA,0),U,6),DA)`
1	IMMEDIATELY TRANSMIT RESULTS	0;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 05, 1991` DESCRIPTION: `If this field is yes, all new data when verified will be transmitted to the device identified for the given location.` CROSS-REFERENCE: `64.6^AS^MUMPS` `1)= S:X ^LAB(64.6,"AS",$P(^LAB(64.6,DA,0),U,6),DA)=""` `2)= K ^LAB(64.6,"AS",$P(^LAB(64.6,DA,0),U,6),DA)`
2	INTERIM REPORTING	0;3	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 05, 1991` DESCRIPTION: `If this field is yes, the interim reports tasked by TaskMan, will transmit all verified data for the current day appropriate for the location.` CROSS-REFERENCE: `64.6^AI^MUMPS` `1)= S:X ^LAB(64.6,"AI",$P(^LAB(64.6,DA,0),U,6),DA)=""` `2)= K ^LAB(64.6,"AI",$P(^LAB(64.6,DA,0),U,6),DA)`
3	DEVICE	0;4	POINTER TO DEVICE FILE (#3.5)	**********************REQUIRED FIELD********************** DEVICE(#3.5) INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X I $D(X) S DIC(0)="EMQ" D ^DIC S X=$P(Y,U,2),DIC=DIE K:Y<1 X` LAST EDITED: `APR 30, 1987` HELP-PROMPT: `ENTER THE NAME OF THE DEVICE TO PRINT THIS REPORT ON` DESCRIPTION: `The default device to print the interim report on.` EXECUTABLE HELP: `S X="?",DIC(0)="Q",DIC="^%ZIS(1,",PDO(2)=$S($D(DO(2)):DO(2),1:"") D ^DIC S DO(2)=PDO(2) K DIC,PDO(2)` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `64.6^AD` `1)= S ^LAB(64.6,"AD",$E(X,1,30),DA)=""` `2)= K ^LAB(64.6,"AD",$E(X,1,30),DA)`
4	URGENCY CUTOFF	0;5	POINTER TO URGENCY FILE (#62.05)	URGENCY(#62.05) INPUT TRANSFORM: `S DIC("S")="I '$P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 05, 1993` DESCRIPTION: `This field is used when lab results are verified and immediately reported/printed on a ward. If this field is left blank, all tests of all urgencies will be reported. If an urgency is entered in this field, that urgency` `along with all higher urgencies will be reported to the ward leaving all lower urgencies not immediately reported.` SCREEN: `S DIC("S")="I '$P(^(0),U,3)"` EXPLANATION: `Prevent the selection of WKLD urgency`
5	LOCATION ABBREVIATION	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `MAR 05, 1991` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This field contains the printable short name for the location.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the LOCATION field of the INTERIM REPORTS File`
6	DOMAIN NAME	0;7	POINTER TO DOMAIN FILE (#4.2)	DOMAIN(#4.2) LAST EDITED: `APR 02, 1997` HELP-PROMPT: `If this location is a referring site then enter that's site Domain name.` DESCRIPTION: `This field is used to identify the Referring Site.`

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