-----------------------------------------------------------------------------
-- Registering Security Checkpoints
-----------------------------------------------------------------------------
SET DEFINE ^
PROMPT =======> Registering Security Checkpoint Gate "DOCMAN_DOC_REV_SET_TO_APPROVED"
DECLARE
   Gate_Id_  VARCHAR2(1000) := 'DOCMAN_DOC_REV_SET_TO_APPROVED';
   Info_Msg_ VARCHAR2(32000) := '';
   Par_Msg_  VARCHAR2(32000) := '';
BEGIN
   -- Construct Main Message
   Info_Msg_ := Message_Sys.Construct('GATE');
   Message_Sys.Add_Attribute(Info_Msg_, 'DESCRIPTION', 'Used when approving a Document Revision');
   Message_Sys.Add_Attribute(Info_Msg_, 'MESSAGE', 'Person &PERSON_ID approved Document Revision &DOC_CLASS-&DOC_NO-&DOC_SHEET-&DOC_REV');
   Message_Sys.Add_Attribute(Info_Msg_, 'ACTIVE_DB', 'TRUE');
   -- Adding parameters
   -- Construct Parameter Message
   Par_Msg_ := Message_Sys.Construct('PARAMETERS');
   Message_Sys.Add_Attribute(Par_Msg_, 'PERSON_ID', 'STRING');
   Message_Sys.Add_Attribute(Par_Msg_, 'DOC_CLASS', 'STRING');
   Message_Sys.Add_Attribute(Par_Msg_, 'DOC_NO', 'STRING');
   Message_Sys.Add_Attribute(Par_Msg_, 'DOC_SHEET', 'STRING');
   Message_Sys.Add_Attribute(Par_Msg_, 'DOC_REV', 'STRING');
   -- Add Parameters message to main message
   Message_Sys.Add_Attribute(Info_Msg_, 'PARAMETERS', Par_Msg_);
   -- Register Security Checkpoint Gate
   Sec_Checkpoint_Gate_Api.Register(Gate_Id_, Info_Msg_);
END;
/
COMMIT
/
SET DEFINE &