Sub-Field: 69.29

Parent File	Name	Number	Package
LAB SECTION PRINT(#69.2)	INTERIM REPORT NUMBER	69.29	Lab Service

Parent File

Name

Number

Package

INTERIM REPORT NUMBER

69.29

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	INTERIM REPORT NUMBER	0;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X S DINUM=X` LAST EDITED: `JUN 08, 1984` HELP-PROMPT: `Enter internal number of Lab Results File` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1	LOCATION	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JUN 08, 1984` HELP-PROMPT: `Enter patient location` CROSS-REFERENCE: `69.29^C` 1)= S ^LRO(69.2,DA(1),3,"C",$E(X,1,30),DA)="" 2)= K ^LRO(69.2,DA(1),3,"C",$E(X,1,30),DA)

INTERIM REPORT NUMBER

0;1

NUMBER

LOCATION

0;2

FREE TEXT

************************REQUIRED FIELD************************

CROSS-REFERENCE: 69.29^C

1)= S ^LRO(69.2,DA(1),3,"C",$E(X,1,30),DA)=""

2)= K ^LRO(69.2,DA(1),3,"C",$E(X,1,30),DA)