1: package body AK_CRITERIA_PKG as
2: /* $Header: AKCRTRAB.pls 120.2 2005/09/29 13:59:29 tshort noship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_CUSTOMIZATION_APPLICATION_ID in NUMBER,
20: X_LAST_UPDATE_LOGIN in NUMBER,
21: X_START_DATE_ACTIVE in DATE,
22: X_END_DATE_ACTIVE in DATE
23: ) is
24: cursor C is select ROWID from AK_CRITERIA
25: where CUSTOMIZATION_APPLICATION_ID = X_CUSTOMIZATION_APPLICATION_ID
26: and CUSTOMIZATION_CODE = X_CUSTOMIZATION_CODE
27: and REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
28: and REGION_CODE = X_REGION_CODE
29: and ATTRIBUTE_APPLICATION_ID = X_ATTRIBUTE_APPLICATION_ID
30: and ATTRIBUTE_CODE = X_ATTRIBUTE_CODE
31: and SEQUENCE_NUMBER = X_SEQUENCE_NUMBER;
32: begin
33: insert into AK_CRITERIA (
34: CUSTOMIZATION_APPLICATION_ID,
35: CUSTOMIZATION_CODE,
36: REGION_APPLICATION_ID,
37: REGION_CODE,
110: OPERATION,
111: VALUE_VARCHAR2,
112: VALUE_NUMBER,
113: VALUE_DATE
114: from AK_CRITERIA
115: where CUSTOMIZATION_APPLICATION_ID = X_CUSTOMIZATION_APPLICATION_ID
116: and CUSTOMIZATION_CODE = X_CUSTOMIZATION_CODE
117: and REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
118: and REGION_CODE = X_REGION_CODE
191: X_START_DATE_ACTIVE in DATE,
192: X_END_DATE_ACTIVE in DATE
193: ) is
194: begin
195: update AK_CRITERIA set
196: CUSTOMIZATION_APPLICATION_ID = X_CUSTOMIZATION_APPLICATION_ID,
197: CUSTOMIZATION_CODE = X_CUSTOMIZATION_CODE,
198: REGION_APPLICATION_ID = X_REGION_APPLICATION_ID,
199: REGION_CODE = X_REGION_CODE,
231: X_ATTRIBUTE_CODE in VARCHAR2,
232: X_SEQUENCE_NUMBER in NUMBER
233: ) is
234: begin
235: delete from AK_CRITERIA
236: where CUSTOMIZATION_APPLICATION_ID = X_CUSTOMIZATION_APPLICATION_ID
237: and CUSTOMIZATION_CODE = X_CUSTOMIZATION_CODE
238: and REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
239: and REGION_CODE = X_REGION_CODE
245: raise no_data_found;
246: end if;
247: end DELETE_ROW;
248:
249: end AK_CRITERIA_PKG;