<% '===================================================== ' _used_by.asp ' Core Implementation. ' Needs to be used via a wrapper '===================================================== %> <% '------------ Variable Definition ------------- Dim rsTemp Dim isDaemonEnabledRelease '------------ Constants Declaration ----------- '------------ Variable Init ------------------- '---------------------------------------------- %> <% '----------------------------------------------------------------------------------------------------------------------------- If pageIsEmbedded Then isDaemonEnabledRelease = TRUE Else isDaemonEnabledRelease = is_daemon_enabled_release(parRtag_id, TRUE) End If If Request("action") <> "" AND NOT pageIsEmbedded Then %> <% If ( parRtag_id <> "") AND (parPv_id <> "") Then Dim posComma, txt, posUnderscore, dpvId, pvId, value, pvIdList, apvIdList, strList If isDaemonEnabledRelease = FALSE Then Set pvIdList = CreateObject("Scripting.Dictionary") 'On Error Resume Next txt = Mid(Request("ignore_warnings"), 1, len(Request("ignore_warnings"))) posComma = InStr(txt, ",") While posComma <> 0 'Response.Write(txt) value = Mid(txt, 1, posComma-1) posUnderscore = Instr(value, "_") pvId = Mid(value, 1, posUnderscore - 1) dpvId = Mid(value, posUnderscore + 1, posComma-1) Call SetIgnoreWarnings(dpvId, pvId, parRtag_id) pvIdList.Add CStr( pvId ), Empty txt = Mid(txt, posComma + 1, Len(txt)) posComma = InStr(txt, ",") WEnd If posComma = 0 And Len(txt) > 0 Then posUnderscore = Instr(txt, "_") pvId = Mid(txt, 1, posUnderscore - 1) dpvId = Mid(txt, posUnderscore + 1) Call SetIgnoreWarnings(dpvId, pvId, parRtag_id) pvIdList.Add CStr( pvId ), Empty End if apvIdList = pvIdList.Keys End If Call Destroy_All_Objects Response.Redirect("used_by.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id) Else Response.write "Some mandatory parameters are missing!" & "
" 'TODO Response.write QSTR_FullQuery End If End If %> <% If pkgInfoHash.Exists("pv_id") Then '-- FROM START --------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "FormName" objFormComponent.Action = ScriptName&"?pv_id="&Request("pv_id")&"&rtag_id="&parRtag_id Call objFormComponent.FormStart() %> <%If Request("rtag_id") <> "" Then%>
Used by Packages In This Release
<%If isDaemonEnabledRelease = FALSE Then%> <% OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PKG_ID", pkgInfoHash.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "V_EXT", EmptyToNull(pkgInfoHash.Item ("v_ext")), ORAPARM_INPUT, ORATYPE_VARCHAR2 Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByPackagesInThisRelease.sql"), cint(0)) OraDatabase.Parameters.Remove "RTAG_ID" OraDatabase.Parameters.Remove "PKG_ID" OraDatabase.Parameters.Remove "V_EXT" %> <%If rsTemp.RecordCount < 1 Then%> <%If isDaemonEnabledRelease = FALSE Then%> <%End If%> <%Else%> <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%> <%If isDaemonEnabledRelease = FALSE Then%> <%If rsTemp("dpv_id") <> parPv_id And IsNull(rsTemp("ignore_warn")) Then%> <%ElseIf rsTemp("dpv_id") = parPv_id And IsNull(rsTemp("ignore_warn")) OR NOT isNull(rsTemp("ignore_warn")) Then%> <%Else%> <%End If%> <%End If%> <%If rsTemp("deprecated_state") <> "" AND rsTemp("pkg_state") = 0 Then%> <%Else%> <%End If%> <%rsTemp.MoveNext WEnd %> <%End If%>
<%End If%> Name Version Location Version Used Last Modified
 Leaf Package - Is not used by any other package in this Release
_<%=rsTemp("dpv_id")%>">_<%=rsTemp("dpv_id")%>" disabled>_<%=rsTemp("dpv_id")%>" checked><%=DefineStateIcon ( rsTemp("deprecated_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%><%=DefineStateIcon ( rsTemp("pkg_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%>&rtag_id=<%=parRtag_id%>" class="txt_linked"><%=rsTemp("pkg_name")%> <%=rsTemp("pkg_version")%> <%=GetEnvName(rsTemp("env_area"))%> <%=DefineStateIcon ( 0, "Y", rsTemp("ignore_warn"), rsTemp("is_patch_ignore"), pkgInfoHash.Item("build_type"), TRUE )%> parPv_id Then%>class="err_alert"<%End If%>><%=pkgInfoHash.Item ("pkg_name") &" "& rsTemp("dpkg_version")%> <%=emailField(enum_imgUser & rsTemp("full_name"), rsTemp("user_email"))%> <%=DisplayDate ( rsTemp("modified_stamp") )%>
Total Packages: <%=rsTemp.RecordCount%>
<%If rsTemp.RecordCount > 0 Then%> <%If isDaemonEnabledRelease = FALSE Then%>
NOTE: Click on Apply "To Ignore Warnings" On Packages Used By
<%End If%> NOTE: Versions in RED are different from <%=pkgInfoHash.Item("pkg_name") &" "& pkgInfoHash.Item("pkg_version")%> <%End If%> <%rsTemp.Close()%> <%Set rsTemp = nothing%> <%End If%> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %>
Extended Package Usage

NOTE: Versions in RED are different from <%=pkgInfoHash.Item("pkg_name") &" "& pkgInfoHash.Item("pkg_version")%>
<%End If%>