PACKAGE BODY: APPS.WSH_DSNO_OKE

Source

1 PACKAGE BODY WSH_DSNO_OKE as
2 /* $Header: WSHDOKEB.pls 120.1 2005/07/15 15:33:13 bsadri noship $ */
3 
4 --
5 -- FUNCTION:          GET_OKE_CURRENCY_CODE
6 -- Purpose:           get currency code for DSNO from OKE
7 -- Arguments:         delivery_id
8 --                    source_header_id
9 -- Description:       returns currency code (char)
10 
11 --
12 -- FUNCTION :         GET_OKE_TERM_VALUE
13 -- Purpose:           get payment terms info for DSNO from OKE
14 -- Arguments:         delivery_id
15 --          source_header_id
16 -- Description:       returns payment term name (char)
17 
18 --
19 -- PROCEDURE:         GET_OKE_PARTY
20 -- Purpose:           get party info for DSNO from OKE
21 -- Arguments:         delivery_detail_id -
22 --          source_header_id
23 -- Description:       returns bill_to_site_use_id (number)
24 
25 FUNCTION GET_OKE_PARTY ( delivery_detail_id_in NUMBER, source_header_id_in NUMBER ) return NUMBER IS
26 
27 x_bill_to_site_use_id number;
28 x_hdr_rec oke_dsno_pkg.oke_hdr_rec_type;
29 x_billto_rec oke_dsno_pkg.oke_billto_rec_type;
30 x_delivery_id number;
31 
32 
33 CURSOR del_details ( p_delivery_detail_id NUMBER ) IS
34   SELECT a.delivery_id
35   FROM wsh_delivery_details w, wsh_delivery_assignments_v a
36   WHERE w.delivery_detail_id = p_delivery_detail_id
37   AND w.source_code = 'OKE'
38   AND w.delivery_detail_id = a.delivery_detail_id;
39 
40 BEGIN
41 
42   OPEN  del_details (delivery_detail_id_in);
43   FETCH del_details INTO x_delivery_id;
44   CLOSE del_details;
45 
46   x_hdr_rec.delivery_id := x_delivery_id;
47   x_hdr_rec.source_header_id := source_header_id_in;
48 
49   oke_dsno_pkg.get_oke_k_party(
50     p_oke_hdr_rec      => x_hdr_rec,
51     x_billto_rec     => x_billto_rec);
52 
53   x_bill_to_site_use_id :=  x_billto_rec.bill_to_site_use_id;
54   return x_bill_to_site_use_id;
55 
56 END GET_OKE_PARTY;
57 
58 
59 FUNCTION  GET_OKE_TERM_VALUE (delivery_id_in NUMBER , source_header_id_in NUMBER) return VARCHAR2 IS
60 
61 payment_term_name_x varchar2(80);
62 x_hdr_rec oke_dsno_pkg.oke_hdr_rec_type;
63 x_pmt_rec oke_dsno_pkg.oke_pmt_rec_type;
64 
65 BEGIN
66   x_hdr_rec.delivery_id := delivery_id_in;
67   x_hdr_rec.source_header_id := source_header_id_in;
68 
69   oke_dsno_pkg.get_oke_k_term_value(
70     p_oke_hdr_rec      => x_hdr_rec,
71     x_oke_pmt_rec    => x_pmt_rec);
72 
73   payment_term_name_x :=  x_pmt_rec.payment_term_name;
74 
75   return payment_term_name_x;
76 
77 END GET_OKE_TERM_VALUE;
78 
79 FUNCTION GET_OKE_CURRENCY_CODE (delivery_id_in NUMBER, source_header_id_in NUMBER) return VARCHAR2 IS
80     x_curr_rec oke_dsno_pkg.oke_curr_rec_type;
81     x_hdr_rec  oke_dsno_pkg.oke_hdr_rec_type;
82     currency_code_x varchar2(15);
83 BEGIN
84 
85     x_hdr_rec.delivery_id := delivery_id_in;
86     x_hdr_rec.source_header_id := source_header_id_in;
87 
88     oke_dsno_pkg.get_oke_currency_code(
89       p_oke_hdr_rec     => x_hdr_rec,
90       x_oke_curr_rec    => x_curr_rec);
91 
92     currency_code_x := x_curr_rec.currency_code;
93 
94     return currency_code_x;
95 
96 END GET_OKE_CURRENCY_CODE;
97 END WSH_DSNO_OKE;