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 +