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