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.` AUDIT: `YES, ALWAYS` 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

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.
AUDIT: YES, ALWAYS
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