eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.OKC_BUS_DOC_TYPES_PVT

Source


1 package body OKC_BUS_DOC_TYPES_PVT as
2 /* $Header: OKCSBDTB.pls 120.0 2005/05/26 09:43:33 appldev noship $ */
3 procedure INSERT_ROW (
4   X_ROWID in out nocopy VARCHAR2,
5   X_DOCUMENT_TYPE in VARCHAR2,
6   X_CONTRACT_TERMS_FUNCTION in VARCHAR2,
7   X_ENABLE_DELIVERABLES_YN in VARCHAR2,
8   X_NOTIFICATION_HEADER_FUNCTION in VARCHAR2,
9   X_INTENT in VARCHAR2,
10   X_PROVISION_ALLOWED_YN in VARCHAR2,
11   X_DOCUMENT_TYPE_CLASS in VARCHAR2,
12   X_DOC_PREVIEW_FUNCTION in VARCHAR2,
13   X_DOC_VIEW_DETAILS_FUNCTION in VARCHAR2,
14   X_SHOW_EXT_VAR_FLAG in VARCHAR2,
15   X_ENABLE_AMEND_SUMMARY_YN in VARCHAR2,
16   X_APPLICATION_ID in NUMBER,
17   X_OBJECT_VERSION_NUMBER in NUMBER,
18   X_NAME in VARCHAR2,
19   X_DOC_VERSION_VIEW in VARCHAR2,
20   X_ENABLE_ATTACHMENTS_YN in VARCHAR2,
21   X_EXTERNAL_USERLIST_PROC in VARCHAR2,
22   X_SHOW_IN_LOV_YN in VARCHAR2,
23   X_SHOW_PREVIEW_BTN_YN in VARCHAR2,
24   X_TARGET_RESPONSE_DOC_TYPE in VARCHAR2,
25   X_SHOW_IN_WORKBENCH_FLAG in VARCHAR2,
26   X_DISABLE_AMEND_YN in VARCHAR2,
27   X_SHOW_AUTH_PARTY_FLAG in VARCHAR2,
28   X_ENABLE_ATTACHED_DOC_FLAG in VARCHAR2,
29   X_VARIABLE_RESOLUTION_AM in VARCHAR2,
30   X_CREATION_DATE in DATE,
31   X_CREATED_BY in NUMBER,
32   X_LAST_UPDATE_DATE in DATE,
33   X_LAST_UPDATED_BY in NUMBER,
34   X_LAST_UPDATE_LOGIN in NUMBER
35 ) is
36   cursor C is select ROWID from OKC_BUS_DOC_TYPES_B
37     where DOCUMENT_TYPE = X_DOCUMENT_TYPE
38     ;
39 begin
40   insert into OKC_BUS_DOC_TYPES_B (
41     CONTRACT_TERMS_FUNCTION,
42     ENABLE_DELIVERABLES_YN,
43     NOTIFICATION_HEADER_FUNCTION,
44     DOCUMENT_TYPE,
45     INTENT,
46     PROVISION_ALLOWED_YN,
47     DOCUMENT_TYPE_CLASS,
48     DOC_PREVIEW_FUNCTION,
49     DOC_VIEW_DETAILS_FUNCTION,
50     SHOW_EXT_VAR_FLAG,
51     ENABLE_AMEND_SUMMARY_YN,
52     DOC_VERSION_VIEW,
53     ENABLE_ATTACHMENTS_YN,
54     EXTERNAL_USERLIST_PROC,
55     SHOW_IN_LOV_YN,
56     SHOW_PREVIEW_BTN_YN ,
57     TARGET_RESPONSE_DOC_TYPE ,
58     SHOW_IN_WORKBENCH_FLAG ,
59     DISABLE_AMEND_YN ,
60     SHOW_AUTH_PARTY_FLAG,
61     ENABLE_ATTACHED_DOC_FLAG,
62     VARIABLE_RESOLUTION_AM,
63     APPLICATION_ID,
64     OBJECT_VERSION_NUMBER,
65     CREATION_DATE,
66     CREATED_BY,
67     LAST_UPDATE_DATE,
68     LAST_UPDATED_BY,
69     LAST_UPDATE_LOGIN
70   ) values (
71     X_CONTRACT_TERMS_FUNCTION,
72     X_ENABLE_DELIVERABLES_YN,
73     X_NOTIFICATION_HEADER_FUNCTION,
74     X_DOCUMENT_TYPE,
75     X_INTENT,
76     X_PROVISION_ALLOWED_YN,
77     X_DOCUMENT_TYPE_CLASS,
78     X_DOC_PREVIEW_FUNCTION,
79     X_DOC_VIEW_DETAILS_FUNCTION,
80     X_SHOW_EXT_VAR_FLAG,
81     X_ENABLE_AMEND_SUMMARY_YN,
82     X_DOC_VERSION_VIEW,
83     X_ENABLE_ATTACHMENTS_YN,
84     X_EXTERNAL_USERLIST_PROC,
85     X_SHOW_IN_LOV_YN,
86     X_SHOW_PREVIEW_BTN_YN ,
87     X_TARGET_RESPONSE_DOC_TYPE ,
88     X_SHOW_IN_WORKBENCH_FLAG ,
89     X_DISABLE_AMEND_YN ,
90     X_SHOW_AUTH_PARTY_FLAG,
91     X_ENABLE_ATTACHED_DOC_FLAG,
92     X_VARIABLE_RESOLUTION_AM,
93     X_APPLICATION_ID,
94     X_OBJECT_VERSION_NUMBER,
95     X_CREATION_DATE,
96     X_CREATED_BY,
97     X_LAST_UPDATE_DATE,
98     X_LAST_UPDATED_BY,
99     X_LAST_UPDATE_LOGIN
100   );
101 
102   insert into OKC_BUS_DOC_TYPES_TL (
103     LAST_UPDATE_LOGIN,
104     DOCUMENT_TYPE,
105     SOURCE_LANG,
106     NAME,
107     CREATED_BY,
108     CREATION_DATE,
109     LAST_UPDATED_BY,
110     LAST_UPDATE_DATE,
111     LANGUAGE
112   ) select
113     X_LAST_UPDATE_LOGIN,
114     X_DOCUMENT_TYPE,
115     userenv('LANG'),
116     X_NAME,
117     X_CREATED_BY,
118     X_CREATION_DATE,
119     X_LAST_UPDATED_BY,
120     X_LAST_UPDATE_DATE,
121     L.LANGUAGE_CODE
122   from FND_LANGUAGES L
123   where L.INSTALLED_FLAG in ('I', 'B')
124   and not exists
125     (select NULL
126     from OKC_BUS_DOC_TYPES_TL T
127     where T.DOCUMENT_TYPE = X_DOCUMENT_TYPE
128     and T.LANGUAGE = L.LANGUAGE_CODE);
129 
130   open c;
131   fetch c into X_ROWID;
132   if (c%notfound) then
133     close c;
134     raise no_data_found;
135   end if;
136   close c;
137 
138 end INSERT_ROW;
139 
140 procedure LOCK_ROW (
141   X_DOCUMENT_TYPE in VARCHAR2,
142   X_CONTRACT_TERMS_FUNCTION in VARCHAR2,
143   X_ENABLE_DELIVERABLES_YN in VARCHAR2,
144   X_NOTIFICATION_HEADER_FUNCTION in VARCHAR2,
145   X_INTENT in VARCHAR2,
146   X_PROVISION_ALLOWED_YN in VARCHAR2,
147   X_DOCUMENT_TYPE_CLASS in VARCHAR2,
148   X_DOC_PREVIEW_FUNCTION in VARCHAR2,
149   X_DOC_VIEW_DETAILS_FUNCTION in VARCHAR2,
150   X_SHOW_EXT_VAR_FLAG in VARCHAR2,
151   X_ENABLE_AMEND_SUMMARY_YN in VARCHAR2,
152   X_APPLICATION_ID in NUMBER,
153   X_OBJECT_VERSION_NUMBER in NUMBER,
154   X_NAME in VARCHAR2,
155   X_DOC_VERSION_VIEW in VARCHAR2,
156   X_ENABLE_ATTACHMENTS_YN in VARCHAR2,
157   X_EXTERNAL_USERLIST_PROC in VARCHAR2,
158   X_SHOW_IN_LOV_YN in VARCHAR2,
159   X_SHOW_PREVIEW_BTN_YN in VARCHAR2,
160   X_TARGET_RESPONSE_DOC_TYPE in VARCHAR2,
161   X_SHOW_IN_WORKBENCH_FLAG in VARCHAR2,
162   X_DISABLE_AMEND_YN in VARCHAR2,
163   X_SHOW_AUTH_PARTY_FLAG in VARCHAR2,
164   X_ENABLE_ATTACHED_DOC_FLAG in VARCHAR2,
165   X_VARIABLE_RESOLUTION_AM in VARCHAR2
166 ) is
167   cursor c is select
168       CONTRACT_TERMS_FUNCTION,
169       ENABLE_DELIVERABLES_YN,
170       NOTIFICATION_HEADER_FUNCTION,
171       INTENT,
172       PROVISION_ALLOWED_YN,
173       DOCUMENT_TYPE_CLASS,
174       DOC_PREVIEW_FUNCTION,
175       DOC_VIEW_DETAILS_FUNCTION,
176       SHOW_EXT_VAR_FLAG,
177       ENABLE_AMEND_SUMMARY_YN,
178       DOC_VERSION_VIEW,
179       ENABLE_ATTACHMENTS_YN,
180       EXTERNAL_USERLIST_PROC,
181       SHOW_IN_LOV_YN ,
182       SHOW_PREVIEW_BTN_YN,
183       TARGET_RESPONSE_DOC_TYPE,
184       SHOW_IN_WORKBENCH_FLAG,
185       DISABLE_AMEND_YN,
186 	 SHOW_AUTH_PARTY_FLAG,
187 	 ENABLE_ATTACHED_DOC_FLAG,
188 	 VARIABLE_RESOLUTION_AM,
189       APPLICATION_ID,
190       OBJECT_VERSION_NUMBER
191     from OKC_BUS_DOC_TYPES_B
192     where DOCUMENT_TYPE = X_DOCUMENT_TYPE
193     for update of DOCUMENT_TYPE nowait;
194   recinfo c%rowtype;
195 
196   cursor c1 is select
197       NAME,
198       decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
199     from OKC_BUS_DOC_TYPES_TL
200     where DOCUMENT_TYPE = X_DOCUMENT_TYPE
201     and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
202     for update of DOCUMENT_TYPE nowait;
203 begin
204   open c;
205   fetch c into recinfo;
206   if (c%notfound) then
207     close c;
208     fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
209     app_exception.raise_exception;
210   end if;
211   close c;
212   if  (recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
213    then
214     null;
215   else
216     fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
217     app_exception.raise_exception;
218   end if;
219 
220   for tlinfo in c1 loop
221     if (tlinfo.BASELANG = 'Y') then
222       if (    (tlinfo.NAME = X_NAME)
223       ) then
224         null;
225       else
226         fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
227         app_exception.raise_exception;
228       end if;
229     end if;
230   end loop;
231   return;
232 end LOCK_ROW;
233 
234 procedure UPDATE_ROW (
235   X_DOCUMENT_TYPE in VARCHAR2,
236   X_CONTRACT_TERMS_FUNCTION in VARCHAR2,
237   X_ENABLE_DELIVERABLES_YN in VARCHAR2,
238   X_NOTIFICATION_HEADER_FUNCTION in VARCHAR2,
239   X_INTENT in VARCHAR2,
240   X_PROVISION_ALLOWED_YN in VARCHAR2,
241   X_DOCUMENT_TYPE_CLASS in VARCHAR2,
242   X_DOC_PREVIEW_FUNCTION in VARCHAR2,
243   X_DOC_VIEW_DETAILS_FUNCTION in VARCHAR2,
244   X_SHOW_EXT_VAR_FLAG in VARCHAR2,
245   X_ENABLE_AMEND_SUMMARY_YN in VARCHAR2,
246   X_APPLICATION_ID in NUMBER,
247   X_OBJECT_VERSION_NUMBER in NUMBER,
248   X_NAME in VARCHAR2,
249   X_DOC_VERSION_VIEW in VARCHAR2,
250   X_ENABLE_ATTACHMENTS_YN in VARCHAR2,
251   X_EXTERNAL_USERLIST_PROC in VARCHAR2,
252   X_SHOW_IN_LOV_YN in VARCHAR2,
253   X_SHOW_PREVIEW_BTN_YN in VARCHAR2,
254   X_TARGET_RESPONSE_DOC_TYPE in VARCHAR2,
255   X_SHOW_IN_WORKBENCH_FLAG in VARCHAR2,
256   X_DISABLE_AMEND_YN in VARCHAR2,
257   X_SHOW_AUTH_PARTY_FLAG in VARCHAR2,
258   X_ENABLE_ATTACHED_DOC_FLAG in VARCHAR2,
259   X_VARIABLE_RESOLUTION_AM in VARCHAR2,
260   X_LAST_UPDATE_DATE in DATE,
261   X_LAST_UPDATED_BY in NUMBER,
262   X_LAST_UPDATE_LOGIN in NUMBER
263 ) is
264 begin
265   update OKC_BUS_DOC_TYPES_B set
266     CONTRACT_TERMS_FUNCTION = X_CONTRACT_TERMS_FUNCTION,
267     ENABLE_DELIVERABLES_YN = X_ENABLE_DELIVERABLES_YN,
268     NOTIFICATION_HEADER_FUNCTION = X_NOTIFICATION_HEADER_FUNCTION,
269     INTENT = X_INTENT,
270     PROVISION_ALLOWED_YN = X_PROVISION_ALLOWED_YN,
271     DOCUMENT_TYPE_CLASS = X_DOCUMENT_TYPE_CLASS,
272     DOC_PREVIEW_FUNCTION = X_DOC_PREVIEW_FUNCTION,
273     DOC_VIEW_DETAILS_FUNCTION = X_DOC_VIEW_DETAILS_FUNCTION,
274     SHOW_EXT_VAR_FLAG = X_SHOW_EXT_VAR_FLAG,
275     ENABLE_AMEND_SUMMARY_YN = X_ENABLE_AMEND_SUMMARY_YN,
276     DOC_VERSION_VIEW = X_DOC_VERSION_VIEW,
277     ENABLE_ATTACHMENTS_YN = X_ENABLE_ATTACHMENTS_YN,
278     EXTERNAL_USERLIST_PROC = X_EXTERNAL_USERLIST_PROC,
279     SHOW_IN_LOV_YN  = X_SHOW_IN_LOV_YN,
280     SHOW_PREVIEW_BTN_YN = X_SHOW_PREVIEW_BTN_YN ,
281     TARGET_RESPONSE_DOC_TYPE = X_TARGET_RESPONSE_DOC_TYPE ,
282     SHOW_IN_WORKBENCH_FLAG =  X_SHOW_IN_WORKBENCH_FLAG ,
283     SHOW_AUTH_PARTY_FLAG = X_SHOW_AUTH_PARTY_FLAG,
284     ENABLE_ATTACHED_DOC_FLAG = X_ENABLE_ATTACHED_DOC_FLAG,
285     VARIABLE_RESOLUTION_AM = X_VARIABLE_RESOLUTION_AM,
286     DISABLE_AMEND_YN =    X_DISABLE_AMEND_YN ,
287     APPLICATION_ID = X_APPLICATION_ID,
288     OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
289     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
290     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
291     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
292   where DOCUMENT_TYPE = X_DOCUMENT_TYPE;
293 
294   if (sql%notfound) then
295     raise no_data_found;
296   end if;
297 
298   update OKC_BUS_DOC_TYPES_TL set
299     NAME = X_NAME,
300     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
301     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
302     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
303     SOURCE_LANG= userenv('LANG')
304   where DOCUMENT_TYPE = X_DOCUMENT_TYPE
305   and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
306 
307   if (sql%notfound) then
308     raise no_data_found;
309   end if;
310 end UPDATE_ROW;
311 
312 procedure DELETE_ROW (
313   X_DOCUMENT_TYPE in VARCHAR2
314 ) is
315 begin
316 
317   -- skekkar
318   -- delete from okc_doc_qa_lists
319   delete from okc_doc_qa_lists
320   where DOCUMENT_TYPE = X_DOCUMENT_TYPE;
321   --
322   --
323 
324   delete from OKC_BUS_DOC_TYPES_TL
325   where DOCUMENT_TYPE = X_DOCUMENT_TYPE;
326 
327   if (sql%notfound) then
328     raise no_data_found;
329   end if;
330 
331   delete from OKC_BUS_DOC_TYPES_B
332   where DOCUMENT_TYPE = X_DOCUMENT_TYPE;
333 
334   if (sql%notfound) then
335     raise no_data_found;
336   end if;
337 end DELETE_ROW;
338 
339 procedure ADD_LANGUAGE
340 is
341 begin
342   delete from OKC_BUS_DOC_TYPES_TL T
343   where not exists
344     (select NULL
345     from OKC_BUS_DOC_TYPES_B B
346     where B.DOCUMENT_TYPE = T.DOCUMENT_TYPE
347     );
348 
349   update OKC_BUS_DOC_TYPES_TL T set (
350       NAME
351     ) = (select
352       B.NAME
353     from OKC_BUS_DOC_TYPES_TL B
354     where B.DOCUMENT_TYPE = T.DOCUMENT_TYPE
355     and B.LANGUAGE = T.SOURCE_LANG)
356   where (
357       T.DOCUMENT_TYPE,
358       T.LANGUAGE
359   ) in (select
360       SUBT.DOCUMENT_TYPE,
361       SUBT.LANGUAGE
362     from OKC_BUS_DOC_TYPES_TL SUBB, OKC_BUS_DOC_TYPES_TL SUBT
363     where SUBB.DOCUMENT_TYPE = SUBT.DOCUMENT_TYPE
364     and SUBB.LANGUAGE = SUBT.SOURCE_LANG
365     and (SUBB.NAME <> SUBT.NAME
366   ));
367 
368   insert into OKC_BUS_DOC_TYPES_TL (
369     LAST_UPDATE_LOGIN,
370     DOCUMENT_TYPE,
371     SOURCE_LANG,
372     NAME,
373     CREATED_BY,
374     CREATION_DATE,
375     LAST_UPDATED_BY,
376     LAST_UPDATE_DATE,
377     LANGUAGE
378   ) select
379     B.LAST_UPDATE_LOGIN,
380     B.DOCUMENT_TYPE,
381     B.SOURCE_LANG,
382     B.NAME,
383     B.CREATED_BY,
384     B.CREATION_DATE,
385     B.LAST_UPDATED_BY,
386     B.LAST_UPDATE_DATE,
387     L.LANGUAGE_CODE
388   from OKC_BUS_DOC_TYPES_TL B, FND_LANGUAGES L
389   where L.INSTALLED_FLAG in ('I', 'B')
390   and B.LANGUAGE = userenv('LANG')
391   and not exists
392     (select NULL
393     from OKC_BUS_DOC_TYPES_TL T
394     where T.DOCUMENT_TYPE = B.DOCUMENT_TYPE
395     and T.LANGUAGE = L.LANGUAGE_CODE);
396 end ADD_LANGUAGE;
397 
398 procedure ADD_DOC_QA_LIST(
399    p_document_type IN VARCHAR2
400 ) IS
401 
402 BEGIN
403 
404 insert into OKC_DOC_QA_LISTS(
405 QA_CODE,
406 DOCUMENT_TYPE,
407 SEVERITY_FLAG,
408 OBJECT_VERSION_NUMBER,
409 CREATED_BY,
410 CREATION_DATE,
411 LAST_UPDATED_BY,
412 LAST_UPDATE_DATE,
413 ENABLE_QA_YN
414 )select
415 lkp.lookup_code,
416 p_document_type,
417 'W',
418 1,
419 1,
420 sysdate,
421 1,
422 sysdate,
423 'Y'
424 from fnd_lookups lkp
425 where lkp.lookup_type = 'OKC_TERM_QA_LIST'
426   and lkp.lookup_code NOT IN ( select qa_code from okc_doc_qa_lists where document_type = p_document_type );
427 
428 commit;
429 
430 EXCEPTION
431  WHEN OTHERS THEN
432    raise;
433 
434 END ADD_DOC_QA_LIST;
435 
436 
437 
438 
439 
440 end OKC_BUS_DOC_TYPES_PVT;