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,
6 X_CUSTOMIZATION_LEVEL_ID in NUMBER,
7 X_CUSTOM_LEVEL in VARCHAR2,
8 X_PROPERTY_NAME in VARCHAR2,
9 X_TRANSLATABLE in VARCHAR2,
10 X_CREATED_BY in NUMBER,
11 X_CREATION_DATE in DATE,
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
21 insert into AK_CUSTOM_REGISTRY (
22 CUSTOMIZATION_LEVEL_ID,
23 CUSTOM_LEVEL,
24 PROPERTY_NAME,
25 TRANSLATABLE,
26 CREATED_BY,
27 CREATION_DATE,
28 LAST_UPDATED_BY,
29 LAST_UPDATE_DATE,
30 LAST_UPDATE_LOGIN
31 ) values (
32 X_CUSTOMIZATION_LEVEL_ID,
33 X_CUSTOM_LEVEL,
34 X_PROPERTY_NAME,
35 X_TRANSLATABLE,
36 X_CREATED_BY,
37 X_CREATION_DATE,
38 X_LAST_UPDATED_BY,
39 X_LAST_UPDATE_DATE,
40 X_LAST_UPDATE_LOGIN
41 ) ;
42
43 open C;
44 fetch C into X_ROWID;
45 if (C%notfound) then
46 close C;
47 raise no_data_found;
48 end if;
49 close C;
50 end INSERT_ROW;
51
52 procedure LOCK_ROW (
53 X_CUSTOMIZATION_LEVEL_ID in NUMBER,
54 X_CUSTOM_LEVEL in VARCHAR2,
55 X_PROPERTY_NAME in VARCHAR2,
56 X_TRANSLATABLE in VARCHAR2,
57 X_CREATED_BY in NUMBER,
58 X_CREATION_DATE in DATE,
59 X_LAST_UPDATED_BY in NUMBER,
60 X_LAST_UPDATE_DATE in DATE,
61 X_LAST_UPDATE_LOGIN in NUMBER
62 ) is
63 cursor C is select
64 CUSTOMIZATION_LEVEL_ID,
65 CUSTOM_LEVEL,
66 PROPERTY_NAME,
67 TRANSLATABLE,
68 CREATED_BY,
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;
78 recinfo C%rowtype;
79 begin
80 open C;
81 fetch C into recinfo;
82 if (C%notfound) then
83 close C;
84 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
85 app_exception.raise_exception;
86 end if;
87 close C;
88
89 if (((recinfo.CUSTOMIZATION_LEVEL_ID = X_CUSTOMIZATION_LEVEL_ID)
90 OR ((recinfo.CUSTOMIZATION_LEVEL_ID is null)
91 AND (X_CUSTOMIZATION_LEVEL_ID is null)))
92 AND ((recinfo.CUSTOM_LEVEL = X_CUSTOM_LEVEL)
93 OR ((recinfo.CUSTOM_LEVEL is null)
94 AND (X_CUSTOM_LEVEL is null)))
95 AND ((recinfo.PROPERTY_NAME = X_PROPERTY_NAME)
96 OR ((recinfo.PROPERTY_NAME is null)
97 AND (X_PROPERTY_NAME is null)))
98 AND ((recinfo.TRANSLATABLE = X_TRANSLATABLE)
99 OR ((recinfo.TRANSLATABLE is null)
100 AND (X_TRANSLATABLE is null)))
101 ) then
102 null;
103 else
104 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
105 app_exception.raise_exception;
106 end if;
107 end LOCK_ROW;
108
109 procedure UPDATE_ROW (
110 X_CUSTOMIZATION_LEVEL_ID in NUMBER,
111 X_CUSTOM_LEVEL in VARCHAR2,
112 X_PROPERTY_NAME in VARCHAR2,
113 X_TRANSLATABLE in VARCHAR2,
114 X_CREATED_BY in NUMBER,
115 X_CREATION_DATE in DATE,
116 X_LAST_UPDATED_BY in NUMBER,
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,
126 CREATED_BY = X_CREATED_BY,
127 CREATION_DATE = X_CREATION_DATE,
128 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
129 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
130 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
131 where CUSTOMIZATION_LEVEL_ID = X_CUSTOMIZATION_LEVEL_ID
132 and CUSTOM_LEVEL = X_CUSTOM_LEVEL
133 and PROPERTY_NAME = X_PROPERTY_NAME;
134
135 if (sql%notfound) then
136 raise no_data_found;
137 end if;
138 end UPDATE_ROW;
139
140 procedure DELETE_ROW (
141 X_CUSTOMIZATION_LEVEL_ID in NUMBER,
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
151 if (sql%notfound) then
152 raise no_data_found;
153 end if;
154 end DELETE_ROW;
155
156 end AK_CUSTOM_REGISTRY_PKG;