Subversion Repositories DevTools

'--------------------------------------------------------------------------------------------------------------------------

'   Test if package can be added to a release

'       Really tests if a a package of this packages alias can be

'       manipulated in this release

'   True: Package alias can be added/replaced in release

Function canAddToRelease ( nRtagId, nPvId )

	On Error Resume Next

	OraDatabase.Parameters.Add "RTAG_ID", 			nRtagId, 	ORAPARM_INPUT, ORATYPE_NUMBER 

	OraDatabase.Parameters.Add "PV_ID", 			nPvId, 	    ORAPARM_INPUT, ORATYPE_NUMBER 

	OraDatabase.Parameters.Add "RETURN_CODE", 		null, 	    ORAPARM_OUTPUT, ORATYPE_NUMBER 

	objEH.TryORA ( OraSession )

	OraDatabase.ExecuteSQL _

        "BEGIN :RETURN_CODE := PK_RELEASE.CAN_ADD_PKG_TO_RELEASE(:RTAG_ID,:PV_ID);   END;"

    If CInt(OraDatabase.Parameters("RETURN_CODE").Value) = 0 Then

        canAddToRelease = FALSE

    Else

        canAddToRelease = TRUE

    End If

	objEH.CatchORA ( OraSession )

	OraDatabase.Parameters.Remove "RETURN_CODE"

	OraDatabase.Parameters.Remove "RTAG_ID"

	OraDatabase.Parameters.Remove "PV_ID"	

End Function