[Home] [Help]
PACKAGE BODY: APPS.OE_DEFAULT_HEADER_AATTR
Source
1 PACKAGE BODY OE_Default_Header_Aattr AS
2 /* $Header: OEXDHAAB.pls 120.0 2005/05/31 23:11:05 appldev noship $ */
3
4 -- Global constant holding the package name
5
6 G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_Default_Header_Aattr';
7
8 -- Package global used within the package.
9
10 g_Header_Adj_Att_rec OE_Order_PUB.Header_Adj_Att_Rec_Type;
11
12 -- Get functions.
13
14
15 FUNCTION Get_Price_Adj_Attrib
16 RETURN NUMBER
17 IS
18 l_Price_Adj_attrib_id NUMBER;
19 BEGIN
20
21 SELECT OE_PRICE_ADJ_ATTRIBS_S.nextval INTO
22 l_price_adj_attrib_id
23 FROM DUAL;
24
25 RETURN l_price_adj_attrib_id;
26
27 EXCEPTION
28
29 WHEN OTHERS THEN
30
31 IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
32 THEN
33 OE_MSG_PUB.Add_Exc_Msg
34 ( G_PKG_NAME ,
35 'Get_Price_Adj_Attrib'
36 );
37 END IF;
38
39 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
40
41 END Get_Price_Adj_Attrib;
42
43 -- Procedure Attributes
44
45 PROCEDURE Attributes
46 ( p_Header_Adj_Att_rec IN out nocopy OE_Order_PUB.Header_Adj_Att_Rec_Type
47 , p_iteration IN NUMBER := 1
48 --, x_Header_Adj_Att_rec OUT OE_Order_PUB.Header_Adj_Att_Rec_Type
49 )
50 IS
51 BEGIN
52
53 -- Check number of iterations.
54
55 IF p_iteration > OE_GLOBALS.G_MAX_DEF_ITERATIONS THEN
56
57 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
58 THEN
59
60 FND_MESSAGE.SET_NAME('ONT','OE_DEF_MAX_ITERATION');
61 FND_MSG_PUB.Add;
62
63 END IF;
64
65 RAISE FND_API.G_EXC_ERROR;
66
67 END IF;
68
69 -- Initialize g_Header_Adj_Att_rec
70
71 g_Header_Adj_Att_rec := p_Header_Adj_Att_rec;
72
73
74 -- Default missing attributes.
75
76 IF g_Header_Adj_Att_rec.Price_Adj_attrib_id = FND_API.G_MISS_NUM THEN
77 g_Header_Adj_Att_rec.Price_Adj_attrib_id :=
78 Get_Price_Adj_Attrib;
79 End if;
80
81 IF g_Header_Adj_Att_rec.PRICE_ADJUSTMENT_ID = FND_API.G_MISS_NUM THEN
82 g_Header_Adj_Att_rec.PRICE_ADJUSTMENT_ID := Null;
83 END IF;
84
85 IF g_Header_Adj_Att_rec.PRICING_CONTEXT = FND_API.G_MISS_CHAR THEN
86 g_Header_Adj_Att_rec.PRICING_CONTEXT := Null;
87 END IF;
88
89 IF g_Header_Adj_Att_rec.PRICING_ATTRIBUTE = FND_API.G_MISS_CHAR THEN
90 g_Header_Adj_Att_rec.PRICING_ATTRIBUTE := Null;
91 END IF;
92
93 IF g_Header_Adj_Att_rec.CREATION_DATE = FND_API.G_MISS_DATE THEN
94 g_Header_Adj_Att_rec.CREATION_DATE := Null;
95 END IF;
96
97 IF g_Header_Adj_Att_rec.CREATED_BY = FND_API.G_MISS_NUM THEN
98 g_Header_Adj_Att_rec.CREATED_BY := Null;
99 END IF;
100
101 IF g_Header_Adj_Att_rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE THEN
102 g_Header_Adj_Att_rec.LAST_UPDATE_DATE := Null;
103 END IF;
104
105 IF g_Header_Adj_Att_rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM THEN
106 g_Header_Adj_Att_rec.LAST_UPDATED_BY := Null;
107 END IF;
108
109 IF g_Header_Adj_Att_rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM THEN
110 g_Header_Adj_Att_rec.LAST_UPDATE_LOGIN := Null;
111 END IF;
112
113 IF g_Header_Adj_Att_rec.PROGRAM_APPLICATION_ID = FND_API.G_MISS_NUM THEN
114 g_Header_Adj_Att_rec.PROGRAM_APPLICATION_ID := Null;
115 END IF;
116
117 IF g_Header_Adj_Att_rec.PROGRAM_ID = FND_API.G_MISS_NUM THEN
118 g_Header_Adj_Att_rec.PROGRAM_ID := Null;
119 END IF;
120
121 IF g_Header_Adj_Att_rec.PROGRAM_UPDATE_DATE = FND_API.G_MISS_DATE THEN
122 g_Header_Adj_Att_rec.PROGRAM_UPDATE_DATE := Null;
123 END IF;
124
125 IF g_Header_Adj_Att_rec.REQUEST_ID = FND_API.G_MISS_NUM THEN
126 g_Header_Adj_Att_rec.REQUEST_ID := Null;
127 END IF;
128
129 IF g_Header_Adj_Att_rec.PRICING_ATTR_VALUE_FROM = FND_API.G_MISS_CHAR THEN
130 g_Header_Adj_Att_rec.PRICING_ATTR_VALUE_FROM := Null;
131 END IF;
132
133 IF g_Header_Adj_Att_rec.PRICING_ATTR_VALUE_TO = FND_API.G_MISS_CHAR THEN
134 g_Header_Adj_Att_rec.PRICING_ATTR_VALUE_TO := Null;
135 END IF;
136
137 IF g_Header_Adj_Att_rec.COMPARISON_OPERATOR = FND_API.G_MISS_CHAR THEN
138 g_Header_Adj_Att_rec.COMPARISON_OPERATOR := Null;
139 END IF;
140
141 IF g_Header_Adj_Att_rec.FLEX_TITLE = FND_API.G_MISS_CHAR THEN
142 g_Header_Adj_Att_rec.FLEX_TITLE := Null;
143 END IF;
144 -- Done defaulting attributes
145
146 p_Header_Adj_Att_rec := g_Header_Adj_Att_rec;
147
148
149 END Attributes;
150
151 END OE_Default_Header_Aattr;