[Home] [Help]
PACKAGE: APPS.INL_CHARGE_PVT
Source
1 PACKAGE INL_CHARGE_PVT AS
2 /* $Header: INLVCHGS.pls 120.1.12010000.3 2008/11/12 16:46:22 acferrei 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 -- Record to keep Charge Line info.
8 TYPE charge_ln_rec IS RECORD(charge_line_type_id NUMBER,
9 landed_cost_flag VARCHAR2(1),
10 update_allowed VARCHAR2(1),
11 source_code VARCHAR2(25),
12 charge_amt NUMBER,
13 currency_code VARCHAR2(15),
14 currency_conversion_type VARCHAR2(30),
15 currency_conversion_date DATE,
16 currency_conversion_rate NUMBER,
17 party_id NUMBER,
18 party_site_id NUMBER,
19 trx_business_category VARCHAR2(240),
20 intended_use VARCHAR2(30),
21 product_fiscal_class VARCHAR2(240),
22 product_category VARCHAR2(240),
23 product_type VARCHAR2(240),
24 user_def_fiscal_class VARCHAR2(240),
25 tax_classification_code VARCHAR2(30),
26 assessable_value NUMBER,
27 ship_from_party_id NUMBER,
28 ship_from_party_site_id NUMBER,
29 ship_to_organization_id NUMBER,
30 ship_to_location_id NUMBER,
31 bill_from_party_id NUMBER,
32 bill_from_party_site_id NUMBER,
33 bill_to_organization_id NUMBER,
34 bill_to_location_id NUMBER,
35 poa_party_id NUMBER,
36 poa_party_site_id NUMBER,
37 poo_organization_id NUMBER,
38 poo_location_id NUMBER,
39 -- Association attributes
40 to_parent_table_name VARCHAR2(30),
41 to_parent_table_id NUMBER);
42
43 TYPE charge_ln_tbl IS TABLE OF charge_ln_rec;
44
45 -- Record to keep Shipment Line Group info. (HDR Global Structure)
46 TYPE ship_ln_group_rec IS RECORD(org_id NUMBER,
47 p_order_header_id NUMBER,
48 supplier_id NUMBER,
49 supplier_site_id NUMBER,
50 creation_date DATE,
51 order_type VARCHAR2(20), -- REQUISITION/PO
52 ship_to_location_id NUMBER,
53 ship_to_org_id NUMBER,
54 shipment_header_id NUMBER,
55 hazard_class VARCHAR2(4),
56 hazard_code VARCHAR2(1),
57 shipped_date DATE,
58 shipment_num VARCHAR2(30),
59 carrier_method VARCHAR2(2),
60 packaging_code VARCHAR2(5),
61 freight_carrier_code VARCHAR2(25),
62 freight_terms VARCHAR2(25),
63 currency_code VARCHAR2(15),
64 rate VARCHAR2(30),
65 rate_type VARCHAR2(30),
66 source_org_id NUMBER,
67 expected_receipt_date DATE);
68
69 -- Record to keep Shipment Line info. (LINE Global Structure)
70 TYPE ship_ln_rec IS RECORD(order_line_id NUMBER,
71 agreement_type VARCHAR2(25),
72 agreement_id NUMBER,
73 agreement_line_id NUMBER,
74 supplier_id NUMBER,
75 supplier_site_id NUMBER,
76 ship_to_location_id NUMBER,
77 ship_to_org_id NUMBER,
78 supplier_item_num VARCHAR2(25),
79 item_revision VARCHAR2(3),
80 item_id NUMBER,
81 category_id NUMBER,
82 rate NUMBER,
83 rate_type VARCHAR2(30),
84 currency_code VARCHAR2(15),
85 need_by_date DATE,
86 shipment_line_id NUMBER,
87 primary_unit_of_measure VARCHAR2(25),
88 to_organization_id NUMBER,
89 unit_of_measure VARCHAR2(25),
90 source_document_code VARCHAR2(25),
91 unit_price NUMBER,
92 quantity NUMBER);
93
94 TYPE ship_ln_tbl IS TABLE OF ship_ln_rec;
95
96 -- Record to keep the freight charge info. per line
97 TYPE freight_charge_rec IS RECORD(charge_type_code VARCHAR2(30),
98 freight_charge NUMBER,
99 pricing_status_code VARCHAR2(30),
100 pricing_status_text VARCHAR2(2000),
101 modifier_level_code VARCHAR2(30),
102 override_flag VARCHAR2(1));
103
104 TYPE freight_charge_tbl IS TABLE OF freight_charge_rec;
105
106 --Record to keep the price/charge info. per line
107 TYPE qp_price_result_rec IS RECORD(line_index NUMBER,
108 line_id NUMBER,
109 base_unit_price NUMBER,
110 adjusted_price NUMBER,
111 freight_charge_rec_tbl freight_charge_tbl,
112 pricing_status_code VARCHAR2(30),
113 pricing_status_text VARCHAR2(2000));
114
115 TYPE qp_price_result_tbl IS TABLE OF qp_price_result_rec;
116
117 --
118 PROCEDURE Generate_Charges(p_api_version IN NUMBER,
119 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
120 p_commit IN VARCHAR2 := FND_API.G_FALSE,
121 p_ship_header_id IN NUMBER,
122 x_return_status OUT NOCOPY VARCHAR2,
123 x_msg_count OUT NOCOPY NUMBER,
124 x_msg_data OUT NOCOPY VARCHAR2);
125
126 END INL_CHARGE_PVT;