INPUT TRANSFORM: K:$L(X)>30!($L(X)<1)!($E(X,1)=" ")!($E(X,$L(X))=" ")!(X[" ")!(X'?.ANP) X
LAST EDITED: MAR 31, 2008
HELP-PROMPT: Answer must be 1-30 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)="".