4:
5: -- R12 Project MOAC 4637896
6: --
7: -- Moved several validation related functions and procedures to
8: -- qa_validation_api where they belong so that they can be
9: -- shared by other packages such as qa_ss_results. These are:
10: --
11: -- parse_id
12: -- parse_value
19: -- to insert records into qa_results without any validations.
20: -- The change is done for History plans.
21:
22: PROCEDURE set_validation_flag_valid(
23: elements IN OUT NOCOPY qa_validation_api.ElementsArray) IS
24: i INTEGER := elements.FIRST;
25: BEGIN
26: WHILE i <= elements.LAST LOOP
27: elements(i).validation_flag := qa_validation_api.valid_element ||
23: elements IN OUT NOCOPY qa_validation_api.ElementsArray) IS
24: i INTEGER := elements.FIRST;
25: BEGIN
26: WHILE i <= elements.LAST LOOP
27: elements(i).validation_flag := qa_validation_api.valid_element ||
28: qa_validation_api.action_fired;
29:
30: i := elements.NEXT(i);
31: END LOOP;
24: i INTEGER := elements.FIRST;
25: BEGIN
26: WHILE i <= elements.LAST LOOP
27: elements(i).validation_flag := qa_validation_api.valid_element ||
28: qa_validation_api.action_fired;
29:
30: i := elements.NEXT(i);
31: END LOOP;
32: END set_validation_flag_valid;
99: x_committed IN INTEGER,
100: x_messages OUT NOCOPY VARCHAR2,
101: p_txn_header_id IN NUMBER DEFAULT NULL)
102: RETURN INTEGER IS
103: elements qa_validation_api.ElementsArray;
104: error_array qa_validation_api.ErrorArray;
105: message_array qa_validation_api.MessageArray;
106: return_status VARCHAR2(1);
107: action_result VARCHAR2(1);
100: x_messages OUT NOCOPY VARCHAR2,
101: p_txn_header_id IN NUMBER DEFAULT NULL)
102: RETURN INTEGER IS
103: elements qa_validation_api.ElementsArray;
104: error_array qa_validation_api.ErrorArray;
105: message_array qa_validation_api.MessageArray;
106: return_status VARCHAR2(1);
107: action_result VARCHAR2(1);
108: msg_count NUMBER;
101: p_txn_header_id IN NUMBER DEFAULT NULL)
102: RETURN INTEGER IS
103: elements qa_validation_api.ElementsArray;
104: error_array qa_validation_api.ErrorArray;
105: message_array qa_validation_api.MessageArray;
106: return_status VARCHAR2(1);
107: action_result VARCHAR2(1);
108: msg_count NUMBER;
109: msg_data VARCHAR2(2000);
145: --
146: -- First task is to decode this string into the row_element
147: -- array.
148: --
149: elements := qa_validation_api.result_to_array(x_result);
150: set_validation_flag_valid(elements);
151:
152: --
153: -- Bug 5383667
154: -- Shifted the id processing after the
155: -- set validation flag proc
156: -- ntungare
157: --
158: elements := qa_validation_api.id_to_array(x_result1, elements);
159:
160: -- Bug 2290747.Added parameter p_txn_header_id to enable
161: -- history plan record when parent plan gets updated
162: -- rponnusa Mon Apr 1 22:25:49 PST 2002
180: x_return_status => return_status,
181: x_action_result => action_result,
182: p_txn_header_id => p_txn_header_id);
183:
184: IF qa_validation_api.no_errors(error_array) AND
185: return_status <> FND_API.G_RET_STS_ERROR AND
186: return_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
187: RETURN 0;
188: ELSE