[Home] [Help]
PACKAGE BODY: APPS.AHL_UNIT_THRESHOLDS_PKG
Source
1 PACKAGE BODY AHL_UNIT_THRESHOLDS_PKG AS
2 /* $Header: AHLLUMTB.pls 115.3 2003/07/25 21:28:23 sikumar noship $ */
3 -- ARCS header version
4 G_PKG_NAME VARCHAR2(30) := 'AHL_UNIT_THRESHOLDS_PKG';
5
6 PROCEDURE insert_row (
7 P_X_UNIT_THRESHOLD_ID IN OUT NOCOPY NUMBER,
8 P_UNIT_DEFERRAL_ID IN NUMBER,
9 P_COUNTER_ID IN NUMBER,
10 P_COUNTER_VALUE IN NUMBER,
11 P_CTR_VALUE_TYPE_CODE IN VARCHAR2,
12 P_ATTRIBUTE_CATEGORY IN VARCHAR2,
13 P_ATTRIBUTE1 IN VARCHAR2,
14 P_ATTRIBUTE2 IN VARCHAR2,
15 P_ATTRIBUTE3 IN VARCHAR2,
16 P_ATTRIBUTE4 IN VARCHAR2,
17 P_ATTRIBUTE5 IN VARCHAR2,
18 P_ATTRIBUTE6 IN VARCHAR2,
19 P_ATTRIBUTE7 IN VARCHAR2,
20 P_ATTRIBUTE8 IN VARCHAR2,
21 P_ATTRIBUTE9 IN VARCHAR2,
22 P_ATTRIBUTE10 IN VARCHAR2,
23 P_ATTRIBUTE11 IN VARCHAR2,
24 P_ATTRIBUTE12 IN VARCHAR2,
25 P_ATTRIBUTE13 IN VARCHAR2,
26 P_ATTRIBUTE14 IN VARCHAR2,
27 P_ATTRIBUTE15 IN VARCHAR2,
28 P_OBJECT_VERSION_NUMBER IN NUMBER,
29 P_LAST_UPDATE_DATE IN DATE,
30 P_LAST_UPDATED_BY IN NUMBER,
31 P_CREATION_DATE IN DATE,
32 P_CREATED_BY IN NUMBER,
33 P_LAST_UPDATE_LOGIN IN NUMBER
34 ) IS
35
36 BEGIN
37 insert into ahl_unit_thresholds(
38 UNIT_THRESHOLD_ID,
39 UNIT_DEFERRAL_ID,
40 COUNTER_ID,
41 COUNTER_VALUE,
42 CTR_VALUE_TYPE_CODE,
43 ATTRIBUTE_CATEGORY,
44 ATTRIBUTE1,
45 ATTRIBUTE2,
46 ATTRIBUTE3,
47 ATTRIBUTE4,
48 ATTRIBUTE5,
49 ATTRIBUTE6,
50 ATTRIBUTE7,
51 ATTRIBUTE8,
52 ATTRIBUTE9,
53 ATTRIBUTE10,
54 ATTRIBUTE11,
55 ATTRIBUTE12,
56 ATTRIBUTE13,
57 ATTRIBUTE14,
58 ATTRIBUTE15,
59 OBJECT_VERSION_NUMBER,
60 LAST_UPDATE_DATE,
61 LAST_UPDATED_BY,
62 CREATION_DATE,
63 CREATED_BY,
64 LAST_UPDATE_LOGIN
65 ) values (
66 AHL_UNIT_THRESHOLDS_S.NEXTVAL,
67 P_UNIT_DEFERRAL_ID,
68 P_COUNTER_ID,
69 P_COUNTER_VALUE,
70 P_CTR_VALUE_TYPE_CODE,
71 P_ATTRIBUTE_CATEGORY,
72 P_ATTRIBUTE1,
73 P_ATTRIBUTE2,
74 P_ATTRIBUTE3,
75 P_ATTRIBUTE4,
76 P_ATTRIBUTE5,
77 P_ATTRIBUTE6,
78 P_ATTRIBUTE7,
79 P_ATTRIBUTE8,
80 P_ATTRIBUTE9,
81 P_ATTRIBUTE10,
82 P_ATTRIBUTE11,
83 P_ATTRIBUTE12,
84 P_ATTRIBUTE13,
85 P_ATTRIBUTE14,
86 P_ATTRIBUTE15,
87 P_OBJECT_VERSION_NUMBER,
88 P_LAST_UPDATE_DATE,
89 P_LAST_UPDATED_BY,
90 P_CREATION_DATE,
91 P_CREATED_BY,
92 P_LAST_UPDATE_LOGIN
93 ) RETURNING UNIT_THRESHOLD_ID INTO P_X_UNIT_THRESHOLD_ID;
94
95 END insert_row;
96
97 ------------------------------
98
99 PROCEDURE update_row (
100 P_UNIT_THRESHOLD_ID IN NUMBER,
101 P_UNIT_DEFERRAL_ID IN NUMBER,
102 P_COUNTER_ID IN NUMBER,
103 P_COUNTER_VALUE IN NUMBER,
104 P_CTR_VALUE_TYPE_CODE IN VARCHAR2,
105 P_ATTRIBUTE_CATEGORY IN VARCHAR2,
106 P_ATTRIBUTE1 IN VARCHAR2,
107 P_ATTRIBUTE2 IN VARCHAR2,
108 P_ATTRIBUTE3 IN VARCHAR2,
109 P_ATTRIBUTE4 IN VARCHAR2,
110 P_ATTRIBUTE5 IN VARCHAR2,
111 P_ATTRIBUTE6 IN VARCHAR2,
112 P_ATTRIBUTE7 IN VARCHAR2,
113 P_ATTRIBUTE8 IN VARCHAR2,
114 P_ATTRIBUTE9 IN VARCHAR2,
115 P_ATTRIBUTE10 IN VARCHAR2,
116 P_ATTRIBUTE11 IN VARCHAR2,
117 P_ATTRIBUTE12 IN VARCHAR2,
118 P_ATTRIBUTE13 IN VARCHAR2,
119 P_ATTRIBUTE14 IN VARCHAR2,
120 P_ATTRIBUTE15 IN VARCHAR2,
121 P_OBJECT_VERSION_NUMBER IN NUMBER,
122 P_LAST_UPDATE_DATE IN DATE,
123 P_LAST_UPDATED_BY IN NUMBER,
124 P_LAST_UPDATE_LOGIN IN NUMBER
125 ) IS
126
127 BEGIN
128 update ahl_unit_thresholds set
129 UNIT_DEFERRAL_ID = P_UNIT_DEFERRAL_ID,
130 COUNTER_ID = P_COUNTER_ID,
131 COUNTER_VALUE = P_COUNTER_VALUE,
132 CTR_VALUE_TYPE_CODE = P_CTR_VALUE_TYPE_CODE,
133 ATTRIBUTE_CATEGORY = P_ATTRIBUTE_CATEGORY,
134 ATTRIBUTE1 = P_ATTRIBUTE1,
135 ATTRIBUTE2 = P_ATTRIBUTE2,
136 ATTRIBUTE3 = P_ATTRIBUTE3,
137 ATTRIBUTE4 = P_ATTRIBUTE4,
138 ATTRIBUTE5 = P_ATTRIBUTE5,
139 ATTRIBUTE6 = P_ATTRIBUTE6,
140 ATTRIBUTE7 = P_ATTRIBUTE7,
141 ATTRIBUTE8 = P_ATTRIBUTE8,
142 ATTRIBUTE9 = P_ATTRIBUTE9,
143 ATTRIBUTE10 = P_ATTRIBUTE10,
144 ATTRIBUTE11 = P_ATTRIBUTE11,
145 ATTRIBUTE12 = P_ATTRIBUTE12,
146 ATTRIBUTE13 = P_ATTRIBUTE13,
147 ATTRIBUTE14 = P_ATTRIBUTE14,
148 ATTRIBUTE15 = P_ATTRIBUTE15,
149 OBJECT_VERSION_NUMBER = P_OBJECT_VERSION_NUMBER,
150 LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
151 LAST_UPDATED_BY = P_LAST_UPDATED_BY,
152 LAST_UPDATE_LOGIN = P_LAST_UPDATE_LOGIN
153 where UNIT_THRESHOLD_ID = P_UNIT_THRESHOLD_ID;
154
155 if (sql%notfound) then
156 raise no_data_found;
157 end if;
158
159 END update_row;
160
161 ------------------------------
162
163 PROCEDURE delete_row (
164 P_UNIT_THRESHOLD_ID IN NUMBER
165 ) IS
166 BEGIN
167
168 delete from ahl_unit_thresholds
169 where UNIT_THRESHOLD_ID = P_UNIT_THRESHOLD_ID;
170
171 if (sql%notfound) then
172 raise no_data_found;
173 end if;
174
175 END delete_row;
176
177 ------------------------------
178
179 END AHL_UNIT_THRESHOLDS_PKG;
180