INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<4) X I $D(X) Q:$D(^DIC(19.1,"B",X)) W !,*7,"Lock name must match exactly with a key in the SECURITY KEY file." K X
LAST EDITED: AUG 25, 2008
HELP-PROMPT: Enter the name of the security key required to modify this summary type.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER