Compile function Delete_RDS_TEST_Record_From_SQL(Connection, Key, Record)

/*****************************************************************************\
	Deletes the given RDS_TEST record from the MSSQL database.
	
	History
	-------
	09/21/2010    KRF   Original Programmer
\*****************************************************************************/

Declare function SQL_Delete, SQL_Format
Ans = ""
				    
// List of key names and their values
Keys = "MET_NO":@VM:SQL_Format(Key, "INT")

//-------------------------------------------------------------------------------------------------
// Multi-valued Fields

!! Delete records from MV tables first !!

// RDS_TEST_STRESS
If Ans EQ "" then
    Ans = SQL_Delete(Connection, "RDS_TEST_STRESS", Keys)
end

// RDS_TEST_TW
If Ans EQ "" then
    Ans = SQL_Delete(Connection, "RDS_TEST_TW", Keys)
end

// RDS_TEST_TW_USE
If Ans EQ "" then
    Ans = SQL_Delete(Connection, "RDS_TEST_TW_USE", Keys)
end

// RDS_TEST_SRP_PROFILE_PATH
If Ans EQ "" then
    Ans = SQL_Delete(Connection, "RDS_TEST_SRP_PROFILE_PATH", Keys)
end

// RDS_TEST_MODIFY
If Ans EQ "" then
    Ans = SQL_Delete(Connection, "RDS_TEST_MODIFY", Keys)
end

// RDS_TEST_SPEC_CON
If Ans EQ "" then
    Ans = SQL_Delete(Connection, "RDS_TEST_SPEC_CON", Keys)
end

// RDS_TEST
If Ans EQ "" then
    Ans = SQL_Delete(Connection, "RDS_TEST", Keys)
end

Return Ans
