[Home] [Help]
PACKAGE: APPS.INL_CHARGE_PVT
Source
1 PACKAGE INL_CHARGE_PVT AUTHID CURRENT_USER AS
2 /* $Header: INLVCHGS.pls 120.14 2011/10/13 14:58:28 ebarbosa ship $ */
3
4 G_MODULE_NAME CONSTANT VARCHAR2(200) := 'INL.PLSQL.INL_CHARGE_PVT.';
5 G_PKG_NAME CONSTANT VARCHAR2(30) := 'INL_CHARGE_PVT';
6
7 L_FND_FALSE CONSTANT VARCHAR2(1) := fnd_api.g_false; --Bug#9660056
8
9 -- Record to keep Charge Line info.
10 TYPE charge_ln_rec IS RECORD(
11 charge_line_type_id NUMBER,
12 landed_cost_flag VARCHAR2(1),
13 update_allowed VARCHAR2(1),
14 source_code VARCHAR2(25),
15 charge_amt NUMBER,
16 currency_code VARCHAR2(15),
17 currency_conversion_type VARCHAR2(30),
18 currency_conversion_date DATE,
19 currency_conversion_rate NUMBER,
20 party_id NUMBER,
21 party_site_id NUMBER,
22 trx_business_category VARCHAR2(240),
23 intended_use VARCHAR2(30),
24 product_fiscal_class VARCHAR2(240),
25 product_category VARCHAR2(240),
26 product_type VARCHAR2(240),
27 user_def_fiscal_class VARCHAR2(240),
28 tax_classification_code VARCHAR2(30),
29 assessable_value NUMBER,
30 ship_from_party_id NUMBER,
31 ship_from_party_site_id NUMBER,
32 ship_to_organization_id NUMBER,
33 ship_to_location_id NUMBER,
34 bill_from_party_id NUMBER,
35 bill_from_party_site_id NUMBER,
36 bill_to_organization_id NUMBER,
37 bill_to_location_id NUMBER,
38 poa_party_id NUMBER,
39 poa_party_site_id NUMBER,
40 poo_organization_id NUMBER,
41 poo_location_id NUMBER,
42 -- Association attributes
43 to_parent_table_name VARCHAR2(30),
44 to_parent_table_id NUMBER
45 );
46
47 TYPE charge_ln_tbl IS TABLE OF charge_ln_rec INDEX BY BINARY_INTEGER;
48
49 -- Record to keep Shipment Line Group info. (HDR Global Structure)
50 TYPE ship_ln_group_rec IS RECORD(
51 ship_line_group_id NUMBER,
52 org_id NUMBER,
53 p_order_header_id NUMBER,
54 supplier_id NUMBER,
55 supplier_site_id NUMBER,
56 creation_date DATE,
57 order_type VARCHAR2(20), -- REQUISITION/PO
58 ship_to_location_id NUMBER,
59 ship_to_org_id NUMBER,
60 shipment_header_id NUMBER,
61 hazard_class VARCHAR2(4),
62 hazard_code VARCHAR2(1),
63 shipped_date DATE,
64 shipment_num VARCHAR2(30),
65 carrier_method VARCHAR2(2),
66 packaging_code VARCHAR2(5),
67 freight_code VARCHAR2(25),
68 freight_terms VARCHAR2(25),
69 currency_code VARCHAR2(15),
70 rate VARCHAR2(30),
71 rate_type VARCHAR2(30),
72 source_org_id NUMBER,
73 expected_receipt_date DATE,
74 request_type VARCHAR2(2),
75 pricing_event VARCHAR2(20),
76 qp_curr_conv_type VARCHAR2(20),
77 po_header_id NUMBER -- Bug#13092165
78 );
79
80 -- Record to keep Shipment Line info. (LINE Global Structure)
81 TYPE ship_ln_rec IS RECORD(
82 order_line_id NUMBER,
83 agreement_type VARCHAR2(25),
84 agreement_id NUMBER,
85 agreement_line_id NUMBER,
86 supplier_id NUMBER,
87 supplier_site_id NUMBER,
88 ship_to_location_id NUMBER,
89 ship_to_org_id NUMBER,
90 supplier_item_num VARCHAR2(25),
91 item_revision VARCHAR2(3),
92 item_id NUMBER,
93 category_id NUMBER,
94 rate NUMBER,
95 rate_type VARCHAR2(30),
96 currency_code VARCHAR2(15),
97 need_by_date DATE,
98 shipment_line_id NUMBER,
99 primary_unit_of_measure VARCHAR2(25),
100 to_organization_id NUMBER,
101 unit_of_measure VARCHAR2(25),
102 source_document_code VARCHAR2(25),
103 unit_price NUMBER,
104 quantity NUMBER,
105 primary_quantity NUMBER --BUG#8928845
106 );
107
108 TYPE ship_ln_tbl IS TABLE OF ship_ln_rec INDEX BY BINARY_INTEGER;
109
110 -- Record to keep the freight charge info. per line
111 TYPE freight_charge_rec IS RECORD(
112 charge_type_code VARCHAR2(30),
113 freight_charge NUMBER,
114 pricing_status_code VARCHAR2(30),
115 pricing_status_text VARCHAR2(2000),
116 modifier_level_code VARCHAR2(30),
117 override_flag VARCHAR2(1),
118 operand_calculation_code VARCHAR2(30) --Bug#8928845
119 );
120
121
122 TYPE freight_charge_tbl IS TABLE OF freight_charge_rec INDEX BY BINARY_INTEGER;
123
124 --Record to keep the price/charge info. per line
125 TYPE qp_price_result_rec IS RECORD(
126 line_index NUMBER,
127 line_id NUMBER,
128 base_unit_price NUMBER,
129 adjusted_price NUMBER,
130 freight_charge_rec_tbl freight_charge_tbl,
131 pricing_status_code VARCHAR2(30),
132 pricing_status_text VARCHAR2(2000)
133 );
134
135 TYPE qp_price_result_tbl IS TABLE OF qp_price_result_rec INDEX BY BINARY_INTEGER;
136
137 TYPE ship_ln_group_tbl_tp IS TABLE OF inl_ship_line_groups%ROWTYPE INDEX BY BINARY_INTEGER;
138
139 TYPE ship_ln_tbl_tp IS TABLE OF inl_adj_ship_lines_v%ROWTYPE INDEX BY BINARY_INTEGER;
140
141 --
142 PROCEDURE Generate_Charges(
143 p_api_version IN NUMBER,
144 p_init_msg_list IN VARCHAR2 := L_FND_FALSE,
145 p_commit IN VARCHAR2 := L_FND_FALSE,
146 p_ship_header_id IN NUMBER,
147 x_return_status OUT NOCOPY VARCHAR2,
148 x_msg_count OUT NOCOPY NUMBER,
149 x_msg_data OUT NOCOPY VARCHAR2
150 );
151
152 END INL_CHARGE_PVT;