[Home] [Help]
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;