----------------------------------------------------------------------------- -- 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 &