added LSL2 stored procedures

LSL2/STPROC/DELETE_COC_RECORD_FROM_SQL.txt

@@ -0,0 +1,67 @@
+Compile function Delete_COC_Record_From_SQL(Connection, Key, Record)
+
+/*****************************************************************************\
+	Deletes the given COC 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 = "WO":@VM:SQL_Format(Key, "INT")
+
+//-------------------------------------------------------------------------------------------------
+// Multi-valued Fields
+
+!! Delete records from MV tables first !!
+
+// COC_TECH_DATA_DTM
+If Ans EQ "" then
+    Ans = SQL_Delete(Connection, "COC_TECH_DATA_DTM", Keys)
+end
+
+// COC_CARTON_DATA
+If Ans EQ "" then
+    Ans = SQL_Delete(Connection, "COC_CARTON_DATA", Keys)
+end
+
+// COC_TEST_REJ_WFRS
+If Ans EQ "" then
+    Ans = SQL_Delete(Connection, "COC_TEST_REJ_WFRS", Keys)
+end
+
+// COC_ORDER_ITEMS
+If Ans EQ "" then
+    Ans = SQL_Delete(Connection, "COC_ORDER_ITEMS", Keys)
+end
+
+// COC_RDS_DETAILS
+If Ans EQ "" then
+    Ans = SQL_Delete(Connection, "COC_RDS_DETAILS", Keys)
+end
+
+// COC_VISION_LOGS
+If Ans EQ "" then
+    Ans = SQL_Delete(Connection, "COC_VISION_LOGS", Keys)
+end
+
+// COC_TRACKING_DETAILS
+If Ans EQ "" then
+    Ans = SQL_Delete(Connection, "COC_TRACKING_DETAILS", Keys)
+end
+
+// COC_SHIPPING_DETAILS
+If Ans EQ "" then
+    Ans = SQL_Delete(Connection, "COC_SHIPPING_DETAILS", Keys)
+end
+
+// COC
+If Ans EQ "" then
+    Ans = SQL_Delete(Connection, "COC", Keys)
+end
+
+Return Ans