1: package body AK_CUSTOM_REGISTRY_PKG as
2: /* $Header: AKRGSTYB.pls 120.2 2005/10/14 14:24:40 tshort noship $ */
3:
4: procedure INSERT_ROW (
5: X_ROWID in out NOCOPY VARCHAR2,
12: X_LAST_UPDATED_BY in NUMBER,
13: X_LAST_UPDATE_DATE in DATE,
14: X_LAST_UPDATE_LOGIN in NUMBER
15: ) is
16: cursor C is select ROWID from AK_CUSTOM_REGISTRY
17: where CUSTOMIZATION_LEVEL_ID = X_CUSTOMIZATION_LEVEL_ID
18: and CUSTOM_LEVEL = X_CUSTOM_LEVEL
19: and PROPERTY_NAME = X_PROPERTY_NAME;
20: begin
17: where CUSTOMIZATION_LEVEL_ID = X_CUSTOMIZATION_LEVEL_ID
18: and CUSTOM_LEVEL = X_CUSTOM_LEVEL
19: and PROPERTY_NAME = X_PROPERTY_NAME;
20: begin
21: insert into AK_CUSTOM_REGISTRY (
22: CUSTOMIZATION_LEVEL_ID,
23: CUSTOM_LEVEL,
24: PROPERTY_NAME,
25: TRANSLATABLE,
69: CREATION_DATE,
70: LAST_UPDATED_BY,
71: LAST_UPDATE_DATE,
72: LAST_UPDATE_LOGIN
73: from AK_CUSTOM_REGISTRY
74: where CUSTOMIZATION_LEVEL_ID = X_CUSTOMIZATION_LEVEL_ID
75: and CUSTOM_LEVEL = X_CUSTOM_LEVEL
76: and PROPERTY_NAME = X_PROPERTY_NAME
77: for update of CUSTOMIZATION_LEVEL_ID nowait;
117: X_LAST_UPDATE_DATE in DATE,
118: X_LAST_UPDATE_LOGIN in NUMBER
119: ) is
120: begin
121: update AK_CUSTOM_REGISTRY set
122: CUSTOMIZATION_LEVEL_ID = X_CUSTOMIZATION_LEVEL_ID,
123: CUSTOM_LEVEL = X_CUSTOM_LEVEL,
124: PROPERTY_NAME = X_PROPERTY_NAME,
125: TRANSLATABLE = X_TRANSLATABLE,
142: X_CUSTOM_LEVEL in VARCHAR2,
143: X_PROPERTY_NAME in VARCHAR2
144: ) is
145: begin
146: delete from AK_CUSTOM_REGISTRY
147: where CUSTOMIZATION_LEVEL_ID = X_CUSTOMIZATION_LEVEL_ID
148: and CUSTOM_LEVEL = X_CUSTOM_LEVEL
149: and PROPERTY_NAME = X_PROPERTY_NAME;
150:
152: raise no_data_found;
153: end if;
154: end DELETE_ROW;
155:
156: end AK_CUSTOM_REGISTRY_PKG;