[Home] [Help]
PACKAGE BODY: APPS.OE_DEFAULT_LINE_ADJ_ASSOCS
Source
1 PACKAGE BODY OE_Default_Line_Adj_Assocs AS
2 /* $Header: OEXDLASB.pls 120.0 2005/06/01 01:27:26 appldev noship $ */
3
4 -- Global constant holding the package name
5
6 G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_Default_Line_Adj_Assocs';
7
8 -- Package global used within the package.
9
10 g_Line_Adj_Assoc_rec OE_Order_PUB.Line_Adj_Assoc_Rec_Type;
11
12 -- Get functions.
13
14
15 FUNCTION Get_Price_Adj_Assoc
16 RETURN NUMBER
17 IS
18 l_Price_Adj_Assoc_id NUMBER;
19 BEGIN
20
21 SELECT OE_PRICE_ADJ_ASSOCS_S.nextval INTO
22 l_price_adj_Assoc_id
23 FROM DUAL;
24
25 RETURN l_price_adj_Assoc_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_Assoc'
36 );
37 END IF;
38
39 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
40
41 END Get_Price_Adj_Assoc;
42
43 -- Procedure Attributes
44
45 PROCEDURE Attributes
46 ( p_x_Line_Adj_Assoc_rec IN OUT NOCOPY OE_Order_PUB.Line_Adj_Assoc_Rec_Type
47 -- := OE_Order_PUB.G_MISS_Line_Adj_Assoc_REC
48 , p_iteration IN NUMBER := 1
49 -- , x_Line_Adj_Assoc_rec OUT OE_Order_PUB.Line_Adj_Assoc_Rec_Type
50 )
51 IS
52 BEGIN
53
54 -- Check number of iterations.
55
56 IF p_iteration > OE_GLOBALS.G_MAX_DEF_ITERATIONS THEN
57
58 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
59 THEN
60
61 FND_MESSAGE.SET_NAME('ONT','OE_DEF_MAX_ITERATION');
62 FND_MSG_PUB.Add;
63
64 END IF;
65
66 RAISE FND_API.G_EXC_ERROR;
67
68 END IF;
69
70 -- Initialize g_Line_Adj_Assoc_rec
71
72 g_Line_Adj_Assoc_rec := p_x_Line_Adj_Assoc_rec;
73
74
75 -- Default missing attributes.
76
77 IF g_Line_Adj_Assoc_rec.Price_Adj_Assoc_id = FND_API.G_MISS_NUM THEN
78 g_Line_Adj_Assoc_rec.Price_Adj_Assoc_id :=
79 Get_Price_Adj_Assoc;
80 End if;
81
82 IF g_Line_Adj_Assoc_rec.CREATION_DATE = FND_API.G_MISS_DATE THEN
83 g_Line_Adj_Assoc_rec.CREATION_DATE := Null;
84 END IF;
85
86 IF g_Line_Adj_Assoc_rec.CREATED_BY = FND_API.G_MISS_NUM THEN
87 g_Line_Adj_Assoc_rec.CREATED_BY := Null;
88 END IF;
89
90 IF g_Line_Adj_Assoc_rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE THEN
91 g_Line_Adj_Assoc_rec.LAST_UPDATE_DATE := Null;
92 END IF;
93
94 IF g_Line_Adj_Assoc_rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM THEN
95 g_Line_Adj_Assoc_rec.LAST_UPDATED_BY := Null;
96 END IF;
97
98 IF g_Line_Adj_Assoc_rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM THEN
99 g_Line_Adj_Assoc_rec.LAST_UPDATE_LOGIN := Null;
100 END IF;
101
102 IF g_Line_Adj_Assoc_rec.PROGRAM_APPLICATION_ID = FND_API.G_MISS_NUM THEN
103 g_Line_Adj_Assoc_rec.PROGRAM_APPLICATION_ID := Null;
104 END IF;
105
106 IF g_Line_Adj_Assoc_rec.PROGRAM_ID = FND_API.G_MISS_NUM THEN
107 g_Line_Adj_Assoc_rec.PROGRAM_ID := Null;
108 END IF;
109
110 IF g_Line_Adj_Assoc_rec.PROGRAM_UPDATE_DATE = FND_API.G_MISS_DATE THEN
111 g_Line_Adj_Assoc_rec.PROGRAM_UPDATE_DATE := Null;
112 END IF;
113
114 IF g_Line_Adj_Assoc_rec.REQUEST_ID = FND_API.G_MISS_NUM THEN
115 g_Line_Adj_Assoc_rec.REQUEST_ID := Null;
116 END IF;
117
118 IF g_Line_Adj_Assoc_rec.PRICE_ADJ_ASSOC_ID = FND_API.G_MISS_NUM THEN
119 g_Line_Adj_Assoc_rec.PRICE_ADJ_ASSOC_ID := Null;
120 END IF;
121
122 IF g_Line_Adj_Assoc_rec.LINE_ID = FND_API.G_MISS_NUM THEN
123 g_Line_Adj_Assoc_rec.LINE_ID := Null;
124 end if;
125
126 IF g_Line_Adj_Assoc_rec.RLTD_PRICE_ADJ_ID = FND_API.G_MISS_NUM THEN
127 g_Line_Adj_Assoc_rec.RLTD_PRICE_ADJ_ID := Null;
128 end if;
129 -- Done defaulting attributes
130
131 p_x_Line_Adj_Assoc_rec := g_Line_Adj_Assoc_rec;
132
133
134 END Attributes;
135
136 END OE_Default_Line_Adj_Assocs;