Compile function Delete_VISION_ORDER_Record_From_SQL(Connection, Key, Record)

/*****************************************************************************\
	Deletes the given VISION_ORDER 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 = "VISION_ORDER_NO":@VM:SQL_Format(Key, "INT")

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

*!! Delete records from MV tables first !!
* // SKELETON CODE
* If Ans EQ "" then
*    Ans = SQL_Delete(Connection, "", Keys)
* end

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

Return Ans
