PACKAGE BODY: APPS.FTP_BR_ROM_PVT

Source

1 PACKAGE BODY FTP_BR_ROM_PVT AS
2 /* $Header: ftpromb.pls 120.0.12000000.1 2007/07/27 12:08:24 shishank noship $ */
3 
4 
5 G_PKG_NAME constant varchar2(30) := 'FTP_BR_ROM_PVT';
6 
7 
8 ---------------------------------------------------------------------
9 -- Deletes all the details records of a Prepayment Table Definition.
10 ---------------------------------------------------------------------
11 
12 PROCEDURE DeleteObjectDefinition(
13   p_obj_def_id          in          number
14 )
15 IS
16 
17   g_api_name    constant varchar2(30)   := 'DeleteObjectDefinition';
18 
19 BEGIN
20 
21 	DELETE FROM FTP_RATE_OUTPUT_MAPPING_RULE
22 	WHERE object_definition_id = p_obj_def_id;
23 
24 EXCEPTION
25 
26   WHEN OTHERS THEN
27     FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, g_api_name);
28     raise FND_API.G_EXC_UNEXPECTED_ERROR;
29 
30 END DeleteObjectDefinition;
31 
32 
33 
34 ----------------------------------------------------------------------------
35 -- Creates all the detail records of a new Prepayment Table Rule Definition (target)
36 -- by copying the detail records of another Prepayment Table Rule Definition (source).
37 --
38 -- IN Parameters
39 -- p_source_obj_def_id    - Source Object Definition ID.
40 -- p_target_obj_def_id    - Target Object Definition ID.
41 -- p_created_by           - FND User ID (optional).
42 -- p_creation_date        - System Date (optional).
43 ----------------------------------------------------------------------------
44 PROCEDURE CopyObjectDefinition(
45   p_source_obj_def_id   in          number
46   ,p_target_obj_def_id  in          number
47   ,p_created_by         in          number
48   ,p_creation_date      in          date
49 )
50 IS
51 
52   g_api_name    constant varchar2(30)   := 'CopyObjectDefinition';
53 
54 BEGIN
55 
56   INSERT INTO FTP_RATE_OUTPUT_MAPPING_RULE  (
57     OBJECT_DEFINITION_ID,
58     FTP_ACCOUNT_TABLE_NAME,
59     TRANSFER_RATE_COL_NAME,
60     MATCHED_SPREAD_COL_NAME,
61     REMAINING_TERM_COL_NAME,
62     HIST_OAS_COL_NAME,
63     HIST_STAT_SPREAD_COL_NAME,
64     CUR_OAS_COL_NAME,
65     CUR_STAT_SPREAD_COL_NAME,
66     ADJUSTMENT_SPRD_COL_NAME,
67     ADJUSTMENT_AMOUNT_COL_NAME,
68     SELECT_ALL_TABS_FLG,
69     CREATION_DATE,
70     CREATED_BY,
71     LAST_UPDATED_BY,
72     LAST_UPDATE_DATE,
73     LAST_UPDATE_LOGIN
74      )
75     SELECT
76     p_target_obj_def_id,
77     FTP_ACCOUNT_TABLE_NAME,
78     TRANSFER_RATE_COL_NAME,
79     MATCHED_SPREAD_COL_NAME,
80     REMAINING_TERM_COL_NAME,
81     HIST_OAS_COL_NAME,
82     HIST_STAT_SPREAD_COL_NAME,
83     CUR_OAS_COL_NAME,
84     CUR_STAT_SPREAD_COL_NAME,
85     ADJUSTMENT_SPRD_COL_NAME,
86     ADJUSTMENT_AMOUNT_COL_NAME,
87     SELECT_ALL_TABS_FLG,
88     NVL(p_creation_date,CREATION_DATE),
89     NVL(p_created_by,CREATED_BY),
90     FND_GLOBAL.user_id,
91     SYSDATE,
92     FND_GLOBAL.login_id
93   FROM FTP_RATE_OUTPUT_MAPPING_RULE
94   WHERE OBJECT_DEFINITION_ID = p_source_obj_def_id;
95 
96 EXCEPTION
97 
98   WHEN OTHERS THEN
99     FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, g_api_name);
100     raise FND_API.G_EXC_UNEXPECTED_ERROR;
101 
102 END CopyObjectDefinition;
103 
104 
105 END FTP_BR_ROM_PVT;
106