[Home] [Help]
PACKAGE BODY: APPS.AZ_SSET_TAXONOMIES_PKG
Source
1 package body AZ_SSET_TAXONOMIES_PKG as
2 /* $Header: azttaxssetb.pls 120.1 2007/12/13 08:58:26 sbandi noship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out NOCOPY VARCHAR2,
5 X_TAXONOMY_CODE in VARCHAR2,
6 X_SELECTION_SET_CODE in VARCHAR2,
7 X_SEQ_NUM in NUMBER,
8 X_ENABLED_FLAG in VARCHAR2,
9 X_CREATION_DATE in DATE,
10 X_CREATED_BY in NUMBER,
11 X_LAST_UPDATE_DATE in DATE,
12 X_LAST_UPDATED_BY in NUMBER,
13 X_LAST_UPDATE_LOGIN in NUMBER
14 ) is
15 cursor C is select ROWID from AZ_SELECTION_SET_TAXONOMIES
16 where TAXONOMY_CODE = X_TAXONOMY_CODE
17 and SELECTION_SET_CODE = X_SELECTION_SET_CODE;
18
19 begin
20 insert into AZ_SELECTION_SET_TAXONOMIES (
21 TAXONOMY_CODE,
22 SELECTION_SET_CODE,
23 SEQ_NUM,
24 ENABLED_FLAG,
25 CREATION_DATE,
26 CREATED_BY,
27 LAST_UPDATE_DATE,
28 LAST_UPDATED_BY,
29 LAST_UPDATE_LOGIN
30 ) values (
31 X_TAXONOMY_CODE,
32 X_SELECTION_SET_CODE,
33 X_SEQ_NUM,
34 X_ENABLED_FLAG,
35 X_CREATION_DATE,
36 X_CREATED_BY,
37 X_LAST_UPDATE_DATE,
38 X_LAST_UPDATED_BY,
39 X_LAST_UPDATE_LOGIN
40 );
41
42 open c;
43 fetch c into X_ROWID;
44 if (c%notfound) then
45 close c;
46 raise no_data_found;
47 end if;
48 close c;
49
50 end INSERT_ROW;
51
52
53 procedure UPDATE_ROW (
54 X_TAXONOMY_CODE in VARCHAR2,
55 X_SELECTION_SET_CODE in VARCHAR2,
56 X_SEQ_NUM in NUMBER,
57 X_ENABLED_FLAG in VARCHAR2,
58 X_LAST_UPDATE_DATE in DATE,
59 X_LAST_UPDATED_BY in NUMBER,
60 X_LAST_UPDATE_LOGIN in NUMBER
61 ) is
62 begin
63 update AZ_SELECTION_SET_TAXONOMIES set
64 SEQ_NUM = X_SEQ_NUM,
65 ENABLED_FLAG = X_ENABLED_FLAG,
66 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
67 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
68 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
69 where TAXONOMY_CODE = X_TAXONOMY_CODE
70 and SELECTION_SET_CODE = X_SELECTION_SET_CODE;
71
72 if (sql%notfound) then
73 raise no_data_found;
74 end if;
75
76 end UPDATE_ROW;
77
78 procedure DELETE_ROW (
79 X_TAXONOMY_CODE in VARCHAR2,
80 X_USER_ID in NUMBER
81 ) is
82 begin
83 delete from AZ_SELECTION_SET_TAXONOMIES
84 where TAXONOMY_CODE = X_TAXONOMY_CODE;
85
86 if (sql%notfound) then
87 raise no_data_found;
88 end if;
89 end DELETE_ROW;
90
91 procedure LOAD_ROW (
92 X_TAXONOMY_CODE in VARCHAR2,
93 X_SELECTION_SET_CODE in VARCHAR2,
94 X_SEQ_NUM in NUMBER,
95 X_ENABLED_FLAG in VARCHAR2) IS
96 begin
97 declare
98 l_owner_id number := 1;
99 l_row_id varchar2(64);
100 luby number := null;
101 begin
102
103 select last_updated_by into luby
104 from AZ_SELECTION_SET_TAXONOMIES
105 where TAXONOMY_CODE = X_TAXONOMY_CODE
106 and SELECTION_SET_CODE = X_SELECTION_SET_CODE;
107
108 if (luby = 1) THEN
109 AZ_SSET_TAXONOMIES_PKG.UPDATE_ROW(
110 X_TAXONOMY_CODE => X_TAXONOMY_CODE,
111 X_SELECTION_SET_CODE => X_SELECTION_SET_CODE,
112 X_SEQ_NUM => X_SEQ_NUM,
113 X_ENABLED_FLAG => X_ENABLED_FLAG,
114 X_LAST_UPDATE_DATE => sysdate,
115 X_LAST_UPDATED_BY => l_owner_id,
116 X_LAST_UPDATE_LOGIN => 0
117 );
118 end if; -- if luby = 1
119
120 exception
121 when NO_DATA_FOUND then
122
123 AZ_SSET_TAXONOMIES_PKG.INSERT_ROW(
124 X_ROWID => l_row_id,
125 X_TAXONOMY_CODE => X_TAXONOMY_CODE,
126 X_SELECTION_SET_CODE => X_SELECTION_SET_CODE,
127 X_SEQ_NUM => X_SEQ_NUM,
128 X_ENABLED_FLAG => X_ENABLED_FLAG,
129 X_CREATION_DATE => sysdate,
130 X_CREATED_BY => l_owner_id,
131 X_LAST_UPDATE_DATE => sysdate,
132 X_LAST_UPDATED_BY => l_owner_id,
133 X_LAST_UPDATE_LOGIN => 0
134 );
135
136 end;
137
138 end LOAD_ROW;
139
140 end AZ_SSET_TAXONOMIES_PKG;