[Home] [Help]
PACKAGE BODY: APPS.AHL_OSP_ORDER_LOGS_PKG
Source
1 PACKAGE BODY AHL_OSP_ORDER_LOGS_PKG as
2 /* $Header: AHLLOOLB.pls 115.2 2002/12/04 23:25:34 sikumar noship $ */
3 PROCEDURE INSERT_ROW (
4 X_OSP_ORDER_LOG_ID IN OUT NOCOPY NUMBER,
5 X_OBJECT_VERSION_NUMBER IN NUMBER,
6 X_LAST_UPDATE_DATE IN DATE,
7 X_LAST_UPDATED_BY IN NUMBER,
8 X_CREATION_DATE IN DATE,
9 X_CREATED_BY IN NUMBER,
10 X_LAST_UPDATE_LOGIN IN NUMBER,
11 X_TRANSACTION_DATE IN DATE,
12 X_TRANSACTION_TYPE_CODE IN VARCHAR2,
13 X_SOURCE_DOCUMENT_ID IN NUMBER ,
14 X_SOURCE_DOCUMENT_TYPE_CODE IN VARCHAR2,
15 X_DESTINATION_DOCUMENT_ID IN NUMBER,
16 X_DEST_DOCUMENT_TYPE_CODE IN VARCHAR2,
17 X_TRANSACTION_STATUS_CODE IN VARCHAR2,
18 X_PROGRAM_ID IN NUMBER,
19 X_ATTRIBUTE_CATEGORY IN VARCHAR2,
20 X_ATTRIBUTE1 IN VARCHAR2,
21 X_ATTRIBUTE2 IN VARCHAR2,
22 X_ATTRIBUTE3 IN VARCHAR2,
23 X_ATTRIBUTE4 IN VARCHAR2,
24 X_ATTRIBUTE5 IN VARCHAR2,
25 X_ATTRIBUTE6 IN VARCHAR2,
26 X_ATTRIBUTE7 IN VARCHAR2,
27 X_ATTRIBUTE8 IN VARCHAR2,
28 X_ATTRIBUTE9 IN VARCHAR2,
29 X_ATTRIBUTE10 IN VARCHAR2,
30 X_ATTRIBUTE11 IN VARCHAR2,
31 X_ATTRIBUTE12 IN VARCHAR2,
32 X_ATTRIBUTE13 IN VARCHAR2,
33 X_ATTRIBUTE14 IN VARCHAR2,
34 X_ATTRIBUTE15 IN VARCHAR2
35 ) IS
36
37
38 BEGIN
39 insert into AHL_OSP_ORDER_LOGS (
40 OSP_ORDER_LOG_ID,
41 OBJECT_VERSION_NUMBER,
42 LAST_UPDATE_DATE,
43 LAST_UPDATED_BY,
44 CREATION_DATE,
45 CREATED_BY,
46 LAST_UPDATE_LOGIN,
47 TRANSACTION_DATE,
48 TRANSACTION_TYPE_CODE,
49 SOURCE_DOCUMENT_ID,
50 SOURCE_DOCUMENT_TYPE_CODE,
51 DESTINATION_DOCUMENT_ID,
52 DESTINATION_DOCUMENT_TYPE_CODE,
53 TRANSACTION_STATUS_CODE,
54 PROGRAM_ID,
55 ATTRIBUTE_CATEGORY,
56 ATTRIBUTE1,
57 ATTRIBUTE2,
58 ATTRIBUTE3,
59 ATTRIBUTE4,
60 ATTRIBUTE5,
61 ATTRIBUTE6,
62 ATTRIBUTE7,
63 ATTRIBUTE8,
64 ATTRIBUTE9,
65 ATTRIBUTE10,
66 ATTRIBUTE11,
67 ATTRIBUTE12,
68 ATTRIBUTE13,
69 ATTRIBUTE14,
70 ATTRIBUTE15
71 ) values (
72 AHL_OSP_ORDER_LOGS_S.NEXTVAL,
73 X_OBJECT_VERSION_NUMBER,
74 X_LAST_UPDATE_DATE,
75 X_LAST_UPDATED_BY,
76 X_CREATION_DATE,
77 X_CREATED_BY,
78 X_LAST_UPDATE_LOGIN,
79 X_TRANSACTION_DATE,
80 X_TRANSACTION_TYPE_CODE,
81 X_SOURCE_DOCUMENT_ID,
82 X_SOURCE_DOCUMENT_TYPE_CODE,
83 X_DESTINATION_DOCUMENT_ID,
84 X_DEST_DOCUMENT_TYPE_CODE,
85 X_TRANSACTION_STATUS_CODE,
86 X_PROGRAM_ID,
87 X_ATTRIBUTE_CATEGORY,
88 X_ATTRIBUTE1,
89 X_ATTRIBUTE2,
90 X_ATTRIBUTE3,
91 X_ATTRIBUTE4,
92 X_ATTRIBUTE5,
93 X_ATTRIBUTE6,
94 X_ATTRIBUTE7,
95 X_ATTRIBUTE8,
96 X_ATTRIBUTE9,
97 X_ATTRIBUTE10,
98 X_ATTRIBUTE11,
99 X_ATTRIBUTE12,
100 X_ATTRIBUTE13,
101 X_ATTRIBUTE14,
102 X_ATTRIBUTE15
103
104 ) RETURNING OSP_ORDER_LOG_ID INTO X_OSP_ORDER_LOG_ID;
105
106 EXCEPTION
107 WHEN OTHERS THEN
108 IF(SQLCODE = -1) THEN
109 FND_MESSAGE.Set_Name('AHL','AHL_OSP_DUP_ORDER_LOG');
110 FND_MESSAGE.Set_Token('OSP_ORDER_LOG_ID',x_OSP_ORDER_LOG_ID);
111 FND_MSG_PUB.ADD;
112 ELSE
113 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
114 END IF;
115
116 END INSERT_ROW;
117
118
119 PROCEDURE UPDATE_ROW (
120 X_OSP_ORDER_LOG_ID IN NUMBER,
121 X_OBJECT_VERSION_NUMBER IN NUMBER,
122 X_LAST_UPDATE_DATE IN DATE,
123 X_LAST_UPDATED_BY IN NUMBER,
124 X_LAST_UPDATE_LOGIN IN NUMBER,
125 X_TRANSACTION_DATE IN DATE,
126 X_TRANSACTION_TYPE_CODE IN VARCHAR2,
127 X_SOURCE_DOCUMENT_ID IN NUMBER ,
128 X_SOURCE_DOCUMENT_TYPE_CODE IN VARCHAR2,
129 X_DESTINATION_DOCUMENT_ID IN NUMBER,
130 X_DEST_DOCUMENT_TYPE_CODE IN VARCHAR2,
131 X_TRANSACTION_STATUS_CODE IN VARCHAR2,
132 X_PROGRAM_ID IN NUMBER,
133 X_ATTRIBUTE_CATEGORY IN VARCHAR2,
134 X_ATTRIBUTE1 IN VARCHAR2,
135 X_ATTRIBUTE2 IN VARCHAR2,
136 X_ATTRIBUTE3 IN VARCHAR2,
137 X_ATTRIBUTE4 IN VARCHAR2,
138 X_ATTRIBUTE5 IN VARCHAR2,
139 X_ATTRIBUTE6 IN VARCHAR2,
140 X_ATTRIBUTE7 IN VARCHAR2,
141 X_ATTRIBUTE8 IN VARCHAR2,
142 X_ATTRIBUTE9 IN VARCHAR2,
143 X_ATTRIBUTE10 IN VARCHAR2,
144 X_ATTRIBUTE11 IN VARCHAR2,
145 X_ATTRIBUTE12 IN VARCHAR2,
146 X_ATTRIBUTE13 IN VARCHAR2,
147 X_ATTRIBUTE14 IN VARCHAR2,
148 X_ATTRIBUTE15 IN VARCHAR2
149 ) IS
150
151
152 BEGIN
153 update AHL_OSP_ORDER_LOGS set
154 OSP_ORDER_LOG_ID = X_OSP_ORDER_LOG_ID,
155 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER ,
156 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
157 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
158 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
159 TRANSACTION_DATE = X_TRANSACTION_DATE,
160 TRANSACTION_TYPE_CODE = X_TRANSACTION_TYPE_CODE,
161 SOURCE_DOCUMENT_ID = X_SOURCE_DOCUMENT_ID,
162 SOURCE_DOCUMENT_TYPE_CODE = X_SOURCE_DOCUMENT_TYPE_CODE,
163 DESTINATION_DOCUMENT_ID = X_DESTINATION_DOCUMENT_ID,
164 DESTINATION_DOCUMENT_TYPE_CODE = X_DEST_DOCUMENT_TYPE_CODE,
165 TRANSACTION_STATUS_CODE = X_TRANSACTION_STATUS_CODE,
166 PROGRAM_ID = X_PROGRAM_ID,
167 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
168 ATTRIBUTE1 = X_ATTRIBUTE1,
169 ATTRIBUTE2 = X_ATTRIBUTE2,
170 ATTRIBUTE3 = X_ATTRIBUTE3,
171 ATTRIBUTE4 = X_ATTRIBUTE4,
172 ATTRIBUTE5 = X_ATTRIBUTE5,
173 ATTRIBUTE6 = X_ATTRIBUTE6,
174 ATTRIBUTE7 = X_ATTRIBUTE7,
175 ATTRIBUTE8 = X_ATTRIBUTE8,
176 ATTRIBUTE9 = X_ATTRIBUTE9,
177 ATTRIBUTE10 = X_ATTRIBUTE10,
178 ATTRIBUTE11 = X_ATTRIBUTE11,
179 ATTRIBUTE12 = X_ATTRIBUTE12,
180 ATTRIBUTE13 = X_ATTRIBUTE13,
181 ATTRIBUTE14 = X_ATTRIBUTE14,
182 ATTRIBUTE15 = X_ATTRIBUTE15
183 where OSP_ORDER_LOG_ID = X_OSP_ORDER_LOG_ID
184 and OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER - 1;
185
186 IF (SQL%NOTFOUND) then
187 RAISE no_data_found;
188 END IF;
189
190 EXCEPTION
191 WHEN OTHERS THEN
192 IF(SQLCODE = -1) THEN
193 FND_MESSAGE.Set_Name('AHL','AHL_OSP_DUP_ORDER_LOG');
194 FND_MESSAGE.Set_Token('OSP_ORDER_LOG_ID',x_OSP_ORDER_LOG_ID);
195 FND_MSG_PUB.ADD;
196 ELSE
197 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
198 END IF;
199
200 END UPDATE_ROW;
201
202 PROCEDURE DELETE_ROW (
203 X_OSP_ORDER_LOG_ID in NUMBER
204 ) is
205
206 BEGIN
207
208 delete from AHL_OSP_ORDER_LOGS
209 where OSP_ORDER_LOG_ID = X_OSP_ORDER_LOG_ID;
210
211 IF (SQL%NOTFOUND) then
212 RAISE no_data_found;
213 END IF;
214
215 END DELETE_ROW;
216
217
218 END AHL_OSP_ORDER_LOGS_PKG; -- Package body
219 ----------------------------------------------
220