Sub-Field: 51.242

Parent File	Name	Number	Package
DOSE UNITS(#51.24)	SYNONYM	51.242	Pharmacy Data Management

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SYNONYM	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1)!($E(X,1)=" ")!($E(X,$L(X))=" ")!(X[" ")!(X'?.ANP) X` `MAXIMUM LENGTH: 40` LAST EDITED: `SEP 16, 2024` HELP-PROMPT: `Answer must be 1-40 characters in length, comprised of upper and lower case letters, numerics, and punctuation, and contain no leading, trailing, or consecutive spaces.` DESCRIPTION: `This is a synonym for the NAME field, which is the name of the DOSE UNIT.` `WRITE AUTHORITY: ^` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `51.242^B` `1)= S ^PS(51.24,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^PS(51.24,DA(1),1,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `51.24^D` `1)= S ^PS(51.24,"D",$E(X,1,30),DA(1),DA)=""` `2)= K ^PS(51.24,"D",$E(X,1,30),DA(1),DA)` `This is a whole file cross reference on the SYNONYM (#.01) Field of the SYNONYM (#51.242) Subfile. It sets the global PS(51.24,"D",SYNONYM,DA(1),DA)="".` FIELD INDEX: `FDBSYN (#1755) REGULAR IR LOOKUP & SORTING WHOLE FILE (#51.24)` `Short Descr: Full length index on the Synonym field` `Description: This is a full length index on the Synonym field for use in First Databank order processing.` `Set Logic: S ^PS(51.24,"FDBSYN",$E(X,1,40),DA(1),DA)=""` `Kill Logic: K ^PS(51.24,"FDBSYN",$E(X,1,40),DA(1),DA)` `Whole Kill: K ^PS(51.24,"FDBSYN")` `X(1): SYNONYM (51.242,.01) (Subscr 1) (Len 40) (forwards)`

SYNONYM

0;1

FREE TEXT

INPUT TRANSFORM: K:$L(X)>40!($L(X)<1)!($E(X,1)=" ")!($E(X,$L(X))=" ")!(X[" ")!(X'?.ANP) X
MAXIMUM LENGTH: 40
LAST EDITED: SEP 16, 2024
HELP-PROMPT: Answer must be 1-40 characters in length, comprised of upper and lower case letters, numerics, and punctuation, and contain no leading, trailing, or consecutive spaces.
DESCRIPTION:
This is a synonym for the NAME field, which is the name of the DOSE UNIT.
WRITE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 51.242^B
1)= S ^PS(51.24,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PS(51.24,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 51.24^D
1)= S ^PS(51.24,"D",$E(X,1,30),DA(1),DA)=""
2)= K ^PS(51.24,"D",$E(X,1,30),DA(1),DA)
This is a whole file cross reference on the SYNONYM (#.01) Field of the SYNONYM (#51.242) Subfile. It sets the global PS(51.24,"D",SYNONYM,DA(1),DA)="".
FIELD INDEX: FDBSYN (#1755) REGULAR IR LOOKUP & SORTING WHOLE FILE (#51.24)
Short Descr: Full length index on the Synonym field
Description: This is a full length index on the Synonym field for use in First Databank order processing.
Set Logic: S ^PS(51.24,"FDBSYN",$E(X,1,40),DA(1),DA)=""
Kill Logic: K ^PS(51.24,"FDBSYN",$E(X,1,40),DA(1),DA)
Whole Kill: K ^PS(51.24,"FDBSYN")
X(1): SYNONYM (51.242,.01) (Subscr 1) (Len 40) (forwards)