<% '===================================================== ' _used_by_all.asp ' Core Implementation. ' Needs to be used via a wrapper '===================================================== %> <% '------------ Variable Definition ------------- Dim rsTemp Dim totalBuildTime : totalBuildTime = 0 Dim bUnknown : bUnknown = False '------------ Constants Declaration ----------- '------------ Variable Init ------------------- '---------------------------------------------- ' ' '---------------------------------------------- %> <%If pkgInfoHash.Exists("pv_id") Then%> <%If Request("rtag_id") <> "" Then%>
Used by Packages In This Release - Complete list
<% OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PV_ID", pkgInfoHash.Item("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByAllPackagesInThisRelease.sql"), cint(0)) OraDatabase.Parameters.Remove "PV_ID" OraDatabase.Parameters.Remove "RTAG_ID" %> <%If rsTemp.RecordCount < 1 Then%> <%End If%> <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Dim buildTime : buildTime = rsTemp("build_time") If ISNULL(buildTime) Then buildTime = "Unknown" bUnknown = TRUE Else buildTime = CLng(buildTime) totalBuildTime = totalBuildTime + buildTime End If %> <%If rsTemp("deprecated_state") <> "" AND rsTemp("pkg_state") = 0 Then%> <%Else%> <%End If%> <%rsTemp.MoveNext WEnd%>

	Build Level<%=Quick_Help("h_buildLevel")%>	Name	Version	Build Time<%=Quick_Help("h_buildTime")%>		Last Modified
	Leaf Package - Is not used by any other package in this Release
<%=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 )%>	<%=rsTemp("BuildLevel")%>	#<%=rsTemp("pv_id")%>" class="txt_linked"><%=rsTemp("pkg_name")%>	&rtag_id=<%=parRtag_id%>" class="txt_linked"><%=rsTemp("pkg_version")%>	<%=buildTime%>		<%=emailField(enum_imgUser & rsTemp("full_name"), rsTemp("user_email"))%> <%=DisplayDate ( rsTemp("modified_stamp") )%>
Total Packages: <%=rsTemp.RecordCount%>				Total Built Time <%=totalBuildTime%> [<%=NiceDuration(totalBuildTime)%>] <%If bUnknown Then%>  Note:Some package build times not known <%End If%>

<%rsTemp.Close()%> <%Set rsTemp = nothing%> <%Else%> Note: Usage tree cannot be determined without an associated Release. <%End If%> <%End If%>