[Home] [Help]
PACKAGE: APPS.OKL_CREDIT_MGNT_PVT
Source
1 PACKAGE OKL_CREDIT_MGNT_PVT AUTHID CURRENT_USER AS
2 /* $Header: OKLRCMTS.pls 115.1 2003/02/04 23:34:56 rgalipo noship $ */
3 ---------------------------------------------------------------------------
4 -- GLOBAL DATASTRUCTURES
5 ---------------------------------------------------------------------------
6 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXP_ERROR';
7 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLCODE';
8 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLERRM';
9 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_CREDIT_MANGEMENT_PVT';
10 G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
11
12 G_API_TYPE CONSTANT VARCHAR2(4) := '_PVT';
13 G_API_VERSION CONSTANT NUMBER := 1;
14
15 G_COMMIT CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
16 G_INIT_MSG_LIST CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
17 G_VALIDATION_LEVEL CONSTANT NUMBER := FND_API.G_VALID_LEVEL_FULL;
18
19 G_EXC_NAME_ERROR CONSTANT VARCHAR2(50) := 'OKL_API.G_RET_STS_ERROR';
20 G_EXC_NAME_UNEXP_ERROR CONSTANT VARCHAR2(50) := 'OKL_API.G_RET_STS_UNEXP_ERROR';
21 G_EXC_NAME_OTHERS CONSTANT VARCHAR2(6) := 'OTHERS';
22
23 G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
24 G_RET_STS_ERROR CONSTANT VARCHAR2(1) := OKL_API.G_RET_STS_ERROR;
25 G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := OKL_API.G_RET_STS_UNEXP_ERROR;
26 G_EXCEPTION_HALT_VALIDATION EXCEPTION;
27 G_EXCEPTION_HALT_PROCESSING EXCEPTION;
28 G_EXCEPTION_ERROR EXCEPTION;
29 G_EXCEPTION_UNEXPECTED_ERROR EXCEPTION;
30
31 -- Records --
32 TYPE rule_amounts_rec IS RECORD
33 (contract_id NUMBER
34 ,service_amount NUMBER
35 ,fee_amount NUMBER
36 );
37
38 TYPE l_chr_rec IS RECORD
39 (party_id NUMBER
40 ,cust_acct_id NUMBER
41 ,cust_acct_site_id NUMBER
42 ,site_use_id NUMBER
43 ,contract_id NUMBER
44 ,contract_number VARCHAR2(120)
45 ,credit_khr_id NUMBER
46 ,currency VARCHAR2(15)
47 ,txn_amount NUMBER
48 ,requested_amount NUMBER
49 ,term NUMBER
50 ,party_contact_id NUMBER
51 ,org_id NUMBER
52 );
53
54
55 PROCEDURE submit_credit_request
56 (p_api_version IN NUMBER
57 ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
58 ,x_return_status OUT NOCOPY VARCHAR2
59 ,x_msg_count OUT NOCOPY NUMBER
60 ,x_msg_data OUT NOCOPY VARCHAR2
61 ,p_contract_id IN NUMBER
62 ,p_review_type IN VARCHAR2 -- application purpose
63 ,p_credit_classification IN VARCHAR2
64 ,p_requested_amount IN NUMBER
65 ,p_contact_party_id IN NUMBER
66 ,p_notes IN VARCHAR2
67 ,p_chr_rec IN l_chr_rec
68 );
69
70
71 /* using okl_so_credit_request_pub to get event
72 -- called by workflow business event subscription.
73 FUNCTION credit_request_outcome
74 (p_subscription_guid IN RAW
75 ,p_event OUT WF_EVENT_T
76 ) RETURN VARCHAR2;
77 */
78
79 PROCEDURE compile_credit_request
80 (p_api_version IN NUMBER
81 ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
82 ,x_return_status OUT NOCOPY VARCHAR2
83 ,x_msg_count OUT NOCOPY NUMBER
84 ,x_msg_data OUT NOCOPY VARCHAR2
85 ,p_contract_id IN NUMBER
86 ,x_chr_rec OUT NOCOPY l_chr_rec
87 );
88
89
90 END OKL_CREDIT_MGNT_PVT;