PACKAGE BODY: APPS.PON_CONTRACTS_TL_PKG

Source

1 PACKAGE BODY pon_contracts_tl_pkg AS
2 /* $Header: PONCNTB.pls 120.0 2006/04/12 15:57 ssthakur noship $ */
3 
4 PROCEDURE add_language IS
5 
6 BEGIN
7     INSERT INTO PON_CONTRACTS_TL (
8       CONTRACT_ID,
9       VERSION_NUM,
10       TITLE,
11       ABSTRACT,
12       BODY,
13       ATTRIBUTE1,
14       ATTRIBUTE2,
15       ATTRIBUTE3,
16       ATTRIBUTE4,
17       ATTRIBUTE5,
18       language,
19       created_by,
20       creation_date,
21       last_updated_by,
22       last_update_date,
23       source_lang
24     )
25     SELECT
26       cont.CONTRACT_ID,
27       cont.VERSION_NUM,
28       cont.TITLE,
29       cont.ABSTRACT,
30       cont.BODY,
31       cont.ATTRIBUTE1,
32       cont.ATTRIBUTE2,
33       cont.ATTRIBUTE3,
34       cont.ATTRIBUTE4,
35       cont.ATTRIBUTE5,
36       lang.language_code,
37       cont.created_by,
38       SYSDATE,
39       cont.last_updated_by,
40       SYSDATE,
41       cont.source_lang
42     FROM pon_contracts_tl cont,
43          fnd_languages lang
44     WHERE cont.language = USERENV('LANG')
45     AND lang.INSTALLED_FLAG in ('I', 'B')
46     AND NOT EXISTS (SELECT NULL
47                       FROM pon_contracts_tl cont2
48                      WHERE cont2.contract_id = cont.contract_id
49                      and cont2.version_num = cont.version_num
50                        AND cont2.language   = lang.language_code);
51 
52 END add_language;
53 
54 END pon_contracts_tl_pkg;