"
Const LIMG_PRODUCT_UNPACKAGED = "
"
Const LIMG_PRODUCT_PATCH = "
"
'------------ VARIABLE INIT -------------------
sMessage = NULL
isInterface = NULL
parOs_id = Request("os_id")
parBom_id = Request("bom_id")
Set objFormCollector = CreateObject("Scripting.Dictionary")
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
<%
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
If Request("btn") = "Import" Then
If Request("prod_id_list") <> "" Then
On Error Resume Next
OraDatabase.Parameters.Add "PROD_ID", Request("prod_id_list"), 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_PACKAGES_PROCESS ( :PROD_ID, :OS_ID, :USER_ID ); END;"
objEH.CatchORA ( OraSession )
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
Else
sMessage = "Please select Product(s) from Release Manager list then click Add."
End If
End If
If CBool(Request("action")) Then
If Request("isInterface") = "" Then
isInterface = "F"
Else
isInterface = "T"
End If
Query_String = _
" SELECT * FROM PROCESSES WHERE PROC_NAME = '"& Request("healthTag") &"'"&_
" AND RUN_AS = '"& Replace(Request("cmdInterface"), "'", "''") &"' AND PKG_OWNER = '"& Request("pkgOwner") &"'"&_
" AND IS_INTERFACE = '"& isInterface &"'"
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
If rsTemp.RecordCount = 0 Then
objEH.Try
SEQ_proc_id = Get_From_DUAL("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 "OS_ID", Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER
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 "PROD_ID", Request("prod_id"), ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
OraSession.BeginTrans
OraDatabase.ExecuteSQL _
"BEGIN Add_Process( :PROC_ID, :PKG_HEALTH_TAG, :OS_ID, :CMD_INTERFACE, :PKG_OWNER, :IS_INTERFACE, :PROD_ID, :USER_ID); END;"
OraSession.CommitTrans
OraSession.BeginTrans
OraDatabase.ExecuteSQL _
"BEGIN RELEASE_MANAGER.PK_PACKAGE.ADD_PROCESS( :PROC_ID, :PKG_HEALTH_TAG, :PROC_DESC, :CMD_INTERFACE, :PKG_OWNER, :IS_INTERFACE, :PROD_ID, :USER_ID); END;"
OraSession.CommitTrans
OraDatabase.Parameters.Remove "PROC_ID"
OraDatabase.Parameters.Remove "PKG_HEALTH_TAG"
OraDatabase.Parameters.Remove "OS_ID"
OraDatabase.Parameters.Remove "CMD_INTERFACE"
OraDatabase.Parameters.Remove "PKG_OWNER"
OraDatabase.Parameters.Remove "IS_INTERFACE"
OraDatabase.Parameters.Remove "PROD_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
Else
Call Messenger ("Cannot add process! The process already exists in the database. Select a product and search for the process by name.", 1, "100%")
End If
End If
'--------------------------------------------------------------------------------------------------------------------------
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
Dim rsQry, query
OraDatabase.Parameters.Add "BOM_ID", nBom_id, ORAPARM_INPUT, ORATYPE_NUMBER
query = _
" SELECT bo.RTAG_ID_FK,"&_
" rm_proj.PROJ_ID,"&_
" rm_proj.PROJ_NAME,"&_
" rt.RTAG_NAME"&_
" FROM BOMS bo,"&_
" PROJECTS rm_proj,"&_
" RELEASE_TAGS rt"&_
" WHERE rt.PROJ_ID = rm_proj.PROJ_ID"&_
" AND bo.RTAG_ID_FK = rt.RTAG_ID"&_
" AND bo.BOM_ID = :BOM_ID"
Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
If (NOT rsQry.BOF) AND (NOT rsQry.EOF)Then
outobjDetails.Item ("rtag_id_fk") = rsQry("rtag_id_fk")
outobjDetails.Item ("proj_id") = rsQry("proj_id")
outobjDetails.Item ("proj_name") = rsQry("proj_name")
outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
End If
OraDatabase.Parameters.Remove "BOM_ID"
rsQry.Close
Set rsQry = Nothing
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Call GetFormDetails ( parBom_id, objFormCollector )
'----------------------------------------------
%>
Add Process Add a process for the node.
| Package/Product | <% Dim rsTemp OraDatabase.Parameters.Add "OS_ID", Request("os_id"), ORAPARM_INPUT, ORATYPE_VARCHAR2 Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("ProductsLessPatches.sql"), cint(0)) Response.write "" rsTemp.Close Set rsTemp = nothing OraDatabase.Parameters.Remove "OS_ID" %> | |
| Process Search |
| <%=ProgressBar()%> |
| Package Health Tag | |
| Package/Product | <% OraDatabase.Parameters.Add "OS_ID", Request("os_id"), ORAPARM_INPUT, ORATYPE_VARCHAR2 Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("ProductsLessPatches.sql"), cint(0)) Response.write "" rsTemp.Close Set rsTemp = nothing OraDatabase.Parameters.Remove "OS_ID" %> |
| Process Description | |
| Command Interface | |
| Is Interface | (Checked If True) |
| Package Owner | |
<%If (objFormCollector.Item("rtag_id_fk") <> "") Then%> <%=objFormCollector.Item ("proj_name") &" / "& objFormCollector.Item ("rtag_name")%> <%Else%> <%Call Messenger ( "This BOM does not have Release Manager Reference release.
Please edit BOM properties first.
" , 1, "100%" )%> <%End If%>
 |
|
| " <%=rsQry("used")%>> | <%=Eval( rsQry("icon") )%><%=rsQry("pkg_name") &" "& rsQry("pkg_version")%> |