Sub-Field: 60.2

Parent File	Name	Number	Package
60.01	FOREIGN COMPUTER SYSTEM	60.2	Lab Service

Details

Field #	Name	Loc	Type	Details
.01	FOREIGN COMPUTER SYSTEM	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X` LAST EDITED: `NOV 23, 1993` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `Reserved for future use. Do not use.` CROSS-REFERENCE: `60.2^B` `1)= S ^LAB(60,DA(2),1,DA(1),4,"B",$E(X,1,30),DA)=""` `2)= K ^LAB(60,DA(2),1,DA(1),4,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `60.01^AC^MUMPS` `1)= S ^LAB(60,DA(2),1,"AC",$E(X,1,30),DA(1),DA)=""` `2)= K ^LAB(60,DA(2),1,"AC",$E(X,1,30),DA(1),DA)` `To allow look up of foreign computer symbols for this test and sample.`
1	FOREIGN ITEM #	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `NOV 23, 1993` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `RESERVED FOR FUTURE USE`
2	INTEGER	0;3	SET	LAST EDITED: `NOV 23, 1993` HELP-PROMPT: `ENTER 'YES' IF THE FOREIGN COMPUTER EXPECTS THIS VALUE TO BE AN INTEGER.` DESCRIPTION: `RESERVED FOR FUTURE USE`
3	UNIT CONVERSION	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `NOV 23, 1993` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `RESERVED FOR FUTURE USE` EXECUTABLE HELP: `Q`