[Home] [Help]
PACKAGE: APPS.OKL_AM_INVOICES_PVT
Source
1 PACKAGE OKL_AM_INVOICES_PVT AUTHID CURRENT_USER AS
2 /* $Header: OKLRAMIS.pls 120.3 2008/05/16 04:58:04 akrangan ship $ */
3
4 ---------------------------------------------------------------------------
5 -- GLOBAL DATASTRUCTURES
6 ---------------------------------------------------------------------------
7
8 SUBTYPE taiv_rec_type IS okl_trx_ar_invoices_pub.taiv_rec_type;
9 SUBTYPE taiv_tbl_type IS okl_trx_ar_invoices_pub.taiv_tbl_type;
10
11 TYPE ariv_rec_type IS RECORD (
12 P_ACN_ID NUMBER := OKC_API.G_MISS_NUM,
13 P_ACS_CODE VARCHAR2(200) := OKC_API.G_MISS_CHAR,
14 P_PART_NAME VARCHAR2(2000) := OKC_API.G_MISS_CHAR,
15 P_CONDITION_TYPE VARCHAR2(2000) := OKC_API.G_MISS_CHAR,
16 P_DAMAGE_TYPE VARCHAR2(2000) := OKC_API.G_MISS_CHAR,
17 P_ACTUAL_REPAIR_COST NUMBER := OKC_API.G_MISS_NUM,
18 P_DATE_APPROVED DATE := OKC_API.G_MISS_DATE,
19 P_BILL_TO NUMBER := OKC_API.G_MISS_NUM,
20 P_DATE_INVOICE DATE := OKC_API.G_MISS_DATE,
21 P_APPROVED_YN VARCHAR2(1) := OKC_API.G_MISS_CHAR,
22 P_ACD_ID_COST NUMBER := OKC_API.G_MISS_NUM,
23 P_OBJECT_VERSION_NUMBER NUMBER := OKC_API.G_MISS_NUM);
24
25 TYPE tld_rec_type IS RECORD (
26 inv_tld_id NUMBER := OKC_API.G_MISS_NUM,
27 cm_tld_id NUMBER := OKC_API.G_MISS_NUM);
28
29 TYPE sdd_rec_type IS RECORD (
30 lsm_id NUMBER := OKC_API.G_MISS_NUM,
31 tld_id NUMBER := OKC_API.G_MISS_NUM,
32 amount NUMBER := OKC_API.G_MISS_NUM);
33
34 TYPE ariv_tbl_type IS TABLE OF ariv_rec_type
35 INDEX BY BINARY_INTEGER;
36
37 TYPE tld_tbl_type IS TABLE OF tld_rec_type
38 INDEX BY BINARY_INTEGER;
39
40 TYPE sdd_tbl_type IS TABLE OF sdd_rec_type
41 INDEX BY BINARY_INTEGER;
42
43 ---------------------------------------------------------------------------
44 -- GLOBAL VARIABLES
45 ---------------------------------------------------------------------------
46
47 -- Transaction type used for AR Invoices in Accounting Engine
48 G_AR_INV_TRX_TYPE CONSTANT VARCHAR2(30) := 'BILLING';
49 G_AR_CM_TRX_TYPE CONSTANT VARCHAR2(30) := 'CREDIT MEMO';
50
51 -- Transaction statuses for AR Invoice transactions
52 G_SUBMIT_STATUS CONSTANT VARCHAR2(30) := 'SUBMITTED';
53 G_ERROR_STATUS CONSTANT VARCHAR2(30) := 'ERROR';
54
55 -- AR Invoice Line Code
56 G_AR_INV_LINE_CODE CONSTANT VARCHAR2(30) := 'LINE';
57
58 -- Asset Repair Stream Type
59 --G_REPAIR_STREAM CONSTANT VARCHAR2(30) := 'ASSET REPAIR CHARGE'; -- bug 4631541
60 G_REPAIR_STREAM CONSTANT VARCHAR2(30) := 'REPAIR_CHARGE'; -- bug 4631541
61
62 -- Remarket Sale Invoice uses Sale Price Quote Line to get Stream Type
63 --dkagrawa Bug 4616460 Use new seeded purpose ASSET_SALE_RECEIVABLE for remarketing
64 --G_REMARKET_QUOTE_LINE CONSTANT VARCHAR2(30) := 'AMBSPR';
65 G_REMARKET_QUOTE_LINE CONSTANT VARCHAR2(30) := 'ASSET_SALE_RECEIVABLE';
66 --dkagrawa end
67
68 -- Source table for Accounting Engine calls
69 G_AR_LINES_SOURCE CONSTANT VARCHAR2(30) := 'OKL_TXL_AR_INV_LNS_B';
70
71 ---------------------------------------------------------------------------
72 -- GLOBAL MESSAGE CONSTANTS FOR ERROR HANDLING
73 ---------------------------------------------------------------------------
74
75 G_MISS_NUM CONSTANT NUMBER := OKL_API.G_MISS_NUM;
76 G_MISS_CHAR CONSTANT VARCHAR2(1) := OKL_API.G_MISS_CHAR;
77 G_MISS_DATE CONSTANT DATE := OKL_API.G_MISS_DATE;
78
79 G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
80 G_API_VERSION CONSTANT NUMBER := 1;
81 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_AM_INVOICES_PVT';
82
83 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLCODE';
84 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLERRM';
85 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) :=
86 'OKL_CONTRACTS_UNEXPECTED_ERROR';
87
88 G_OKC_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
89 G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
90 G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
91 G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
92
93 G_EXCEPTION_HALT_VALIDATION EXCEPTION;
94
95 ---------------------------------------------------------------------------
96 -- Procedures and Functions
97 ---------------------------------------------------------------------------
98
99 -- Extract Vendor Billing Information
100 -- If p_cpl_id is given, use vendor attached as a Party Role to Lease
101 -- If p_cpl_id is empty, use vendor from Vendor Program linked to Lease
102 PROCEDURE Get_Vendor_Billing_Info (
103 p_cpl_id IN NUMBER DEFAULT NULL,
104 px_taiv_rec IN OUT NOCOPY taiv_rec_type,
105 x_return_status OUT NOCOPY VARCHAR2);
106
107 -- Calculate Security Deposit Disposition
108 PROCEDURE Contract_Remaining_Sec_Dep (
109 p_contract_id IN NUMBER,
110 p_contract_line_id IN NUMBER,
111 x_sdd_tbl OUT NOCOPY sdd_tbl_type,
112 x_tld_tbl OUT NOCOPY tld_tbl_type,
113 x_total_amount OUT NOCOPY NUMBER);
114
115 -- Create Invoice for Asset Repair
116 PROCEDURE Create_Repair_Invoice (
117 p_api_version IN NUMBER,
118 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
119 x_msg_count OUT NOCOPY NUMBER,
120 x_msg_data OUT NOCOPY VARCHAR2,
121 x_return_status OUT NOCOPY VARCHAR2,
122 p_ariv_tbl IN ariv_tbl_type,
123 x_taiv_tbl OUT NOCOPY taiv_tbl_type);
124
125 -- Create Invoice for Remarket Sale
126 PROCEDURE Create_Remarket_Invoice (
127 p_api_version IN NUMBER,
128 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
129 x_msg_count OUT NOCOPY NUMBER,
130 x_msg_data OUT NOCOPY VARCHAR2,
131 x_return_status OUT NOCOPY VARCHAR2,
132 p_order_line_id IN NUMBER,
133 x_taiv_tbl OUT NOCOPY taiv_tbl_type);
134
135 -- Create Invoice from Termination or Repurchase Quote
136 PROCEDURE Create_Quote_Invoice (
137 p_api_version IN NUMBER,
138 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
139 x_msg_count OUT NOCOPY NUMBER,
140 x_msg_data OUT NOCOPY VARCHAR2,
141 x_return_status OUT NOCOPY VARCHAR2,
142 p_quote_id IN NUMBER,
143 x_taiv_tbl OUT NOCOPY taiv_tbl_type);
144
145 -- Create Credit Memo for Security Deposit Disposition
146 PROCEDURE Create_Scrt_Dpst_Dsps_Inv (
147 p_api_version IN NUMBER,
148 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
149 x_msg_count OUT NOCOPY NUMBER,
150 x_msg_data OUT NOCOPY VARCHAR2,
151 x_return_status OUT NOCOPY VARCHAR2,
152 p_contract_id IN NUMBER,
153 p_contract_line_id IN NUMBER DEFAULT NULL,
154 p_dispose_amount IN NUMBER DEFAULT NULL,
155 p_quote_id IN NUMBER DEFAULT NULL, --akrangan added for bug 7036873
156 x_taiv_tbl OUT NOCOPY taiv_tbl_type);
157
158 END OKL_AM_INVOICES_PVT;