PACKAGE BODY: APPS.OE_CREDIT_CHECK_CP

Source

1 PACKAGE BODY OE_CREDIT_CHECK_CP AS
2 -- $Header: OEXCCRCB.pls 120.1 2005/10/17 22:31:14 spooruli noship $
3 
4 --+=======================================================================+
5 --|               Copyright (c) 1998 Oracle Corporation                   |
6 --|                       Redwood Shores, CA, USA                         |
7 --|                         All rights reserved.                          |
8 --+=======================================================================+
9 --| FILENAME                                                              |
10 --|    OEXCCRCB.pls                                                       |
11 --|                                                                       |
12 --| DESCRIPTION                                                           |
13 --|    Body of OE_CREDIT_CHECK_CP                                         |
14 --|                                                                       |
15 --| HISTORY                                                               |
16 --|     08/10/2001 Rene Schaub     Created                                |
17 --|     03/25/2002 Vanessa To      Added Purge_External_Exposure          |
18 --+======================================================================*/
19 
20 --===================
21 -- CONSTANTS
22 --===================
23 G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_CREDIT_CHECK_CP';
24 
25 --===================
26 -- GLOBAL VARIABLES
27 --===================
28 
29 --===================
30 -- PRIVATE PROCEDURES
31 --===================
32 
33 --========================================================================
34 -- PROCEDURE : Init_Summary_Table     PUBLIC
35 -- PARAMETERS: x_retcode              0 success, 1 warning, 2 error
36 --             x_errbuf               error buffer
37 --             p_lock_tables          'Y' or 'N' for all transaction tables
38 --
39 --=======================================================================--
40 
41 
42 PROCEDURE  Init_Summary_Table
43 ( x_retcode        OUT NOCOPY /* file.sql.39 change */ VARCHAR2
44 , x_errbuf         OUT NOCOPY /* file.sql.39 change */ VARCHAR2
45 , p_lock_tables    IN  VARCHAR2
46 )
47 IS
48 BEGIN
49 
50 OE_CREDIT_EXPOSURE_PVT.Init_Summary_Table
51 ( x_retcode
52 , x_errbuf
53 , p_lock_tables
54 );
55 
56 END Init_Summary_Table;
57 
58 --========================================================================
59 -- PROCEDURE : Purge_External_Exposure PUBLIC
60 -- PARAMETERS: x_retcode              0 success, 1 warning, 2 error
61 --             x_errbuf               error buffer
62 --             p_exposure_source_code user defined exposure source code
63 --
64 --=======================================================================--
65 
66 PROCEDURE Purge_External_Exposure
67 ( x_retcode                OUT NOCOPY /* file.sql.39 change */ VARCHAR2
68 , x_errbuf                 OUT NOCOPY /* file.sql.39 change */ VARCHAR2
69   /* Moac */
70 , p_org_id                 IN  NUMBER
71 , p_exposure_source_code   IN  VARCHAR2
72 )
73 IS
74 BEGIN
75   OE_DEBUG_PUB.Add('*****Parameters***** ');
76   OE_DEBUG_PUB.Add('p_exposure_source_code = '||p_exposure_source_code);
77   OE_DEBUG_PUB.Add('******************** ');
78   OE_EXT_CREDIT_EXPOSURE_PVT.Purge
79     ( p_org_id               => p_org_id
80     , p_exposure_source_code => p_exposure_source_code);
81 x_retcode := 0;
82 EXCEPTION
83   WHEN OTHERS THEN
84     ROLLBACK;
85     OE_DEBUG_PUB.Add('OEXCCRCB: Purge_External_Exposure -- Unexpected Error');
86     x_retcode := 2;
87     x_errbuf  := sqlerrm;
88 END Purge_External_Exposure;
89 
90 
91 END OE_CREDIT_CHECK_CP;