[Home] [Help]
PACKAGE: APPS.OKL_ARINTF_PVT
Source
1 PACKAGE OKL_ARINTF_PVT AS
2 /* $Header: OKLRAINS.pls 120.7 2008/06/11 22:56:00 apaul noship $ */
3
4 --start: 15-FEB-07 cklee R12 Billing enhancement project |
5 -- Comment out the reference to OKL billing external tables
6 /*
7 subtype xsiv_rec_type is okl_ext_sell_invs_pub.xsiv_rec_type;
8 subtype xsiv_tbl_type is okl_ext_sell_invs_pub.xsiv_tbl_type;
9
10 G_ExtHdrRec OKL_EXT_SELL_INVS_V%ROWTYPE;
11 G_ExtLineRec OKL_XTL_SELL_INVS_V%ROWTYPE;
12 G_ExtDistrRec OKL_XTD_SELL_INVS_V%ROWTYPE;
13
14 init_ExtHdrRec OKL_EXT_SELL_INVS_V%ROWTYPE;
15 init_ExtLineRec OKL_XTL_SELL_INVS_V%ROWTYPE;
16 init_ExtDistrRec OKL_XTD_SELL_INVS_V%ROWTYPE;
17 */
18 --end: 15-FEB-07 cklee R12 Billing enhancement project |
19
20 G_batch_source varchar2(50) := 'OKL_CONTRACTS';
21 G_request_id number := FND_GLOBAL.CONC_REQUEST_ID;
22 G_user_id number := FND_global.user_id;
23 --G_sysdate date := sysdate;
24
25
26 G_COMMIT_SIZE NUMBER := 500;
27
28 --x_return_status VARCHAR2(3);
29 --x_msg_count NUMBER;
30 --x_msg_data VARCHAR2(2000);
31
32 G_EXCEPTION_HALT_PROCESS EXCEPTION;
33
34 -- Record definitions
35 type error_rec_type is record (
36 id number);
37
38 --start: 15-FEB-07 cklee R12 Billing enhancement project |
39 -- Comment out the reference to OKL billing external tables
40 /*
41 TYPE xfer_rec_type IS RECORD (
42 XSI_ID OKL_EXT_SELL_INVS_V.ID%TYPE
43 ,XLS_ID OKL_XTL_SELL_INVS_V.ID%TYPE
44 ,XLS_AMOUNT OKL_XTL_SELL_INVS_V.AMOUNT%TYPE
45 ,LINE_DESCRIPTION OKL_XTL_SELL_INVS_V.DESCRIPTION%TYPE
46 ,INVENTORY_ITEM_ID OKL_XTL_SELL_INVS_V.INVENTORY_ITEM_ID%TYPE
47 ,LINE_TYPE OKL_XTL_SELL_INVS_V.LINE_TYPE%TYPE
48 ,QUANTITY OKL_XTL_SELL_INVS_V.QUANTITY%TYPE
49 ,XTRX_CONS_LINE_NUMBER OKL_XTL_SELL_INVS_V.XTRX_CONS_LINE_NUMBER%TYPE
50 ,XTRX_CONS_STREAM_ID OKL_XTL_SELL_INVS_V.XTRX_CONS_STREAM_ID%TYPE
51 ,XTRX_CONTRACT OKL_XTL_SELL_INVS_V.XTRX_CONTRACT%TYPE
52 ,XTRX_ASSET OKL_XTL_SELL_INVS_V.XTRX_ASSET%TYPE
53 ,XTRX_STREAM_GROUP OKL_XTL_SELL_INVS_V.XTRX_STREAM_GROUP%TYPE
54 ,XTRX_STREAM_TYPE OKL_XTL_SELL_INVS_V.XTRX_STREAM_TYPE%TYPE
55 ,CURRENCY_CODE OKL_EXT_SELL_INVS_V.CURRENCY_CODE%TYPE
56 ,currency_conversion_date OKL_EXT_SELL_INVS_V.currency_conversion_date%TYPE
57 ,currency_conversion_rate OKL_EXT_SELL_INVS_V.currency_conversion_rate%TYPE
58 ,currency_conversion_type OKL_EXT_SELL_INVS_V.currency_conversion_type%TYPE
59 ,CUST_TRX_TYPE_ID OKL_EXT_SELL_INVS_V.CUST_TRX_TYPE_ID%TYPE
60 ,CUSTOMER_ADDRESS_ID OKL_EXT_SELL_INVS_V.CUSTOMER_ADDRESS_ID%TYPE
61 ,CUSTOMER_BANK_ACCOUNT_ID OKL_EXT_SELL_INVS_V.CUSTOMER_BANK_ACCOUNT_ID%TYPE
62 ,CUSTOMER_ID OKL_EXT_SELL_INVS_V.CUSTOMER_ID%TYPE
63 ,HDR_DESCRIPTION OKL_EXT_SELL_INVS_V.DESCRIPTION%TYPE
64 ,INVOICE_MESSAGE OKL_EXT_SELL_INVS_V.INVOICE_MESSAGE%TYPE
65 ,ORG_ID OKL_EXT_SELL_INVS_V.ORG_ID%TYPE
66 ,RECEIPT_METHOD_ID OKL_EXT_SELL_INVS_V.RECEIPT_METHOD_ID%TYPE
67 ,SET_OF_BOOKS_ID OKL_EXT_SELL_INVS_V.SET_OF_BOOKS_ID%TYPE
68 ,TAX_EXEMPT_FLAG OKL_EXT_SELL_INVS_V.TAX_EXEMPT_FLAG%TYPE
69 ,TERM_ID OKL_EXT_SELL_INVS_V.TERM_ID%TYPE
70 ,TRX_DATE OKL_EXT_SELL_INVS_V.TRX_DATE%TYPE
71 ,TRX_NUMBER OKL_EXT_SELL_INVS_V.TRX_NUMBER%TYPE
72 ,XTRX_CONS_INVOICE_NUMBER OKL_EXT_SELL_INVS_V.XTRX_CONS_INVOICE_NUMBER%TYPE
73 ,XTRX_FORMAT_TYPE OKL_EXT_SELL_INVS_V.XTRX_FORMAT_TYPE%TYPE
74 ,XTRX_INVOICE_PULL_YN OKL_EXT_SELL_INVS_V.XTRX_INVOICE_PULL_YN%TYPE
75 ,XTRX_PRIVATE_LABEL OKL_EXT_SELL_INVS_V.XTRX_PRIVATE_LABEL%TYPE
76 ,LEGAL_ENTITY_ID OKL_EXT_SELL_INVS_V.LEGAL_ENTITY_ID%TYPE -- for LE Uptake project 08-11-2006
77 ,ACCOUNT_CLASS OKL_XTD_SELL_INVS_V.ACCOUNT_CLASS%TYPE
78 ,DIST_AMOUNT OKL_XTD_SELL_INVS_V.AMOUNT%TYPE
79 ,DIST_PERCENT OKL_XTD_SELL_INVS_V.PERCENT%TYPE
80 ,CODE_COMBINATION_ID OKL_XTD_SELL_INVS_V.CODE_COMBINATION_ID%TYPE
81 ,LSM_ID OKL_CNSLD_AR_STRMS_B.ID%TYPE
82 -- New additional non base table fields to support Bulk inserts
83 ,rev_rec_basis okl_strm_type_b.accrual_yn%type
84 ,cm_acct_rule ra_interface_lines_all.CREDIT_METHOD_FOR_ACCT_RULE%TYPE
85 ,rev_txn_id NUMBER
86 ,rev_lsm_id okl_cnsld_ar_strms_b.id%TYPE
87 ,INVENTORY_ORG_ID okl_xtl_sell_invs_v.inventory_org_id%TYPE
88 ,ware_house_id ra_interface_lines_all.warehouse_id%TYPE
89 ,kle_id NUMBER
90 ,ship_to NUMBER
91 ,l_inv_id NUMBER
92 ,uom_code mtl_system_items.primary_uom_code%TYPE
93 ,txn_id NUMBER
94 );
95
96 type xfer_tbl_type is table of xfer_rec_type index by binary_integer;
97 */
98
99 TYPE xfer_rec_type IS RECORD (
100 TAI_ID OKL_TRX_AR_INVOICES_V.ID%TYPE
101 ,AMOUNT OKL_TXL_AR_INV_LNS_V.AMOUNT%TYPE
102 ,LINE_DESCRIPTION OKL_TXL_AR_INV_LNS_V.DESCRIPTION%TYPE
103 ,INVENTORY_ITEM_ID OKL_TXL_AR_INV_LNS_V.INVENTORY_ITEM_ID%TYPE
104 ,LINE_TYPE OKL_TXL_AR_INV_LNS_V.inv_receiv_line_code%TYPE
105 ,QUANTITY OKL_TXL_AR_INV_LNS_V.QUANTITY%TYPE
106 ,LINE_NUMBER OKL_TXL_AR_INV_LNS_V.LINE_NUMBER%TYPE
107 ,STY_ID OKL_TXL_AR_INV_LNS_V.STY_ID%TYPE
108 ,KHR_ID OKC_K_HEADERS_B.ID%TYPE
109 ,CONTRACT_NUMBER OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE
110 ,ASSET_NUMBER OKC_K_LINES_V.NAME%TYPE
111 ,INVOICE_FORMAT_LINE_TYPE okl_invc_line_types_v.NAME%TYPE
112 ,STREAM_TYPE OKL_STRM_TYPE_V.NAME%TYPE
113 ,CURRENCY_CODE OKL_TRX_AR_INVOICES_V.CURRENCY_CODE%TYPE
114 ,currency_conversion_date OKL_TRX_AR_INVOICES_V.currency_conversion_date%TYPE
115 ,currency_conversion_rate OKL_TRX_AR_INVOICES_V.currency_conversion_rate%TYPE
116 ,currency_conversion_type OKL_TRX_AR_INVOICES_V.currency_conversion_type%TYPE
117 ,CUST_TRX_TYPE_ID OKL_TRX_AR_INVOICES_V.CUST_TRX_TYPE_ID%TYPE
118 ,CUSTOMER_ADDRESS_ID OKL_TRX_AR_INVOICES_V.IBT_ID%TYPE
119 ,CUSTOMER_BANK_ACCOUNT_ID OKL_TRX_AR_INVOICES_V.CUSTOMER_BANK_ACCOUNT_ID%TYPE
120 ,CUSTOMER_ID OKL_TRX_AR_INVOICES_V.IXX_ID%TYPE
121 ,HDR_DESCRIPTION OKL_TRX_AR_INVOICES_V.DESCRIPTION%TYPE
122 ,INVOICE_MESSAGE VARCHAR2(4000)
123 ,ORG_ID OKL_TRX_AR_INVOICES_V.ORG_ID%TYPE
124 ,RECEIPT_METHOD_ID OKL_TRX_AR_INVOICES_V.IRM_ID%TYPE
125 ,SET_OF_BOOKS_ID OKL_TRX_AR_INVOICES_V.SET_OF_BOOKS_ID%TYPE
126 ,TAX_EXEMPT_FLAG OKL_TRX_AR_INVOICES_V.TAX_EXEMPT_FLAG%TYPE
127 ,TERM_ID OKL_TRX_AR_INVOICES_V.IRT_ID%TYPE
128 ,TRX_DATE OKL_TRX_AR_INVOICES_V.DATE_INVOICED%TYPE
129 ,TRX_NUMBER OKL_TRX_AR_INVOICES_V.TRX_NUMBER%TYPE
130 ,CONSOLIDATED_INVOICE_NUMBER OKL_TRX_AR_INVOICES_V.CONSOLIDATED_INVOICE_NUMBER%TYPE
131 ,INVOICE_FORMAT_TYPE OKL_TXD_AR_LN_DTLS_V.INVOICE_FORMAT_TYPE%TYPE
132 ,INVOICE_PULL_YN OKL_TRX_AR_INVOICES_V.INVOICE_PULL_YN%TYPE
133 ,PRIVATE_LABEL OKL_TRX_AR_INVOICES_V.PRIVATE_LABEL%TYPE
134 ,LEGAL_ENTITY_ID OKL_TRX_AR_INVOICES_V.LEGAL_ENTITY_ID%TYPE -- for LE Uptake project 08-11-2006
135 ,ACCOUNT_CLASS ra_interface_distributions_all.ACCOUNT_CLASS%TYPE
136 ,DIST_AMOUNT okl_trns_acc_dstrs.AMOUNT%TYPE
137 ,DIST_PERCENT okl_trns_acc_dstrs.PERCENTAGE%TYPE
138 ,CODE_COMBINATION_ID okl_trns_acc_dstrs.CODE_COMBINATION_ID%TYPE
139 -- ,LSM_ID OKL_CNSLD_AR_STRMS_B.ID%TYPE
140 -- New additional non base table fields to support Bulk inserts
141 ,rev_rec_basis okl_strm_type_b.accrual_yn%type
142 ,cm_acct_rule ra_interface_lines_all.CREDIT_METHOD_FOR_ACCT_RULE%TYPE
143 ,rev_txn_id NUMBER
144 -- ,rev_lsm_id okl_cnsld_ar_strms_b.id%TYPE
145 ,INVENTORY_ORG_ID OKL_TXL_AR_INV_LNS_V.inventory_org_id%TYPE
146 ,ware_house_id ra_interface_lines_all.warehouse_id%TYPE
147 ,kle_id NUMBER
148 ,ship_to NUMBER
149 ,l_inv_id NUMBER
150 ,uom_code mtl_system_items.primary_uom_code%TYPE
151 ,txn_id NUMBER
152 --
153 -- R12 additional columns pass to AR interface
154 ,OKL_SOURCE_BILLING_TRX OKL_TRX_AR_INVOICES_V.OKL_SOURCE_BILLING_TRX%TYPE
155 ,Investor_Agreement_Number OKL_TRX_AR_INVOICES_V.Investor_Agreement_Number%TYPE
156 ,Investor_Name OKL_TRX_AR_INVOICES_V.Investor_Name%TYPE
157 ,Quote_number OKL_TRX_QUOTES_B.quote_number%type
158 ,rbk_request_number NUMBER
159 ,RBK_ORI_INVOICE_NUMBER OKL_TXD_AR_LN_DTLS_V.RBK_ORI_INVOICE_NUMBER%TYPE
160 ,RBK_ORI_INVOICE_LINE_NUMBER OKL_TXD_AR_LN_DTLS_V.RBK_ORI_INVOICE_LINE_NUMBER%TYPE
161 ,RBK_ADJUSTMENT_DATE OKL_TXD_AR_LN_DTLS_V.RBK_ADJUSTMENT_DATE%TYPE
162 ,INF_ID OKL_TRX_AR_INVOICES_V.INF_ID%TYPE
163 ,TRY_ID OKL_TRX_TYPES_B.ID%TYPE
164 ,TRY_NAME OKL_TRX_TYPES_TL.NAME%TYPE
165 -- Bug 6744584: contingency fix, added contingency_id. racheruv
166 ,CONTINGENCY_ID OKL_STRM_TYPE_B.CONTINGENCY_ID%TYPE
167 ,INVOICE_LINE_TYPE OKL_TXD_AR_LN_DTLS_V.INVOICE_FORMAT_LINE_TYPE%TYPE
168 );
169
170 type xfer_tbl_type is table of xfer_rec_type index by binary_integer;
171 --end: 15-FEB-07 cklee R12 Billing enhancement project |
172
173 bulk_errors EXCEPTION;
174 PRAGMA EXCEPTION_INIT (bulk_errors, -24381);
175
176
177 PROCEDURE Get_REC_FEEDER
178 ( p_api_version IN NUMBER
179 , p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
180 , x_return_status OUT NOCOPY VARCHAR2
181 , x_msg_count OUT NOCOPY NUMBER
182 , x_msg_data OUT NOCOPY VARCHAR2
183 , p_trx_date_from IN DATE DEFAULT NULL
184 , p_trx_date_to IN DATE DEFAULT NULL
185 , p_assigned_process IN VARCHAR2 DEFAULT NULL
186 ) ;
187
188 END OKL_ARIntf_Pvt;