<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wAddProdBySearch | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim parProcess_name Dim parPv_id '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- parBom_id = Request("bom_id") parProcess_name = Request("prod_name") parOs_id = Request("os_id") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Function SearchProcessNamesQuery ( sProcess_name ) Dim tempSTR tempSTR = GetQuery ("ProcessNameSearch.sql") SearchProcessNamesQuery = Replace ( tempSTR, ":PROCESS_NAME", sProcess_name ) End Function '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- 'objPMod.PersistInQryString ( Array("base_env_id") ) '---------------------------------------------- If CBool(Request("action")) Then On Error Resume Next OraDatabase.Parameters.Add "PROC_ID_LIST", Request("proc_id_list"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "PROD_ID", Request("prod_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "OS_ID", Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN PK_OPERATING_SYSTEM.ADD_PACKAGE_PROCESS ( :PROC_ID_LIST, :PROD_ID, :OS_ID, :USER_ID ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "PROC_ID_LIST" OraDatabase.Parameters.Remove "PROD_ID" OraDatabase.Parameters.Remove "OS_ID" OraDatabase.Parameters.Remove "USER_ID" If objEH.Finally Then Call OpenInParentWindow ("Os_Processes.asp?bom_id="& parBom_id &"&os_id="& parOs_id) Call CloseWindow() End If End If %> <%=objPMod.ComposeHiddenTags()%>

Add Process

Process Search

<%If parProcess_name <> "" Then%> Search result for <%=parProcess_name%> <% Set rsQry = OraDatabase.DbCreateDynaset( SearchProcessNamesQuery ( parProcess_name ), ORADYN_DEFAULT ) %> <%If rsQry.RecordCount < 1 Then%> No Results Found. <%Else%> Select Process and click Add. <% While (NOT rsQry.BOF) AND (NOT rsQry.EOF) %> <%rsQry.MoveNext%> <% WEnd rsQry.Close Set rsQry = Nothing %> Process Name Run As Pkg Owner Is Interface " <%=rsQry("checked")%>> <%=HighlightSubstring ( rsQry("proc_name"), parProcess_name )%> <%=rsQry("run_as")%> <%=rsQry("pkg_owner")%> <%=rsQry("is_interface")%> <%End If%>

<%Else Response.Write("Click Back and Enter a Process Name!") End If%> <%=objPMod.ComposeHiddenTags()%> <% '------------ RUN AFTER PAGE RENDER ----------- 'Set objFormCollector = Nothing '---------------------------------------------- Call Destroy_All_Objects %>