Domino Code Fragment

Code Name*
Pick list		Date*
03/17/2026		Source (or email address if you prefer)*
[email protected]
IP address:.104.23.243.67
Description*
Button = Computer Purchase
The following order of commands was imposed by how Notes processes different types of commands.		Type*
Formula		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
REM;
PICK := @Prompt([OKCANCELLIST]; "Purchase Request"; "Select the type of computer request"; "1. Workstation Request"; "1. Workstation Request" : "2. Hardware Request" : "3. Software Request");
REM;
REM " Test for cancel, if not then set audit information & close request DB";
@If(PICK = ERR_Cancel; @Return(""); "");
FIELD Type := "purchase request";
FIELD Form := "Audit";
@Command([ViewRefreshFields]);
@Command([FileSave]);
@Command([FileCloseWindow]);
@Command([FileCloseWindow]);
REM;
REM " Determine appropriate form to compose";
@Command([Compose]; "server" :"general\\Requests.nsf" ; PICK);