[Home] [Help]
95: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
96: END IF;
97: -- Initialize message list if p_init_msg_list is set to TRUE
98: IF FND_API.To_Boolean(p_init_msg_list) THEN
99: FND_MSG_PUB.Initialize;
100: END IF;
101:
102: --Check Rule subject id is not null
103: IF (p_rule_stmt_rec.subject_id IS NULL) THEN
101:
102: --Check Rule subject id is not null
103: IF (p_rule_stmt_rec.subject_id IS NULL) THEN
104: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_SUBJ_NULL');
105: FND_MSG_PUB.ADD;
106: END IF;
107:
108: --Check Rule operator is not null
109: IF (p_rule_stmt_rec.operator IS NULL) THEN
107:
108: --Check Rule operator is not null
109: IF (p_rule_stmt_rec.operator IS NULL) THEN
110: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_OPER_NULL');
111: FND_MSG_PUB.ADD;
112: END IF;
113:
114: --Validate join operators
115: IF ( (p_rule_stmt_rec.operator = 'OR') OR
123: (p_rule_stmt_rec.negation_flag IS NOT NULL))
124: THEN
125: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_INV');
126: FND_MESSAGE.Set_Token('OPERATOR',get_rule_oper(p_rule_stmt_rec.operator, p_rule_stmt_rec.negation_flag));
127: FND_MSG_PUB.ADD;
128: END IF;
129:
130: --Check both rule_ids are valid rule statements.
131: OPEN check_rule_statement_csr(p_rule_stmt_rec.subject_id);
132: FETCH check_rule_statement_csr INTO l_junk;
133: IF (check_rule_statement_csr%NOTFOUND) THEN
134: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_ID_INV');
135: FND_MESSAGE.Set_Token('RULE_STMT_ID',p_rule_stmt_rec.subject_id);
136: FND_MSG_PUB.ADD;
137: END IF;
138: CLOSE check_rule_statement_csr;
139:
140: OPEN check_rule_statement_csr(p_rule_stmt_rec.object_id);
141: FETCH check_rule_statement_csr INTO l_junk;
142: IF (check_rule_statement_csr%NOTFOUND) THEN
143: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_ID_INV');
144: FND_MESSAGE.Set_Token('RULE_STMT_ID',p_rule_stmt_rec.object_id);
145: FND_MSG_PUB.ADD;
146: END IF;
147: CLOSE check_rule_statement_csr;
148: END IF;
149:
158: FETCH check_rule_type_csr INTO l_rule_type;
159: IF (l_rule_type <> 'MANDATORY' AND l_rule_type <> 'FLEET') THEN
160: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_TYPE_INV');
161: FND_MESSAGE.Set_Token('RULE_TYPE',l_rule_type);
162: FND_MSG_PUB.ADD;
163: END IF;
164: CLOSE check_rule_type_csr;
165:
166: -- SATHAPLI::FP OGMA Issue# 105 - Non-Serialized Item Maintenance, 03-Dec-2007
169: FND_MESSAGE.Set_Name('AHL','AHL_MC_QRUL_TYP_OBJTY_INV');
170: FND_MESSAGE.Set_Token('OPERATOR',get_rule_oper(p_rule_stmt_rec.operator, p_rule_stmt_rec.negation_flag));
171: FND_MESSAGE.Set_Token('RULE_TYPE',get_fnd_lkup_meaning('AHL_MC_RULE_TYPES', l_rule_type));
172: FND_MESSAGE.Set_Token('OBJ_TYPE',get_fnd_lkup_meaning('AHL_MC_RULE_OBJECT_TYPES', p_rule_stmt_rec.object_type));
173: FND_MSG_PUB.ADD;
174: END IF;
175:
176: --Check Valid Position
177: OPEN check_position_id_csr(p_rule_stmt_rec.rule_id, p_rule_stmt_rec.subject_id);
178: FETCH check_position_id_csr INTO l_junk;
179: IF (check_position_id_csr%NOTFOUND) THEN
180: FND_MESSAGE.Set_Name('AHL','AHL_MC_PATH_POS_ID_INV');
181: FND_MESSAGE.Set_Token('POSITION_ID',p_rule_stmt_rec.subject_id);
182: FND_MSG_PUB.ADD;
183: END IF;
184: CLOSE check_position_id_csr;
185: END IF;
186:
193: (p_rule_stmt_rec.object_id IS NOT NULL))
194: THEN
195: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_INV');
196: FND_MESSAGE.Set_Token('OPERATOR',get_rule_oper(p_rule_stmt_rec.operator, p_rule_stmt_rec.negation_flag));
197: FND_MSG_PUB.ADD;
198: END IF;
199:
200: -----------Have statement type--------------
201: ELSIF ((p_rule_stmt_rec.operator = 'HAVE') OR
223: )
224: THEN
225: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_INV');
226: FND_MESSAGE.Set_Token('OPERATOR',get_rule_oper(p_rule_stmt_rec.operator, p_rule_stmt_rec.negation_flag));
227: FND_MSG_PUB.ADD;
228: END IF;
229:
230: IF (p_rule_stmt_rec.object_type = 'ITEM') THEN
231: OPEN check_item_id_csr(p_rule_stmt_rec.object_id);
232: FETCH check_item_id_csr INTO l_junk;
233: IF (check_item_id_csr%NOTFOUND) THEN
234: FND_MESSAGE.Set_Name('AHL','AHL_MC_INV_INVALID');
235: FND_MESSAGE.Set_Token('INV_ITEM',p_rule_stmt_rec.object_id);
236: FND_MSG_PUB.ADD;
237: END IF;
238: CLOSE check_item_id_csr;
239: ELSIF (p_rule_stmt_rec.object_type = 'CONFIGURATION') THEN
240: OPEN check_mc_id_csr(p_rule_stmt_rec.object_id, p_rule_stmt_rec.object_attribute1);
242: IF (check_mc_id_csr%NOTFOUND) THEN
243: FND_MESSAGE.Set_Name('AHL','AHL_MC_MC_ID_INV');
244: FND_MESSAGE.Set_Token('MC_ID',p_rule_stmt_rec.object_id);
245: FND_MESSAGE.Set_Token('VER',p_rule_stmt_rec.object_attribute1);
246: FND_MSG_PUB.ADD;
247: END IF;
248: CLOSE check_mc_id_csr;
249:
250: -- SATHAPLI::FP OGMA Issue# 105 - Non-Serialized Item Maintenance, 03-Dec-2007
265: (p_rule_stmt_rec.object_type <> 'CONFIG_AS_POSITION')))
266: THEN
267: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_INV');
268: FND_MESSAGE.Set_Token('OPERATOR',get_rule_oper(p_rule_stmt_rec.operator, p_rule_stmt_rec.negation_flag));
269: FND_MSG_PUB.ADD;
270: END IF;
271:
272: --Check Valid Position for object_id
273: OPEN check_position_id_csr(p_rule_stmt_rec.rule_id, p_rule_stmt_rec.object_id);
274: FETCH check_position_id_csr INTO l_junk;
275: IF (check_position_id_csr%NOTFOUND) THEN
276: FND_MESSAGE.Set_Name('AHL','AHL_MC_PATH_POS_ID_INV');
277: FND_MESSAGE.Set_Token('POSITION_ID',p_rule_stmt_rec.object_id);
278: FND_MSG_PUB.ADD;
279: END IF;
280: CLOSE check_position_id_csr;
281:
282: END IF;
294: FETCH check_rule_type_csr INTO l_rule_type;
295: IF (l_rule_type <> 'FLEET') THEN
296: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_TYPE_INV');
297: FND_MESSAGE.Set_Token('RULE_TYPE',l_rule_type);
298: FND_MSG_PUB.ADD;
299: END IF;
300: CLOSE check_rule_type_csr;
301:
302: -- SATHAPLI::FP OGMA Issue# 105 - Non-Serialized Item Maintenance, 03-Dec-2007
305: FND_MESSAGE.Set_Name('AHL','AHL_MC_QRUL_TYP_OBJTY_INV');
306: FND_MESSAGE.Set_Token('OPERATOR',get_rule_oper(p_rule_stmt_rec.operator, p_rule_stmt_rec.negation_flag));
307: FND_MESSAGE.Set_Token('RULE_TYPE',get_fnd_lkup_meaning('AHL_MC_RULE_TYPES', l_rule_type));
308: FND_MESSAGE.Set_Token('OBJ_TYPE',get_fnd_lkup_meaning('AHL_MC_RULE_OBJECT_TYPES', p_rule_stmt_rec.object_type));
309: FND_MSG_PUB.ADD;
310: END IF;
311:
312: --Check Valid Position
313: OPEN check_position_id_csr(p_rule_stmt_rec.rule_id, p_rule_stmt_rec.subject_id);
314: FETCH check_position_id_csr INTO l_junk;
315: IF (check_position_id_csr%NOTFOUND) THEN
316: FND_MESSAGE.Set_Name('AHL','AHL_MC_PATH_POS_ID_INV');
317: FND_MESSAGE.Set_Token('POSITION_ID',p_rule_stmt_rec.subject_id);
318: FND_MSG_PUB.ADD;
319: END IF;
320: CLOSE check_position_id_csr;
321:
322: --Make sure object type is item
322: --Make sure object type is item
323: IF (p_rule_stmt_rec.object_type <> 'ITEM') THEN
324: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_INV');
325: FND_MESSAGE.Set_Token('OPERATOR',get_rule_oper(p_rule_stmt_rec.operator, p_rule_stmt_rec.negation_flag));
326: FND_MSG_PUB.ADD;
327: END IF;
328:
329: --Make sure item id is valid
330: OPEN check_item_id_csr(p_rule_stmt_rec.object_id);
331: FETCH check_item_id_csr INTO l_junk;
332: IF (check_item_id_csr%NOTFOUND) THEN
333: FND_MESSAGE.Set_Name('AHL','AHL_MC_INV_INVALID');
334: FND_MESSAGE.Set_Token('INV_ITEM',p_rule_stmt_rec.object_id);
335: FND_MSG_PUB.ADD;
336: END IF;
337: CLOSE check_item_id_csr;
338:
339: --Check quantity >= 0
342: (p_rule_stmt_rec.operator = 'FLEET_QTY_LT')) THEN
343: IF (TO_NUMBER(p_rule_stmt_rec.object_attribute1) < 0) THEN
344: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_FLT_ATTR_INV');
345: FND_MESSAGE.Set_Token('ATTR_VAL',p_rule_stmt_rec.object_attribute1);
346: FND_MSG_PUB.ADD;
347: END IF;
348: END IF;
349:
350: IF ((p_rule_stmt_rec.operator = 'FLEET_PCTG_GT') OR
353: IF (TO_NUMBER(p_rule_stmt_rec.object_attribute1) < 0 OR
354: TO_NUMBER(p_rule_stmt_rec.object_attribute1) > 100) THEN
355: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_FLT_ATTR_INV');
356: FND_MESSAGE.Set_Token('ATTR_VAL',p_rule_stmt_rec.object_attribute1);
357: FND_MSG_PUB.ADD;
358: END IF;
359: END IF;
360: END IF;
361:
359: END IF;
360: END IF;
361:
362: -- Check Error Message stack.
363: x_msg_count := FND_MSG_PUB.count_msg;
364: IF x_msg_count > 0 THEN
365: RAISE FND_API.G_EXC_ERROR;
366: END IF;
367: -- Standard call to get message count and if count is 1, get message info
364: IF x_msg_count > 0 THEN
365: RAISE FND_API.G_EXC_ERROR;
366: END IF;
367: -- Standard call to get message count and if count is 1, get message info
368: FND_MSG_PUB.Count_And_Get
369: ( p_count => x_msg_count,
370: p_data => x_msg_data,
371: p_encoded => fnd_api.g_false
372: );
373:
374: EXCEPTION
375: WHEN FND_API.G_EXC_ERROR THEN
376: x_return_status := FND_API.G_RET_STS_ERROR;
377: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
378: p_data => x_msg_data,
379: p_encoded => fnd_api.g_false);
380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
378: p_data => x_msg_data,
379: p_encoded => fnd_api.g_false);
380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
382: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
383: p_data => x_msg_data,
384: p_encoded => fnd_api.g_false);
385: WHEN OTHERS THEN
386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
383: p_data => x_msg_data,
384: p_encoded => fnd_api.g_false);
385: WHEN OTHERS THEN
386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
387: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
388: p_procedure_name => l_api_name,
389: p_error_text => SQLERRM);
390: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
391: p_data => x_msg_data,
386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
387: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
388: p_procedure_name => l_api_name,
389: p_error_text => SQLERRM);
390: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
391: p_data => x_msg_data,
392: p_encoded => fnd_api.g_false);
393:
394: END Validate_Rule_Stmt;
435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
436: END IF;
437: -- Initialize message list if p_init_msg_list is set to TRUE
438: IF FND_API.To_Boolean(p_init_msg_list) THEN
439: FND_MSG_PUB.Initialize;
440: END IF;
441:
442: --Check Status of MC allows for editing
443: /*IF NOT(check_mc_status(p_x_rule_stmt_rec.rule_id)) THEN
441:
442: --Check Status of MC allows for editing
443: /*IF NOT(check_mc_status(p_x_rule_stmt_rec.rule_id)) THEN
444: FND_MESSAGE.Set_Name('AHL','AHL_INVALID_MC_STATUS');
445: FND_MSG_PUB.ADD;
446: Raise FND_API.G_EXC_ERROR;
447: END IF; */
448:
449: IF (p_module = 'JSP') THEN
614: IF FND_API.TO_BOOLEAN(p_commit) THEN
615: COMMIT WORK;
616: END IF;
617: -- Standard call to get message count and if count is 1, get message info
618: FND_MSG_PUB.Count_And_Get
619: ( p_count => x_msg_count,
620: p_data => x_msg_data,
621: p_encoded => fnd_api.g_false
622: );
623: EXCEPTION
624: WHEN FND_API.G_EXC_ERROR THEN
625: Rollback to Insert_Rule_Stmt_pvt;
626: x_return_status := FND_API.G_RET_STS_ERROR;
627: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
628: p_data => x_msg_data,
629: p_encoded => fnd_api.g_false);
630: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
631: Rollback to Insert_Rule_Stmt_pvt;
629: p_encoded => fnd_api.g_false);
630: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
631: Rollback to Insert_Rule_Stmt_pvt;
632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
633: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
634: p_data => x_msg_data,
635: p_encoded => fnd_api.g_false);
636: WHEN OTHERS THEN
637: Rollback to Insert_Rule_Stmt_pvt;
635: p_encoded => fnd_api.g_false);
636: WHEN OTHERS THEN
637: Rollback to Insert_Rule_Stmt_pvt;
638: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
639: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
640: p_procedure_name => l_api_name,
641: p_error_text => SQLERRM);
642: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
643: p_data => x_msg_data,
638: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
639: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
640: p_procedure_name => l_api_name,
641: p_error_text => SQLERRM);
642: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
643: p_data => x_msg_data,
644: p_encoded => fnd_api.g_false);
645: END Insert_Rule_Stmt;
646:
691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
692: END IF;
693: -- Initialize message list if p_init_msg_list is set to TRUE
694: IF FND_API.To_Boolean(p_init_msg_list) THEN
695: FND_MSG_PUB.Initialize;
696: END IF;
697:
698: --Check that rule_statement_id is valid
699: OPEN ahl_mc_rule_stmt_csr(p_rule_stmt_rec.rule_statement_id);
700: FETCH ahl_mc_rule_stmt_csr INTO l_old_rstmt_rec;
701: IF (ahl_mc_rule_stmt_csr%NOTFOUND) THEN
702: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_ID_INV');
703: FND_MESSAGE.Set_Token('RULE_STMT_ID',p_rule_stmt_rec.rule_statement_id);
704: FND_MSG_PUB.ADD;
705: CLOSE ahl_mc_rule_stmt_csr;
706: Raise FND_API.G_EXC_ERROR;
707: END IF;
708: CLOSE ahl_mc_rule_stmt_csr;
709:
710: --Check Status of MC allows for editing
711: /*IF NOT(check_mc_status(p_rule_stmt_rec.rule_id)) THEN
712: FND_MESSAGE.Set_Name('AHL','AHL_INVALID_MC_STATUS');
713: FND_MSG_PUB.ADD;
714: Raise FND_API.G_EXC_ERROR;
715: END IF; */
716:
717: l_rule_stmt_rec := p_rule_stmt_rec;
718:
719: -- Check Object version number.
720: IF (l_old_rstmt_rec.object_version_number <> l_rule_stmt_rec.object_version_number) THEN
721: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
722: FND_MSG_PUB.ADD;
723: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
724: END IF;
725:
726: --Do NULL/G_MISS conversion
889: IF FND_API.TO_BOOLEAN(p_commit) THEN
890: COMMIT WORK;
891: END IF;
892: -- Standard call to get message count and if count is 1, get message info
893: FND_MSG_PUB.Count_And_Get
894: ( p_count => x_msg_count,
895: p_data => x_msg_data,
896: p_encoded => fnd_api.g_false);
897:
898: EXCEPTION
899: WHEN FND_API.G_EXC_ERROR THEN
900: Rollback to Update_Rule_Stmt_pvt;
901: x_return_status := FND_API.G_RET_STS_ERROR;
902: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
903: p_data => x_msg_data,
904: p_encoded => fnd_api.g_false);
905: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
906: Rollback to Update_Rule_Stmt_pvt;
904: p_encoded => fnd_api.g_false);
905: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
906: Rollback to Update_Rule_Stmt_pvt;
907: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
908: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
909: p_data => x_msg_data,
910: p_encoded => fnd_api.g_false);
911: WHEN OTHERS THEN
912: Rollback to Update_Rule_Stmt_pvt;
910: p_encoded => fnd_api.g_false);
911: WHEN OTHERS THEN
912: Rollback to Update_Rule_Stmt_pvt;
913: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
914: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
915: p_procedure_name => l_api_name,
916: p_error_text => SQLERRM);
917: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
918: p_data => x_msg_data,
913: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
914: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
915: p_procedure_name => l_api_name,
916: p_error_text => SQLERRM);
917: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
918: p_data => x_msg_data,
919: p_encoded => fnd_api.g_false);
920: END Update_Rule_Stmt;
921:
971: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
972: END IF;
973: -- Initialize message list if p_init_msg_list is set to TRUE
974: IF FND_API.To_Boolean(p_init_msg_list) THEN
975: FND_MSG_PUB.Initialize;
976: END IF;
977:
978: OPEN get_rule_stmt_csr(p_rule_stmt_id);
979: FETCH get_rule_stmt_csr INTO l_stmt_rec;
1179: IF FND_API.TO_BOOLEAN(p_commit) THEN
1180: COMMIT WORK;
1181: END IF;
1182: -- Standard call to get message count and if count is 1, get message info
1183: FND_MSG_PUB.Count_And_Get
1184: ( p_count => x_msg_count,
1185: p_data => x_msg_data,
1186: p_encoded => fnd_api.g_false
1187: );
1188: EXCEPTION
1189: WHEN FND_API.G_EXC_ERROR THEN
1190: Rollback to Copy_Rule_Stmt_pvt;
1191: x_return_status := FND_API.G_RET_STS_ERROR;
1192: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1193: p_data => x_msg_data,
1194: p_encoded => fnd_api.g_false);
1195: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1196: Rollback to Copy_Rule_Stmt_pvt;
1194: p_encoded => fnd_api.g_false);
1195: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1196: Rollback to Copy_Rule_Stmt_pvt;
1197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1198: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1199: p_data => x_msg_data,
1200: p_encoded => fnd_api.g_false);
1201: WHEN OTHERS THEN
1202: Rollback to Copy_Rule_Stmt_pvt;
1200: p_encoded => fnd_api.g_false);
1201: WHEN OTHERS THEN
1202: Rollback to Copy_Rule_Stmt_pvt;
1203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1204: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1205: p_procedure_name => l_api_name,
1206: p_error_text => SQLERRM);
1207: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1208: p_data => x_msg_data,
1203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1204: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1205: p_procedure_name => l_api_name,
1206: p_error_text => SQLERRM);
1207: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1208: p_data => x_msg_data,
1209: p_encoded => fnd_api.g_false);
1210: END Copy_Rule_Stmt;
1211:
1253: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1254: END IF;
1255: -- Initialize message list if p_init_msg_list is set to TRUE
1256: IF FND_API.To_Boolean(p_init_msg_list) THEN
1257: FND_MSG_PUB.Initialize;
1258: END IF;
1259:
1260: --Check Status of MC allows for editing
1261: /*IF NOT(check_mc_status(p_rule_id)) THEN
1259:
1260: --Check Status of MC allows for editing
1261: /*IF NOT(check_mc_status(p_rule_id)) THEN
1262: FND_MESSAGE.Set_Name('AHL','AHL_INVALID_MC_STATUS');
1263: FND_MSG_PUB.ADD;
1264: Raise FND_API.G_EXC_ERROR;
1265: END IF; */
1266:
1267: --Delete the rule statments corresponding to rule
1282: IF FND_API.TO_BOOLEAN(p_commit) THEN
1283: COMMIT WORK;
1284: END IF;
1285: -- Standard call to get message count and if count is 1, get message info
1286: FND_MSG_PUB.Count_And_Get
1287: ( p_count => x_msg_count,
1288: p_data => x_msg_data,
1289: p_encoded => fnd_api.g_false
1290: );
1291: EXCEPTION
1292: WHEN FND_API.G_EXC_ERROR THEN
1293: Rollback to Delete_Rule_Stmts_pvt;
1294: x_return_status := FND_API.G_RET_STS_ERROR;
1295: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1296: p_data => x_msg_data,
1297: p_encoded => fnd_api.g_false);
1298: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1299: Rollback to Delete_Rule_Stmts_pvt;
1297: p_encoded => fnd_api.g_false);
1298: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1299: Rollback to Delete_Rule_Stmts_pvt;
1300: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1301: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1302: p_data => x_msg_data,
1303: p_encoded => fnd_api.g_false);
1304: WHEN OTHERS THEN
1305: Rollback to Delete_Rule_Stmts_pvt;
1303: p_encoded => fnd_api.g_false);
1304: WHEN OTHERS THEN
1305: Rollback to Delete_Rule_Stmts_pvt;
1306: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1307: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1308: p_procedure_name => l_api_name,
1309: p_error_text => SQLERRM);
1310: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1311: p_data => x_msg_data,
1306: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1307: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1308: p_procedure_name => l_api_name,
1309: p_error_text => SQLERRM);
1310: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1311: p_data => x_msg_data,
1312: p_encoded => fnd_api.g_false);
1313: End Delete_Rule_Stmts;
1314:
1408: FND_MESSAGE.Set_Token('OPERATOR',l_oper_meaning);
1409: FND_MESSAGE.Set_Token('OBJ_TYPE',l_obj_typ_meaning);
1410: FND_MESSAGE.Set_Token('MC_NAME',l_rels_rec.name);
1411: FND_MESSAGE.Set_Token('MC_REV',l_rels_rec.revision);
1412: FND_MSG_PUB.ADD;
1413: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1414: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_child_rel_id: ' || l_child_rel_id || 'has children');
1415: END IF;
1416: END IF;--IF(is_rel_nonleaf_node%FOUND) THEN
1425: FND_MESSAGE.Set_Token('OPERATOR',l_oper_meaning);
1426: FND_MESSAGE.Set_Token('OBJ_TYPE',l_obj_typ_meaning);
1427: FND_MESSAGE.Set_Token('MC_NAME',l_rels_rec.name);
1428: FND_MESSAGE.Set_Token('MC_REV',l_rels_rec.revision);
1429: FND_MSG_PUB.ADD;
1430: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1431: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_child_rel_id: ' || l_child_rel_id || 'is a sub-configuration');
1432: END IF;
1433: END IF;--IF(is_rel_subconfig_csr%FOUND) THEN
1442: FND_MESSAGE.Set_Token('OPERATOR',l_oper_meaning);
1443: FND_MESSAGE.Set_Token('OBJ_TYPE',l_obj_typ_meaning);
1444: FND_MESSAGE.Set_Token('MC_NAME',l_rels_rec.name);
1445: FND_MESSAGE.Set_Token('MC_REV',l_rels_rec.revision);
1446: FND_MSG_PUB.ADD;
1447: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1448: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
1449: 'l_rels_rec.relationship_id: ' || l_rels_rec.relationship_id || 'does not have children');
1450: END IF;
1456: IF(p_rule_stmt_rec.object_id is not null) THEN
1457: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_QRUL_OBJ_NNLL');
1458: FND_MESSAGE.Set_Token('OPERATOR',l_oper_meaning);
1459: FND_MESSAGE.Set_Token('OBJ_TYPE',l_obj_typ_meaning);
1460: FND_MSG_PUB.ADD;
1461: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1462: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
1463: 'p_rule_stmt_rec.object_id: ' || p_rule_stmt_rec.object_id || 'is not null');
1464: END IF;
1468: IF(p_rule_stmt_rec.object_attribute1 is NULL) THEN
1469: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_QRUL_QUANT_NLL');
1470: FND_MESSAGE.Set_Token('OPERATOR',l_oper_meaning);
1471: FND_MESSAGE.Set_Token('OBJ_TYPE',l_obj_typ_meaning);
1472: FND_MSG_PUB.ADD;
1473: ELSE
1474: BEGIN
1475: IF(MOD(TO_NUMBER(p_rule_stmt_rec.object_attribute1),1) <> 0 OR TO_NUMBER(p_rule_stmt_rec.object_attribute1) <= 0) THEN
1476: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_QRUL_QUANT_NPOSI');
1475: IF(MOD(TO_NUMBER(p_rule_stmt_rec.object_attribute1),1) <> 0 OR TO_NUMBER(p_rule_stmt_rec.object_attribute1) <= 0) THEN
1476: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_QRUL_QUANT_NPOSI');
1477: FND_MESSAGE.Set_Token('OPERATOR',l_oper_meaning);
1478: FND_MESSAGE.Set_Token('OBJ_TYPE',l_obj_typ_meaning);
1479: FND_MSG_PUB.ADD;
1480: END IF;
1481: EXCEPTION
1482: WHEN OTHERS THEN
1483: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_QRUL_QUANT_NPOSI');
1482: WHEN OTHERS THEN
1483: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_QRUL_QUANT_NPOSI');
1484: FND_MESSAGE.Set_Token('OPERATOR',l_oper_meaning);
1485: FND_MESSAGE.Set_Token('OBJ_TYPE',l_obj_typ_meaning);
1486: FND_MSG_PUB.ADD;
1487: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1488: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
1489: 'p_rule_stmt_rec.object_attribute1: ' ||p_rule_stmt_rec.object_attribute1 || 'is not a number');
1490: END IF;
1559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1560: END IF;
1561: -- Initialize message list if p_init_msg_list is set to TRUE
1562: IF FND_API.To_Boolean(p_init_msg_list) THEN
1563: FND_MSG_PUB.Initialize;
1564: END IF;
1565:
1566: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)THEN
1567: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,L_DEBUG_KEY||'.begin','At the start of PLSQL procedure');
1572: END IF;
1573:
1574: IF(p_mc_header_id is NULL) THEN
1575: FND_MESSAGE.Set_Name('AHL','AHL_COM_REQD_PARAM_MISSING');
1576: FND_MSG_PUB.ADD;
1577: RAISE FND_API.G_EXC_ERROR;
1578: END IF;
1579:
1580: --Validate the position quantity rules.
1616: END LOOP;
1617: CLOSE get_quantity_rule_stmt_csr;
1618:
1619: -- Check Error Message stack.
1620: x_msg_count := FND_MSG_PUB.count_msg;
1621:
1622: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1623: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'x_msg_count: ' ||x_msg_count);
1624: END IF;
1627: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,L_DEBUG_KEY||'.end','At the end of PLSQL procedure');
1628: END IF;
1629:
1630: -- Standard call to get message count and if count is 1, get message info
1631: FND_MSG_PUB.Count_And_Get
1632: ( p_count => x_msg_count,
1633: p_data => x_msg_data,
1634: p_encoded => fnd_api.g_false
1635: );
1636:
1637: EXCEPTION
1638: WHEN FND_API.G_EXC_ERROR THEN
1639: x_return_status := FND_API.G_RET_STS_ERROR;
1640: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1641: p_data => x_msg_data,
1642: p_encoded => fnd_api.g_false);
1643: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1641: p_data => x_msg_data,
1642: p_encoded => fnd_api.g_false);
1643: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1645: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1646: p_data => x_msg_data,
1647: p_encoded => fnd_api.g_false);
1648: WHEN OTHERS THEN
1649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1646: p_data => x_msg_data,
1647: p_encoded => fnd_api.g_false);
1648: WHEN OTHERS THEN
1649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1650: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1651: p_procedure_name => l_api_name,
1652: p_error_text => SQLERRM);
1653: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1654: p_data => x_msg_data,
1649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1650: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1651: p_procedure_name => l_api_name,
1652: p_error_text => SQLERRM);
1653: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1654: p_data => x_msg_data,
1655: p_encoded => fnd_api.g_false);
1656:
1657: END validate_quantity_rules_for_mc;