PACKAGE BODY: APPS.PON_CONTRACTS_TL_PKG

Source

1 PACKAGE BODY pon_contracts_tl_pkg AS
2 /* $Header: PONCNTB.pls 120.0.12020000.2 2013/02/09 06:16:44 hvutukur ship $ */
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 procedure copy_attachments(ENTITY_NAME VARCHAR2,
55 		                       pk1 VARCHAR2,
56 		                       pk2 VARCHAR2,
57                            pk3 VARCHAR2,
58                            pk4 VARCHAR2)
59 IS
60 
61 CURSOR c_lang_code is
62 Select language_code
63 from fnd_languages_vl
64 where installed_flag in ('I','B');
65 
66 BEGIN
67 
68 FOR rec IN c_lang_code LOOP
69 
70            FND_ATTACHED_DOCUMENTS2_PKG.delete_attachments
71         ( x_entity_name             => 'entity_name',
72           x_pk1_value               => pk1,
73           x_pk2_value               => pk3,
74           x_pk3_value               => rec.language_code,
75           x_pk4_value               => pk4,
76           x_delete_document_flag    => 'Y'
77         );
78 
79 
80            fnd_attached_documents2_pkg.
81                copy_attachments(
82               X_from_entity_name => entity_name,
83               X_from_pk1_value => pk1,
84               X_from_pk2_value => pk2,
85               X_from_pk3_value => rec.language_code,
86               X_from_pk4_value =>  pk4,
87               X_to_entity_name => entity_name,
88               X_to_pk1_value => pk1,
89               X_to_pk2_value => pk3,
90               X_to_pk3_value => rec.language_code,
91               X_to_pk4_value => pk4,
92               X_created_by => fnd_global.user_id,
93               X_last_update_login => fnd_global.user_id
94               );
95 
96 END LOOP;
97 
98 
99 END copy_attachments;
100 
101 END pon_contracts_tl_pkg;