[Home] [Help]
PACKAGE: APPS.OZF_CLAIM_UTILITY_PVT
Source
1 PACKAGE OZF_claim_Utility_pvt AUTHID CURRENT_USER as
2 /* $Header: ozfvcuts.pls 120.0.12010000.2 2009/07/23 17:20:10 kpatro ship $ */
3 -- Start of Comments
4 -- Package name : OZF_claim_Utility_pvt
5 -- Purpose :
6 -- History :
7 -- 20-=May-2009 KPATRO Rule Based Settlement Enhancement
8 -- NOTE :
9 -- End of Comments
10
11 -- Default number of records fetch per call
12 G_DEFAULT_NUM_REC_FETCH NUMBER := 30;
13 G_AUTO_MODE CONSTANT VARCHAR2(4) := 'AUTO';
14 G_MANU_MODE CONSTANT VARCHAR2(4) := 'MANU';
15 G_REQUEST_MODE CONSTANT VARCHAR2(7) := 'REQUEST';
16
17 TYPE ozf_rule_match_rec_type IS RECORD(
18 claim_id NUMBER,
19 claim_number VARCHAR2(30),
20 credit_memo_number VARCHAR2(30),
21 claim_amount NUMBER,
22 credit_amount NUMBER,
23 currency_code VARCHAR2(30),
24 customer_trx_id NUMBER
25 );
26
27 TYPE ozf_rule_match_tbl_type IS TABLE OF ozf_rule_match_rec_type
28 INDEX BY BINARY_INTEGER;
29
30
31 TYPE ozf_accrual_match_rec_type IS RECORD(
32 claim_id NUMBER,
33 claim_number VARCHAR2(30),
34 Offer_Code VARCHAR2(30),
35 claim_amount NUMBER,
36 currency_code VARCHAR2(30),
37 qp_list_header_id NUMBER
38 );
39
40 TYPE ozf_accrual_match_tbl_type IS TABLE OF ozf_accrual_match_rec_type
41 INDEX BY BINARY_INTEGER;
42
43 -- *******************************************************
44 -- Start of Comments
45 -- *******************************************************
46 -- API Name: Check_Claim_Access
47 -- Type : Public
48 -- Pre-Req :
49 -- Parameters:
50 -- IN
51 -- p_api_version_number IN NUMBER Required
52 -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
53 -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
54 -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
55 -- P_object_id IN NUMBER
56 -- P_object_type IN VARCHAR2
57 -- P_user_id IN NUMBER
58 --
59 -- OUT:
60 -- x_return_status OUT VARCHAR2
61 -- x_msg_count OUT NUMBER
62 -- x_msg_data OUT VARCHAR2
63 -- x_access OUT VARCHAR2
64 -- Version : Current version 1.0
65 --
66 -- Note: This procedure checks security access to a claim of a user
67 --
68 -- End of Comments
69 --
70 PROCEDURE Check_Claim_access(
71 P_Api_Version_Number IN NUMBER,
72 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
73 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
74 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
75 P_object_id IN NUMBER,
76 P_object_type IN VARCHAR2,
77 P_user_id IN NUMBER,
78
79 X_Return_Status OUT NOCOPY VARCHAR2,
80 X_Msg_Count OUT NOCOPY NUMBER,
81 X_Msg_Data OUT NOCOPY VARCHAR2,
82 x_access OUT NOCOPY VARCHAR2
83 );
84
85 -- *******************************************************
86 -- Start of Comments
87 -- *******************************************************
88 -- API Name: Normalize_Customer_Reference
89 -- Type : Public
90 -- Pre-Req :
91 -- Parameters:
92 -- IN
93 -- p_customer_reference IN VARCHAR2
94 --
95 -- OUT:
96 -- x_normalized_reference OUT VARCHAR2
97 -- Version : Current version 1.0
98 --
99 -- Note: This procedure normalizes the customer reference number.
100 --
101 -- End of Comments
102 --
103 PROCEDURE Normalize_Customer_Reference(
104 p_customer_reference IN VARCHAR2,
105 x_normalized_reference OUT NOCOPY VARCHAR2
106 );
107
108 -- Added For Rule Based Settlement
109 ---------------------------------------------------------------------
110 -- FUNCTION
111 -- Normalize_Credit_Reference
112 --
113 -- PURPOSE
114 -- Returns the normalized for Customer Reference.
115 --
116 -- PARAMETERS
117 -- p_credit_ref
118 --
119 -- NOTES
120
121 -- HISTORY
122 -- 21-MAY-2009 KPATRO Create.
123 ---------------------------------------------------------------------
124 FUNCTION Normalize_Credit_Reference
125 (p_credit_ref IN VARCHAR2)
126 RETURN VARCHAR2;
127
128 ---------------------------------------------------------------------
129 -- PROCEDURE
130 -- Start_Rule_Based_Settlement
131 --
132 -- PARAMETERS
133 -- ERRBUF : Standard Concurrenct Progarm's parameter
134 -- RETCODE : Standard Concurrenct Progarm's parameter
135 -- p_start_date : Deduction Start Date
136 -- p_end_date : Deduction Start Date
137 -- p_pay_to_customer : Customer Name
138 --
139 --
140 -- NOTE
141 -- This program will process the deductions based on the input parameter to Rule
142 -- Based Engine.
143 --
144 --
145 -- HISTORY
146 -- 21-MAY-2009 KPATRO Create.
147 ---------------------------------------------------------------------
148 PROCEDURE Start_Rule_Based_Settlement (
149 ERRBUF OUT NOCOPY VARCHAR2,
150 RETCODE OUT NOCOPY NUMBER,
151 p_start_date IN VARCHAR2,
152 p_end_date IN VARCHAR2,
153 p_pay_to_customer IN VARCHAR2 := NULL
154 );
155
156 ---------------------------------------------------------------------
157 -- PROCEDURE
158 -- Create_Log
159 --
160 -- PARAMETERS
161 -- p_exact_match_tbl : Exact Matched Deductions
162 -- p_possible_match_tbl : Possible Matched Deductions
163 -- p_accrual_match_tbl : Accrual Matched Deductions
164 --
165 --
166 -- NOTE
167 -- 1. This is to create a audit trail for all the deduction
168 -- processed by Rule Based Engine.
169 --
170 -- HISTORY
171 -- 21-MAY-2009 KPATRO Create.
172 ---------------------------------------------------------------------
173
174
175 PROCEDURE Create_Log(
176 p_api_version IN NUMBER
177 ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
178 ,p_commit IN VARCHAR2 := FND_API.g_false
179 ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
180
181 ,p_exact_match_tbl IN ozf_rule_match_tbl_type
182 ,p_possible_match_tbl IN ozf_rule_match_tbl_type
183 ,p_accrual_match_tbl IN ozf_accrual_match_tbl_type
184 ,x_return_status OUT NOCOPY VARCHAR2
185 ,x_msg_count OUT NOCOPY NUMBER
186 ,x_msg_data OUT NOCOPY VARCHAR2
187 );
188
189
190
191 End OZF_claim_Utility_pvt;