Domino Code Fragment

Code Name*
Approved & Mail button		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.18.222.163.31
Description*
Type*
Formula		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
FIELD Status := Status;
FIELD Status_Disp := Status_Disp;
FIELD StatusHistory := StatusHistory;
FIELD ShowDev := ShowDev;
FIELD InitDevContact := InitDevContact;
REM "***Verify action***";
Contin := @Prompt([YESNO];"Confirm Status Change";"Do you want to indicate that this request has been approved?");
@If(Contin;"";@Return(""));
REM;
Stat := "Approved";
@SetField("Status";Stat);
@SetField("Status_Disp"; Stat);
@SetField("StatusHistory";StatusHistory + @NewLine + "[ SET TO: \'" + Stat + "\': " + @Text(@Now;"T1") + " ]");
@SetField("ShowDev";"Yes");
REM;
Dev := @Prompt([OKCANCELEDIT];"Enter Development Contact";"Enter the name of the person who will be the contact for Development Activities on this request:"; AppReqAssignee );
@If(Dev !="";@SetField("InitDevContact";Dev);@SetField("InitDevContact";"(None)"));
@Command([FileSave]) ;
REM;
Continue := @Prompt([YESNO];"Confirm Mail Notify";"Notify Requester of the results of this review?");
@If(Continue;"";@Return(""));
SENDTO := RequestBy ;
CC := "";
BCC :="";
FROM := AppReqAssignee;
SUBJ := "<< New App Req Review Results - " + ReqNum + " >>";
BODY := "Your request for a New Application was approved. See details below:" +
@NewLine + @NewLine +
@Char(9) + "[ Title: " + DBTitle + " ]" + @NewLine +
@Char(9) + "[ " + TNumHeader + ": " + ReqNum + " ]" + @NewLine +
@NewLine + @NewLine +
"[ Comments ]" + @NewLine +
Comments ;
@MailSend(SENDTO;CC;BCC;SUBJ;"";BODY;[IncludeDoclink])