INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<2) X
LAST EDITED: SEP 26, 1991
HELP-PROMPT: This is the common name/abbreviation for the Service, 2-45 characters in length.
DESCRIPTION: This multiple field identifies the commonly known names and abbreviations for the Service named in the .01 Name field. Synonyms identified here are used in the look-up of services at 'Select Service/Specialty: '
prompts.
CROSS-REFERENCE: 123.52^B
1)= S ^GMR(123.5,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^GMR(123.5,DA(1),2,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 123.5^D
1)= S ^GMR(123.5,"D",$E(X,1,30),DA(1),DA)=""
2)= K ^GMR(123.5,"D",$E(X,1,30),DA(1),DA)
This cross-reference allows SYNONYMS to be used to find the Service to send a consult to.