<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wAddProc | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry, healthTag, cmdInterface, pkgOwner, isInterface, package, procDesc Dim sMessage Dim SEQ_proc_id '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- sMessage = NULL isInterface = NULL Set objFormCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% %> <% '------------ RUN BEFORE PAGE RENDER ---------- If CBool(Request("action")) Then Dim Query_String If Request("isInterface") = "" Then isInterface = "F" Else isInterface = "T" End If Query_String = _ " SELECT * FROM PROCESSES WHERE PROC_NAME = '"& Request("healthTag") &"'"&_ " AND RUN_AS = '"& Request("cmdInterface") &"' AND PKG_OWNER = '"& Request("pkgOwner") &"'"&_ " AND IS_INTERFACE = '"& isInterface &"'" Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0)) If rsTemp.RecordCount = 0 Then SEQ_proc_id = Get_From_DUAL("DEPLOYMENT_MANAGER.SEQ_PROC_ID.nextval") OraDatabase.Parameters.Add "PROC_ID", SEQ_proc_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PKG_HEALTH_TAG", Request("healthTag"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "PROC_DESC", Request("procDesc"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "CMD_INTERFACE", Request("cmdInterface"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "PKG_OWNER", Request("pkgOwner"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "IS_INTERFACE", isInterface, ORAPARM_INPUT, ORATYPE_VARCHAR OraDatabase.Parameters.Add "PV_ID", Request("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) On Error Resume Next OraDatabase.ExecuteSQL _ "BEGIN PK_PACKAGE.ADD_PROCESS( :PROC_ID, :PKG_HEALTH_TAG, :PROC_DESC, :CMD_INTERFACE, :PKG_OWNER, :IS_INTERFACE, :PV_ID, :USER_ID); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "PROC_ID" OraDatabase.Parameters.Remove "PKG_HEALTH_TAG" OraDatabase.Parameters.Remove "PROC_DESC" OraDatabase.Parameters.Remove "CMD_INTERFACE" OraDatabase.Parameters.Remove "PKG_OWNER" OraDatabase.Parameters.Remove "IS_INTERFACE" OraDatabase.Parameters.Remove "PV_ID" OraDatabase.Parameters.Remove "USER_ID" If objEH.Finally Then Call OpenInParentWindow ("process_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")) Call CloseWindow() End If Else Call RaiseMsg ( enum_MSG_PROCESS_EXISTS, Request("pv_id") ) End If rsTemp.Close Set rsTemp = nothing End If '---------------------------------------------- %>

<% '-- FROM START --------------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "FormSearch" objFormComponent.FormClass = "form_tight" objFormComponent.Action = "wAddProcessBySearch.asp" Call objFormComponent.FormStart() %> <%=objPMod.ComposeHiddenTags()%> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %> <% '-- FROM START -------------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "FormName" objFormComponent.FormClass = "form_tight" objFormComponent.Action = ScriptName objFormComponent.OnSubmit = "ShowProgress();" Call objFormComponent.FormStart() %> <%=objPMod.ComposeHiddenTags()%> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %>

Add Process Add a process for the package version.

Process Search

<%Call Messenger ( sMessage , 3, "100%" )%> Package Health Tag    Process Description <%=procDesc%> Package/Product <% Dim rsTemp Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT * FROM PACKAGE_VERSIONS PV, PACKAGES PKG WHERE PV.PKG_ID = PKG.PKG_ID AND PV.PV_ID ="& Request("pv_id") &"", cint(0)) Response.Write("") rsTemp.Close Set rsTemp = nothing %> Command Interface Is Interface (Checked If True) Package Owner

<% '------------ RUN AFTER PAGE RENDER ----------- Set objFormCollector = Nothing '---------------------------------------------- Call Destroy_All_Objects %>