[Home] [Help]
PACKAGE BODY: APPS.CN_ROLLOVER_QUOTAS_PKG
Source
1 PACKAGE BODY CN_ROLLOVER_QUOTAS_PKG as
2 /* $Header: cnrqpkgb.pls 115.1 2002/12/04 02:13:25 fting noship $ */
3
4
5
6 -- -------------------------------------------------------------------------+
7 -- | Variables |
8 ----------------------------------------------------------------------------+
9 g_temp_status_code VARCHAR2(30) := NULL;
10 g_program_type VARCHAR2(30) := NULL;
11 g_quota_name VARCHAR2(80) := NULL;
12 g_plan_name VARCHAR2(30) := NULL;
13 g_schedule_name VARCHAR2(30) := NULL;
14
15 procedure INSERT_ROW (
16 X_ROWID in out NOCOPY VARCHAR2,
17 X_ROLLOVER_QUOTA_ID IN OUT NOCOPY NUMBER,
18 X_QUOTA_ID IN NUMBER,
19 X_SOURCE_QUOTA_ID IN NUMBER,
20 X_ROLLOVER IN NUMBER,
21 X_ATTRIBUTE_CATEGORY IN VARCHAR2 := NULL,
22 X_ATTRIBUTE1 IN VARCHAR2 := NULL,
23 X_ATTRIBUTE2 IN VARCHAR2 := NULL,
24 X_ATTRIBUTE3 IN VARCHAR2 := NULL,
25 X_ATTRIBUTE4 IN VARCHAR2 := NULL,
26 X_ATTRIBUTE5 IN VARCHAR2 := NULL,
27 X_ATTRIBUTE6 IN VARCHAR2 := NULL,
28 X_ATTRIBUTE7 IN VARCHAR2 := NULL,
29 X_ATTRIBUTE8 IN VARCHAR2 := NULL,
30 X_ATTRIBUTE9 IN VARCHAR2 := NULL,
31 X_ATTRIBUTE10 IN VARCHAR2 := NULL,
32 X_ATTRIBUTE11 IN VARCHAR2 := NULL,
33 X_ATTRIBUTE12 IN VARCHAR2 := NULL,
34 X_ATTRIBUTE13 IN VARCHAR2 := NULL,
35 X_ATTRIBUTE14 IN VARCHAR2 := NULL,
36 X_ATTRIBUTE15 IN VARCHAR2 := NULL,
37 X_CREATED_BY IN NUMBER,
38 X_CREATION_DATE IN DATE,
39 X_LAST_UPDATE_DATE IN DATE,
40 X_LAST_UPDATED_BY IN NUMBER,
41 X_LAST_UPDATE_LOGIN IN NUMBER
42 ) is
43 cursor C is select ROWID from CN_ROLLOVER_QUOTAS
44 where ROLLOVER_QUOTA_ID = X_ROLLOVER_QUOTA_ID ;
45
46 l_rollover_quota_id NUMBER;
47 BEGIN
48
49 IF (X_ROLLOVER_QUOTA_ID IS NULL) THEN
50 SELECT CN_ROLLOVER_QUOTAS_S.NEXTVAL
51 INTO l_rollover_quota_id
52 FROM dual;
53 ELSE
54 l_rollover_quota_id := x_rollover_quota_id;
55 END IF;
56
57 insert into CN_ROLLOVER_QUOTAS (
58 ROLLOVER_QUOTA_ID,
59 QUOTA_ID,
60 SOURCE_QUOTA_ID,
61 ROLLOVER,
62 ATTRIBUTE_CATEGORY,
63 ATTRIBUTE1,
64 ATTRIBUTE2,
65 ATTRIBUTE3,
66 ATTRIBUTE4,
67 ATTRIBUTE5,
68 ATTRIBUTE6,
69 ATTRIBUTE7,
70 ATTRIBUTE8,
71 ATTRIBUTE9,
72 ATTRIBUTE10,
73 ATTRIBUTE11,
74 ATTRIBUTE12,
75 ATTRIBUTE13,
76 ATTRIBUTE14,
77 ATTRIBUTE15,
78 CREATED_BY,
79 CREATION_DATE,
80 LAST_UPDATE_LOGIN,
81 LAST_UPDATE_DATE,
82 LAST_UPDATED_BY,
83 OBJECT_VERSION_NUMBER
84 ) VALUES (
85 l_ROLLOVER_QUOTA_ID,
86 X_QUOTA_ID,
87 X_SOURCE_QUOTA_ID,
88 X_ROLLOVER,
89 X_ATTRIBUTE_CATEGORY,
90 X_ATTRIBUTE1,
91 X_ATTRIBUTE2,
92 X_ATTRIBUTE3,
93 X_ATTRIBUTE4,
94 X_ATTRIBUTE5,
95 X_ATTRIBUTE6,
96 X_ATTRIBUTE7,
97 X_ATTRIBUTE8,
98 X_ATTRIBUTE9,
99 X_ATTRIBUTE10,
100 X_ATTRIBUTE11,
101 X_ATTRIBUTE12,
102 X_ATTRIBUTE13,
103 X_ATTRIBUTE14,
104 X_ATTRIBUTE15,
105 X_CREATED_BY,
106 X_CREATION_DATE,
107 X_LAST_UPDATE_LOGIN,
108 X_LAST_UPDATE_DATE,
109 X_LAST_UPDATED_BY,
110 1);
111
112 /*open c;
113 fetch c into X_ROWID;
114 if (c%notfound) then
115 close c;
116 raise no_data_found;
117 end if;
118 close c;*/
119
120 end INSERT_ROW;
121
122
123
124 procedure UPDATE_ROW (
125 X_ROLLOVER_QUOTA_ID IN NUMBER,
126 X_QUOTA_ID IN NUMBER,
127 X_SOURCE_QUOTA_ID IN NUMBER,
128 X_ROLLOVER IN NUMBER,
129 X_ATTRIBUTE_CATEGORY IN VARCHAR2 := NULL,
130 X_ATTRIBUTE1 IN VARCHAR2 := NULL,
131 X_ATTRIBUTE2 IN VARCHAR2 := NULL,
132 X_ATTRIBUTE3 IN VARCHAR2 := NULL,
133 X_ATTRIBUTE4 IN VARCHAR2 := NULL,
134 X_ATTRIBUTE5 IN VARCHAR2 := NULL,
135 X_ATTRIBUTE6 IN VARCHAR2 := NULL,
136 X_ATTRIBUTE7 IN VARCHAR2 := NULL,
137 X_ATTRIBUTE8 IN VARCHAR2 := NULL,
138 X_ATTRIBUTE9 IN VARCHAR2 := NULL,
139 X_ATTRIBUTE10 IN VARCHAR2 := NULL,
140 X_ATTRIBUTE11 IN VARCHAR2 := NULL,
141 X_ATTRIBUTE12 IN VARCHAR2 := NULL,
142 X_ATTRIBUTE13 IN VARCHAR2 := NULL,
143 X_ATTRIBUTE14 IN VARCHAR2 := NULL,
144 X_ATTRIBUTE15 IN VARCHAR2 := NULL,
145 X_CREATED_BY IN NUMBER,
146 X_CREATION_DATE IN DATE,
147 X_LAST_UPDATE_DATE IN DATE,
148 X_LAST_UPDATED_BY IN NUMBER,
149 X_LAST_UPDATE_LOGIN IN NUMBER
150 ) is
151 begin
152 update CN_ROLLOVER_QUOTAS set
153 SOURCE_QUOTA_ID = X_SOURCE_QUOTA_ID,
154 ROLLOVER = X_ROLLOVER,
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 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
172 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
173 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
174 OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1
175 where ROLLOVER_QUOTA_ID = X_ROLLOVER_QUOTA_ID;
176
177 if (sql%notfound) then
178 raise no_data_found;
179 end if;
180 end UPDATE_ROW;
181
182 procedure DELETE_ROW (
183 X_ROLLOVER_QUOTA_ID IN NUMBER
184 ) is
185 begin
186 delete from CN_ROLLOVER_QUOTAS
187 where ROLLOVER_QUOTA_ID = X_ROLLOVER_QUOTA_ID;
188
189 if (sql%notfound) then
190 raise no_data_found;
191 end if;
192
193 end DELETE_ROW;
194
195
196 END CN_ROLLOVER_QUOTAS_PKG;