1 PACKAGE WSH_U_RASS AS
2 /* $Header: WSHURASS.pls 120.0 2005/05/26 18:26:39 appldev noship $ */
3
4 /* Record containing input parameters for the FindServiceRate API */
5
6 TYPE RateServiceInRec IS RECORD (
7 ActionCode VARCHAR2(1),
8 ServiceLevelCode VARCHAR2(20),
9 RateChart VARCHAR2(100),
10 ShipperPostalCode VARCHAR2(5),
11 ConsigneePostalCode VARCHAR2(6),
12 ConsigneeCountry VARCHAR2(3),
13 PackageActualWeight NUMBER,
14 DeclaredValueInsurance NUMBER,
15 PackageLength NUMBER,
16 PackageWidth NUMBER,
17 PackageHight NUMBER,
18 OverSizeIndicator VARCHAR2(1),
19 CODIndicator VARCHAR2(1),
20 HazMat VARCHAR2(1),
21 AdditionalHandlingInd VARCHAR2(1),
22 CallTagARSInd VARCHAR2(1),
23 SatDeliveryInd VARCHAR2(1),
24 SatPickupInd VARCHAR2(1),
25 DCISInd VARCHAR2(1),
26 VerbalConfirmationInd VARCHAR2(1),
27 SNDestinationInd1 VARCHAR2(1),
28 SNDestinationInd2 VARCHAR2(1),
29 ResidentialInd VARCHAR2(1),
30 PackagingType VARCHAR2(2));
31
32
33
34 /* Output from the UPS API */
35 TYPE RateServiceOutRec IS RECORD (
36 UPSOnLine VARCHAR2(9),
37 AppVersion VARCHAR2(20),
38 ReturnCode NUMBER,
39 MessageNumber NUMBER,
40 MessageText VARCHAR2(500),
41 ActionCode VARCHAR2(1),
42 ServiceLevelCode VARCHAR2(100),
43 ShipperPostalCode VARCHAR2(5),
44 ShipperCountry VARCHAR2(3),
45 ConsigneePostalCode VARCHAR2(6),
46 ConsigneeCountry VARCHAR2(3),
47 DeliverZone VARCHAR2(3),
48 PackageActualWeight NUMBER,
49 ProductCharge NUMBER,
50 AccessorySurcharge NUMBER,
51 TotalCharge NUMBER,
52 CommitTime Varchar2(50));
53
54
55 TYPE RateServTableTyp IS TABLE OF RateServiceOutRec
56 INDEX BY BINARY_INTEGER;
57
58
59 TYPE HeaderRec IS RECORD (
60 ship_from_location_id number,
61 ship_to_location_id number);
62
63
64 TYPE HeaderRecTableTyp IS TABLE OF HeaderRec
65 INDEX BY BINARY_INTEGER;
66
67 -- -------------------------------------------------------------------
68 -- Start of comments
69 -- API name : FindServiceRate
70 -- Type : public
71 -- Function : compose the input string, call UPS APIs and parse the
72 -- L_OUTPUT string, place them in the returning record
73 -- Version : Initial version 1.0
74 -- Notes
75 --
76 --
77 -- End of comments
78 -- ---------------------------------------------------------------------
79 FUNCTION FindServiceRate(
80 p_api_version IN NUMBER,
81 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
82 x_return_status OUT NOCOPY VARCHAR2,
83 x_msg_count OUT NOCOPY NUMBER,
84 x_msg_data OUT NOCOPY VARCHAR2,
85 p_AppVersion IN VARCHAR2,
86 p_AcceptLicenseAgreement IN VARCHAR2,
87 p_ResponseType IN VARCHAR2,
88 p_request_in IN RateServiceInRec)
89 RETURN RateServTableTyp;
90
91
92 -- -------------------------------------------------------------------
93 -- Start of comments
94 -- API name : Load_Headers
95 -- Type : public
96 -- Function : This procedure is used by the form to populate
97 -- the UPS_SRV_HEADER block, the select statement
98 -- is passed as a parameter, which is dynamically
99 -- constructed as the transaction form passes the
100 -- selected delivery_detail_id to the UPS Rate
101 -- and Service Selection form
102 -- Output : a table of ship_from_location_id and
103 -- ship_to_location_id
104 -- Version : Initial version 1.0
105 -- Notes
106 --
107 --
108 -- End of comments
109 -- ---------------------------------------------------------------------
110
111 procedure load_headers(
112 p_select_statement IN VARCHAR2,
113 x_headers IN OUT NOCOPY wsh_u_rass.HeaderRecTableTyp);
114
115 END WSH_U_RASS;