Sub-Field: 60.1

Parent File	Name	Number	Package
LABORATORY TEST(#60)	SYNONYM	60.1	Lab Service

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SYNONYM	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:(X'?.ANP)!($L(X)>60) X` LAST EDITED: `APR 11, 2006` HELP-PROMPT: `ANSWER MUST BE 1-60 CHARACTERS IN LENGTH AND NOT ALREADY IN USE` DESCRIPTION: This is another name for the test. It may be the locally preferred name, or a common misspelling. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `60^B^MNEMONIC` 1)= S ^LAB(60,"B",$E(X,1,30),DA(1))=1 2)= K ^LAB(60,"B",$E(X,1,30),DA(1)) CROSS-REFERENCE: `60.1^B` 1)= S ^LAB(60,DA(1),5,"B",$E(X,1,30),DA)="" 2)= K ^LAB(60,DA(1),5,"B",$E(X,1,30),DA) CROSS-REFERENCE: `60.1^AX5^MUMPS` 1)= N TEST S TEST=DA(1) N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD^LR7OV0(TEST) 2)= N TEST,KSYN S TEST=DA(1),KSYN=DA N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD2^LR7OV0(TEST,KSYN) Trigger update to CPRS

SYNONYM

0;1

FREE TEXT

DESCRIPTION:

This is another name for the test.  It may be the locally preferred name, or a common misspelling.

CROSS-REFERENCE: 60^B^MNEMONIC

1)= S ^LAB(60,"B",$E(X,1,30),DA(1))=1

2)= K ^LAB(60,"B",$E(X,1,30),DA(1))

CROSS-REFERENCE: 60.1^B

1)= S ^LAB(60,DA(1),5,"B",$E(X,1,30),DA)=""

2)= K ^LAB(60,DA(1),5,"B",$E(X,1,30),DA)

CROSS-REFERENCE: 60.1^AX5^MUMPS

1)= N TEST S TEST=DA(1) N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD^LR7OV0(TEST)

2)= N TEST,KSYN S TEST=DA(1),KSYN=DA N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD2^LR7OV0(TEST,KSYN)

Trigger update to CPRS