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

Package: Lab Service

LAB REPORTS(#64.5)-->64.56

Sub-Field: 64.56

Information

Parent File	Name	Number	Package
LAB REPORTS(#64.5)	REPORT NAME	64.56	Lab Service

Details

Field #	Name	Loc	Type	Details
.01	REPORT NAME	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<2) X` LAST EDITED: `FEB 06, 1985` HELP-PROMPT: `ANSWER MUST BE 2-20 CHARACTERS IN LENGTH` DESCRIPTION: `This is an arbitrary report name.` CROSS-REFERENCE: `64.56^B` `1)= S ^LAB(64.5,DA(1),3,"B",$E(X,1,30),DA)=""` `2)= K ^LAB(64.5,DA(1),3,"B",$E(X,1,30),DA)`
1	DEVICE	.1;1	POINTER TO DEVICE FILE (#3.5)	**********************REQUIRED FIELD********************** DEVICE(#3.5) INPUT TRANSFORM: `S PD=$P(X,";",2),X=$P(X,";"),DIC(0)="EMQ" S:$L(PD) DIC("S")="I ^%ZIS(1,+Y,""TYPE"")[""SPL""" D ^DIC S X=$P(Y,U,2)_$S($L(PD):";",1:"")_PD,DIC=DIE K PD K:Y<1 X` LAST EDITED: `APR 30, 1987` HELP-PROMPT: `ENTER THE DEVICE FOR THIS RANGE OF LOCATIONS` DESCRIPTION: `This field should contain the name(s) of the printers that are used to print the cumulative. A starting and ending location needs to be defined for each device. This range should include all locations that desire` `cumulatives. An example of starting and ending locations for a system using one printer to print all cumulatives would be:` `STARTING LOCATION: (leave blank)` `ENDING LOCATION: ZZZZZZ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2	MANUAL PRINT	.1;2	SET	'1' FOR YES; LAST EDITED: `JAN 17, 1986` HELP-PROMPT: `Enter a "YES" in this field if you want to withhold this report from automatic queuing of the cumulative report.` DESCRIPTION: `A "YES" in this field will cause the locations defined in this report not to print with the automatic queuing capabilities of the cumulative report. To print a report with the manual designation of this field, use the` `option LRAC MANUAL and selectively queue this report.`
3	FILE ROOM REPORT	.1;3	SET	'1' FOR YES; LAST EDITED: `JAN 13, 1994` HELP-PROMPT: `See description for field #17, SEPARATE FILE ROOM, for additional information on using this field.` DESCRIPTION: `This field is used to designate a report to print a file room location. It is used in conjunction with fields #4, "FILE ROOM" and #17 "SEPARATE FILE ROOM". It allows the cumulative to identify those reports which should` `be run when a site wishes to print the file room reports and they are doing so on a schedule separate from the regular cumulative.` `See description for field #17, "SEPARATE FILE ROOM", for additional information on using this field.` SCREEN: `S DIC("S")="S LRX=$G(^LAB(64.5,1,3,DA,0)) I $P(LRX,U,2)[""FILE ROOM"",$P(LRX,U,3)[""FILE ROOM"""` EXPLANATION: `YES only allowed if starting /ending locations contain "FILE ROOM".`
5	STARTING LOCATION	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `DEC 05, 1985` HELP-PROMPT: `ANSWER MUST BE 1-20 CHARACTERS IN LENGTH` DESCRIPTION: `This is where the starting location is defined for a device printing the cumulative report. If this field is left blank, then the report will start at the first location.`
10	ENDING LOCATION	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>20!($L(X)<2) X` LAST EDITED: `DEC 17, 1984` HELP-PROMPT: `ANSWER MUST BE 2-20 CHARACTERS IN LENGTH` DESCRIPTION: `This is where the ending location is defined for a device printing the cumulative report.`
15	LAST LOCATION	0;4	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X` OUTPUT TRANSFORM: `NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!` LAST EDITED: `MAR 13, 1987` HELP-PROMPT: `ANSWER MUST BE 1-20 CHARACTERS IN LENGTH` DESCRIPTION: `This field is used by the cumulative routines to specify the last printed location for this device. DO NOT FILL IN THIS FIELD AS PART OF THE INITIAL FILE SET-UP.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `64.56^MUMPS^MUMPS` `1)= S $P(^LAC("DEV",DA,0),"^",1)=X` `2)= S $P(^LAC("DEV",DA,0),"^",1)=""`
17	LAST PATIENT	0;5	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>25!($L(X)<2) X` OUTPUT TRANSFORM: `NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!` LAST EDITED: `MAR 13, 1987` HELP-PROMPT: `ANSWER MUST BE 2-25 CHARACTERS IN LENGTH` DESCRIPTION: `This field is used by the cumulative routines to specify the last printed patient for this device. DO NOT FILL IN THIS FIELD AS PART OF THE INITIAL FILE SET-UP.` CROSS-REFERENCE: `64.56^MUMPS1^MUMPS` `1)= S:$D(X) $P(^LAC("DEV",DA,0),"^",2)=X` `2)= S $P(^LAC("DEV",DA,0),"^",2)=""`
18	LAST LRDFN	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!` LAST EDITED: `MAR 13, 1987` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999` DESCRIPTION: `This field is used by the cumulative routines to specify the last printed DFN. DO NOT FILL IN THIS FIELD AS PART OF THE INITIAL FILE SET-UP.` CROSS-REFERENCE: `64.56^MUMPS2^MUMPS` `1)= S:$D(X) $P(^LAC("DEV",DA,0),"^",3)=X` `2)= S $P(^LAC("DEV",DA,0),"^",3)=""`
25	STARTING TIME	0;7	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` OUTPUT TRANSFORM: `NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!` LAST EDITED: `MAR 13, 1987` DESCRIPTION: `This field is used by the cumulative routines to give the starting time of the cumulative for this device. DO NOT FILL IN THIS FIELD AS PART OF THE INITIAL FILE SET-UP.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `64.56^MUMPS3^MUMPS` `1)= S:$D(X) $P(^LAC("DEV",DA,0),"^",4)=X` `2)= S $P(^LAC("DEV",DA,0),"^",4)=""`
26	ENDING TIME	0;8	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` OUTPUT TRANSFORM: `NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!` LAST EDITED: `MAR 13, 1987` DESCRIPTION: `This field is used by the cumulative routines to give the ending time of the cumulative for this device. DO NOT FILL IN THIS FIELD AS PART OF THE INITIAL FILE SET-UP.` CROSS-REFERENCE: `64.56^MUMPS4^MUMPS` `1)= S:$D(X) $P(^LAC("DEV",DA,0),"^",5)=X` `2)= S $P(^LAC("DEV",DA,0),"^",5)=""`