[Home] [Help]
272: current_child_plan_id NUMBER;
273: p_plan_relationship_id NUMBER;
274: ret_value VARCHAR2(1);
275: childexist BOOLEAN;
276: elements qa_txn_grp.ElementsArray;
277: BEGIN
278: ret_value := 'F';
279: childexist := FALSE;
280: elements := qa_txn_grp.result_to_array(p_criteria_values);
276: elements qa_txn_grp.ElementsArray;
277: BEGIN
278: ret_value := 'F';
279: childexist := FALSE;
280: elements := qa_txn_grp.result_to_array(p_criteria_values);
281: OPEN c;
282: LOOP
283: FETCH c INTO p_plan_relationship_id,current_child_plan_id;
284: IF (c%NOTFOUND) THEN
349: current_child_plan_id NUMBER;
350: p_plan_relationship_id NUMBER;
351: ret_value VARCHAR2(1);
352: childexist BOOLEAN;
353: elements qa_txn_grp.ElementsArray;
354: BEGIN
355: ret_value := 'F';
356: childexist := FALSE;
357: elements := qa_txn_grp.result_to_array(p_criteria_values);
353: elements qa_txn_grp.ElementsArray;
354: BEGIN
355: ret_value := 'F';
356: childexist := FALSE;
357: elements := qa_txn_grp.result_to_array(p_criteria_values);
358: OPEN c;
359: LOOP
360: FETCH c INTO p_plan_relationship_id,current_child_plan_id;
361: IF (c%NOTFOUND) THEN
387: END eval_updateview_lov_criteria;
388:
389: -----------------------------------------------------------------------------------------------------
390: FUNCTION criteria_matched(p_plan_relationship_id IN NUMBER,
391: p_criteria_array qa_txn_grp.ElementsArray)
392: RETURN VARCHAR2 IS
393:
394: ---
395: --- This function first finds out all the criteria for the parent-child
510: ret_value VARCHAR2(1);
511: childexist BOOLEAN;
512: separator CONSTANT VARCHAR2(1) := ',';
513:
514: elements qa_txn_grp.ElementsArray;
515:
516: -- Bug 2355817. kabalakr
517: l_child_pl_id NUMBER;
518:
518:
519: BEGIN
520: ret_value := 'F';
521: childexist := FALSE;
522: elements := qa_txn_grp.result_to_array(p_criteria_values);
523: OPEN c;
524: -- Get all the child plan id for the parent plan to find out any matching
525: -- childplan is exist or not.
526: LOOP
632: p_spec_id IN NUMBER,
633: x_status OUT NOCOPY VARCHAR2,
634: p_txn_header_id IN NUMBER) IS
635:
636: parent_values_array qa_txn_grp.ElementsArray;
637: l_child_id_array ChildPlanArray;
638: l_sysdate DATE;
639: l_length INTEGER;
640: l_row_count INTEGER;
771: l_count := 1;
772: l_sysdate := sysdate;
773:
774: -- flatten the p_criteria_values string into an array
775: parent_values_array := qa_txn_grp.result_to_array(p_criteria_values);
776:
777: --parse p_child_plan_ids to get child plan ids in an array
778: IF p_child_plan_ids IS NOT NULL THEN
779: l_p := 0;
2324: -- skolluku Sun Oct 14 03:26:31 PDT 2007
2325: --
2326: -- TYPE bindTab IS TABLE OF l_value%TYPE INDEX BY BINARY_INTEGER;
2327: -- l_bind_var bindTab;
2328: l_bind_var qa_txn_grp.ElementsArray;
2329:
2330: --
2331: -- bug 6266439
2332: -- New variable to hold the name of the column
2581: -- l_value := parent_plan_vales_tab(p_parent_plan_id ||'*'||p_parent_collection_id||'*'||p_parent_occurrence);
2582: l_value := parent_plan_vales_tab(p_parent_plan_id ||'*'||p_parent_collection_id||'*'||p_parent_occurrence||'*'||p_child_plan_id);
2583: END IF;
2584:
2585: l_bind_var := qa_txn_grp.result_to_array(l_value);
2586:
2587: l_update_clause := 'UPDATE qa_results SET ' || l_update_clause
2588: || ' WHERE plan_id= :p_child_plan_id'
2589: || ' AND collection_id= :p_child_collection_id'
2599: WHILE (l_var IS NOT NULL) LOOP
2600: --
2601: -- bug 6266477
2602: -- Replaced bind statement since, l_bind_val is
2603: -- an object of qa_txn_grp.ElementsArray which
2604: -- will have 2 fields and we are interested
2605: -- only in the value field.
2606: -- skolluku Sun Oct 14 03:26:31 PDT 2007
2607: --
3435: l_data_entry_mode NUMBER;
3436: l_plan_relationship_id NUMBER;
3437: l_childexist BOOLEAN;
3438: l_return_string VARCHAR2(4000);
3439: l_elements qa_txn_grp.ElementsArray;
3440: BEGIN
3441: l_childexist := FALSE;
3442:
3443: l_elements := qa_txn_grp.result_to_array(p_criteria_values);
3439: l_elements qa_txn_grp.ElementsArray;
3440: BEGIN
3441: l_childexist := FALSE;
3442:
3443: l_elements := qa_txn_grp.result_to_array(p_criteria_values);
3444: OPEN c;
3445: LOOP
3446: FETCH c INTO l_plan_relationship_id, l_child_plan_id, l_data_entry_mode;
3447: IF (c%NOTFOUND) THEN
4649: -- Bug 9382356
4650: -- New variable to hold the result string for Comments type elements.
4651: -- skolluku
4652: comments_result_string varchar2(4000);
4653: plans qa_txn_grp.ElementsArray;
4654:
4655: cntr NUMBER;
4656: BEGIN
4657: -- Getting the list of the result_column_names from the
4723: -- Pass the result string to the applicable_child_plans
4724: -- to get a list of applicable Child plans for the entered data
4725: -- and convert the list of plans returned as a string
4726: -- into an array
4727: plans := qa_txn_grp.result_to_array(
4728: qa_parent_child_pkg.applicable_child_plans(p_plan_id,
4729: result_string));
4730:
4731: cntr := plans.first;