[Home] [Help]
176: p_seq_value VARCHAR2,
177: p_cur_rec_indicator NUMBER,
178: p_module VARCHAR2 DEFAULT 'OATXNINT');
179: -- Get_Nextval function derives the next sequence number and updates
180: -- qa_chars with the next sequence number and commits it.
181: -- kabalakr
182:
183:
184: FUNCTION GET_NEXTVAL(p_char_id NUMBER) RETURN NUMBER IS
198: -- activities from happening in between.
199: -- bso Tue Mar 28 12:35:36 PST 2006
200: --
201: -- CURSOR c IS SELECT sequence_nextval, sequence_increment
202: -- FROM qa_chars
203: -- WHERE char_id = p_char_id FOR UPDATE;
204: --
205:
206: BEGIN
204: --
205:
206: BEGIN
207:
208: -- select the next sequnce from qa_chars.
209: --
210: -- OPEN c;
211: -- FETCH c INTO l_curr_val, l_seq_incr;
212: -- IF (c%NOTFOUND) THEN
216: --
217: -- increment the sequence.
218: -- l_next_val := l_curr_val+l_seq_incr;
219: --
220: -- update qa_chars with new sequence value.
221: -- UPDATE qa_chars
222: -- SET sequence_nextval = l_next_val
223: -- WHERE char_id = p_char_id;
224:
217: -- increment the sequence.
218: -- l_next_val := l_curr_val+l_seq_incr;
219: --
220: -- update qa_chars with new sequence value.
221: -- UPDATE qa_chars
222: -- SET sequence_nextval = l_next_val
223: -- WHERE char_id = p_char_id;
224:
225: -- Basically, we increase the sequence_nextval column
234: -- increment. So change + to -
235: -- bso Thu May 18 13:36:06 PDT 2006
236: --
237:
238: UPDATE qa_chars
239: SET sequence_nextval = sequence_nextval + sequence_increment
240: WHERE char_id = p_char_id
241: RETURNING sequence_nextval - sequence_increment
242: INTO l_curr_val;
272: i NUMBER;
273:
274: CURSOR c IS SELECT sequence_prefix, sequence_suffix, sequence_separator,
275: sequence_length, sequence_zero_pad
276: FROM qa_chars
277: WHERE char_id = p_char_id;
278: BEGIN
279:
280: -- Gapless Sequence Proj Start.
388: -- increment. So change + to -
389: -- bso Thu May 18 13:36:06 PDT 2006
390: --
391:
392: UPDATE qa_chars
393: SET sequence_nextval = sequence_nextval + sequence_increment
394: WHERE char_id = p_char_id
395: RETURNING sequence_nextval - sequence_increment
396: INTO l_curr_val;
449: -- bso Tue Mar 28 12:19:04 PST 2006
450: --
451: -- CURSOR c IS
452: -- SELECT char_id
453: -- FROM qa_chars WHERE char_id = 1
454: -- FOR UPDATE;
455:
456: BEGIN
457: -- Bug 5118745. Locking issue as reported by customer P1 5060289.
554: -- bso Tue Mar 28 12:19:04 PST 2006
555: --
556: -- CURSOR c IS
557: -- SELECT char_id
558: -- FROM qa_chars WHERE char_id = 1
559: -- FOR UPDATE;
560:
561: BEGIN
562: -- Bug 5118745. Locking issue as reported by customer P1 5060289.
1035: -- bso Tue Mar 28 12:19:04 PST 2006
1036: --
1037: -- CURSOR c IS
1038: -- SELECT char_id
1039: -- FROM qa_chars WHERE char_id = 1
1040: -- FOR UPDATE;
1041:
1042: BEGIN
1043: -- unless user gets the lock on this table he can't get past this cursor.
1062: p_parent_occurrence,
1063: p_oa_txnint);
1064:
1065: -- following commit statement will coming only the data in
1066: -- qa_seq_audit_history, qa_chars table. We should not commit
1067: -- records in qa_results;
1068:
1069: COMMIT;
1070:
2012: p_parent_plan_id NUMBER) IS
2013: CURSOR plan_cur IS
2014: SELECT qc.char_id,substr(qpc.result_column_name,9,10) position
2015: FROM qa_plan_chars qpc,
2016: qa_chars qc
2017: WHERE qpc.plan_id = p_plan_id AND
2018: qpc.char_id = qc.char_id AND
2019: qpc.enabled_flag = 1 AND
2020: qc.datatype = 5;
2035: parent_dataType = 5 AND
2036: child_dataType = 5;
2037:
2038: -- EXISTS (SELECT 1
2039: -- FROM qa_chars
2040: -- WHERE char_id in (parent_char_id,child_char_id) AND
2041: -- datatype = 5);
2042: BEGIN
2043: -- reset all the collections used
2792:
2793: CURSOR prompt_cur IS
2794: SELECT qpc.prompt,qpc.char_id
2795: FROM qa_plan_chars qpc,
2796: qa_chars qc
2797: WHERE qpc.plan_id = p_plan_id
2798: AND qpc.char_id = qc.char_id
2799: AND qc.datatype = 5;
2800: