1 PACKAGE WSH_U_RASS AUTHID CURRENT_USER AS
2 /* $Header: WSHURASS.pls 120.0.12020000.4 2013/02/14 01:25:37 adagur ship $ */
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 , ship_from_location_id NUMBER --Added for Carrier Services Integration with Shipping project Bug 16095594
32 , ship_to_location_id NUMBER --Added for Carrier Services Integration with Shipping project Bug 16095594
33 , Entity VARCHAR2(20)--Added for Carrier Services Integration with Shipping project Bug 16095594
34 , Entity_Id NUMBER); --Added for Carrier Services Integration with Shipping project Bug 16095594
35
36
37
38 /* Output from the UPS API */
39 TYPE RateServiceOutRec IS RECORD
40 ( UPSOnLine VARCHAR2(9)
41 , AppVersion VARCHAR2(20)
42 , ReturnCode NUMBER
43 , MessageNumber NUMBER
44 , MessageText VARCHAR2(500)
45 , ActionCode VARCHAR2(1)
46 , ServiceLevelCode VARCHAR2(100)
47 , ShipperPostalCode VARCHAR2(5)
48 , ShipperCountry VARCHAR2(3)
49 , ConsigneePostalCode VARCHAR2(6)
50 , ConsigneeCountry VARCHAR2(3)
51 , DeliverZone VARCHAR2(3)
52 , PackageActualWeight NUMBER
53 , ProductCharge NUMBER
54 , AccessorySurcharge NUMBER
55 , TotalCharge NUMBER
56 , CommitTime VARCHAR2(50));
57
58
59 TYPE RateServTableTyp
60 IS TABLE OF RateServiceOutRec INDEX BY BINARY_INTEGER;
61
62
63 TYPE HeaderRec IS RECORD
64 ( ship_from_location_id number
65 , ship_to_location_id number);
66
67
68 TYPE HeaderRecTableTyp
69 IS TABLE OF HeaderRec INDEX BY BINARY_INTEGER;
70
71 -- -------------------------------------------------------------------
72 -- Start of comments
73 -- API name : FindServiceRate
74 -- Type : public
75 -- Function : compose the input string, call UPS APIs and parse the
76 -- L_OUTPUT string, place them in the returning record
77 -- Version : Initial version 1.0
78 -- Notes
79 --
80 --
81 -- End of comments
82 -- ---------------------------------------------------------------------
83 FUNCTION FindServiceRate
84 ( p_api_version IN NUMBER
85 , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
86 , x_return_status OUT NOCOPY VARCHAR2
87 , x_msg_count OUT NOCOPY NUMBER
88 , x_msg_data OUT NOCOPY VARCHAR2
89 , p_AppVersion IN VARCHAR2
90 , p_AcceptLicenseAgreement IN VARCHAR2
91 , p_ResponseType IN VARCHAR2
92 , p_request_in IN RateServiceInRec)
93 RETURN RateServTableTyp;
94
95
96 -- -------------------------------------------------------------------
97 -- Start of comments
98 -- API name : Load_Headers
99 -- Type : public
100 -- Function : This procedure is used by the form to populate
101 -- the UPS_SRV_HEADER block, the select statement
102 -- is passed as a parameter, which is dynamically
103 -- constructed as the transaction form passes the
104 -- selected delivery_detail_id to the UPS Rate
105 -- and Service Selection form
106 -- Output : a table of ship_from_location_id and
107 -- ship_to_location_id
108 -- Version : Initial version 1.0
109 -- Notes
110 --
111 --
112 -- End of comments
113 -- ---------------------------------------------------------------------
114
115 PROCEDURE load_headers
116 ( p_select_statement IN VARCHAR2
117 , x_headers IN OUT NOCOPY wsh_u_rass.HeaderRecTableTyp);
118
119 END WSH_U_RASS;