From 0a2d53d173396bc7e70a7a4b962ae0060df89c30 Mon Sep 17 00:00:00 2001 From: "Infineon\\StieberD" Date: Fri, 15 Aug 2025 14:37:27 -0700 Subject: [PATCH] added delete from sql routines for LOT_EVENT and related tables --- .../DELETE_LOT_EVENT_RECORD_FROM_SQL.txt | 30 +++++++++++++++++++ .../DELETE_LOT_EVENT_TYPE_RECORD_FROM_SQL.txt | 30 +++++++++++++++++++ .../DELETE_LOT_OPERATION_RECORD_FROM_SQL.txt | 30 +++++++++++++++++++ LSL2/STPROC/DELETE_LOT_RECORD_FROM_SQL.txt | 30 +++++++++++++++++++ .../DELETE_OPERATION_RECORD_FROM_SQL.txt | 30 +++++++++++++++++++ 5 files changed, 150 insertions(+) create mode 100644 LSL2/STPROC/DELETE_LOT_EVENT_RECORD_FROM_SQL.txt create mode 100644 LSL2/STPROC/DELETE_LOT_EVENT_TYPE_RECORD_FROM_SQL.txt create mode 100644 LSL2/STPROC/DELETE_LOT_OPERATION_RECORD_FROM_SQL.txt create mode 100644 LSL2/STPROC/DELETE_LOT_RECORD_FROM_SQL.txt create mode 100644 LSL2/STPROC/DELETE_OPERATION_RECORD_FROM_SQL.txt diff --git a/LSL2/STPROC/DELETE_LOT_EVENT_RECORD_FROM_SQL.txt b/LSL2/STPROC/DELETE_LOT_EVENT_RECORD_FROM_SQL.txt new file mode 100644 index 0000000..ea8d7fb --- /dev/null +++ b/LSL2/STPROC/DELETE_LOT_EVENT_RECORD_FROM_SQL.txt @@ -0,0 +1,30 @@ +Compile function Delete_LOT_EVENT_Record_From_SQL(Connection, Key, Record) + +/*****************************************************************************\ + Deletes the given LOT_EVENT record from the MSSQL database. + + History + ------- + 08/15/2025 DJS Original Programmer +\*****************************************************************************/ + +Declare function SQL_Delete, SQL_Format +Ans = "" + +// List of key names and their values +Keys = "LOT_EVENT_ID":@VM:SQL_Format(Key, "STR") + +//------------------------------------------------------------------------------------------------- +// Multi-valued Fields + +!! Delete records from MV tables first !! + +// Currently no multi-value (child) tables + +// LOT_EVENT +If Ans EQ "" then + Ans = SQL_Delete(Connection, "LOT_EVENT", Keys) +end + +Return Ans + diff --git a/LSL2/STPROC/DELETE_LOT_EVENT_TYPE_RECORD_FROM_SQL.txt b/LSL2/STPROC/DELETE_LOT_EVENT_TYPE_RECORD_FROM_SQL.txt new file mode 100644 index 0000000..d3035ab --- /dev/null +++ b/LSL2/STPROC/DELETE_LOT_EVENT_TYPE_RECORD_FROM_SQL.txt @@ -0,0 +1,30 @@ +Compile function Delete_LOT_EVENT_TYPE_Record_From_SQL(Connection, Key, Record) + +/*****************************************************************************\ + Deletes the given LOT_EVENT_TYPE record from the MSSQL database. + + History + ------- + 08/15/2025 DJS Original Programmer +\*****************************************************************************/ + +Declare function SQL_Delete, SQL_Format +Ans = "" + +// List of key names and their values +Keys = "LOT_EVENT_TYPE_ID":@VM:SQL_Format(Key, "STR") + +//------------------------------------------------------------------------------------------------- +// Multi-valued Fields + +!! Delete records from MV tables first !! + +// Currently no multi-value (child) tables + +// LOT_EVENT_TYPE +If Ans EQ "" then + Ans = SQL_Delete(Connection, "LOT_EVENT_TYPE", Keys) +end + +Return Ans + diff --git a/LSL2/STPROC/DELETE_LOT_OPERATION_RECORD_FROM_SQL.txt b/LSL2/STPROC/DELETE_LOT_OPERATION_RECORD_FROM_SQL.txt new file mode 100644 index 0000000..570511c --- /dev/null +++ b/LSL2/STPROC/DELETE_LOT_OPERATION_RECORD_FROM_SQL.txt @@ -0,0 +1,30 @@ +Compile function Delete_LOT_OPERATION_Record_From_SQL(Connection, Key, Record) + +/*****************************************************************************\ + Deletes the given LOT_OPERATION record from the MSSQL database. + + History + ------- + 08/15/2025 DJS Original Programmer +\*****************************************************************************/ + +Declare function SQL_Delete, SQL_Format +Ans = "" + +// List of key names and their values +Keys = "LOT_OPERATION_ID":@VM:SQL_Format(Key, "STR") + +//------------------------------------------------------------------------------------------------- +// Multi-valued Fields + +!! Delete records from MV tables first !! + +// Currently no multi-value (child) tables + +// LOT_OPERATION +If Ans EQ "" then + Ans = SQL_Delete(Connection, "LOT_OPERATION", Keys) +end + +Return Ans + diff --git a/LSL2/STPROC/DELETE_LOT_RECORD_FROM_SQL.txt b/LSL2/STPROC/DELETE_LOT_RECORD_FROM_SQL.txt new file mode 100644 index 0000000..1571a8b --- /dev/null +++ b/LSL2/STPROC/DELETE_LOT_RECORD_FROM_SQL.txt @@ -0,0 +1,30 @@ +Compile function Delete_LOT_Record_From_SQL(Connection, Key, Record) + +/*****************************************************************************\ + Deletes the given LOT record from the MSSQL database. + + History + ------- + 08/15/2025 DJS Original Programmer +\*****************************************************************************/ + +Declare function SQL_Delete, SQL_Format +Ans = "" + +// List of key names and their values +Keys = "LOT_ID":@VM:SQL_Format(Key, "STR") + +//------------------------------------------------------------------------------------------------- +// Multi-valued Fields + +!! Delete records from MV tables first !! + +// Currently no multi-value (child) tables + +// LOT +If Ans EQ "" then + Ans = SQL_Delete(Connection, "LOT", Keys) +end + +Return Ans + diff --git a/LSL2/STPROC/DELETE_OPERATION_RECORD_FROM_SQL.txt b/LSL2/STPROC/DELETE_OPERATION_RECORD_FROM_SQL.txt new file mode 100644 index 0000000..b5cddfa --- /dev/null +++ b/LSL2/STPROC/DELETE_OPERATION_RECORD_FROM_SQL.txt @@ -0,0 +1,30 @@ +Compile function Delete_OPERATION_Record_From_SQL(Connection, Key, Record) + +/*****************************************************************************\ + Deletes the given OPERATION record from the MSSQL database. + + History + ------- + 08/15/2025 DJS Original Programmer +\*****************************************************************************/ + +Declare function SQL_Delete, SQL_Format +Ans = "" + +// List of key names and their values +Keys = "OPERATION_ID":@VM:SQL_Format(Key, "STR") + +//------------------------------------------------------------------------------------------------- +// Multi-valued Fields + +!! Delete records from MV tables first !! + +// Currently no multi-value (child) tables + +// OPERATION +If Ans EQ "" then + Ans = SQL_Delete(Connection, "OPERATION", Keys) +end + +Return Ans +