[Home] [Help]
PACKAGE BODY: APPS.OE_PORTAL_UTIL
Source
1 PACKAGE BODY OE_Portal_Util AS
2 /* $Header: OEXUPORB.pls 120.0 2005/05/31 23:18:16 appldev noship $ */
3
4 -- Global constant holding the package name
5
6 G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_Portal_Util';
7
8
9 PROCEDURE get_values
10 ( p_header_rec IN OE_Order_PUB.HEADER_Rec_Type
11 , p_old_header_rec IN OE_Order_PUB.Header_Rec_Type :=
12 OE_Order_PUB.G_MISS_HEADER_REC
13 , x_header_val_rec_type OUT NOCOPY /* file.sql.39 change */ OE_Order_PUB.Header_Val_Rec_Type
14 )
15 IS
16 BEGIN
17 x_header_val_rec_type := OE_HEADER_UTIL.get_values
18 ( p_header_rec =>p_header_rec,
19 p_old_header_rec =>p_old_header_rec );
20
21 EXCEPTION
22 WHEN FND_API.G_EXC_ERROR THEN
23 RAISE FND_API.G_EXC_ERROR;
24 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
25 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
26 WHEN OTHERS THEN
27 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
28 THEN
29 OE_MSG_PUB.Add_Exc_Msg
30 ( G_PKG_NAME
31 , 'get_values'
32 );
33 END IF;
34 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
35
36 END get_values;
37
38
39 PROCEDURE lines
40 ( p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
41 , p_validation_level IN NUMBER
42 , p_control_rec IN OE_GLOBALS.Control_Rec_Type
43 , p_x_line_tbl IN OUT NOCOPY OE_Order_PUB.Line_Tbl_Type
44 , p_return_status OUT NOCOPY VARCHAR2
45 )
46 IS
47 l_return_status VARCHAR2(1);
48 l_old_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
49
50 BEGIN
51 oe_debug_pub.add('entering oe_portal_util.lines', 1);
52 if p_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_CREATE THEN
53 l_old_line_tbl :=OE_Order_PUB.G_MISS_LINE_TBL;
54 elsif p_x_line_tbl(1).operation = OE_GLOBALS.G_OPR_UPDATE THEN
55 oe_oe_form_line.Get_line
56 ( p_db_record => TRUE
57 , p_line_id => p_x_line_tbl(1).line_id
58 , x_line_rec => l_old_line_tbl(1)
59 );
60 l_old_line_tbl(1).transaction_phase_code := 'F';
61 p_x_line_tbl(1).transaction_phase_code := 'F';
62 end if;
63
64
65
66 OE_ORDER_PVT.lines
67 ( p_init_msg_list => p_init_msg_list
68 , p_validation_level => p_validation_level
69 , p_control_rec => p_control_rec
70 , p_x_line_tbl => p_x_line_tbl
71 , p_x_old_line_tbl => l_old_line_tbl
72 , x_return_status => l_return_status);
73
74 p_return_status := l_return_status;
75
76
77 EXCEPTION
78 WHEN FND_API.G_EXC_ERROR THEN
79 RAISE FND_API.G_EXC_ERROR;
80 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
81 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
82 WHEN OTHERS THEN
83 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
84 THEN
85 OE_MSG_PUB.Add_Exc_Msg
86 ( G_PKG_NAME
87 , 'lines'
88 );
89 END IF;
90 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
91
92 END lines;
93
94 PROCEDURE set_header_cache
95 ( p_header_rec IN OE_Order_PUB.HEADER_Rec_Type
96 )
97 IS
98 l_return_status VARCHAR2(1);
99 l_ak_header_rec OE_AK_ORDER_HEADERS_V%rowtype;
100 BEGIN
101 oe_header_util.api_rec_to_rowtype_rec(p_header_rec,l_ak_header_rec);
102
103 ONT_HEADER_DEF_UTIL.g_cached_record := l_ak_header_rec;
104
105 IF p_header_rec.order_type_id IS NOT NULL THEN
106 select default_inbound_line_type_id,
107 default_outbound_line_type_id
108 into ONT_HEADER_Def_Util.g_cached_record.default_inbound_line_type_id,
109 ONT_HEADER_Def_Util.g_cached_record.default_outbound_line_type_id
110 from oe_order_types_v
111 where order_type_id=p_header_rec.order_type_id;
112
113 END IF;
114
115 OE_DEBUG_PUB.ADD('In OE_PORTAL_UTIL.Set_header_cache, default_outbound_line_type_id =' || ONT_HEADER_DEF_UTIL.g_cached_record.Default_Outbound_Line_Type_Id);
116
117 OE_ORDER_CACHE.g_header_rec := p_header_rec;
118 OE_GLOBALS.G_HTML_FLAG := TRUE;
119
120
121
122 END set_header_cache;
123
124
125 PROCEDURE process_requests_and_notify
126 ( p_return_status OUT NOCOPY VARCHAR2
127 )
128 IS
129 l_return_status VARCHAR2(1);
130
131 BEGIN
132 Oe_Order_Pvt.Process_Requests_And_Notify
133 ( p_process_requests => TRUE
134 , p_init_msg_list => FND_API.G_TRUE
135 , p_notify => FALSE
136 , x_return_status => l_return_status
137 );
138
139 p_return_status := l_return_status;
140 OE_GLOBALS.G_RECURSION_MODE :='N';
141
142 END process_requests_and_notify;
143
144 PROCEDURE get_header
145 (
146 p_header_id IN NUMBER,
147 x_header_rec OUT NOCOPY /* file.sql.39 change */ OE_Order_PUB.HEADER_Rec_Type
148 )
149 IS
150 BEGIN
151
152 OE_Header_Util.Query_Row
153 ( p_header_id => p_header_id
154 , x_header_rec => x_header_rec
155 );
156
157 END get_header;
158
159 PROCEDURE get_line
160 (
161 p_line_id IN NUMBER,
162 x_line_rec OUT NOCOPY /* file.sql.39 change */ OE_Order_PUB.Line_Rec_Type
163 )
164 IS
165 BEGIN
166 OE_Line_Util.Query_Row
167 ( p_line_id => p_line_id
168 , x_line_rec => x_line_rec
169 );
170
171 END get_line;
172
173 END OE_Portal_Util;