Sub-Field: 200.0089834

Parent File	Name	Number	Package
NEW PERSON(#200)	LM LIMIT WP FIELDS TO EDIT	200.0089834	Kernel

Parent File

Name

Number

Package

LM LIMIT WP FIELDS TO EDIT

200.0089834

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	LM LIMIT WP FIELDS TO EDIT	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>150!($L(X)<4) X I $D(X) S %=X,X="WPSEFM" X ^%ZOSF("TEST") K X I $T S X=% D SCREEN^WPSEFM` LAST EDITED: `DEC 12, 1990` HELP-PROMPT: `Answer must be 4-150 characters in length.` EXECUTABLE HELP: `S X="WPSEHELP" X ^%ZOSF("TEST") I $T D FMHELP^WPSEHELP` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `200.0089834^B` 1)= S ^VA(200,DA(1),"LM4","B",$E(X,1,30),DA)="" 2)= K ^VA(200,DA(1),"LM4","B",$E(X,1,30),DA)

LM LIMIT WP FIELDS TO EDIT

0;1

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>150!($L(X)<4) X I $D(X) S %=X,X="WPSEFM" X ^%ZOSF("TEST") K X I $T S X=% D SCREEN^WPSEFM
LAST EDITED: DEC 12, 1990
HELP-PROMPT: Answer must be 4-150 characters in length.
EXECUTABLE HELP: S X="WPSEHELP" X ^%ZOSF("TEST") I $T D FMHELP^WPSEHELP
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 200.0089834^B

1)= S ^VA(200,DA(1),"LM4","B",$E(X,1,30),DA)=""

2)= K ^VA(200,DA(1),"LM4","B",$E(X,1,30),DA)