The following lines contain the word 'select', 'insert', 'update' or 'delete':
| each table entry and where valid, inserts a corresponding row |
| into gmd_inventory_spec_vrs |
| In the case of any failure a rollback is instigated.
| |
| HISTORY |
| 03-AUG-2002 K.Y.Hunt |
| 02-MAY-2005 saikiran vankadari As part of Convergence changes, |
| call to GMA_GLOBAL_GRP.get_who() is replaced with |
| GMD_SPEC_GRP.get_who() procedure |
| |
+=========================================================================+
*/
PROCEDURE CREATE_INVENTORY_SPEC_VRS
( p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2
, p_commit IN VARCHAR2
, p_validation_level IN VARCHAR2
, p_inventory_spec_vrs_tbl IN GMD_SPEC_VRS_PUB.inventory_spec_vrs_tbl
, p_user_name IN VARCHAR2
, x_inventory_spec_vrs_tbl OUT NOCOPY GMD_SPEC_VRS_PUB.inventory_spec_vrs_tbl
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2 (30) := 'CREATE_INVENTORY_SPEC_VRS';
l_inventory_spec_vrs.last_updated_by := l_user_id;
l_inventory_spec_vrs.last_update_date:= sysdate;
l_inventory_spec_vrs.delete_mark := 0;
p_operation => 'INSERT',
x_inv_vr => l_inventory_spec_vrs_out,
x_return_status => l_return_status
);
IF NOT GMD_INVENTORY_SPEC_VRS_PVT.Insert_Row(l_inventory_spec_vrs, l_inventory_spec_vrs_out)
THEN
-- Diagnostic message is already on the stack
RAISE FND_API.G_EXC_ERROR;
| each table entry and where valid, inserts a corresponding row |
| into gmd_wip_spec_vrs |
| In the case of any failure a rollback is instigated. |
| |
| HISTORY |
| 03-AUG-2002 K.Y.Hunt |
| 02-MAY-2005 saikiran vankadari As part of Convergence changes, |
| call to GMA_GLOBAL_GRP.get_who() is replaced with |
| GMD_SPEC_GRP.get_who() procedure |
| |
+=========================================================================+
*/
PROCEDURE CREATE_WIP_SPEC_VRS
( p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2
, p_commit IN VARCHAR2
, p_validation_level IN VARCHAR2
, p_wip_spec_vrs_tbl IN GMD_SPEC_VRS_PUB.wip_spec_vrs_tbl
, p_user_name IN VARCHAR2
, x_wip_spec_vrs_tbl OUT NOCOPY GMD_SPEC_VRS_PUB.wip_spec_vrs_tbl
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2 (30) := 'CREATE_WIP_SPEC_VRS';
l_wip_spec_vrs.last_updated_by := l_user_id;
l_wip_spec_vrs.last_update_date:= sysdate;
l_wip_spec_vrs.delete_mark := 0;
p_operation => 'INSERT',
x_wip_vr => l_wip_spec_vrs_out,
x_return_status => l_return_status
);
IF NOT GMD_WIP_SPEC_VRS_PVT.Insert_Row(l_wip_spec_vrs, l_wip_spec_vrs_out)
THEN
-- Diagnostic message is already on the stack
RAISE FND_API.G_EXC_ERROR;
| each table entry and where valid, inserts a corresponding row |
| into gmd_customer_spec_vrs |
| In the case of any failure a rollback is instigated. |
| |
| HISTORY |
| 03-AUG-2002 K.Y.Hunt |
| 02-MAY-2005 saikiran vankadari As part of Convergence changes, |
| call to GMA_GLOBAL_GRP.get_who() is replaced with |
| GMD_SPEC_GRP.get_who() procedure |
| |
+=========================================================================+
*/
PROCEDURE CREATE_CUSTOMER_SPEC_VRS
( p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2
, p_commit IN VARCHAR2
, p_validation_level IN VARCHAR2
, p_customer_spec_vrs_tbl IN GMD_SPEC_VRS_PUB.customer_spec_vrs_tbl
, p_user_name IN VARCHAR2
, x_customer_spec_vrs_tbl OUT NOCOPY GMD_SPEC_VRS_PUB.customer_spec_vrs_tbl
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2 (30) := 'CREATE_CUSTOMER_SPEC_VRS';
l_customer_spec_vrs.last_updated_by := l_user_id;
l_customer_spec_vrs.last_update_date:= sysdate;
l_customer_spec_vrs.delete_mark := 0;
p_operation => 'INSERT',
x_return_status => l_return_status
);
IF NOT GMD_CUSTOMER_SPEC_VRS_PVT.Insert_Row(l_customer_spec_vrs, l_customer_spec_vrs_out)
THEN
-- Diagnostic message is already on the stack
RAISE FND_API.G_EXC_ERROR;
| each table entry and where valid, inserts a corresponding row |
| into gmd_supplier_spec_vrs |
| In the case of any failure a rollback is instigated. |
| |
| HISTORY |
| 03-AUG-2002 K.Y.Hunt |
| 02-MAY-2005 saikiran vankadari As part of Convergence changes, |
| call to GMA_GLOBAL_GRP.get_who() is replaced with |
| GMD_SPEC_GRP.get_who() procedure |
| |
+=========================================================================+
*/
PROCEDURE CREATE_SUPPLIER_SPEC_VRS
( p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2
, p_commit IN VARCHAR2
, p_validation_level IN VARCHAR2
, p_supplier_spec_vrs_tbl IN GMD_SPEC_VRS_PUB.supplier_spec_vrs_tbl
, p_user_name IN VARCHAR2
, x_supplier_spec_vrs_tbl OUT NOCOPY GMD_SPEC_VRS_PUB.supplier_spec_vrs_tbl
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2 (30) := 'CREATE_SUPPLIER_SPEC_VRS';
l_supplier_spec_vrs.last_updated_by := l_user_id;
l_supplier_spec_vrs.last_update_date:= sysdate;
l_supplier_spec_vrs.delete_mark := 0;
p_operation => 'INSERT',
x_return_status => l_return_status
);
IF NOT GMD_SUPPLIER_SPEC_VRS_PVT.Insert_Row(l_supplier_spec_vrs, l_supplier_spec_vrs_out)
THEN
-- Diagnostic message is already on the stack
RAISE FND_API.G_EXC_ERROR;
| each table entry and where valid, inserts a corresponding row |
| into gmd_supplier_spec_vrs |
| In the case of any failure a rollback is instigated. |
| |
| HISTORY |
| 26-Jan-2004 Manish Gupta |
| 02-MAY-2005 saikiran vankadari As part of Convergence changes, |
| call to GMA_GLOBAL_GRP.get_who() is replaced with |
| GMD_SPEC_GRP.get_who() procedure |
| |
+=========================================================================+
*/
PROCEDURE CREATE_MONITORING_SPEC_VRS
( p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2
, p_commit IN VARCHAR2
, p_validation_level IN VARCHAR2
, p_monitoring_spec_vrs_tbl IN GMD_SPEC_VRS_PUB.monitoring_spec_vrs_tbl
, p_user_name IN VARCHAR2
, x_monitoring_spec_vrs_tbl OUT NOCOPY GMD_SPEC_VRS_PUB.monitoring_spec_vrs_tbl
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2 (30) := 'CREATE_MONITORING_SPEC_VRS';
l_monitoring_spec_vrs.last_updated_by := l_user_id;
l_monitoring_spec_vrs.last_update_date:= sysdate;
l_monitoring_spec_vrs.delete_mark := 0;
p_operation => 'INSERT',
x_mon_vr => l_monitoring_spec_vrs_out,
x_return_status => l_return_status
);
IF NOT GMD_MONITORING_SPEC_VRS_PVT.Insert_Row(l_monitoring_spec_vrs, l_monitoring_spec_vrs_out)
THEN
-- Diagnostic message is already on the stack
RAISE FND_API.G_EXC_ERROR;
| Name : DELETE_INVENTORY_SPEC_VRS |
| Type : PUBLIC |
| |
| |
| DESCRIPTION |
| Accepts a table of inventory_spec_vrs definitions. Validates |
| each table entry to ensure the corresponding row is not already |
| delete marked. Where validation is successful, a logical delete |
| is performed setting delete_mark=1 |
| In the case of any failure a rollback is instigated. |
| |
| HISTORY |
| 03-AUG-2002 K.Y.Hunt |
| 02-MAY-2005 saikiran vankadari As part of Convergence changes, |
| call to GMA_GLOBAL_GRP.get_who() is replaced with |
| GMD_SPEC_GRP.get_who() procedure |
| |
+=========================================================================+
*/
PROCEDURE DELETE_INVENTORY_SPEC_VRS
( p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2
, p_commit IN VARCHAR2
, p_validation_level IN VARCHAR2
, p_inventory_spec_vrs_tbl IN GMD_SPEC_VRS_PUB.inventory_spec_vrs_tbl
, p_user_name IN VARCHAR2
, x_deleted_rows OUT NOCOPY NUMBER
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_INVENTORY_SPEC_VRS';
l_deleted_rows NUMBER :=0;
SAVEPOINT Delete_Inventory_Spec_VRS;
,x_user_id => l_spec.last_updated_by);
IF NVL(l_spec.last_updated_by, -1) < 0
THEN
GMD_API_PUB.Log_Message('GMD_INVALID_USER_NAME',
'l_user_name', p_user_name);
GMD_SPEC_GRP.Validate_Before_Delete( p_spec_id => l_inventory_spec_vrs.spec_id
, x_return_status => l_return_status
, x_message_data => l_msg_data
);
GMD_SPEC_VRS_GRP.VALIDATE_BEFORE_DELETE_INV_VRS
( p_spec_id => l_inventory_spec_vrs.spec_id
, p_spec_vr_id => l_inventory_spec_vrs.spec_vr_id
, x_return_status => l_return_status
, x_message_data => l_msg_data
);
IF NOT GMD_INVENTORY_SPEC_VRS_PVT.Delete_Row
( p_spec_vr_id => l_inventory_spec_vrs.spec_vr_id
, p_last_update_date => sysdate
, p_last_updated_by => l_spec.last_updated_by
)
THEN
GMD_API_PUB.Log_Message('GMD_FAILED_TO_DELETE_ROW',
'l_table_name', 'GMD_INVENTORY_SPEC_VRS',
'l_column_name', 'SPEC_VR_ID',
'l_key_value', l_inventory_spec_vrs.spec_vr_id);
x_deleted_rows := i;
ROLLBACK TO Delete_Inventory_Spec_VRS;
x_deleted_rows := 0;
ROLLBACK TO Delete_Inventory_Spec_VRS;
x_deleted_rows := 0;
ROLLBACK TO Delete_Inventory_Spec_VRS;
x_deleted_rows := 0;
END DELETE_INVENTORY_SPEC_VRS;
| Name : DELETE_WIP_SPEC_VRS |
| Type : PUBLIC |
| |
| |
| DESCRIPTION |
| Accepts a table of wip_spec_vrs definitions. Validates |
| each table entry to ensure the corresponding row is not already |
| delete marked. Where validation is successful, a logical delete |
| is performed setting delete_mark=1 |
| In the case of any failure a rollback is instigated. |
| |
| HISTORY |
| 03-AUG-2002 K.Y.Hunt |
| 02-MAY-2005 saikiran vankadari As part of Convergence changes, |
| call to GMA_GLOBAL_GRP.get_who() is replaced with |
| GMD_SPEC_GRP.get_who() procedure |
| |
+=========================================================================+
*/
PROCEDURE DELETE_WIP_SPEC_VRS
( p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2
, p_commit IN VARCHAR2
, p_validation_level IN VARCHAR2
, p_wip_spec_vrs_tbl IN GMD_SPEC_VRS_PUB.wip_spec_vrs_tbl
, p_user_name IN VARCHAR2
, x_deleted_rows OUT NOCOPY NUMBER
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_WIP_SPEC_VRS';
l_deleted_rows NUMBER :=0;
SAVEPOINT Delete_WIP_Spec_VRS;
,x_user_id => l_spec.last_updated_by);
IF NVL(l_spec.last_updated_by, -1) < 0
THEN
GMD_API_PUB.Log_Message('GMD_INVALID_USER_NAME',
'l_user_name', p_user_name);
GMD_SPEC_GRP.Validate_Before_Delete( p_spec_id => l_wip_spec_vrs.spec_id
, x_return_status => l_return_status
, x_message_data => l_msg_data
);
GMD_SPEC_VRS_GRP.VALIDATE_BEFORE_DELETE_WIP_VRS
( p_spec_id => l_wip_spec_vrs.spec_id
, p_spec_vr_id => l_wip_spec_vrs.spec_vr_id
, x_return_status => l_return_status
, x_message_data => l_msg_data
);
IF NOT GMD_WIP_SPEC_VRS_PVT.Delete_Row ( p_spec_vr_id => l_wip_spec_vrs.spec_vr_id
, p_last_update_date => sysdate
, p_last_updated_by => l_spec.last_updated_by
)
THEN
GMD_API_PUB.Log_Message('GMD_FAILED_TO_DELETE_ROW',
'l_table_name', 'GMD_WIP_SPEC_VRS',
'l_column_name', 'SPEC_VR_ID',
'l_key_value', l_wip_spec_vrs.spec_vr_id);
x_deleted_rows := i;
ROLLBACK TO Delete_WIP_Spec_VRS;
x_deleted_rows := 0;
ROLLBACK TO Delete_WIP_Spec_VRS;
x_deleted_rows := 0;
ROLLBACK TO Delete_WIP_Spec_VRS;
x_deleted_rows := 0;
END DELETE_WIP_SPEC_VRS;
| Name : DELETE_CUSTOMER_SPEC_VRS |
| Type : PUBLIC |
| |
| |
| DESCRIPTION |
| Accepts a table of customer_spec_vrs definitions. Validates |
| each table entry to ensure the corresponding row is not already |
| delete marked. Where validation is successful, a logical delete |
| is performed setting delete_mark=1 |
| In the case of any failure a rollback is instigated. |
| |
| HISTORY |
| 03-AUG-2002 K.Y.Hunt |
| 02-MAY-2005 saikiran vankadari As part of Convergence changes, |
| call to GMA_GLOBAL_GRP.get_who() is replaced with |
| GMD_SPEC_GRP.get_who() procedure |
| |
+=========================================================================+
*/
PROCEDURE DELETE_CUSTOMER_SPEC_VRS
( p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2
, p_commit IN VARCHAR2
, p_validation_level IN VARCHAR2
, p_customer_spec_vrs_tbl IN GMD_SPEC_VRS_PUB.customer_spec_vrs_tbl
, p_user_name IN VARCHAR2
, x_deleted_rows OUT NOCOPY NUMBER
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_CUSTOMER_SPEC_VRS';
l_deleted_rows NUMBER :=0;
SAVEPOINT Delete_Customer_Spec_VRS;
,x_user_id => l_spec.last_updated_by);
IF NVL(l_spec.last_updated_by, -1) < 0
THEN
GMD_API_PUB.Log_Message('GMD_INVALID_USER_NAME',
'l_user_name', p_user_name);
GMD_SPEC_GRP.Validate_Before_Delete( p_spec_id => l_customer_spec_vrs.spec_id
, x_return_status => l_return_status
, x_message_data => l_msg_data
);
GMD_SPEC_VRS_GRP.VALIDATE_BEFORE_DELETE_CST_VRS
( p_spec_id => l_customer_spec_vrs.spec_id
, p_spec_vr_id => l_customer_spec_vrs.spec_vr_id
, x_return_status => l_return_status
, x_message_data => l_msg_data
);
IF NOT GMD_CUSTOMER_SPEC_VRS_PVT.Delete_Row
( p_spec_vr_id => l_customer_spec_vrs.spec_vr_id
, p_last_update_date => sysdate
, p_last_updated_by => l_spec.last_updated_by
)
THEN
GMD_API_PUB.Log_Message('GMD_FAILED_TO_DELETE_ROW',
'l_table_name', 'GMD_CUSTOMER_SPEC_VRS',
'l_column_name', 'SPEC_VR_ID',
'l_key_value', l_customer_spec_vrs.spec_vr_id);
x_deleted_rows := i;
ROLLBACK TO Delete_Customer_Spec_VRS;
x_deleted_rows := 0;
ROLLBACK TO Delete_Customer_Spec_VRS;
x_deleted_rows := 0;
ROLLBACK TO Delete_Customer_Spec_VRS;
x_deleted_rows := 0;
END DELETE_CUSTOMER_SPEC_VRS;
| Name : DELETE_SUPPLIER_SPEC_VRS |
| Type : PUBLIC |
| |
| |
| DESCRIPTION |
| Accepts a table of supplier_spec_vrs definitions. Validates |
| each table entry to ensure the corresponding row is not already |
| delete marked. Where validation is successful, a logical delete |
| is performed setting delete_mark=1 |
| In the case of any failure a rollback is instigated. |
| |
| HISTORY |
| 03-AUG-2002 K.Y.Hunt |
| 02-MAY-2005 saikiran vankadari As part of Convergence changes, |
| call to GMA_GLOBAL_GRP.get_who() is replaced with |
| GMD_SPEC_GRP.get_who() procedure |
| |
+=========================================================================+
*/
PROCEDURE DELETE_SUPPLIER_SPEC_VRS
( p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2
, p_commit IN VARCHAR2
, p_validation_level IN VARCHAR2
, p_supplier_spec_vrs_tbl IN GMD_SPEC_VRS_PUB.supplier_spec_vrs_tbl
, p_user_name IN VARCHAR2
, x_deleted_rows OUT NOCOPY NUMBER
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_SUPPLIER_SPEC_VRS';
l_deleted_rows NUMBER :=0;
SAVEPOINT Delete_Supplier_Spec_VRS;
,x_user_id => l_spec.last_updated_by);
IF NVL(l_spec.last_updated_by, -1) < 0
THEN
GMD_API_PUB.Log_Message('GMD_INVALID_USER_NAME',
'l_user_name', p_user_name);
GMD_SPEC_GRP.Validate_Before_Delete( p_spec_id => l_supplier_spec_vrs.spec_id
, x_return_status => l_return_status
, x_message_data => l_msg_data
);
GMD_SPEC_VRS_GRP.VALIDATE_BEFORE_DELETE_SUP_VRS
( p_spec_id => l_supplier_spec_vrs.spec_id
, p_spec_vr_id => l_supplier_spec_vrs.spec_vr_id
, x_return_status => l_return_status
, x_message_data => l_msg_data
);
IF NOT GMD_SUPPLIER_SPEC_VRS_PVT.Delete_Row
( p_spec_vr_id => l_supplier_spec_vrs.spec_vr_id
, p_last_update_date => sysdate
, p_last_updated_by => l_spec.last_updated_by
)
THEN
GMD_API_PUB.Log_Message('GMD_FAILED_TO_DELETE_ROW',
'l_table_name', 'GMD_SUPPLIER_SPEC_VRS',
'l_column_name', 'SPEC_VR_ID',
'l_key_value', l_supplier_spec_vrs.spec_vr_id);
x_deleted_rows := i;
ROLLBACK TO Delete_Supplier_Spec_VRS;
x_deleted_rows := 0;
ROLLBACK TO Delete_Supplier_Spec_VRS;
x_deleted_rows := 0;
ROLLBACK TO Delete_Supplier_Spec_VRS;
x_deleted_rows := 0;
END DELETE_SUPPLIER_SPEC_VRS;
| Name : DELETE_MONITORING_SPEC_VRS |
| Type : PUBLIC |
| |
| |
| DESCRIPTION |
| Accepts a table of monitoring_spec_vrs definitions. Validates |
| each table entry to ensure the corresponding row is not already |
| delete marked. Where validation is successful, a logical delete |
| is performed setting delete_mark=1 |
| In the case of any failure a rollback is instigated. |
| |
| HISTORY |
| 26-Jan-2004 Manish Gupta |
| 02-MAY-2005 saikiran vankadari As part of Convergence changes, |
| call to GMA_GLOBAL_GRP.get_who() is replaced with |
| GMD_SPEC_GRP.get_who() procedure |
| |
+=========================================================================+
*/
PROCEDURE DELETE_MONITORING_SPEC_VRS
( p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2
, p_commit IN VARCHAR2
, p_validation_level IN VARCHAR2
, p_monitoring_spec_vrs_tbl IN GMD_SPEC_VRS_PUB.MONITORING_spec_vrs_tbl
, p_user_name IN VARCHAR2
, x_deleted_rows OUT NOCOPY NUMBER
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_MONITORING_SPEC_VRS';
l_deleted_rows NUMBER :=0;
SAVEPOINT Delete_Monitoring_Spec_VRS;
,x_user_id => l_spec.last_updated_by);
IF NVL(l_spec.last_updated_by, -1) < 0
THEN
GMD_API_PUB.Log_Message('GMD_INVALID_USER_NAME',
'l_user_name', p_user_name);
GMD_SPEC_GRP.Validate_Before_Delete( p_spec_id => l_monitoring_spec_vrs.spec_id
, x_return_status => l_return_status
, x_message_data => l_msg_data
);
/*GMD_SPEC_VRS_GRP.VALIDATE_BEFORE_DELETE_MON_VRS
( p_spec_id => l_monitoring_spec_vrs.spec_id
, p_spec_vr_id => l_monitoring_spec_vrs.spec_vr_id
, x_return_status => l_return_status
, x_message_data => l_msg_data
);
IF NOT GMD_MONITORING_SPEC_VRS_PVT.Delete_Row
( p_spec_vr_id => l_monitoring_spec_vrs.spec_vr_id
, p_last_update_date => sysdate
, p_last_updated_by => l_spec.last_updated_by
)
THEN
GMD_API_PUB.Log_Message('GMD_FAILED_TO_DELETE_ROW',
'l_table_name', 'GMD_MONITORING_SPEC_VRS',
'l_column_name', 'SPEC_VR_ID',
'l_key_value', l_monitoring_spec_vrs.spec_vr_id);
x_deleted_rows := i;
ROLLBACK TO Delete_monitoring_Spec_VRS;
x_deleted_rows := 0;
ROLLBACK TO Delete_monitoring_Spec_VRS;
x_deleted_rows := 0;
ROLLBACK TO Delete_monitoring_Spec_VRS;
x_deleted_rows := 0;
END DELETE_MONITORING_SPEC_VRS;