PACKAGE BODY: APPS.ISC_DBI_CHANGE_LOG_PKG

Source

1 PACKAGE BODY ISC_DBI_CHANGE_LOG_PKG AS
2 /* $Header: ISCCHGLB.pls 120.2 2005/08/19 11:14:20 kxliu noship $ */
3 
4   ---------------------
5   --  PUBLIC PROCEDURES
6   ---------------------
7 
8 PROCEDURE Update_Del_Detail_Log(p_detail_list		IN LOG_TAB_TYPE,
9                                 p_dml_type		IN VARCHAR2,
10 				x_return_status		OUT NOCOPY VARCHAR2) IS
11 BEGIN
12 
13   FORALL i IN p_detail_list.FIRST..p_detail_list.LAST
14      INSERT INTO isc_dbi_wdd_change_log (
15         DELIVERY_DETAIL_ID,
16         DML_TYPE,
17         LAST_UPDATE_DATE)
18      VALUES (p_detail_list(i), p_dml_type, sysdate);
19 
20   x_return_status := FND_API.G_RET_STS_SUCCESS;
21 
22 EXCEPTION
23   WHEN OTHERS THEN
24      x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25 
26 END Update_Del_Detail_Log;
27 
28 PROCEDURE Update_Trip_Stop_Log(p_stop_list		IN LOG_TAB_TYPE,
29                                p_dml_type		IN VARCHAR2,
30 			       x_return_status		OUT NOCOPY VARCHAR2) IS
31 BEGIN
32 
33   FORALL i IN p_stop_list.FIRST..p_stop_list.LAST
34      INSERT INTO isc_dbi_wts_change_log (
35         STOP_ID,
36         DML_TYPE,
37         LAST_UPDATE_DATE)
38      VALUES (p_stop_list(i), p_dml_type, sysdate);
39 
40   x_return_status := FND_API.G_RET_STS_SUCCESS;
41 
42 EXCEPTION
43   WHEN OTHERS THEN
44      x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
45 
46 END Update_Trip_Stop_Log;
47 
48 PROCEDURE Update_Fte_Invoice_Log (p_invoice_list	IN LOG_TAB_TYPE,
49 				  p_dml_type		IN VARCHAR2,
50 				  x_return_status	OUT NOCOPY VARCHAR2) IS
51 BEGIN
52 
53   FORALL i IN p_invoice_list.FIRST..p_invoice_list.LAST
54      INSERT INTO isc_dbi_fih_change_log (
55         INVOICE_HEADER_ID,
56         DML_TYPE,
57         LAST_UPDATE_DATE)
58      VALUES (p_invoice_list(i), p_dml_type, sysdate);
59 
60   x_return_status := FND_API.G_RET_STS_SUCCESS;
61 
62 EXCEPTION
63   WHEN OTHERS THEN
64      x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
65 
66 END Update_Fte_Invoice_Log;
67 
68 END ISC_DBI_CHANGE_LOG_PKG;