[Home] [Help]
PACKAGE BODY: APPS.OE_EXTERNAL_CREDIT_PUB
Source
1 PACKAGE BODY OE_EXTERNAL_CREDIT_PUB AS
2 -- $Header: OEXPCECB.pls 120.0 2005/06/01 02:40:02 appldev noship $
3 --------------------
4 -- TYPE DECLARATIONS
5 --------------------
6
7 ------------
8 -- CONSTANTS
9 ------------
10 G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_External_Credit_PUB';
11 -------------------
12 -- PUBLIC VARIABLES
13 -------------------
14
15 ---------------------------
16 -- PROCEDURES AND FUNCTIONS
17 ---------------------------
18
19 --=====================================================================
20 --API NAME: Check_External_Credit
21 --TYPE: PUBLIC
22 --COMMENTS: This is the main starting procedure for the check
23 -- external credit API. It check the api version and if it
24 -- matches, proceed to calling the private procedure.
25 --Parameters:
26 --IN
27 --OUT
28 --Version: Current Version 1.0
29 -- Previous Version 1.0
30 --=====================================================================
31
32 PROCEDURE Check_External_Credit
33 ( p_api_version IN NUMBER
34 , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
35 , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
36 , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
37 , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
38 , p_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR
39 , p_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR
40 , p_customer_id IN NUMBER := FND_API.G_MISS_NUM
41 , p_bill_to_site_use_id IN NUMBER := FND_API.G_MISS_NUM
42 , p_bill_to_address1 IN VARCHAR2 := FND_API.G_MISS_CHAR
43 , p_bill_to_address2 IN VARCHAR2 := FND_API.G_MISS_CHAR
44 , p_bill_to_address3 IN VARCHAR2 := FND_API.G_MISS_CHAR
45 , p_bill_to_address4 IN VARCHAR2 := FND_API.G_MISS_CHAR
46 , p_bill_to_city IN VARCHAR2 := FND_API.G_MISS_CHAR
47 , p_bill_to_country IN VARCHAR2 := FND_API.G_MISS_CHAR
48 , p_bill_to_postal_code IN VARCHAR2 := FND_API.G_MISS_CHAR
49 , p_bill_to_state IN VARCHAR2 := FND_API.G_MISS_CHAR
50 , p_credit_check_rule_name IN VARCHAR2 := FND_API.G_MISS_CHAR
51 , p_credit_check_rule_id IN NUMBER := FND_API.G_MISS_NUM
52 , p_functional_currency_code IN VARCHAR2
53 , p_transaction_currency_code IN VARCHAR2
54 , p_transaction_amount IN NUMBER
55 , p_operating_unit_name IN VARCHAR2 := FND_API.G_MISS_CHAR
56 , p_org_id IN NUMBER := FND_API.G_MISS_NUM
57 , x_result_out OUT NOCOPY /* file.sql.39 change */ VARCHAR2
58 , x_cc_hold_comment OUT NOCOPY /* file.sql.39 change */ VARCHAR2
59 )
60 IS
61 l_api_name CONSTANT VARCHAR2(30) := 'Check_External_Credit';
62 l_api_version CONSTANT NUMBER := 1.0;
63 BEGIN
64 OE_DEBUG_PUB.Add('OEXPCECB: In Check_External_Credit');
65 -- Check the API version and issue an error if the given API version does not
66 -- match the one in this package.
67 IF NOT FND_API.Compatible_API_Call( l_api_version,
68 p_api_version,
69 l_api_name,
70 G_PKG_NAME)
71 THEN
72 FND_MSG_PUB.Delete_Msg;
73 FND_MESSAGE.Set_Name('ONT', 'OE_CC_API_VERSION_MISMATCH');
74 FND_MESSAGE.SET_TOKEN ('API_NAME', l_api_name );
75 FND_MESSAGE.SET_TOKEN ('P_API_VERSION', p_api_version );
76 FND_MESSAGE.SET_TOKEN ('CURR_VER_NUM',l_api_version);
77 FND_MESSAGE.SET_TOKEN ('CALLER_VER_NUM',p_api_version);
78 OE_MSG_PUB.Add;
79 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
80 END IF;
81 -- Initialize message list if p_init_msg_list is set to TRUE.
82 IF FND_API.To_Boolean( p_init_msg_list) THEN
83 FND_MSG_PUB.Initialize;
84 OE_MSG_PUB.Initialize;
85 END IF;
86 -- Initialize API return status to success
87 x_return_status := FND_API.G_RET_STS_SUCCESS;
88 -- Call the OE_External_Credit_PVT.Check_External_Credit_PVT to
89 -- perform credit checking.
90 OE_External_Credit_PVT.Check_External_Credit (
91 p_api_version => p_api_version
92 , p_init_msg_list => p_init_msg_list
93 , x_return_status => x_return_status
94 , x_msg_count => x_msg_count
95 , x_msg_data => x_msg_data
96 , p_customer_name => p_customer_name
97 , p_customer_number => p_customer_number
98 , p_customer_id => p_customer_id
99 , p_bill_to_site_use_id => p_bill_to_site_use_id
100 , p_bill_to_address1 => p_bill_to_address1
101 , p_bill_to_address2 => p_bill_to_address2
102 , p_bill_to_address3 => p_bill_to_address3
103 , p_bill_to_address4 => p_bill_to_address4
104 , p_bill_to_city => p_bill_to_city
105 , p_bill_to_country => p_bill_to_country
106 , p_bill_to_postal_code => p_bill_to_postal_code
107 , p_bill_to_state => p_bill_to_state
108 , p_credit_check_rule_name => p_credit_check_rule_name
109 , p_credit_check_rule_id => p_credit_check_rule_id
110 , p_functional_currency_code => p_functional_currency_code
111 , p_transaction_currency_code => p_transaction_currency_code
112 , p_transaction_amount => p_transaction_amount
113 , p_operating_unit_name => p_operating_unit_name
114 , p_org_id => p_org_id
115 , x_result_out => x_result_out
116 , x_cc_hold_comment => x_cc_hold_comment
117 );
118 OE_DEBUG_PUB.Add('OEXPCECB: x_return_status: '||x_return_status);
119 OE_DEBUG_PUB.Add('OEXPCECB: x_result_out: '||x_result_out);
120 OE_DEBUG_PUB.Add('OEXPCECB: x_cc_hold_comment: '||x_cc_hold_comment);
121 OE_DEBUG_PUB.Add('OEXPCECB: Out Check_External_Credit');
122 EXCEPTION
123 WHEN FND_API.G_EXC_ERROR THEN
124 x_return_status := FND_API.G_RET_STS_ERROR;
125 OE_MSG_PUB.Count_and_Get (
126 p_count => x_msg_count
127 ,p_data => x_msg_data);
128 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
129 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
130 OE_MSG_PUB.Count_and_Get (
131 p_count => x_msg_count
132 ,p_data => x_msg_data);
133 WHEN OTHERS THEN
134 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
135 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
136 FND_MSG_PUB.Add_Exc_Msg (
137 G_PKG_NAME
138 , l_api_name);
139 END IF;
140 OE_MSG_PUB.Count_and_Get(
141 p_count => x_msg_count
142 ,p_data => x_msg_data);
143 END Check_External_Credit;
144 END OE_EXTERNAL_CREDIT_PUB;