PACKAGE BODY: APPS.CSTPSCHO

Source

1 PACKAGE BODY CSTPSCHO AS
2 /* $Header: CSTSCHOB.pls 115.4 2002/11/11 22:56:31 awwang ship $ */
3 
4 FUNCTION get_buy_cost_hook (
5 p_rollup_id             IN      NUMBER,
6 p_assignment_set_id     IN      NUMBER,
7 p_item_id               IN      NUMBER,
8 p_organization_id       IN      NUMBER,
9 p_vendor_id             IN      NUMBER,
10 p_site_id		IN	NUMBER,
11 p_ship_method		IN	NUMBER,
12 x_err_code              OUT NOCOPY     NUMBER,
13 x_err_buf               OUT NOCOPY     VARCHAR2
14 )
15 RETURN INTEGER
16 IS
17 l_buy_cost  NUMBER;
18 l_stmt_num  NUMBER;
19 BEGIN
20 
21     l_stmt_num := 10;
22     l_buy_cost := -1;
23 
24     x_err_code := 0;
25     x_err_buf := 'CSTPSCHK.get_buy_cost_hook' ||': Returned Success';
26 
27     return l_buy_cost;
28 
29 EXCEPTION
30     WHEN OTHERS THEN
31         x_err_code := SQLCODE;
32         x_err_buf := 'CSTPSCHK.get_buy_cost_hook' ||'stmt_num='||l_stmt_num||' : '||substrb(sqlerrm,1,60);
33 
34         return -1;
35 
36 
37 END get_buy_cost_hook;
38 
39 PROCEDURE get_markup_hook (
40 p_rollup_id             IN      NUMBER,
41 p_item_id               IN      NUMBER,
42 p_dest_organization_id  IN      NUMBER,
43 p_src_organization_id   IN      NUMBER,
44 p_sc_cost_type_id       IN      NUMBER,
45 p_buy_cost_type_id      IN      NUMBER,
46 x_markup                OUT NOCOPY     NUMBER,
47 x_markup_code           OUT NOCOPY     NUMBER,
48 x_err_code              OUT NOCOPY     NUMBER,
49 x_err_buf               OUT NOCOPY     VARCHAR2
50 )
51 IS
52 l_stmt_num  NUMBER;
53 BEGIN
54     l_stmt_num := 10;
55     x_markup_code := -1;
56     x_markup := NULL;
57 
58     x_err_code := 0;
59     x_err_buf := 'CSTPSCHK.get_markup_hook' ||': Returned Success';
60 
61     return;
62 
63 EXCEPTION
64     WHEN OTHERS THEN
65         x_err_code := SQLCODE;
66         x_err_buf := 'CSTPSCHK.get_markup_hook' ||'stmt_num='||l_stmt_num||' : '||substrb(sqlerrm,1,60);
67 
68         x_markup_code := -1;
69         x_markup := NULL;
70 
71         return;
72 
73 
74 END get_markup_hook;
75 
76 
77 PROCEDURE get_shipping_hook (
78 p_rollup_id             IN      NUMBER,
79 p_item_id               IN      NUMBER,
80 p_dest_organization_id  IN      NUMBER,
81 p_src_organization_id   IN      NUMBER,
82 p_sc_cost_type_id       IN      NUMBER,
83 p_buy_cost_type_id      IN      NUMBER,
84 x_ship_method           IN      VARCHAR2,
85 x_ship_charge           OUT NOCOPY     NUMBER,
86 x_ship_charge_code    OUT NOCOPY     NUMBER,
87 x_err_code              OUT NOCOPY     NUMBER,
88 x_err_buf               OUT NOCOPY     VARCHAR2
89 )
90 IS
91 l_stmt_num  NUMBER;
92 BEGIN
93     l_stmt_num := 10;
94     x_ship_charge_code := -1;
95     x_ship_charge := NULL;
96 
97     x_err_code := 0;
98     x_err_buf := 'CSTPSCHK.get_shipping_hook' ||': Returned Success';
99 
100     return;
101 
102 EXCEPTION
103     WHEN OTHERS THEN
104         x_err_code := SQLCODE;
105         x_err_buf := 'CSTPSCHK.get_shipping_hook' ||'stmt_num='||l_stmt_num||' :
106 		 ' ||substrb(sqlerrm,1,60);
107 
108         x_ship_charge_code := -1;
109         x_ship_charge := NULL;
110 
111         return;
112 
113 END get_shipping_hook;
114 
115 
116 END CSTPSCHO;