1 package body AK_REGIONS_UTIL_PKG as
2 /* $Header: AKDRUTLB.pls 115.6 2002/09/27 19:30:12 tshort noship $ */
3
4 procedure UPDATE_ITEM_LONG_LABEL (
5 X_REGION_APPLICATION_ID in NUMBER,
6 X_REGION_CODE in VARCHAR2,
7 X_ATTRIBUTE_APPLICATION_ID in NUMBER,
8 X_ATTRIBUTE_CODE in VARCHAR2,
9 X_ATTRIBUTE_LABEL_LONG in VARCHAR2,
10 X_LAST_UPDATE_DATE in DATE,
11 X_LAST_UPDATED_BY in NUMBER,
12 X_LAST_UPDATE_LOGIN in NUMBER
13 ) is
14 begin
15
16 update ak_region_items_tl
17 set attribute_label_long = X_ATTRIBUTE_LABEL_LONG,
18 SOURCE_LANG = userenv('LANG'),
19 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
20 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
21 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
22 where REGION_CODE = X_REGION_CODE
23 and REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
24 and ATTRIBUTE_CODE = X_ATTRIBUTE_CODE
25 and ATTRIBUTE_APPLICATION_ID = X_ATTRIBUTE_APPLICATION_ID
26 and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
27 if (sql%notfound) then
28 raise no_data_found;
29 end if;
30
31 end;
32
33 procedure UPDATE_NODE_DISPLAY_FLAG (
34 X_REGION_APPLICATION_ID in NUMBER,
35 X_REGION_CODE in VARCHAR2,
36 X_ATTRIBUTE_APPLICATION_ID in NUMBER,
37 X_ATTRIBUTE_CODE in VARCHAR2,
38 X_NODE_DISPLAY_FLAG in VARCHAR2,
39 X_LAST_UPDATE_DATE in DATE,
40 X_LAST_UPDATED_BY in NUMBER,
41 X_LAST_UPDATE_LOGIN in NUMBER
42 ) is
43 begin
44
45 if (X_NODE_DISPLAY_FLAG = 'Y' or X_NODE_DISPLAY_FLAG = 'N') then
46 update ak_region_items
47 set node_display_flag = X_NODE_DISPLAY_FLAG,
48 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
49 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
50 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
51 where REGION_CODE = X_REGION_CODE
52 and REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
53 and ATTRIBUTE_CODE = X_ATTRIBUTE_CODE
54 and ATTRIBUTE_APPLICATION_ID = X_ATTRIBUTE_APPLICATION_ID;
55 end if;
56
57 if (sql%notfound) then
58 raise no_data_found;
59 end if;
60
61 end;
62
63 /* valid values for X_USER_CUSTOMIZABLE are 'Y' and NULL */
64 procedure UPDATE_USER_CUSTOMIZABLE (
65 X_REGION_APPLICATION_ID in NUMBER,
66 X_REGION_CODE in VARCHAR2,
67 X_ATTRIBUTE_APPLICATION_ID in NUMBER,
68 X_ATTRIBUTE_CODE in VARCHAR2,
69 X_USER_CUSTOMIZABLE in VARCHAR2,
70 X_LAST_UPDATE_DATE in DATE,
71 X_LAST_UPDATED_BY in NUMBER,
72 X_LAST_UPDATE_LOGIN in NUMBER
73 ) is
74 begin
75
76 if ( X_USER_CUSTOMIZABLE = 'Y' or X_USER_CUSTOMIZABLE = 'N' or X_USER_CUSTOMIZABLE is null ) then
77 update ak_region_items
78 set user_customizable = X_USER_CUSTOMIZABLE,
79 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
80 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
81 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
82 where REGION_CODE = X_REGION_CODE
83 and REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
84 and ATTRIBUTE_CODE = X_ATTRIBUTE_CODE
85 and ATTRIBUTE_APPLICATION_ID = X_ATTRIBUTE_APPLICATION_ID;
86 end if;
87
88 if (sql%notfound) then
89 raise no_data_found;
90 end if;
91
92 end;
93
94 end AK_REGIONS_UTIL_PKG;
[Home] [Help]