Subversion Repositories DevTools

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

Function DaemonInstructionPresent(nRtag_id, nPv_id, nOpCode)

   Dim rsQry

   Dim QryStr

   DaemonInstructionPresent = FALSE

   If (NOT IsNull(nRtag_id)) AND (nRtag_id <> "") AND (NOT IsNull(nPv_id)) AND (nPv_id <> "") AND (NOT IsNull(nOpCode)) AND (nOpCode <> "") Then

      QryStr = "SELECT COUNT(*) AS record_count"&_

               "  FROM DAEMON_INSTRUCTIONS "&_

               " WHERE (OP_CODE = "& nOpCode &")"&_

               "   AND RTAG_ID = "& nRtag_id&_

               "   AND PV_ID = "& nPv_id

      Set rsQry = OraDatabase.DbCreateDynaset( QryStr, ORADYN_DEFAULT )

      If rsQry("record_count") <> 0 Then

        DaemonInstructionPresent = TRUE

      End If

      rsQry.Close

      Set rsQry = nothing

   End If

End Function