[Home] [Help]
PACKAGE BODY: APPS.MTL_LOT_CONV_AUDIT_PKG
Source
1 package body MTL_LOT_CONV_AUDIT_PKG as
2 /* $Header: INVHLCAB.pls 120.0 2005/05/25 06:27:38 appldev noship $ */
3
4
5 PROCEDURE INSERT_ROW(
6 X_CONV_AUDIT_ID IN OUT NOCOPY NUMBER,
7 X_CONVERSION_ID IN NUMBER,
8 X_CONVERSION_DATE IN DATE,
9 X_UPDATE_TYPE_INDICATOR IN NUMBER,
10 X_BATCH_ID IN NUMBER,
11 X_REASON_ID IN NUMBER,
12 X_OLD_CONVERSION_RATE IN NUMBER,
13 X_NEW_CONVERSION_RATE IN NUMBER,
14 X_EVENT_SPEC_DISP_ID IN NUMBER,
15 X_CREATED_BY IN NUMBER,
16 X_CREATION_DATE IN DATE,
17 X_LAST_UPDATED_BY IN NUMBER,
18 X_LAST_UPDATE_DATE IN DATE,
19 X_LAST_UPDATE_LOGIN IN NUMBER,
20 x_return_status OUT NOCOPY VARCHAR2,
21 x_msg_count OUT NOCOPY NUMBER,
22 x_msg_data OUT NOCOPY VARCHAR2)
23
24 IS
25
26
27 CURSOR GET_AUDIT_SEQ
28 IS
29 SELECT MTL_CONV_AUDIT_ID_S.NEXTVAL
30 FROM FND_DUAL;
31
32 l_audit_seq NUMBER;
33
34
35 BEGIN
36 x_return_status := FND_API.G_RET_STS_SUCCESS;
37 IF (X_CONV_AUDIT_ID IS NULL) THEN
38 OPEN GET_AUDIT_SEQ;
39 FETCH GET_AUDIT_SEQ INTO l_audit_seq;
40 X_CONV_AUDIT_ID := l_audit_seq;
41 CLOSE GET_AUDIT_SEQ;
42 END IF;
43
44 INSERT INTO MTL_LOT_CONV_AUDIT (
45 CONV_AUDIT_ID,
46 CONVERSION_ID,
47 CONVERSION_DATE,
48 UPDATE_TYPE_INDICATOR,
49 BATCH_ID,
50 REASON_ID,
51 OLD_CONVERSION_RATE,
52 NEW_CONVERSION_RATE,
53 EVENT_SPEC_DISP_ID,
54 CREATED_BY,
55 CREATION_DATE,
56 LAST_UPDATED_BY,
57 LAST_UPDATE_DATE,
58 LAST_UPDATE_LOGIN
59 )
60 VALUES (
61 X_CONV_AUDIT_ID,
62 X_CONVERSION_ID,
63 X_CONVERSION_DATE,
64 X_UPDATE_TYPE_INDICATOR,
65 X_BATCH_ID,
66 X_REASON_ID,
67 X_OLD_CONVERSION_RATE,
68 X_NEW_CONVERSION_RATE,
69 X_EVENT_SPEC_DISP_ID,
70 X_CREATED_BY,
71 X_CREATION_DATE,
72 X_LAST_UPDATED_BY,
73 X_LAST_UPDATE_DATE,
74 X_LAST_UPDATE_LOGIN
75 );
76
77 FND_MSG_PUB.Count_AND_GET
78 (p_count => x_msg_count, p_data => x_msg_data);
79
80 EXCEPTION
81
82 WHEN OTHERS THEN
83 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
84 IF (SQLCODE IS NOT NULL) THEN
85 FND_MESSAGE.SET_NAME('INV','INV_LOTC_SQL_ERROR');
86 FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
87 FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM(SQLCODE));
88 FND_MSG_PUB.Add;
89 END IF;
90 FND_MSG_PUB.Count_AND_GET
91 (p_count => x_msg_count, p_data => x_msg_data);
92
93 END INSERT_ROW;
94
95
96 PROCEDURE UPDATE_ROW(
97 X_CONV_AUDIT_ID IN NUMBER,
98 X_CONVERSION_ID IN NUMBER,
99 X_CONVERSION_DATE IN DATE,
100 X_UPDATE_TYPE_INDICATOR IN NUMBER,
101 X_BATCH_ID IN NUMBER,
102 X_REASON_ID IN NUMBER,
103 X_OLD_CONVERSION_RATE IN NUMBER,
104 X_NEW_CONVERSION_RATE IN NUMBER,
105 X_EVENT_SPEC_DISP_ID IN NUMBER,
106 X_LAST_UPDATED_BY IN NUMBER,
107 X_LAST_UPDATE_DATE IN DATE,
108 X_LAST_UPDATE_LOGIN IN NUMBER,
109 x_return_status OUT NOCOPY VARCHAR2,
110 x_msg_count OUT NOCOPY NUMBER,
111 x_msg_data OUT NOCOPY VARCHAR2)
112
113 IS
114
115 BEGIN
116
117
118 x_return_status := FND_API.G_RET_STS_SUCCESS;
119 UPDATE MTL_LOT_CONV_AUDIT SET
120 CONVERSION_ID = X_CONVERSION_ID,
121 CONVERSION_DATE = X_CONVERSION_DATE,
122 UPDATE_TYPE_INDICATOR = X_UPDATE_TYPE_INDICATOR,
123 BATCH_ID = X_BATCH_ID,
124 REASON_ID = X_REASON_ID,
125 OLD_CONVERSION_RATE = X_OLD_CONVERSION_RATE,
126 NEW_CONVERSION_RATE = X_NEW_CONVERSION_RATE,
127 EVENT_SPEC_DISP_ID = X_EVENT_SPEC_DISP_ID,
128 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
129 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
130 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
131 WHERE CONV_AUDIT_ID = X_CONV_AUDIT_ID;
132
133 FND_MSG_PUB.Count_AND_GET
134 (p_count => x_msg_count, p_data => x_msg_data);
135
136 EXCEPTION
137
138
139 WHEN OTHERS THEN
140 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
141 IF (SQLCODE IS NOT NULL) THEN
142 FND_MESSAGE.SET_NAME('INV','INV_LOTC_SQL_ERROR');
143 FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
144 FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM(SQLCODE));
145 FND_MSG_PUB.Add;
146 END IF;
147 FND_MSG_PUB.Count_AND_GET
148 (p_count => x_msg_count, p_data => x_msg_data);
149
150
151 END UPDATE_ROW;
152
153
154 END MTL_LOT_CONV_AUDIT_PKG;