[Home] [Help]
34: /* */
35: /*--------------------------------------------------------------------*/
36: PROCEDURE PROCESS_RULE_MATCHING(
37: p_api_version_number IN NUMBER,
38: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
39: p_commit IN VARCHAR2 := FND_API.G_FALSE,
40: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
41: px_rule_matching_rec IN OUT NOCOPY CSD_RULE_MATCHING_REC_TYPE,
42: x_return_status OUT NOCOPY VARCHAR2,
35: /*--------------------------------------------------------------------*/
36: PROCEDURE PROCESS_RULE_MATCHING(
37: p_api_version_number IN NUMBER,
38: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
39: p_commit IN VARCHAR2 := FND_API.G_FALSE,
40: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
41: px_rule_matching_rec IN OUT NOCOPY CSD_RULE_MATCHING_REC_TYPE,
42: x_return_status OUT NOCOPY VARCHAR2,
43: x_msg_count OUT NOCOPY NUMBER,
36: PROCEDURE PROCESS_RULE_MATCHING(
37: p_api_version_number IN NUMBER,
38: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
39: p_commit IN VARCHAR2 := FND_API.G_FALSE,
40: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
41: px_rule_matching_rec IN OUT NOCOPY CSD_RULE_MATCHING_REC_TYPE,
42: x_return_status OUT NOCOPY VARCHAR2,
43: x_msg_count OUT NOCOPY NUMBER,
44: x_msg_data OUT NOCOPY VARCHAR2
52: ---- local variables ----
53: l_rule_type VARCHAR2(30) := NULL;
54: l_attr_type VARCHAR2(30) := NULL;
55: l_attr_code VARCHAR2(30) := NULL;
56: l_match_condition_ret_val VARCHAR2(1) := FND_API.G_FALSE;
57: l_is_match VARCHAR2(1) := FND_API.G_FALSE;
58: l_tbl_last_ind NUMBER := 1;
59: l_repair_line_id NUMBER := NULL;
60:
53: l_rule_type VARCHAR2(30) := NULL;
54: l_attr_type VARCHAR2(30) := NULL;
55: l_attr_code VARCHAR2(30) := NULL;
56: l_match_condition_ret_val VARCHAR2(1) := FND_API.G_FALSE;
57: l_is_match VARCHAR2(1) := FND_API.G_FALSE;
58: l_tbl_last_ind NUMBER := 1;
59: l_repair_line_id NUMBER := NULL;
60:
61: ---- cursors ----
90: --* Standard Start of API savepoint
91: SAVEPOINT PROCESS_RULE_MATCHING_PVT;
92:
93: --* Standard call to check for call compatibility.
94: IF NOT FND_API.Compatible_API_Call ( c_API_VERSION_NUMBER,
95: p_api_version_number,
96: c_API_NAME,
97: G_PKG_NAME)
98: THEN
95: p_api_version_number,
96: c_API_NAME,
97: G_PKG_NAME)
98: THEN
99: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
100: END IF;
101:
102: -- Initialize message list if p_init_msg_list is set to TRUE.
103: IF FND_API.to_Boolean( p_init_msg_list )
99: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
100: END IF;
101:
102: -- Initialize message list if p_init_msg_list is set to TRUE.
103: IF FND_API.to_Boolean( p_init_msg_list )
104: THEN
105: FND_MSG_PUB.initialize;
106: END IF;
107:
105: FND_MSG_PUB.initialize;
106: END IF;
107:
108: -- Initialize API return status to SUCCESS
109: x_return_status := FND_API.G_RET_STS_SUCCESS;
110:
111: --* logic starts here *--
112:
113: --* populate p_rule_input_rec
154: --** debug starts!!
155: --dbms_output.put_line('PROCESS_RULE_MATCHING - LP - get_rules - rule id = ' || l_rule_rec.rule_id || '<-----');
156: --** debug ends!!
157: --* default to false, assume not match unless otherwise returned by match_condition
158: l_is_match := FND_API.G_FALSE;
159: FOR l_rule_cond_rec IN cur_get_rule_conditions(l_rule_rec.rule_id) LOOP
160: --** debug starts!!
161: --dbms_output.put_line('> PROCESS_RULE_MATCHING - LP - get_rule_cond - attr_cat = ' || l_rule_cond_rec.attribute_category);
162: --dbms_output.put_line('> PROCESS_RULE_MATCHING - LP - get_rule_cond - attr1 = ' || l_rule_cond_rec.attribute1);
169: p_rule_input_rec => px_rule_matching_rec.RULE_INPUT_REC
170: );
171:
172:
173: IF (l_is_match = FND_API.G_FALSE )THEN
174: --** debug starts!!
175: --dbms_output.put_line('PROCESS_RULE_MATCHING -> l_match_condition_ret_val = FALSE - l_is_match = ' || l_is_match);
176: --** debug ends!!
177:
175: --dbms_output.put_line('PROCESS_RULE_MATCHING -> l_match_condition_ret_val = FALSE - l_is_match = ' || l_is_match);
176: --** debug ends!!
177:
178: EXIT; --* a condition didn't match, so no need to go on
179: END IF; --* end IF (l_match_condition_ret_val = FND_API.G_FALSE ) *--
180:
181: END LOOP; --* end FOR l_rule_cond_rec... *--
182:
183: IF (l_is_match = FND_API.G_TRUE) THEN
179: END IF; --* end IF (l_match_condition_ret_val = FND_API.G_FALSE ) *--
180:
181: END LOOP; --* end FOR l_rule_cond_rec... *--
182:
183: IF (l_is_match = FND_API.G_TRUE) THEN
184: -- we only need to find the first match, so we can exit out of the loop.
185: l_tbl_last_ind := px_rule_matching_rec.RULE_RESULTS_TBL.COUNT;
186: l_tbl_last_ind := l_tbl_last_ind+1;
187: --** debug starts!!
195:
196: IF (px_rule_matching_rec.RULE_MATCH_CODE = G_RULE_MATCH_ONE) THEN
197: EXIT;
198: END IF; --* end I(px_rule_matching_rec.RULE_MATCH_CODE = G_RULE_MATCH_ONE) *--
199: END IF; --* end IF (l_is_match = FND_API.G_TRUE) *--
200: --** debug starts!!
201: --dbms_output.put_line('PROCESS_RULE_MATCHING -> before exiting rules loop');
202: --** debug ends!!
203:
205:
206: --* logic ends here *--
207:
208: --* Standard check for p_commit
209: IF FND_API.to_Boolean( p_commit ) THEN
210: COMMIT WORK;
211: END IF;
212:
213: --** debug starts!!
224: --dbms_output.put_line('PROCESS_RULE_MATCHING -> after standard call to message count');
225: --** debug ends!!
226:
227: EXCEPTION
228: WHEN FND_API.G_EXC_ERROR THEN
229: x_return_status := FND_API.G_RET_STS_ERROR;
230: --** debug starts!!
231: --dbms_output.put_line('PROCESS_RULE_MATCHING -> exception 1');
232: --** debug ends!!
225: --** debug ends!!
226:
227: EXCEPTION
228: WHEN FND_API.G_EXC_ERROR THEN
229: x_return_status := FND_API.G_RET_STS_ERROR;
230: --** debug starts!!
231: --dbms_output.put_line('PROCESS_RULE_MATCHING -> exception 1');
232: --** debug ends!!
233:
239: ,X_MSG_COUNT => X_MSG_COUNT
240: ,X_MSG_DATA => X_MSG_DATA
241: ,X_RETURN_STATUS => X_RETURN_STATUS);
242:
243: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
244: x_return_status := FND_API.G_RET_STS_ERROR;
245: --** debug starts!!
246: --dbms_output.put_line('PROCESS_RULE_MATCHING -> exception 2');
247: --** debug ends!!
240: ,X_MSG_DATA => X_MSG_DATA
241: ,X_RETURN_STATUS => X_RETURN_STATUS);
242:
243: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
244: x_return_status := FND_API.G_RET_STS_ERROR;
245: --** debug starts!!
246: --dbms_output.put_line('PROCESS_RULE_MATCHING -> exception 2');
247: --** debug ends!!
248:
255: ,X_MSG_DATA => X_MSG_DATA
256: ,X_RETURN_STATUS => X_RETURN_STATUS);
257:
258: WHEN OTHERS THEN
259: x_return_status := FND_API.G_RET_STS_ERROR;
260: --** debug starts!!
261: --dbms_output.put_line('PROCESS_RULE_MATCHING -> exception 3');
262: --** debug ends!!
263:
302: /* */
303: /*--------------------------------------------------------------------*/
304: PROCEDURE GET_DEFAULT_VALUE_FROM_RULE (
305: p_api_version_number IN NUMBER,
306: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
307: p_commit IN VARCHAR2 := FND_API.G_FALSE,
308: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
309: p_entity_attribute_type IN VARCHAR2,
310: p_entity_attribute_code IN VARCHAR2,
303: /*--------------------------------------------------------------------*/
304: PROCEDURE GET_DEFAULT_VALUE_FROM_RULE (
305: p_api_version_number IN NUMBER,
306: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
307: p_commit IN VARCHAR2 := FND_API.G_FALSE,
308: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
309: p_entity_attribute_type IN VARCHAR2,
310: p_entity_attribute_code IN VARCHAR2,
311: p_rule_input_rec IN CSD_RULE_INPUT_REC_TYPE,
304: PROCEDURE GET_DEFAULT_VALUE_FROM_RULE (
305: p_api_version_number IN NUMBER,
306: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
307: p_commit IN VARCHAR2 := FND_API.G_FALSE,
308: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
309: p_entity_attribute_type IN VARCHAR2,
310: p_entity_attribute_code IN VARCHAR2,
311: p_rule_input_rec IN CSD_RULE_INPUT_REC_TYPE,
312: x_default_value OUT NOCOPY VARCHAR2,
331: --* Standard Start of API savepoint
332: SAVEPOINT GET_DFLT_VAL_FROM_RULE_PVT;
333:
334: --* Standard call to check for call compatibility.
335: IF NOT FND_API.Compatible_API_Call ( c_API_VERSION_NUMBER,
336: p_api_version_number,
337: c_API_NAME,
338: G_PKG_NAME)
339: THEN
336: p_api_version_number,
337: c_API_NAME,
338: G_PKG_NAME)
339: THEN
340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
341: END IF;
342:
343: --* Initialize message list if p_init_msg_list is set to TRUE.
344: IF FND_API.to_Boolean( p_init_msg_list )
340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
341: END IF;
342:
343: --* Initialize message list if p_init_msg_list is set to TRUE.
344: IF FND_API.to_Boolean( p_init_msg_list )
345: THEN
346: FND_MSG_PUB.initialize;
347: END IF;
348:
346: FND_MSG_PUB.initialize;
347: END IF;
348:
349: --* Initialize API return status to SUCCESS
350: x_return_status := FND_API.G_RET_STS_SUCCESS;
351:
352: --* logic starts here *--
353:
354: /* BEGIN: Algorithm:
396: --** debug starts!!
397: --dbms_output.put_line('GET_DEFAULT_VALUE_FROM_RULE -> x_return_status = ' || x_return_status);
398: --** debug ends!!
399:
400: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
401: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
402: FND_MESSAGE.Set_Name('CSD', 'CSD_RULE_MATCH_FAILED');
403: FND_MSG_PUB.Add;
404: END IF;
401: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
402: FND_MESSAGE.Set_Name('CSD', 'CSD_RULE_MATCH_FAILED');
403: FND_MSG_PUB.Add;
404: END IF;
405: RAISE FND_API.G_EXC_ERROR;
406: END IF; --* end IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) *--
407:
408: l_tbl_count := l_rule_matching_rec.RULE_RESULTS_TBL.COUNT;
409:
402: FND_MESSAGE.Set_Name('CSD', 'CSD_RULE_MATCH_FAILED');
403: FND_MSG_PUB.Add;
404: END IF;
405: RAISE FND_API.G_EXC_ERROR;
406: END IF; --* end IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) *--
407:
408: l_tbl_count := l_rule_matching_rec.RULE_RESULTS_TBL.COUNT;
409:
410: --** debug starts!!
445: p_data => x_msg_data
446: );
447:
448: EXCEPTION
449: WHEN FND_API.G_EXC_ERROR THEN
450: x_return_status := FND_API.G_RET_STS_ERROR;
451: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
452: P_API_NAME => c_API_NAME
453: ,P_PKG_NAME => G_PKG_NAME
446: );
447:
448: EXCEPTION
449: WHEN FND_API.G_EXC_ERROR THEN
450: x_return_status := FND_API.G_RET_STS_ERROR;
451: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
452: P_API_NAME => c_API_NAME
453: ,P_PKG_NAME => G_PKG_NAME
454: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
456: ,X_MSG_COUNT => X_MSG_COUNT
457: ,X_MSG_DATA => X_MSG_DATA
458: ,X_RETURN_STATUS => X_RETURN_STATUS);
459:
460: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
461: x_return_status := FND_API.G_RET_STS_ERROR;
462: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
463: P_API_NAME => c_API_NAME
464: ,P_PKG_NAME => G_PKG_NAME
457: ,X_MSG_DATA => X_MSG_DATA
458: ,X_RETURN_STATUS => X_RETURN_STATUS);
459:
460: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
461: x_return_status := FND_API.G_RET_STS_ERROR;
462: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
463: P_API_NAME => c_API_NAME
464: ,P_PKG_NAME => G_PKG_NAME
465: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
468: ,X_MSG_DATA => X_MSG_DATA
469: ,X_RETURN_STATUS => X_RETURN_STATUS);
470:
471: WHEN OTHERS THEN
472: x_return_status := FND_API.G_RET_STS_ERROR;
473: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
474: P_API_NAME => c_API_NAME
475: ,P_PKG_NAME => G_PKG_NAME
476: ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
511: /* */
512: /*--------------------------------------------------------------------*/
513: PROCEDURE GET_DEFAULT_VALUE_FROM_RULE (
514: p_api_version_number IN NUMBER,
515: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
516: p_commit IN VARCHAR2 := FND_API.G_FALSE,
517: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
518: p_entity_attribute_type IN VARCHAR2,
519: p_entity_attribute_code IN VARCHAR2,
512: /*--------------------------------------------------------------------*/
513: PROCEDURE GET_DEFAULT_VALUE_FROM_RULE (
514: p_api_version_number IN NUMBER,
515: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
516: p_commit IN VARCHAR2 := FND_API.G_FALSE,
517: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
518: p_entity_attribute_type IN VARCHAR2,
519: p_entity_attribute_code IN VARCHAR2,
520: p_rule_input_rec IN CSD_RULE_INPUT_REC_TYPE,
513: PROCEDURE GET_DEFAULT_VALUE_FROM_RULE (
514: p_api_version_number IN NUMBER,
515: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
516: p_commit IN VARCHAR2 := FND_API.G_FALSE,
517: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
518: p_entity_attribute_type IN VARCHAR2,
519: p_entity_attribute_code IN VARCHAR2,
520: p_rule_input_rec IN CSD_RULE_INPUT_REC_TYPE,
521: x_default_value OUT NOCOPY NUMBER,
554: x_default_value := to_number(l_default_val_str);
555:
556: --* logic ends here *--
557: EXCEPTION
558: WHEN FND_API.G_EXC_ERROR THEN
559: x_return_status := FND_API.G_RET_STS_ERROR;
560: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
561: P_API_NAME => c_API_NAME
562: ,P_PKG_NAME => G_PKG_NAME
555:
556: --* logic ends here *--
557: EXCEPTION
558: WHEN FND_API.G_EXC_ERROR THEN
559: x_return_status := FND_API.G_RET_STS_ERROR;
560: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
561: P_API_NAME => c_API_NAME
562: ,P_PKG_NAME => G_PKG_NAME
563: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
565: ,X_MSG_COUNT => X_MSG_COUNT
566: ,X_MSG_DATA => X_MSG_DATA
567: ,X_RETURN_STATUS => X_RETURN_STATUS);
568:
569: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
570: x_return_status := FND_API.G_RET_STS_ERROR;
571: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
572: P_API_NAME => c_API_NAME
573: ,P_PKG_NAME => G_PKG_NAME
566: ,X_MSG_DATA => X_MSG_DATA
567: ,X_RETURN_STATUS => X_RETURN_STATUS);
568:
569: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
570: x_return_status := FND_API.G_RET_STS_ERROR;
571: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
572: P_API_NAME => c_API_NAME
573: ,P_PKG_NAME => G_PKG_NAME
574: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
577: ,X_MSG_DATA => X_MSG_DATA
578: ,X_RETURN_STATUS => X_RETURN_STATUS);
579:
580: WHEN OTHERS THEN
581: x_return_status := FND_API.G_RET_STS_ERROR;
582: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
583: P_API_NAME => c_API_NAME
584: ,P_PKG_NAME => G_PKG_NAME
585: ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
620: /* */
621: /*--------------------------------------------------------------------*/
622: PROCEDURE GET_DEFAULT_VALUE_FROM_RULE (
623: p_api_version_number IN NUMBER,
624: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
625: p_commit IN VARCHAR2 := FND_API.G_FALSE,
626: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
627: p_entity_attribute_type IN VARCHAR2,
628: p_entity_attribute_code IN VARCHAR2,
621: /*--------------------------------------------------------------------*/
622: PROCEDURE GET_DEFAULT_VALUE_FROM_RULE (
623: p_api_version_number IN NUMBER,
624: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
625: p_commit IN VARCHAR2 := FND_API.G_FALSE,
626: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
627: p_entity_attribute_type IN VARCHAR2,
628: p_entity_attribute_code IN VARCHAR2,
629: p_rule_input_rec IN CSD_RULE_INPUT_REC_TYPE,
622: PROCEDURE GET_DEFAULT_VALUE_FROM_RULE (
623: p_api_version_number IN NUMBER,
624: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
625: p_commit IN VARCHAR2 := FND_API.G_FALSE,
626: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
627: p_entity_attribute_type IN VARCHAR2,
628: p_entity_attribute_code IN VARCHAR2,
629: p_rule_input_rec IN CSD_RULE_INPUT_REC_TYPE,
630: x_default_value OUT NOCOPY DATE,
664:
665:
666: --* logic ends here *--
667: EXCEPTION
668: WHEN FND_API.G_EXC_ERROR THEN
669: x_return_status := FND_API.G_RET_STS_ERROR;
670: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
671: P_API_NAME => c_API_NAME
672: ,P_PKG_NAME => G_PKG_NAME
665:
666: --* logic ends here *--
667: EXCEPTION
668: WHEN FND_API.G_EXC_ERROR THEN
669: x_return_status := FND_API.G_RET_STS_ERROR;
670: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
671: P_API_NAME => c_API_NAME
672: ,P_PKG_NAME => G_PKG_NAME
673: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
675: ,X_MSG_COUNT => X_MSG_COUNT
676: ,X_MSG_DATA => X_MSG_DATA
677: ,X_RETURN_STATUS => X_RETURN_STATUS);
678:
679: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
680: x_return_status := FND_API.G_RET_STS_ERROR;
681: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
682: P_API_NAME => c_API_NAME
683: ,P_PKG_NAME => G_PKG_NAME
676: ,X_MSG_DATA => X_MSG_DATA
677: ,X_RETURN_STATUS => X_RETURN_STATUS);
678:
679: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
680: x_return_status := FND_API.G_RET_STS_ERROR;
681: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
682: P_API_NAME => c_API_NAME
683: ,P_PKG_NAME => G_PKG_NAME
684: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
687: ,X_MSG_DATA => X_MSG_DATA
688: ,X_RETURN_STATUS => X_RETURN_STATUS);
689:
690: WHEN OTHERS THEN
691: x_return_status := FND_API.G_RET_STS_ERROR;
692: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
693: P_API_NAME => c_API_NAME
694: ,P_PKG_NAME => G_PKG_NAME
695: ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
727: p_criterion IN VARCHAR2,
728: p_rule_input_rec IN CSD_RULE_INPUT_REC_TYPE
729: ) RETURN VARCHAR2 IS
730: ---- local variables ----
731: l_return_val VARCHAR2(1) := Fnd_Api.G_FALSE;
732: l_rule_input_rec CSD_RULE_INPUT_REC_TYPE;
733: l_number_input NUMBER := -1;
734: l_short_string_input VARCHAR2(30) := NULL;
735: l_repair_line_id NUMBER := NULL;
941: p_input_param IN NUMBER,
942: p_operator IN VARCHAR2,
943: p_criterion IN NUMBER
944: ) RETURN VARCHAR2 IS
945: l_return_val VARCHAR2(1):= FND_API.G_FALSE;
946: BEGIN
947:
948: --** debug starts!!
949: --dbms_output.put_line('NNN CHECK_CONDITION_MATCH_N top p_input_param = ' || p_input_param);
952: --** debug ends!!
953:
954:
955: IF (p_operator = G_EQUALS AND p_input_param = p_criterion) THEN
956: l_return_val := FND_API.G_TRUE;
957: ELSIF (p_operator = G_NOT_EQUALS AND p_input_param <> p_criterion) THEN
958: l_return_val := FND_API.G_TRUE;
959: ELSIF (p_operator = G_LESS_THAN AND p_input_param < p_criterion) THEN
960: l_return_val := FND_API.G_TRUE;
954:
955: IF (p_operator = G_EQUALS AND p_input_param = p_criterion) THEN
956: l_return_val := FND_API.G_TRUE;
957: ELSIF (p_operator = G_NOT_EQUALS AND p_input_param <> p_criterion) THEN
958: l_return_val := FND_API.G_TRUE;
959: ELSIF (p_operator = G_LESS_THAN AND p_input_param < p_criterion) THEN
960: l_return_val := FND_API.G_TRUE;
961: ELSIF (p_operator = G_GREATER_THAN AND p_input_param > p_criterion) THEN
962: l_return_val := FND_API.G_TRUE;
956: l_return_val := FND_API.G_TRUE;
957: ELSIF (p_operator = G_NOT_EQUALS AND p_input_param <> p_criterion) THEN
958: l_return_val := FND_API.G_TRUE;
959: ELSIF (p_operator = G_LESS_THAN AND p_input_param < p_criterion) THEN
960: l_return_val := FND_API.G_TRUE;
961: ELSIF (p_operator = G_GREATER_THAN AND p_input_param > p_criterion) THEN
962: l_return_val := FND_API.G_TRUE;
963: END IF;
964:
958: l_return_val := FND_API.G_TRUE;
959: ELSIF (p_operator = G_LESS_THAN AND p_input_param < p_criterion) THEN
960: l_return_val := FND_API.G_TRUE;
961: ELSIF (p_operator = G_GREATER_THAN AND p_input_param > p_criterion) THEN
962: l_return_val := FND_API.G_TRUE;
963: END IF;
964:
965: --** debug starts!!
966: --dbms_output.put_line('NNN CHECK_CONDITION_MATCH_N l_return_val = ' || l_return_val);
995: p_input_param IN VARCHAR2,
996: p_operator IN VARCHAR2,
997: p_criterion IN VARCHAR2
998: ) RETURN VARCHAR2 IS
999: l_return_val VARCHAR2(1) := FND_API.G_FALSE;
1000: BEGIN
1001: --** debug starts!!
1002: --dbms_output.put_line('VVV CHECK_CONDITION_MATCH_V top p_input_param = ' || p_input_param);
1003: --dbms_output.put_line('VVV CHECK_CONDITION_MATCH_V top p_operator = ' || p_operator);
1004: --dbms_output.put_line('VVV CHECK_CONDITION_MATCH_V top p_criterion = ' || p_criterion);
1005: --** debug ends!!
1006:
1007: IF (p_operator = G_EQUALS AND p_input_param = p_criterion) THEN
1008: l_return_val := FND_API.G_TRUE;
1009: ELSIF (p_operator = G_NOT_EQUALS AND p_input_param <> p_criterion) THEN
1010: l_return_val := FND_API.G_TRUE;
1011: END IF;
1012:
1006:
1007: IF (p_operator = G_EQUALS AND p_input_param = p_criterion) THEN
1008: l_return_val := FND_API.G_TRUE;
1009: ELSIF (p_operator = G_NOT_EQUALS AND p_input_param <> p_criterion) THEN
1010: l_return_val := FND_API.G_TRUE;
1011: END IF;
1012:
1013: --** debug starts!!
1014: --dbms_output.put_line('VVV CHECK_CONDITION_MATCH_V l_return_val = ' || l_return_val);
1014: --dbms_output.put_line('VVV CHECK_CONDITION_MATCH_V l_return_val = ' || l_return_val);
1015: --** debug ends!!
1016:
1017: --* if all of the above cases fail, then there is no match.
1018: RETURN l_return_val; -- FND_API.G_FALSE
1019: END CHECK_CONDITION_MATCH;
1020:
1021:
1022: /*--------------------------------------------------------------------*/
1042: p_input_param IN DATE,
1043: p_operator IN VARCHAR2,
1044: p_criterion IN DATE
1045: ) RETURN VARCHAR2 IS
1046: l_return_val VARCHAR2(1) := FND_API.G_FALSE;
1047: BEGIN
1048: --** debug starts!!
1049: --dbms_output.put_line('DDD CHECK_CONDITION_MATCH_D top p_input_param = ' || p_input_param);
1050: --dbms_output.put_line('DDD CHECK_CONDITION_MATCH_D top p_operator = ' || p_operator);
1051: --dbms_output.put_line('DDD CHECK_CONDITION_MATCH_D top p_criterion = ' || p_criterion);
1052: --** debug ends!!
1053:
1054: IF (p_operator = G_EQUALS AND p_input_param = p_criterion) THEN
1055: l_return_val := FND_API.G_TRUE;
1056: ELSIF (p_operator = G_NOT_EQUALS AND p_input_param <> p_criterion) THEN
1057: l_return_val := FND_API.G_TRUE;
1058: ELSIF (p_operator = G_LESS_THAN AND p_input_param < p_criterion) THEN
1059: l_return_val := FND_API.G_TRUE;
1053:
1054: IF (p_operator = G_EQUALS AND p_input_param = p_criterion) THEN
1055: l_return_val := FND_API.G_TRUE;
1056: ELSIF (p_operator = G_NOT_EQUALS AND p_input_param <> p_criterion) THEN
1057: l_return_val := FND_API.G_TRUE;
1058: ELSIF (p_operator = G_LESS_THAN AND p_input_param < p_criterion) THEN
1059: l_return_val := FND_API.G_TRUE;
1060: ELSIF (p_operator = G_GREATER_THAN AND p_input_param > p_criterion) THEN
1061: l_return_val := FND_API.G_TRUE;
1055: l_return_val := FND_API.G_TRUE;
1056: ELSIF (p_operator = G_NOT_EQUALS AND p_input_param <> p_criterion) THEN
1057: l_return_val := FND_API.G_TRUE;
1058: ELSIF (p_operator = G_LESS_THAN AND p_input_param < p_criterion) THEN
1059: l_return_val := FND_API.G_TRUE;
1060: ELSIF (p_operator = G_GREATER_THAN AND p_input_param > p_criterion) THEN
1061: l_return_val := FND_API.G_TRUE;
1062: END IF;
1063:
1057: l_return_val := FND_API.G_TRUE;
1058: ELSIF (p_operator = G_LESS_THAN AND p_input_param < p_criterion) THEN
1059: l_return_val := FND_API.G_TRUE;
1060: ELSIF (p_operator = G_GREATER_THAN AND p_input_param > p_criterion) THEN
1061: l_return_val := FND_API.G_TRUE;
1062: END IF;
1063:
1064: --** debug starts!!
1065: --dbms_output.put_line('DDD CHECK_CONDITION_MATCH_D l_return_val_D = ' || l_return_val);
1065: --dbms_output.put_line('DDD CHECK_CONDITION_MATCH_D l_return_val_D = ' || l_return_val);
1066: --** debug ends!!
1067:
1068: --* if all of the above cases fail, then there is no match.
1069: RETURN l_return_val; -- FND_API.G_FALSE
1070: END CHECK_CONDITION_MATCH;
1071:
1072:
1073: /*--------------------------------------------------------------------*/
1267: l_return_val := NULL;
1268: END IF; --*end IF (p_attribute_type = G_ATTR_TYPE_RO) ...*--
1269:
1270: ELSE
1271: IF (p_value_type IS NULL) OR (p_value_type = FND_API.G_MISS_CHAR) --* bulletin rules does not specify this value
1272: OR (p_value_type = G_VALUE_TYPE_ATTRIBUTE) THEN
1273: l_return_val := p_defaulting_value;
1274: ELSIF (p_value_type = G_VALUE_TYPE_PROFILE) THEN
1275: l_return_val := FND_PROFILE.VALUE(p_defaulting_value);
1394: and organization_id = cs_std.get_item_valdn_orgzn_id;
1395:
1396: -- variables --
1397: l_item_is_in_cat VARCHAR2(1);
1398: l_return_val VARCHAR2(1) := FND_API.G_FALSE;
1399:
1400: BEGIN
1401: OPEN cur_is_item_in_cat (p_ro_item_id, p_criterion);
1402: FETCH cur_is_item_in_cat into l_item_is_in_cat;
1404:
1405: CASE p_operator
1406: when G_EQUALS then
1407: if (l_item_is_in_cat is null) then
1408: l_return_val := FND_API.G_FALSE;
1409: else
1410: l_return_val := FND_API.G_TRUE;
1411: end if;
1412: when G_NOT_EQUALS then
1406: when G_EQUALS then
1407: if (l_item_is_in_cat is null) then
1408: l_return_val := FND_API.G_FALSE;
1409: else
1410: l_return_val := FND_API.G_TRUE;
1411: end if;
1412: when G_NOT_EQUALS then
1413: if (l_item_is_in_cat is null) then
1414: l_return_val := FND_API.G_TRUE;
1410: l_return_val := FND_API.G_TRUE;
1411: end if;
1412: when G_NOT_EQUALS then
1413: if (l_item_is_in_cat is null) then
1414: l_return_val := FND_API.G_TRUE;
1415: else
1416: l_return_val := FND_API.G_FALSE;
1417: end if;
1418: else
1412: when G_NOT_EQUALS then
1413: if (l_item_is_in_cat is null) then
1414: l_return_val := FND_API.G_TRUE;
1415: else
1416: l_return_val := FND_API.G_FALSE;
1417: end if;
1418: else
1419: l_return_val := FND_API.G_FALSE;
1420: END CASE;
1415: else
1416: l_return_val := FND_API.G_FALSE;
1417: end if;
1418: else
1419: l_return_val := FND_API.G_FALSE;
1420: END CASE;
1421: return l_return_val;
1422:
1423: END CHECK_RO_ITEM_CATEGORY;
1444: p_operator IN VARCHAR2,
1445: p_criterion IN VARCHAR2
1446: ) RETURN VARCHAR2 IS
1447: ---- local variables ----
1448: l_return_val VARCHAR2(1) := FND_API.G_FALSE;
1449: l_number_input NUMBER := NULL;
1450: l_date_field DATE := NULL;
1451:
1452: ---- cursors ----
1464: --** debug starts!!
1465: --dbms_output.put_line('=== CHECK_PROMISE_DATE , l_date_field = ' || l_date_field);
1466: --** debug ends!!
1467:
1468: IF (l_date_field IS NOT NULL) AND (l_date_field <> FND_API.G_MISS_DATE) THEN
1469: l_number_input := l_date_field - sysdate;
1470: l_return_val := CHECK_CONDITION_MATCH(p_input_param => l_number_input,
1471: p_operator => p_operator,
1472: p_criterion => to_number(p_criterion));
1498: p_operator IN VARCHAR2,
1499: p_criterion IN VARCHAR2
1500: ) RETURN VARCHAR2 IS
1501: ---- local variables ----
1502: l_return_val VARCHAR2(1) := FND_API.G_FALSE;
1503: l_number_input NUMBER := NULL;
1504: l_date_field DATE := NULL;
1505: ---- cursors ----
1506: CURSOR cur_get_resolve_by_date(p_repair_line_id NUMBER) IS
1518: --** debug starts!!
1519: --dbms_output.put_line('==== CHECK_RESOLVE_BY_DATE , l_date_field = ' || l_date_field);
1520: --** debug ends!!
1521:
1522: IF (l_date_field IS NOT NULL) AND (l_date_field <> FND_API.G_MISS_DATE) THEN
1523: l_number_input := l_date_field - sysdate; --get # days for sysdate resolve by date
1524: l_return_val := CHECK_CONDITION_MATCH(p_input_param => l_number_input,
1525: p_operator => p_operator,
1526: p_criterion => to_number(p_criterion));
1561: p_operator IN VARCHAR2,
1562: p_criterion IN VARCHAR2
1563: ) RETURN VARCHAR2 IS
1564: ---- local variables ----
1565: l_return_val VARCHAR2(1) := FND_API.G_FALSE;
1566: l_number_input NUMBER := NULL;
1567: l_date_field DATE := NULL;
1568: l_prod_txn_status VARCHAR(30) := NULL;
1569: ---- cursors ----
1586: --** debug starts!!
1587: --dbms_output.put_line('+++ CHECK_REPEAT_REPAIR , l_date_field = ' || l_date_field);
1588: --** debug ends!!
1589:
1590: IF (l_date_field IS NOT NULL) AND (l_date_field <> FND_API.G_MISS_DATE) THEN
1591: -- swai: bug 7524870 if the line has been received, do not return a match
1592: if (l_prod_txn_status = 'RECEIVED') then
1593: l_return_val := FND_API.G_FALSE;
1594: else
1589:
1590: IF (l_date_field IS NOT NULL) AND (l_date_field <> FND_API.G_MISS_DATE) THEN
1591: -- swai: bug 7524870 if the line has been received, do not return a match
1592: if (l_prod_txn_status = 'RECEIVED') then
1593: l_return_val := FND_API.G_FALSE;
1594: else
1595: l_number_input := l_date_field - sysdate;
1596: l_return_val := CHECK_CONDITION_MATCH(p_input_param => l_number_input,
1597: p_operator => p_operator,
1629: p_operator IN VARCHAR2,
1630: p_criterion IN VARCHAR2
1631: ) RETURN VARCHAR2 IS
1632: ---- local variables ----
1633: l_return_val VARCHAR2(1) := FND_API.G_FALSE;
1634: l_number_input NUMBER := NULL;
1635: l_date_field DATE := NULL;
1636: l_creation_date DATE := NULL;
1637: l_instance_id NUMBER := NULL;
1654: OPEN cur_get_creation_date (p_repair_line_id);
1655: FETCH cur_get_creation_date INTO l_creation_date;
1656: CLOSE cur_get_creation_date;
1657:
1658: IF (l_creation_date IS NOT NULL) AND (l_creation_date <> FND_API.G_MISS_DATE) THEN
1659: l_instance_id := GET_RO_INSTANCE_ID(p_repair_line_id);
1660:
1661: IF (l_instance_id IS NOT NULL) AND (l_instance_id <> FND_API.G_MISS_NUM) THEN
1662: -- found instance id, so get latest repair date
1657:
1658: IF (l_creation_date IS NOT NULL) AND (l_creation_date <> FND_API.G_MISS_DATE) THEN
1659: l_instance_id := GET_RO_INSTANCE_ID(p_repair_line_id);
1660:
1661: IF (l_instance_id IS NOT NULL) AND (l_instance_id <> FND_API.G_MISS_NUM) THEN
1662: -- found instance id, so get latest repair date
1663: OPEN cur_get_latest_repair_date(l_instance_id);
1664: FETCH cur_get_latest_repair_date INTO l_date_field;
1665: CLOSE cur_get_latest_repair_date;
1667: --** debug starts!!
1668: --dbms_output.put_line('+++ CHECK_REPEAT_REPAIR , l_date_field = ' || l_date_field);
1669: --** debug ends!!
1670:
1671: IF (l_date_field IS NOT NULL) AND (l_date_field <> FND_API.G_MISS_DATE) THEN
1672: l_number_input := sysdate - l_date_field;
1673: l_return_val := CHECK_CONDITION_MATCH(p_input_param => l_number_input,
1674: p_operator => p_operator,
1675: p_criterion => to_number(p_criterion));
1707: p_operator IN VARCHAR2,
1708: p_criterion IN VARCHAR2
1709: )RETURN VARCHAR2 IS
1710: ---- local variables ----
1711: l_return_val VARCHAR2(1) := FND_API.G_FALSE;
1712: l_number_input NUMBER := NULL;
1713: l_instance_id NUMBER := NULL;
1714: l_period NUMBER := NULL;
1715:
1732: --dbms_output.put_line('+++>> CHECK_CHRONIC_REPAIR , l_period = ' || l_period);
1733: --** debug ends!!
1734:
1735: l_instance_id := GET_RO_INSTANCE_ID(p_repair_line_id);
1736: IF (l_instance_id IS NOT NULL) AND (l_instance_id <> FND_API.G_MISS_NUM) THEN
1737: --* found instance id, so get the number of repairs in period
1738: OPEN cur_get_chronic_repairs(l_instance_id, l_period);
1739: FETCH cur_get_chronic_repairs into l_number_input;
1740: CLOSE cur_get_chronic_repairs;
1772: p_operator IN VARCHAR2,
1773: p_criterion IN VARCHAR2
1774: ) RETURN VARCHAR2 IS
1775: ---- local variables ----
1776: l_return_val VARCHAR2(1) := FND_API.G_FALSE;
1777: l_number_input NUMBER := NULL;
1778: l_ro_contract_id NUMBER := NULL;
1779:
1780: l_return_status VARCHAR2(1) := NULL;
1807: --** debug starts!!
1808: --dbms_output.put_line('+++-- CHECK_CONTRACT_EXP_DATE , l_ro_contract_id = ' || l_ro_contract_id);
1809: --** debug ends!!
1810:
1811: IF (l_ro_contract_id IS NOT NULL) AND (l_ro_contract_id <> FND_API.G_MISS_NUM) THEN
1812: OPEN cur_get_contract_end_date (l_ro_contract_id);
1813: FETCH cur_get_contract_end_date INTO l_contract_end_date;
1814: CLOSE cur_get_contract_end_date;
1815:
1817: --dbms_output.put_line('+++-- CHECK_CONTRACT_EXP_DATE , l_contract_end_date = ' || l_contract_end_date);
1818: --** debug ends!!
1819:
1820:
1821: IF (l_contract_end_date IS NOT NULL) AND (l_contract_end_date <> FND_API.G_MISS_DATE) THEN
1822: l_number_input := l_contract_end_date - sysdate;
1823: l_return_val := CHECK_CONDITION_MATCH(p_input_param => l_number_input,
1824: p_operator => p_operator,
1825: p_criterion => to_number(p_criterion));
1866: IF (p_repair_Line_id IS NOT NULL) THEN
1867: OPEN cur_get_instance_id(p_repair_line_id);
1868: FETCH cur_get_instance_id INTO l_instance_id;
1869:
1870: IF ( cur_get_instance_id%NOTFOUND) OR (l_instance_id IS NULL) OR (l_instance_Id = FND_API.G_MISS_NUM) THEN -- no instance, do nothing
1871: l_instance_id := NULL; -- force value to null
1872: END IF;
1873: CLOSE cur_get_instance_id;
1874: END IF; --* end IF (p_repair_Line_id IS NOT NULL) *--