[Home] [Help]
PACKAGE BODY: APPS.QP_GLOBALS
Source
1 PACKAGE BODY QP_Globals AS
2 /* $Header: QPXSGLBB.pls 120.1 2005/07/15 15:41:02 appldev ship $ */
3
4 -- Global constant holding the package name
5
6 G_PKG_NAME CONSTANT VARCHAR2(30) := 'QP_Globals';
7
8 -- Procedure Get_Entities_Tbl.
9 --
10 -- Used by generator to avoid overriding or duplicating existing
11 -- entity constants.
12 --
13 -- DO NOT REMOVE
14
15 PROCEDURE Get_Entities_Tbl
16 IS
17 I NUMBER:=0;
18 BEGIN
19
20 FND_API.g_entity_tbl.DELETE;
21
22 -- START GEN entities
23 I := I + 1;
24 FND_API.g_entity_tbl(I).name := 'ALL';
25 I := I + 1;
26 FND_API.g_entity_tbl(I).name := 'PRICE_LIST';
27 I := I + 1;
28 FND_API.g_entity_tbl(I).name := 'PRICE_LIST_LINE';
29 I := I + 1;
30 FND_API.g_entity_tbl(I).name := 'MODIFIER_LIST';
31 I := I + 1;
32 FND_API.g_entity_tbl(I).name := 'MODIFIERS';
33 I := I + 1;
34 FND_API.g_entity_tbl(I).name := 'QUALIFIERS';
35 I := I + 1;
36 FND_API.g_entity_tbl(I).name := 'PRICING_ATTR';
37 I := I + 1;
38 FND_API.g_entity_tbl(I).name := 'QUALIFIER_RULES';
39 I := I + 1;
40 FND_API.g_entity_tbl(I).name := 'LINE_PRICING_PATTR';
41 I := I + 1;
42 FND_API.g_entity_tbl(I).name := 'FORMULA';
43 I := I + 1;
44 FND_API.g_entity_tbl(I).name := 'FORMULA_LINES';
45 I := I + 1;
46 FND_API.g_entity_tbl(I).name := 'LIMITS';
47 I := I + 1;
48 FND_API.g_entity_tbl(I).name := 'LIMIT_ATTRS';
49 I := I + 1;
50 FND_API.g_entity_tbl(I).name := 'LIMIT_BALANCES';
51 I := I + 1;
52 FND_API.g_entity_tbl(I).name := 'CURR_LISTS';
53 I := I + 1;
54 FND_API.g_entity_tbl(I).name := 'CURR_DETAILS';
55 I := I + 1;
56 FND_API.g_entity_tbl(I).name := 'CON';
57 I := I + 1;
58 FND_API.g_entity_tbl(I).name := 'SEG';
59 I := I + 1;
60 FND_API.g_entity_tbl(I).name := 'PTE';
61 I := I + 1;
62 FND_API.g_entity_tbl(I).name := 'RQT';
63 I := I + 1;
64 FND_API.g_entity_tbl(I).name := 'SSC';
65 I := I + 1;
66 FND_API.g_entity_tbl(I).name := 'PSG';
67 I := I + 1;
68 FND_API.g_entity_tbl(I).name := 'SOU';
69 I := I + 1;
70 FND_API.g_entity_tbl(I).name := 'FNA';
71 -- END GEN entities
72
73 END Get_Entities_Tbl;
74
75 -- Initialize control record.
76
77 FUNCTION Init_Control_Rec
78 ( p_operation IN VARCHAR2
79 , p_control_rec IN Control_Rec_Type
80 )RETURN Control_Rec_Type
81 IS
82 l_control_rec Control_Rec_Type;
83 BEGIN
84
85 IF p_control_rec.controlled_operation THEN
86
87 RETURN p_control_rec;
88
89 ELSIF p_operation = G_OPR_NONE OR p_operation IS NULL THEN
90
91 l_control_rec.default_attributes:= FALSE;
92 l_control_rec.change_attributes := FALSE;
93 l_control_rec.check_security := FALSE;
94 l_control_rec.validate_entity := FALSE;
95 l_control_rec.write_to_DB := FALSE;
96 l_control_rec.process := p_control_rec.process;
97 l_control_rec.process_entity := p_control_rec.process_entity;
98 l_control_rec.request_category := p_control_rec.request_category;
99 l_control_rec.request_name := p_control_rec.request_name;
100 l_control_rec.clear_api_cache := p_control_rec.clear_api_cache;
101 l_control_rec.clear_api_requests:= p_control_rec.clear_api_requests;
102 l_control_rec.called_from_ui := p_control_rec.called_from_ui;
103
104 ELSIF p_operation = G_OPR_CREATE THEN
105
106 l_control_rec.default_attributes:= TRUE;
107 l_control_rec.change_attributes := FALSE;
108 l_control_rec.check_security := TRUE;
109 l_control_rec.validate_entity := TRUE;
110 l_control_rec.write_to_DB := TRUE;
111 l_control_rec.process := TRUE;
112 l_control_rec.process_entity := G_ENTITY_ALL;
113 l_control_rec.clear_api_cache := TRUE;
114 l_control_rec.clear_api_requests:= TRUE;
115 l_control_rec.called_from_ui := p_control_rec.called_from_ui;
116
117 ELSIF p_operation = G_OPR_UPDATE THEN
118
119 l_control_rec.default_attributes:= FALSE;
120 l_control_rec.change_attributes := TRUE;
121 l_control_rec.check_security := TRUE;
122 l_control_rec.validate_entity := TRUE;
123 l_control_rec.write_to_DB := TRUE;
124 l_control_rec.process := TRUE;
125 l_control_rec.process_entity := G_ENTITY_ALL;
126 l_control_rec.clear_api_cache := TRUE;
127 l_control_rec.clear_api_requests:= TRUE;
128 l_control_rec.called_from_ui := p_control_rec.called_from_ui;
129
130 ELSIF p_operation = G_OPR_DELETE THEN
131
132 l_control_rec.default_attributes:= FALSE;
133 l_control_rec.change_attributes := FALSE;
134 l_control_rec.check_security := TRUE;
135 l_control_rec.validate_entity := TRUE;
136 l_control_rec.write_to_DB := TRUE;
137 l_control_rec.process := TRUE;
138 l_control_rec.process_entity := G_ENTITY_ALL;
139 l_control_rec.clear_api_cache := TRUE;
140 l_control_rec.clear_api_requests:= TRUE;
141 l_control_rec.called_from_ui := p_control_rec.called_from_ui;
142
143 ELSE
144
145 IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
146 THEN
147 oe_msg_pub.Add_Exc_Msg
148 ( G_PKG_NAME
149 , 'Init_Control_Rec'
150 , 'Invalid operation'
151 );
152 END IF;
153
154 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
155
156 END IF;
157
158 RETURN l_control_rec;
159
160 END Init_Control_Rec;
161
162 -- Function Equal
163 -- Number comparison.
164
165 FUNCTION Equal
166 ( p_attribute1 IN NUMBER
167 , p_attribute2 IN NUMBER
168 )RETURN BOOLEAN
169 IS
170 BEGIN
171
172 RETURN ( p_attribute1 IS NULL AND p_attribute2 IS NULL ) OR
173 ( p_attribute1 IS NOT NULL AND
174 p_attribute2 IS NOT NULL AND
175 p_attribute1 = p_attribute2 );
176
177 END Equal;
178
179 -- Varchar2 comparison.
180
181 FUNCTION Equal
182 ( p_attribute1 IN VARCHAR2
183 , p_attribute2 IN VARCHAR2
184 )RETURN BOOLEAN
185 IS
186 BEGIN
187
188 RETURN ( p_attribute1 IS NULL AND p_attribute2 IS NULL ) OR
189 ( p_attribute1 IS NOT NULL AND
190 p_attribute2 IS NOT NULL AND
191 p_attribute1 = p_attribute2 );
192
193 END Equal;
194
195 -- Date comparison.
196
197 FUNCTION Equal
198 ( p_attribute1 IN DATE
199 , p_attribute2 IN DATE
200 )RETURN BOOLEAN
201 IS
202 BEGIN
203
204 RETURN ( p_attribute1 IS NULL AND p_attribute2 IS NULL ) OR
205 ( p_attribute1 IS NOT NULL AND
206 p_attribute2 IS NOT NULL AND
207 p_attribute1 = p_attribute2 );
208
209 END Equal;
210
211 END QP_Globals;