DBA Data[Home] [Help]

APPS.AK_FLOWS_PKG dependencies on AK_FLOWS

Line 1: package body AK_FLOWS_PKG as

1: package body AK_FLOWS_PKG as
2: /* $Header: AKDFLOWB.pls 115.3 99/07/17 15:15:38 porting s $ */
3:
4: procedure INSERT_ROW (
5: X_ROWID in out VARCHAR2,

Line 34: cursor C is select ROWID from AK_FLOWS

30: X_LAST_UPDATE_DATE in DATE,
31: X_LAST_UPDATED_BY in NUMBER,
32: X_LAST_UPDATE_LOGIN in NUMBER
33: ) is
34: cursor C is select ROWID from AK_FLOWS
35: where FLOW_APPLICATION_ID = X_FLOW_APPLICATION_ID
36: and FLOW_CODE = X_FLOW_CODE;
37: begin
38: insert into AK_FLOWS (

Line 38: insert into AK_FLOWS (

34: cursor C is select ROWID from AK_FLOWS
35: where FLOW_APPLICATION_ID = X_FLOW_APPLICATION_ID
36: and FLOW_CODE = X_FLOW_CODE;
37: begin
38: insert into AK_FLOWS (
39: ATTRIBUTE1,
40: ATTRIBUTE2,
41: ATTRIBUTE3,
42: ATTRIBUTE4,

Line 100: insert into AK_FLOWS_TL (

96: raise no_data_found;
97: end if;
98: close c;
99:
100: insert into AK_FLOWS_TL (
101: FLOW_APPLICATION_ID,
102: FLOW_CODE,
103: LANGUAGE,
104: NAME,

Line 128: from AK_FLOWS_TL T

124: from FND_LANGUAGES L
125: where L.INSTALLED_FLAG in ('I', 'B')
126: and not exists
127: (select NULL
128: from AK_FLOWS_TL T
129: where T.FLOW_APPLICATION_ID = X_FLOW_APPLICATION_ID
130: and T.FLOW_CODE = X_FLOW_CODE
131: and T.LANGUAGE = L.LANGUAGE_CODE);
132: end INSERT_ROW;

Line 178: from AK_FLOWS

174: ATTRIBUTE15,
175: ATTRIBUTE_CATEGORY,
176: PRIMARY_PAGE_APPL_ID,
177: PRIMARY_PAGE_CODE
178: from AK_FLOWS
179: where FLOW_APPLICATION_ID = X_FLOW_APPLICATION_ID
180: and FLOW_CODE = X_FLOW_CODE
181: for update of FLOW_CODE nowait;
182: recinfo c%rowtype;

Line 187: from AK_FLOWS_TL

183:
184: cursor c1 is select
185: NAME,
186: DESCRIPTION
187: from AK_FLOWS_TL
188: where FLOW_APPLICATION_ID = X_FLOW_APPLICATION_ID
189: and FLOW_CODE = X_FLOW_CODE
190: and LANGUAGE = userenv('LANG')
191: for update of FLOW_CODE nowait;

Line 310: update AK_FLOWS set

306: X_LAST_UPDATED_BY in NUMBER,
307: X_LAST_UPDATE_LOGIN in NUMBER
308: ) is
309: begin
310: update AK_FLOWS set
311: ATTRIBUTE1 = X_ATTRIBUTE1,
312: ATTRIBUTE2 = X_ATTRIBUTE2,
313: ATTRIBUTE3 = X_ATTRIBUTE3,
314: ATTRIBUTE4 = X_ATTRIBUTE4,

Line 340: update AK_FLOWS_TL set

336: if (sql%notfound) then
337: raise no_data_found;
338: end if;
339:
340: update AK_FLOWS_TL set
341: NAME = X_NAME,
342: DESCRIPTION = X_DESCRIPTION,
343: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
344: LAST_UPDATED_BY = X_LAST_UPDATED_BY,

Line 362: delete from AK_FLOWS

358: X_FLOW_APPLICATION_ID in NUMBER,
359: X_FLOW_CODE in VARCHAR2
360: ) is
361: begin
362: delete from AK_FLOWS
363: where FLOW_APPLICATION_ID = X_FLOW_APPLICATION_ID
364: and FLOW_CODE = X_FLOW_CODE;
365:
366: if (sql%notfound) then

Line 370: delete from AK_FLOWS_TL

366: if (sql%notfound) then
367: raise no_data_found;
368: end if;
369:
370: delete from AK_FLOWS_TL
371: where FLOW_APPLICATION_ID = X_FLOW_APPLICATION_ID
372: and FLOW_CODE = X_FLOW_CODE;
373: if (sql%notfound) then
374: raise no_data_found;

Line 382: delete from AK_FLOWS_TL T

378:
379: procedure ADD_LANGUAGE
380: is
381: begin
382: delete from AK_FLOWS_TL T
383: where not exists
384: (select NULL
385: from AK_FLOWS B
386: where B.FLOW_CODE = T.FLOW_CODE

Line 385: from AK_FLOWS B

381: begin
382: delete from AK_FLOWS_TL T
383: where not exists
384: (select NULL
385: from AK_FLOWS B
386: where B.FLOW_CODE = T.FLOW_CODE
387: and B.FLOW_APPLICATION_ID = T.FLOW_APPLICATION_ID
388: );
389:

Line 390: update AK_FLOWS_TL T set (

386: where B.FLOW_CODE = T.FLOW_CODE
387: and B.FLOW_APPLICATION_ID = T.FLOW_APPLICATION_ID
388: );
389:
390: update AK_FLOWS_TL T set (
391: NAME,
392: DESCRIPTION
393: ) = (select
394: B.NAME,

Line 396: from AK_FLOWS_TL B

392: DESCRIPTION
393: ) = (select
394: B.NAME,
395: B.DESCRIPTION
396: from AK_FLOWS_TL B
397: where B.FLOW_CODE = T.FLOW_CODE
398: and B.FLOW_APPLICATION_ID = T.FLOW_APPLICATION_ID
399: and B.LANGUAGE = T.SOURCE_LANG)
400: where (

Line 408: from AK_FLOWS_TL SUBB, AK_FLOWS_TL SUBT

404: ) in (select
405: SUBT.FLOW_CODE,
406: SUBT.FLOW_APPLICATION_ID,
407: SUBT.LANGUAGE
408: from AK_FLOWS_TL SUBB, AK_FLOWS_TL SUBT
409: where SUBB.FLOW_CODE = SUBT.FLOW_CODE
410: and SUBB.FLOW_APPLICATION_ID = SUBT.FLOW_APPLICATION_ID
411: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
412: and (SUBB.NAME <> SUBT.NAME

Line 418: insert into AK_FLOWS_TL (

414: or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
415: or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
416: ));
417:
418: insert into AK_FLOWS_TL (
419: FLOW_APPLICATION_ID,
420: FLOW_CODE,
421: NAME,
422: DESCRIPTION,

Line 442: from AK_FLOWS_TL B, FND_LANGUAGES L

438: B.LAST_UPDATE_DATE,
439: B.LAST_UPDATE_LOGIN,
440: L.LANGUAGE_CODE,
441: B.SOURCE_LANG
442: from AK_FLOWS_TL B, FND_LANGUAGES L
443: where L.INSTALLED_FLAG in ('I', 'B')
444: and B.LANGUAGE = userenv('LANG')
445: and not exists
446: (select NULL

Line 447: from AK_FLOWS_TL T

443: where L.INSTALLED_FLAG in ('I', 'B')
444: and B.LANGUAGE = userenv('LANG')
445: and not exists
446: (select NULL
447: from AK_FLOWS_TL T
448: where T.FLOW_CODE = B.FLOW_CODE
449: and T.FLOW_APPLICATION_ID = B.FLOW_APPLICATION_ID
450: and T.LANGUAGE = L.LANGUAGE_CODE);
451: end ADD_LANGUAGE;

Line 460: f_rec ak_flows%rowtype;

456: p_o_id in number,
457: p_n_code in varchar2,
458: p_n_id in number) IS
459: -- Various FLOW record type
460: f_rec ak_flows%rowtype;
461:
462: -- FLOW cursors
463: cursor f_csr (p_csr_code IN VARCHAR2, p_csr_id IN NUMBER) is
464: select *

Line 465: from ak_flows

461:
462: -- FLOW cursors
463: cursor f_csr (p_csr_code IN VARCHAR2, p_csr_id IN NUMBER) is
464: select *
465: from ak_flows
466: where flow_code = p_csr_code
467: and flow_application_id = p_csr_id;
468: cursor ft_csr (p_csr_code IN VARCHAR2, p_csr_id IN NUMBER) is
469: select *

Line 470: from ak_flows_tl

466: where flow_code = p_csr_code
467: and flow_application_id = p_csr_id;
468: cursor ft_csr (p_csr_code IN VARCHAR2, p_csr_id IN NUMBER) is
469: select *
470: from ak_flows_tl
471: where flow_code = p_csr_code
472: and flow_application_id = p_csr_id;
473: cursor fp_csr (p_csr_code IN VARCHAR2, p_csr_id IN NUMBER) is
474: select *

Line 506: -- AK_FLOWS is a parent table. If you can't find a record, exit with an error message.

502: open f_csr( p_o_code, p_o_id);
503: FETCH f_csr INTO f_rec;
504: b_success := f_csr%found;
505: close f_csr;
506: -- AK_FLOWS is a parent table. If you can't find a record, exit with an error message.
507: if (not b_success) then
508: fnd_message.set_name('AK', 'AK_NEW_FLOW_ALREADY_EXISTS');
509: app_exception.raise_exception;
510: end if;

Line 515: insert into AK_FLOWS (

511: -- Put new code and id into record and insert into appropriate table
512: f_rec.flow_code := p_n_code;
513: f_rec.flow_application_id := p_n_id;
514:
515: insert into AK_FLOWS (
516: ATTRIBUTE1,
517: ATTRIBUTE2,
518: ATTRIBUTE3,
519: ATTRIBUTE4,

Line 573: insert into AK_FLOWS_TL (

569: FOR ft_rec IN ft_csr( p_o_code, p_o_id) LOOP
570: -- Put new code and id into record and insert into appropriate table
571: ft_rec.flow_code := p_n_code;
572: ft_rec.flow_application_id := p_n_id;
573: insert into AK_FLOWS_TL (
574: FLOW_APPLICATION_ID,
575: FLOW_CODE,
576: LANGUAGE,
577: NAME,

Line 930: end AK_FLOWS_PKG;

926: END LOOP;
927:
928: END copy_records;
929:
930: end AK_FLOWS_PKG;