[Home] [Help]
PACKAGE BODY: APPS.PER_CATEGORY_TYPES_PKG
Source
1 package body PER_CATEGORY_TYPES_PKG as
2 /* $Header: hruoclct.pkb 115.2 1999/11/09 15:05:09 pkm ship $ */
3 procedure OWNER_TO_WHO (
4 X_OWNER in VARCHAR2,
5 X_CREATION_DATE out DATE,
6 X_CREATED_BY out NUMBER,
7 X_LAST_UPDATE_DATE out DATE,
8 X_LAST_UPDATED_BY out NUMBER,
9 X_LAST_UPDATE_LOGIN out NUMBER
10 ) is
11 begin
12 if X_OWNER = 'SEED' then
13 X_CREATED_BY := 1;
14 X_LAST_UPDATED_BY := 1;
15 else
16 X_CREATED_BY := 0;
17 X_LAST_UPDATED_BY := 0;
18 end if;
19 X_CREATION_DATE := sysdate;
20 X_LAST_UPDATE_DATE := sysdate;
21 X_LAST_UPDATE_LOGIN := 0;
22 end OWNER_TO_WHO;
23 --
24 procedure INSERT_ROW (
25 X_PROPOSAL_CATEGORY_TYPE_ID in NUMBER,
26 X_TYPE in VARCHAR2,
27 X_HEADING_TEXT in VARCHAR2,
28 X_HELP_TEXT in VARCHAR2,
29 X_NOTE_TEXT in VARCHAR2,
30 X_FOOTER_TEXT in VARCHAR2,
31 X_CATEGORY_NAME in VARCHAR2,
32 X_CREATION_DATE in DATE,
33 X_CREATED_BY in VARCHAR2,
34 X_LAST_UPDATE_DATE in DATE,
35 X_LAST_UPDATED_BY in VARCHAR2,
36 X_LAST_UPDATE_LOGIN in NUMBER
37 ) is
38 begin
39 insert into PER_PROPOSAL_CATEGORY_TYPES (
40 PROPOSAL_CATEGORY_TYPE_ID,
41 CATEGORY_NAME,
42 TYPE,
43 HEADING_TEXT,
44 HELP_TEXT,
45 NOTE_TEXT,
46 FOOTER_TEXT,
47 CREATION_DATE,
48 CREATED_BY,
49 LAST_UPDATE_DATE,
50 LAST_UPDATED_BY,
51 LAST_UPDATE_LOGIN
52 ) values (
53 X_PROPOSAL_CATEGORY_TYPE_ID,
54 X_CATEGORY_NAME,
55 X_TYPE,
56 X_HEADING_TEXT,
57 X_HELP_TEXT,
58 X_NOTE_TEXT,
59 X_FOOTER_TEXT,
60 X_CREATION_DATE,
61 X_CREATED_BY,
62 X_LAST_UPDATE_DATE,
63 X_LAST_UPDATED_BY,
64 X_LAST_UPDATE_LOGIN
65 );
66 end INSERT_ROW;
67 --
68 procedure LOCK_ROW (
69 X_PROPOSAL_CATEGORY_TYPE_ID in NUMBER
70 ) is
71 cursor CSR_CATEGORY_NAME (
72 X_PROPOSAL_CATEGORY_TYPE_ID in VARCHAR2
73 ) is
74 select CATEGORY_NAME
75 from PER_PROPOSAL_CATEGORY_TYPES
76 where PROPOSAL_CATEGORY_TYPE_ID = X_PROPOSAL_CATEGORY_TYPE_ID
77 for update of CATEGORY_NAME nowait;
78 RECINFO CSR_CATEGORY_NAME%rowtype;
79 begin
80 open CSR_CATEGORY_NAME(X_PROPOSAL_CATEGORY_TYPE_ID);
81 fetch CSR_CATEGORY_NAME into RECINFO;
82 if (CSR_CATEGORY_NAME%notfound) then
83 close CSR_CATEGORY_NAME;
84 fnd_message.set_name('FND','FORM_RECORD_DELETED');
85 app_exception.raise_exception;
86 end if;
87 close CSR_CATEGORY_NAME;
88 end LOCK_ROW;
89 --
90 procedure UPDATE_ROW (
91 X_PROPOSAL_CATEGORY_TYPE_ID in NUMBER,
92 X_TYPE in VARCHAR2,
93 X_HEADING_TEXT in VARCHAR2,
94 X_HELP_TEXT in VARCHAR2,
95 X_NOTE_TEXT in VARCHAR2,
96 X_FOOTER_TEXT in VARCHAR2,
97 X_CATEGORY_NAME in VARCHAR2,
98 X_LAST_UPDATE_DATE in DATE,
99 X_LAST_UPDATED_BY in VARCHAR2,
100 X_LAST_UPDATE_LOGIN in NUMBER
101 ) is
102 begin
103 update PER_PROPOSAL_CATEGORY_TYPES set
104 CATEGORY_NAME = X_CATEGORY_NAME,
105 TYPE = X_TYPE,
106 HEADING_TEXT = X_HEADING_TEXT,
107 HELP_TEXT = X_HELP_TEXT,
108 NOTE_TEXT = X_NOTE_TEXT,
109 FOOTER_TEXT = X_FOOTER_TEXT,
110 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
111 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
112 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
113 where PROPOSAL_CATEGORY_TYPE_ID = X_PROPOSAL_CATEGORY_TYPE_ID;
114 if (sql%notfound) then
115 raise no_data_found;
116 end if;
117 end UPDATE_ROW;
118 --
119 procedure DELETE_ROW (
120 X_PROPOSAL_CATEGORY_TYPE_ID in NUMBER
121 ) is
122 begin
123 delete from PER_PROPOSAL_CATEGORY_TYPES
124 where PROPOSAL_CATEGORY_TYPE_ID = X_PROPOSAL_CATEGORY_TYPE_ID;
125 if (sql%notfound) then
126 raise no_data_found;
127 end if;
128 end DELETE_ROW;
129 --
130 procedure LOAD_ROW (
131 X_PROPOSAL_CATEGORY_TYPE_ID in NUMBER,
132 X_TYPE in VARCHAR2,
133 X_HEADING_TEXT in VARCHAR2,
134 X_HELP_TEXT in VARCHAR2,
135 X_NOTE_TEXT in VARCHAR2,
136 X_FOOTER_TEXT in VARCHAR2,
137 X_CATEGORY_NAME in VARCHAR2,
138 X_OWNER in VARCHAR2
139 ) is
140 X_CREATION_DATE DATE;
141 X_CREATED_BY NUMBER;
142 X_LAST_UPDATE_DATE DATE;
143 X_LAST_UPDATED_BY NUMBER;
144 X_LAST_UPDATE_LOGIN NUMBER;
145 begin
146 OWNER_TO_WHO (
147 X_OWNER,
148 X_CREATION_DATE,
149 X_CREATED_BY,
150 X_LAST_UPDATE_DATE,
151 X_LAST_UPDATED_BY,
152 X_LAST_UPDATE_LOGIN
153 );
154 begin
155 UPDATE_ROW (
156 X_PROPOSAL_CATEGORY_TYPE_ID,
157 X_TYPE,
158 X_HEADING_TEXT,
159 X_HELP_TEXT,
160 X_NOTE_TEXT,
161 X_FOOTER_TEXT,
162 X_CATEGORY_NAME,
163 X_LAST_UPDATE_DATE,
164 X_LAST_UPDATED_BY,
165 X_LAST_UPDATE_LOGIN
166 );
167 exception
168 when no_data_found then
169 INSERT_ROW (
170 X_PROPOSAL_CATEGORY_TYPE_ID,
171 X_TYPE,
172 X_HEADING_TEXT,
173 X_HELP_TEXT,
174 X_NOTE_TEXT,
175 X_FOOTER_TEXT,
176 X_CATEGORY_NAME,
177 X_CREATION_DATE,
178 X_CREATED_BY,
179 X_LAST_UPDATE_DATE,
180 X_LAST_UPDATED_BY,
181 X_LAST_UPDATE_LOGIN
182 );
183 end;
184 end LOAD_ROW;
185 --
186 procedure TRANSLATE_ROW (
187 X_PROPOSAL_CATEGORY_TYPE_ID in NUMBER,
188 X_HEADING_TEXT in VARCHAR2,
189 X_HELP_TEXT in VARCHAR2,
190 X_NOTE_TEXT in VARCHAR2,
191 X_FOOTER_TEXT in VARCHAR2,
192 X_CATEGORY_NAME in VARCHAR2,
193 X_OWNER in VARCHAR2
194 ) is
195 X_CREATION_DATE DATE;
196 X_CREATED_BY NUMBER;
197 X_LAST_UPDATE_DATE DATE;
198 X_LAST_UPDATED_BY NUMBER;
199 X_LAST_UPDATE_LOGIN NUMBER;
200 begin
201 OWNER_TO_WHO (
202 X_OWNER,
203 X_CREATION_DATE,
204 X_CREATED_BY,
205 X_LAST_UPDATE_DATE,
206 X_LAST_UPDATED_BY,
207 X_LAST_UPDATE_LOGIN
208 );
209 update PER_PROPOSAL_CATEGORY_TYPES
210 set CATEGORY_NAME = X_CATEGORY_NAME,
211 HEADING_TEXT = X_HEADING_TEXT,
212 HELP_TEXT = X_HELP_TEXT,
213 NOTE_TEXT = X_NOTE_TEXT,
214 FOOTER_TEXT = X_FOOTER_TEXT,
215 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
216 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
217 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
218 where PROPOSAL_CATEGORY_TYPE_ID = X_PROPOSAL_CATEGORY_TYPE_ID
219 and userenv('LANG') = (Select language_code
220 from FND_LANGUAGES where installed_flag = 'B');
221 end TRANSLATE_ROW;
222 --
223 end PER_CATEGORY_TYPES_PKG;