We are running on AREV 3.12. One of our programmers asked the question, how do you make a user select from a browse only and not allow them to type something into a prompt? This is for room and bed assignments and we don't want to assign someone to a bed that is all ready assigned to someone else. What we have now is an F2 browse that has a filter on it that displays only those beds that are not assigned a the moment. We want the user to select from that browse list only and not type somethng in free hand. Is there any way to do something like this?

Our thinking is that if we can force them to select from the browse list only then it would simplify a lot of things. Such as validation and bed assignment for the most part. The prompt we are dealing with is the first in a group that you can tab directly to. So there isn't a post prompt from another prompt that we can use. There isn't a combination of other prompts that we can use to fill this prompt.

Any suggestions you can give would be a help.

Thanks,

Michael Slack

You can do what you want as follows (this is from AREV 2.12 but it will work in AREV 3.x):

From the Prompt Edit screen …

Processing Code Command

Options S= SHOW.WEDS

Detail help H 11

Pre-prompt

Post-prompt S MAKE.NEW.SCHED

The=character after the S (subroutine) call plugs the value with the result of the subroutine and the post prompt makes sure that whatever is there is in @ANS (which was returned from the subroutine). Make sure that you do the same thing in the Null Default too:

This is from the same panel in paint

Default SHOW.WEDS

When the cursor lands on the prompt and it is empty it calls the same routine that would be called from the Options key. In either event, whatever is keyed in is matched against @ANS for single-values. If you have a list of things to choose from, then load up @USERn with a field-mark delimited string of available items. Then at post-prompt:

* make sure AREV_COMMON is loaded

LOCATE IS IN @USER0 USING @FM SETTING POS ELSE

CALL MSG('You did not select a valid option...')

STATUS()=0

WC_VALID%=0

END

You may have problems doing this in an AMV group since you can't ever get out unless you allow for a quit value (which you can clear in your post promt code). Then just send a DATA "" back to get out of the AMV group.

Long answer to an interesting question, though.

Don Miller

C3 Inc.

RETURN

Thanks for the info. That sounds like what we're looking for.

Thanks,

Michael Slack

You could always use a replace scribe process….

The Sprezzatura Group

World Leaders in all things RevSoft

View this thread on the forum...