[Home] [Help]
PACKAGE: APPS.OKL_PAYMENT_PVT
Source
1 PACKAGE OKL_PAYMENT_PVT AUTHID CURRENT_USER AS
2 /* $Header: OKLRPAYS.pls 120.7 2007/10/10 11:27:27 varangan noship $ */
3
4 ---------------------------------------------------------------------------
5 -- GLOBAL MESSAGE CONSTANTS
6 ---------------------------------------------------------------------------
7 G_FND_APP CONSTANT VARCHAR2(200) := okl_api.G_FND_APP;
8 G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := 'OKL_REQUIRED_VALUE';
9 G_INVALID_VALUE CONSTANT VARCHAR2(200) := okl_api.G_INVALID_VALUE;
10 G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := 'COL_NAME';
11 G_COL_NAME1_TOKEN CONSTANT VARCHAR2(200) := 'COL_NAME1';
12 G_COL_NAME2_TOKEN CONSTANT VARCHAR2(200) := 'COL_NAME2';
13 G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := 'PARENT_TABLE';
14 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_UNEXPECTED_ERROR';
15 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'OKL_SQLERRM';
16 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'OKL_SQLCODE';
17 ---------------------------------------------------------------------------
18 -- GLOBAL VARIABLES
19 ---------------------------------------------------------------------------
20 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_PAYMENT_PVT';
21 G_APP_NAME CONSTANT VARCHAR2(3) := 'OKL';
22 G_CUSTOMER_ID_NULL CONSTANT VARCHAR2(200) := 'OKL_CUSTOMER_ID_NULL';
23 G_CONTRACT_ID_NULL CONSTANT VARCHAR2(200) := 'OKL_CONTRACT_ID_NULL';
24 G_PAYMENT_METHOD_INVALID CONSTANT VARCHAR2(200) := 'OKL_PAYMENT_METHOD_INVALID';
25 ---------------------------------------------------------------------------
26 -- GLOBAL EXCEPTION
27 ---------------------------------------------------------------------------
28 G_EXCEPTION_HALT_VALIDATION EXCEPTION;
29 ---------------------------------------------------------------------------
30 -- Data Structures
31 ----------------------------------------------------------------------------
32 TYPE receipt_rec_type IS RECORD (
33 currency_code OKL_TRX_CSH_RECEIPT_V.CURRENCY_CODE%TYPE DEFAULT NULL,
34 currency_conv_type OKL_TRX_CSH_RECEIPT_V.EXCHANGE_RATE_TYPE%TYPE DEFAULT NULL,
35 currency_conv_date OKL_TRX_CSH_RECEIPT_V.EXCHANGE_RATE_DATE%TYPE DEFAULT NULL,
36 currency_conv_rate OKL_TRX_CSH_RECEIPT_V.EXCHANGE_RATE%TYPE DEFAULT NULL,
37 irm_id OKL_TRX_CSH_RECEIPT_V.IRM_ID%TYPE DEFAULT NULL,
38 rem_bank_acc_id okl_bpd_rcpt_mthds_uv.bank_account_id%TYPE DEFAULT NULL,
39 contract_id OKC_K_HEADERS_B.ID%TYPE DEFAULT NULL,
40 contract_num OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE DEFAULT NULL,
41 cust_acct_id OKL_TRX_CSH_RECEIPT_V.ILE_id%TYPE DEFAULT NULL,
42 customer_num HZ_CUST_ACCOUNTS.ACCOUNT_NUMBER%TYPE DEFAULT NULL,
43 gl_date OKL_TRX_CSH_RECEIPT_V.GL_DATE%TYPE DEFAULT NULL,
44 payment_date OKL_TRX_CSH_RECEIPT_V.DATE_EFFECTIVE%TYPE DEFAULT TRUNC(SYSDATE),
45 customer_site_use_id AR_PAYMENT_SCHEDULES_ALL.CUSTOMER_SITE_USE_ID%TYPE DEFAULT NULL,
46 expiration_date DATE DEFAULT NULL,
47 payment_trxn_extension_id NUMBER
48 );
49
50 TYPE payment_rec_type IS RECORD (
51 con_inv_id OKL_CNSLD_AR_HDRS_ALL_B.ID%TYPE,
52 ar_inv_id RA_CUSTOMER_TRX_ALL.CUSTOMER_TRX_ID%TYPE,
53 line_id RA_CUSTOMER_TRX_LINES_ALL.CUSTOMER_TRX_LINE_ID%TYPE,
54 amount NUMBER
55 );
56
57 TYPE payment_tbl_type IS TABLE OF payment_rec_type INDEX BY BINARY_INTEGER;
58 ---------------------------------------------------------------------------
59 -- Procedures and Functions
60 ---------------------------------------------------------------------------
61
62 PROCEDURE qc;
63 PROCEDURE change_version;
64 PROCEDURE api_copy;
65 -- Creates internal transactions for cutomer and contract combination
66 PROCEDURE CREATE_INTERNAL_TRANS(
67 p_api_version IN NUMBER,
68 p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
69 p_customer_id IN NUMBER,
70 p_contract_id IN NUMBER,
71 p_contract_num IN VARCHAR2 DEFAULT NULL,
72 p_payment_method_id IN NUMBER,
73 p_payment_ref_number IN VARCHAR2,
74 p_payment_amount IN NUMBER,
75 p_currency_code IN VARCHAR2,
76 p_payment_date IN DATE,
77 x_payment_id OUT NOCOPY NUMBER,
78 x_return_status OUT NOCOPY VARCHAR2,
79 x_msg_count OUT NOCOPY NUMBER,
80 x_msg_data OUT NOCOPY VARCHAR2
81 );
82
83 -- Creates internal transactions for cutomer and invoice combination
84 PROCEDURE CREATE_INTERNAL_TRANS(
85 p_api_version IN NUMBER,
86 p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
87 p_customer_id IN NUMBER,
88 p_invoice_id IN NUMBER,
89 p_payment_method_id IN NUMBER,
90 p_payment_ref_number IN VARCHAR2,
91 p_payment_amount IN NUMBER,
92 p_currency_code IN VARCHAR2,
93 p_payment_date IN DATE,
94 x_payment_id OUT NOCOPY NUMBER,
95 x_return_status OUT NOCOPY VARCHAR2,
96 x_msg_count OUT NOCOPY NUMBER,
97 x_msg_data OUT NOCOPY VARCHAR2
98 );
99
100 -- Called from Make Payments UI
101 PROCEDURE CREATE_PAYMENTS(
102 p_api_version IN NUMBER,
103 p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
104 p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
105 p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
106 x_return_status OUT NOCOPY VARCHAR2,
107 x_msg_count OUT NOCOPY NUMBER,
108 x_msg_data OUT NOCOPY VARCHAR2,
109 p_receipt_rec IN receipt_rec_type,
110 p_payment_tbl IN payment_tbl_type,
111 x_payment_ref_number OUT NOCOPY AR_CASH_RECEIPTS_ALL.RECEIPT_NUMBER%TYPE,
112 x_cash_receipt_id OUT NOCOPY NUMBER
113 );
114
115 END OKL_PAYMENT_PVT;