[Home] [Help]
PACKAGE: APPS.OKL_LA_ASSET_PVT
Source
1 Package OKL_LA_ASSET_PVT AUTHID CURRENT_USER as
2 /* $Header: OKLRLAAS.pls 120.4 2007/05/24 11:44:42 gboomina ship $ */
3 -------------------------------------------------------------------------------------------------
4 -- COMPOSITE VARIABLES
5 -------------------------------------------------------------------------------------------------
6 TYPE las_rec_type IS RECORD (asset_number FA_ADDITIONS_B.ASSET_NUMBER%TYPE,
7 year_manufactured NUMBER := OKL_API.G_MISS_NUM,
8 manufacturer_name FA_ADDITIONS_B.MANUFACTURER_NAME%TYPE,
9 description FA_ADDITIONS_TL.DESCRIPTION%TYPE,
10 current_units NUMBER := OKL_API.G_MISS_NUM,
11 from_oec NUMBER := OKL_API.G_MISS_NUM,
12 to_oec NUMBER := OKL_API.G_MISS_NUM,
13 vendor_name PO_VENDORS.VENDOR_NAME%TYPE,
14 from_residual_value NUMBER := OKL_API.G_MISS_NUM,
15 to_residual_value NUMBER := OKL_API.G_MISS_NUM,
16 from_start_date OKC_K_LINES_B.START_DATE%TYPE,
17 from_end_date OKC_K_LINES_B.END_DATE%TYPE,
18 from_date_terminated OKC_K_LINES_B.DATE_TERMINATED%TYPE,
19 to_start_date OKC_K_LINES_B.START_DATE%TYPE,
20 to_end_date OKC_K_LINES_B.END_DATE%TYPE,
21 to_date_terminated OKC_K_LINES_B.DATE_TERMINATED%TYPE,
22 sts_code OKC_K_LINES_B.STS_CODE%TYPE,
23 location_id VARCHAR(1995),
24 parent_line_id NUMBER := OKL_API.G_MISS_NUM,
25 dnz_chr_id NUMBER := OKL_API.G_MISS_NUM,
26 p_order_by VARCHAR2(10) := 'AST',
27 p_sort_by VARCHAR2(10) := 'DESC',
28 include_split_yn VARCHAR2(1) := 'N');
29
30 -----------------------------------------------------------------------------------------------------
31 -- Financial Adjustment Record
32 -----------------------------------------------------------------------------------------------------
33 TYPE fin_adj_rec_type IS RECORD(p_top_line_id NUMBER,
34 p_asset_number VARCHAR2(50),
35 p_new_yn VARCHAR2(10),
36 p_dnz_chr_id NUMBER,
37 p_capital_reduction NUMBER,
38 p_capital_reduction_percent NUMBER,
39 p_oec NUMBER,
40 p_cap_down_pay_yn VARCHAR2(10),
41 p_down_payment_receiver VARCHAR2(10));
42
43 ------------------------------------------------------------------------------------------------------
44 -- Financial Adjustment Table
45 ------------------------------------------------------------------------------------------------------
46 TYPE fin_adj_tbl_type IS TABLE OF fin_adj_rec_type INDEX BY BINARY_INTEGER;
47
48 /*
49 TYPE las_rec_type IS RECORD (asset_number FA_ADDITIONS_B.ASSET_NUMBER%TYPE,
50 year_manufactured NUMBER := OKL_API.G_MISS_NUM,
51 manufacturer_name FA_ADDITIONS_B.MANUFACTURER_NAME%TYPE,
52 description FA_ADDITIONS_TL.DESCRIPTION%TYPE,
53 current_units NUMBER := OKL_API.G_MISS_NUM,
54 oec NUMBER := OKL_API.G_MISS_NUM,
55 vendor_name PO_VENDORS.VENDOR_NAME%TYPE,
56 residual_value NUMBER := OKL_API.G_MISS_NUM,
57 start_date OKC_K_LINES_B.START_DATE%TYPE,
58 end_date OKC_K_LINES_B.END_DATE%TYPE,
59 date_terminated OKC_K_LINES_B.DATE_TERMINATED%TYPE,
60 sts_code OKC_K_LINES_B.STS_CODE%TYPE,
61 location_id VARCHAR(1995),
62 parent_line_id NUMBER := OKL_API.G_MISS_NUM,
63 dnz_chr_id NUMBER := OKL_API.G_MISS_NUM,
64 p_order_by VARCHAR2(10) := 'AST',
65 p_sort_by VARCHAR2(10) := 'DESC');
66 */
67
68 TYPE las_tbl_type IS TABLE OF las_rec_type
69 INDEX BY BINARY_INTEGER;
70
71 Procedure generate_asset_summary(
72 p_api_version IN NUMBER,
73 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
74 x_return_status OUT NOCOPY VARCHAR2,
75 x_msg_count OUT NOCOPY NUMBER,
76 x_msg_data OUT NOCOPY VARCHAR2,
77 p_las_rec IN las_rec_type,
78 x_las_tbl OUT NOCOPY las_tbl_type);
79
80 PROCEDURE update_contract_line(
81 p_api_version IN NUMBER,
82 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
83 x_return_status OUT NOCOPY VARCHAR2,
84 x_msg_count OUT NOCOPY NUMBER,
85 x_msg_data OUT NOCOPY VARCHAR2,
86 p_id IN NUMBER,
87 p_date_delivery_expected IN DATE,
88 p_date_funding_expected IN DATE,
89 p_org_id IN NUMBER,
90 p_organization_id IN NUMBER);
91
92 PROCEDURE update_contract_line(
93 p_api_version IN NUMBER,
94 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
95 x_return_status OUT NOCOPY VARCHAR2,
96 x_msg_count OUT NOCOPY NUMBER,
97 x_msg_data OUT NOCOPY VARCHAR2,
98 p_id IN NUMBER,
99 p_chr_id IN NUMBER,
100 p_manufacturer_name IN VARCHAR2,
101 p_model_number IN VARCHAR2,
102 p_year_of_manufacture IN VARCHAR2,
103 p_vendor_name IN VARCHAR2,
104 p_vendor_id IN VARCHAR2,
105 p_cpl_id IN NUMBER,
106 p_notes IN VARCHAR2
107 );
108
109 PROCEDURE update_fin_cap_cost(
110 p_api_version IN NUMBER,
111 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
112 x_return_status OUT NOCOPY VARCHAR2,
113 x_msg_count OUT NOCOPY NUMBER,
114 x_msg_data OUT NOCOPY VARCHAR2,
115 P_new_yn IN VARCHAR2,
116 p_asset_number IN VARCHAR2,
117 p_top_line_id IN NUMBER,
118 p_dnz_chr_id IN NUMBER,
119 p_capital_reduction IN NUMBER,
120 p_capital_reduction_percent IN NUMBER,
121 p_oec IN NUMBER,
122 p_cap_down_pay_yn IN VARCHAR2,
123 p_down_payment_receiver IN VARCHAR2);
124
125 PROCEDURE update_fin_cap_cost(
126 p_api_version IN NUMBER,
127 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
128 x_return_status OUT NOCOPY VARCHAR2,
129 x_msg_count OUT NOCOPY NUMBER,
130 x_msg_data OUT NOCOPY VARCHAR2,
131 p_fin_adj_tbl IN fin_adj_tbl_type);
132
133 -- gboomina added - Start
134 -- making isContractActive function public which is called from okl_deal_asset_pvt
135 FUNCTION isContractActive(p_dnz_chr_id IN OKL_K_HEADERS_FULL_V.ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
136 p_deal_type IN OKL_K_HEADERS_FULL_V.DEAL_TYPE%TYPE,
137 p_sts_code IN OKL_K_HEADERS_FULL_V.STS_CODE%TYPE)
138 RETURN BOOLEAN;
139 -- gboomina added - End
140
141 End OKL_LA_ASSET_PVT;