1 PACKAGE BODY qltninrb as
2 /* $Header: qltninrb.plb 120.5.12020000.2 2012/11/30 14:45:30 ntungare ship $ */
3 -- A Server Side Name In
4 -- By Kevin Wiggen
5
6
7
8 /*
9 --
10 -- Changed to use two cursors for performance reason.
11 -- See Bug 1293975.
12 -- bso Sun May 28 16:07:56 PDT 2000
13 --
14 CURSOR table_stuff(X_TXN_HEADER_ID NUMBER, X_COLLECTIOn_ID NUMBER) IS
15 SELECT * from QA_RESULTS
16 WHERE TXN_HEADER_ID = NVL (X_TXN_HEADER_ID, TXN_HEADER_ID )
17 AND Collection_id = NVL( X_COLLECTION_ID, Collection_id );
18 */
19
20 -- See comments in INIT_CURSOR
21 CURSOR qa_results_txn(x NUMBER) IS
22 SELECT *
23 FROM qa_results
24 WHERE txn_header_id = x;
25
26 CURSOR qa_results_col(x NUMBER) IS
27 SELECT *
28 FROM qa_results
29 WHERE collection_id = x;
30
31 -- Added for bug1843356. kabalakr
32 CURSOR qa_results_occ(planID NUMBER, col_id NUMBER, occ NUMBER) IS
33 SELECT *
34 FROM qa_results
35 WHERE plan_id = planID
36 AND collection_id = col_id
37 AND occurrence = occ;
38
39 table_rec qa_results%ROWTYPE;
40
41 --
42 -- g_column can be TXN_HEADER_ID or COLLECTION_ID
43 -- There is no default value. It will be init by init_cursor.
44 --
45 g_column VARCHAR2(15);
46
47 --
48 -- Removed the DEFAULT clause to make the code GSCC compliant
49 -- List of changed arguments.
50 -- Old
51 -- X_PLAN_ID NUMBER DEFAULT NULL
52 -- X_COLLECTION_ID NUMBER DEFAULT NULL
53 -- X_OCCURRENCE NUMBER DEFAULT NULL
54 -- New
55 -- X_PLAN_ID NUMBER
56 -- X_COLLECTION_ID NUMBER
57 -- X_OCCURRENCE NUMBER
58 --
59 ---------------------------------------------------------
60 PROCEDURE INIT_CURSOR(X_PLAN_ID NUMBER, X_TXN_HEADER_ID NUMBER,
61 X_COLLECTION_ID NUMBER, X_OCCURRENCE NUMBER) IS
62 ----------------------------------------------------------
63
64 BEGIN
65 --
66 -- OBSOLETE: The old table_stuff cursor is not performant.
67 -- OPEN table_stuff(X_TXN_HEADER_ID , X_COLLECTION_ID);
68
69 --
70 -- This is an interesting exclusive OR situation.
71 -- The user must pass x_txn_header_id xor x_collection_id
72 -- into INIT_CURSOR. Hence, we select records from
73 -- qa_results based on either txn_header_id or collection_id
74 -- column. (Required two new indexes for these).
75 --
76 -- The natural implementation for this exclusive OR selection
77 -- is to declare a ref cursor at the package level and initialize
78 -- it in this procedure.
79 --
80 -- Unfortunately, Oracle 8 or 8i don't let us define a ref cursor
81 -- variable at the package level. Therefore, we define two
82 -- different cursors and set a "mode" variable named g_column
83 -- to indicate which column should be used as where condition.
84 --
85 -- bso Sun May 28 16:26:53 PDT 2000
86
87 -- Bug1843356. Added the first IF condition.
88 -- kabalakr 22 feb 02
89
90 IF x_occurrence IS NOT NULL THEN
91 g_column := 'OCCURRENCE';
92 OPEN qa_results_occ(x_plan_id, x_collection_id, x_occurrence);
93 ELSIF x_txn_header_id IS NOT NULL THEN
94 g_column := 'TXN_HEADER_ID';
95 OPEN qa_results_txn(x_txn_header_id);
96 ELSE -- x_collection_id IS NOT NULL
97 g_column := 'COLLECTION_ID';
98 OPEN qa_results_col(x_collection_id);
99 END IF;
100
101 END INIT_CURSOR;
102
103 ---------------------------------------------------------
104 FUNCTION NEXT_ROW RETURN BOOLEAN IS
105 ----------------------------------------------------------
106
107 BEGIN
108
109 --
110 -- This is an interesting exclusive OR situation.
111 -- The user must pass x_txn_header_id xor x_collection_id
112 -- into INIT_CURSOR. Hence, we select records from
113 -- qa_results based on either txn_header_id or collection_id
114 -- column.
115 -- bso Sun May 28 16:24:10 PDT 2000
116 --
117
118 -- Bug1843356. Added the first IF condition.
119 -- kabalakr 22 feb 02
120
121 IF g_column = 'OCCURRENCE' THEN
122 FETCH qa_results_occ INTO table_rec;
123 RETURN qa_results_occ%FOUND;
124 ELSIF g_column = 'TXN_HEADER_ID' THEN
125 FETCH qa_results_txn INTO table_rec;
126 RETURN qa_results_txn%FOUND;
127 ELSIF g_column = 'COLLECTION_ID' THEN
128 FETCH qa_results_col INTO table_rec;
129 RETURN qa_results_col%FOUND;
130 END IF;
131
132 RETURN FALSE; -- just in case g_column is not set!
133
134 END NEXT_ROW;
135
136 ---------------------------------------------------------
137 FUNCTION NAME_IN(X_COL_NAME VARCHAR2)
138 RETURN VARCHAR2 IS
139 ----------------------------------------------------------
140 l_user_date_mask VARCHAR2(100) := fnd_profile.value('ICX_DATE_FORMAT_MASK');
141
142 BEGIN
143 --
144 -- Bug 15940295
145 -- Initialising the calendar with the date masks
146 --
147 FND_DATE.initialize_with_calendar(p_user_mask => l_user_date_mask,
148 p_userDT_mask => l_user_date_mask ||' HH24:MI:SS',
149 p_user_calendar => FND_DATE.user_calendar);
150
151 IF X_COL_NAME = 'PO_HEADER_ID' THEN
152 return(to_char(table_rec.PO_HEADER_ID));
153 END IF;
154
155 IF X_COL_NAME = 'PO_LINE_NUM' THEN
156 return(to_char(table_rec.PO_LINE_NUM));
157 END IF;
158
159 IF X_COL_NAME = 'PO_SHIPMENT_NUM' THEN
160 return(to_char(table_rec.PO_SHIPMENT_NUM));
161 END IF;
162
163 IF X_COL_NAME = 'CUSTOMER_ID' THEN
164 return(to_char(table_rec.CUSTOMER_ID));
165 END IF;
166
167 IF X_COL_NAME = 'SO_HEADER_ID' THEN
168 return(to_char(table_rec.SO_HEADER_ID));
169 END IF;
170
171 IF X_COL_NAME = 'RMA_HEADER_ID' THEN
172 return(to_char(table_rec.RMA_HEADER_ID));
173 END IF;
174
175 IF X_COL_NAME = 'CHARACTER1' THEN
176 return(table_rec.CHARACTER1);
177 END IF;
178
179 IF X_COL_NAME = 'CHARACTER2' THEN
180 return(table_rec.CHARACTER2);
181 END IF;
182
183 IF X_COL_NAME = 'CHARACTER3' THEN
184 return(table_rec.CHARACTER3);
185 END IF;
186
187 IF X_COL_NAME = 'CHARACTER4' THEN
188 return(table_rec.CHARACTER4);
189 END IF;
190
191 IF X_COL_NAME = 'CHARACTER5' THEN
192 return(table_rec.CHARACTER5);
193 END IF;
194
195 IF X_COL_NAME = 'CHARACTER6' THEN
196 return(table_rec.CHARACTER6);
197 END IF;
198
199 IF X_COL_NAME = 'CHARACTER7' THEN
200 return(table_rec.CHARACTER7);
201 END IF;
202
203 IF X_COL_NAME = 'CHARACTER8' THEN
204 return(table_rec.CHARACTER8);
205 END IF;
206
207 IF X_COL_NAME = 'CHARACTER9' THEN
208 return(table_rec.CHARACTER9);
209 END IF;
210
211 IF X_COL_NAME = 'CHARACTER10' THEN
212 return(table_rec.CHARACTER10);
213 END IF;
214
215 IF X_COL_NAME = 'CHARACTER11' THEN
216 return(table_rec.CHARACTER11);
217 END IF;
218
219 IF X_COL_NAME = 'CHARACTER12' THEN
220 return(table_rec.CHARACTER12);
221 END IF;
222
223 IF X_COL_NAME = 'CHARACTER13' THEN
224 return(table_rec.CHARACTER13);
225 END IF;
226
227 IF X_COL_NAME = 'CHARACTER14' THEN
228 return(table_rec.CHARACTER14);
229 END IF;
230
231 IF X_COL_NAME = 'CHARACTER15' THEN
232 return(table_rec.CHARACTER15);
233 END IF;
234
235 IF X_COL_NAME = 'CHARACTER16' THEN
236 return(table_rec.CHARACTER16);
237 END IF;
238
239 IF X_COL_NAME = 'CHARACTER17' THEN
240 return(table_rec.CHARACTER17);
241 END IF;
242
243 IF X_COL_NAME = 'CHARACTER18' THEN
244 return(table_rec.CHARACTER18);
245 END IF;
246
247 IF X_COL_NAME = 'CHARACTER19' THEN
248 return(table_rec.CHARACTER19);
249 END IF;
250
251 IF X_COL_NAME = 'CHARACTER20' THEN
252 return(table_rec.CHARACTER20);
253 END IF;
254
255 IF X_COL_NAME = 'CHARACTER21' THEN
256 return(table_rec.CHARACTER21);
257 END IF;
258
259 IF X_COL_NAME = 'CHARACTER22' THEN
260 return(table_rec.CHARACTER22);
261 END IF;
262
263 IF X_COL_NAME = 'CHARACTER23' THEN
264 return(table_rec.CHARACTER23);
265 END IF;
266
267 IF X_COL_NAME = 'CHARACTER24' THEN
268 return(table_rec.CHARACTER24);
269 END IF;
270
271 IF X_COL_NAME = 'CHARACTER25' THEN
272 return(table_rec.CHARACTER25);
273 END IF;
274
275 IF X_COL_NAME = 'CHARACTER26' THEN
276 return(table_rec.CHARACTER26);
277 END IF;
278
279 IF X_COL_NAME = 'CHARACTER27' THEN
280 return(table_rec.CHARACTER27);
281 END IF;
282
283 IF X_COL_NAME = 'CHARACTER28' THEN
284 return(table_rec.CHARACTER28);
285 END IF;
286
287 IF X_COL_NAME = 'CHARACTER29' THEN
288 return(table_rec.CHARACTER29);
289 END IF;
290
291 IF X_COL_NAME = 'CHARACTER30' THEN
292 return(table_rec.CHARACTER30);
293 END IF;
294
295 IF X_COL_NAME = 'CHARACTER31' THEN
296 return(table_rec.CHARACTER31);
297 END IF;
298
299 IF X_COL_NAME = 'CHARACTER32' THEN
300 return(table_rec.CHARACTER32);
301 END IF;
302
303 IF X_COL_NAME = 'CHARACTER33' THEN
304 return(table_rec.CHARACTER33);
305 END IF;
306
307 IF X_COL_NAME = 'CHARACTER34' THEN
308 return(table_rec.CHARACTER34);
309 END IF;
310
311 IF X_COL_NAME = 'CHARACTER35' THEN
312 return(table_rec.CHARACTER35);
313 END IF;
314
315 IF X_COL_NAME = 'CHARACTER36' THEN
316 return(table_rec.CHARACTER36);
317 END IF;
318
319 IF X_COL_NAME = 'CHARACTER37' THEN
320 return(table_rec.CHARACTER37);
321 END IF;
322
323 IF X_COL_NAME = 'CHARACTER38' THEN
324 return(table_rec.CHARACTER38);
325 END IF;
326
327 IF X_COL_NAME = 'CHARACTER39' THEN
328 return(table_rec.CHARACTER39);
329 END IF;
330
331 IF X_COL_NAME = 'CHARACTER40' THEN
332 return(table_rec.CHARACTER40);
333 END IF;
334
335 IF X_COL_NAME = 'CHARACTER41' THEN
336 return(table_rec.CHARACTER41);
337 END IF;
338
339 IF X_COL_NAME = 'CHARACTER42' THEN
340 return(table_rec.CHARACTER42);
341 END IF;
342
343 IF X_COL_NAME = 'CHARACTER43' THEN
344 return(table_rec.CHARACTER43);
345 END IF;
346
347 IF X_COL_NAME = 'CHARACTER44' THEN
348 return(table_rec.CHARACTER44);
349 END IF;
350
351 IF X_COL_NAME = 'CHARACTER45' THEN
352 return(table_rec.CHARACTER45);
353 END IF;
354
355 IF X_COL_NAME = 'CHARACTER46' THEN
356 return(table_rec.CHARACTER46);
357 END IF;
358
359 IF X_COL_NAME = 'CHARACTER47' THEN
360 return(table_rec.CHARACTER47);
361 END IF;
362
363 IF X_COL_NAME = 'CHARACTER48' THEN
364 return(table_rec.CHARACTER48);
365 END IF;
366
367 IF X_COL_NAME = 'CHARACTER49' THEN
368 return(table_rec.CHARACTER49);
369 END IF;
370
371 IF X_COL_NAME = 'CHARACTER50' THEN
372 return(table_rec.CHARACTER50);
373 END IF;
374
375 IF X_COL_NAME = 'CHARACTER51' THEN
376 return(table_rec.CHARACTER51);
377 END IF;
378
379 IF X_COL_NAME = 'CHARACTER52' THEN
380 return(table_rec.CHARACTER52);
381 END IF;
382
383 IF X_COL_NAME = 'CHARACTER53' THEN
384 return(table_rec.CHARACTER53);
385 END IF;
386
387 IF X_COL_NAME = 'CHARACTER54' THEN
388 return(table_rec.CHARACTER54);
389 END IF;
390
391 IF X_COL_NAME = 'CHARACTER55' THEN
392 return(table_rec.CHARACTER55);
393 END IF;
394
395 IF X_COL_NAME = 'CHARACTER56' THEN
396 return(table_rec.CHARACTER56);
397 END IF;
398
399 IF X_COL_NAME = 'CHARACTER57' THEN
400 return(table_rec.CHARACTER57);
401 END IF;
402
403 IF X_COL_NAME = 'CHARACTER58' THEN
404 return(table_rec.CHARACTER58);
405 END IF;
406
407 IF X_COL_NAME = 'CHARACTER59' THEN
408 return(table_rec.CHARACTER59);
409 END IF;
410
411 IF X_COL_NAME = 'CHARACTER60' THEN
412 return(table_rec.CHARACTER60);
413 END IF;
414
415 IF X_COL_NAME = 'CHARACTER61' THEN
416 return(table_rec.CHARACTER61);
417 END IF;
418
419 IF X_COL_NAME = 'CHARACTER62' THEN
420 return(table_rec.CHARACTER62);
421 END IF;
422
423 IF X_COL_NAME = 'CHARACTER63' THEN
424 return(table_rec.CHARACTER63);
425 END IF;
426
427 IF X_COL_NAME = 'CHARACTER64' THEN
428 return(table_rec.CHARACTER64);
429 END IF;
430
431 IF X_COL_NAME = 'CHARACTER65' THEN
432 return(table_rec.CHARACTER65);
433 END IF;
434
435 IF X_COL_NAME = 'CHARACTER66' THEN
436 return(table_rec.CHARACTER66);
437 END IF;
438
439 IF X_COL_NAME = 'CHARACTER67' THEN
440 return(table_rec.CHARACTER67);
441 END IF;
442
443 IF X_COL_NAME = 'CHARACTER68' THEN
444 return(table_rec.CHARACTER68);
445 END IF;
446
447 IF X_COL_NAME = 'CHARACTER69' THEN
448 return(table_rec.CHARACTER69);
449 END IF;
450
451 IF X_COL_NAME = 'CHARACTER70' THEN
452 return(table_rec.CHARACTER70);
453 END IF;
454
455 IF X_COL_NAME = 'CHARACTER71' THEN
456 return(table_rec.CHARACTER71);
457 END IF;
458
459 IF X_COL_NAME = 'CHARACTER72' THEN
460 return(table_rec.CHARACTER72);
461 END IF;
462
463 IF X_COL_NAME = 'CHARACTER73' THEN
464 return(table_rec.CHARACTER73);
465 END IF;
466
467 IF X_COL_NAME = 'CHARACTER74' THEN
468 return(table_rec.CHARACTER74);
469 END IF;
470
471 IF X_COL_NAME = 'CHARACTER75' THEN
472 return(table_rec.CHARACTER75);
473 END IF;
474
475 IF X_COL_NAME = 'CHARACTER76' THEN
476 return(table_rec.CHARACTER76);
477 END IF;
478
479 IF X_COL_NAME = 'CHARACTER77' THEN
480 return(table_rec.CHARACTER77);
481 END IF;
482
483 IF X_COL_NAME = 'CHARACTER78' THEN
484 return(table_rec.CHARACTER78);
485 END IF;
486
487 IF X_COL_NAME = 'CHARACTER79' THEN
488 return(table_rec.CHARACTER79);
489 END IF;
490
491 IF X_COL_NAME = 'CHARACTER80' THEN
492 return(table_rec.CHARACTER80);
493 END IF;
494
495 IF X_COL_NAME = 'CHARACTER81' THEN
496 return(table_rec.CHARACTER81);
497 END IF;
498
499 IF X_COL_NAME = 'CHARACTER82' THEN
500 return(table_rec.CHARACTER82);
501 END IF;
502
503 IF X_COL_NAME = 'CHARACTER83' THEN
504 return(table_rec.CHARACTER83);
505 END IF;
506
507 IF X_COL_NAME = 'CHARACTER84' THEN
508 return(table_rec.CHARACTER84);
509 END IF;
510
511 IF X_COL_NAME = 'CHARACTER85' THEN
512 return(table_rec.CHARACTER85);
513 END IF;
514
515 IF X_COL_NAME = 'CHARACTER86' THEN
516 return(table_rec.CHARACTER86);
517 END IF;
518
519 IF X_COL_NAME = 'CHARACTER87' THEN
520 return(table_rec.CHARACTER87);
521 END IF;
522
523 IF X_COL_NAME = 'CHARACTER88' THEN
524 return(table_rec.CHARACTER88);
525 END IF;
526
527 IF X_COL_NAME = 'CHARACTER89' THEN
528 return(table_rec.CHARACTER89);
529 END IF;
530
531 IF X_COL_NAME = 'CHARACTER90' THEN
532 return(table_rec.CHARACTER90);
533 END IF;
534
535 IF X_COL_NAME = 'CHARACTER91' THEN
536 return(table_rec.CHARACTER91);
537 END IF;
538
539 IF X_COL_NAME = 'CHARACTER92' THEN
540 return(table_rec.CHARACTER92);
541 END IF;
542
543 IF X_COL_NAME = 'CHARACTER93' THEN
544 return(table_rec.CHARACTER93);
545 END IF;
546
547 IF X_COL_NAME = 'CHARACTER94' THEN
548 return(table_rec.CHARACTER94);
549 END IF;
550
551 IF X_COL_NAME = 'CHARACTER95' THEN
552 return(table_rec.CHARACTER95);
553 END IF;
554
555 IF X_COL_NAME = 'CHARACTER96' THEN
556 return(table_rec.CHARACTER96);
557 END IF;
558
559 IF X_COL_NAME = 'CHARACTER97' THEN
560 return(table_rec.CHARACTER97);
561 END IF;
562
563 IF X_COL_NAME = 'CHARACTER98' THEN
564 return(table_rec.CHARACTER98);
565 END IF;
566
567 IF X_COL_NAME = 'CHARACTER99' THEN
568 return(table_rec.CHARACTER99);
569 END IF;
570
571 IF X_COL_NAME = 'CHARACTER100' THEN
572 return(table_rec.CHARACTER100);
573 END IF;
574
575 IF X_COL_NAME = 'COLLECTION_ID' THEN
576 return(to_char(table_rec.COLLECTION_ID));
577 END IF;
578
579 IF X_COL_NAME = 'OCCURRENCE' THEN
580 return(to_char(table_rec.OCCURRENCE));
581 END IF;
582
583 IF X_COL_NAME = 'LAST_UPDATE_DATE' THEN
584 return(to_char(table_rec.LAST_UPDATE_DATE));
585 END IF;
586
587 IF X_COL_NAME = 'QA_LAST_UPDATE_DATE' THEN
588 return(to_char(table_rec.QA_LAST_UPDATE_DATE));
589 END IF;
590
591 IF X_COL_NAME = 'LAST_UPDATED_BY' THEN
592 return(to_char(table_rec.LAST_UPDATED_BY));
593 END IF;
594
595 IF X_COL_NAME = 'QA_LAST_UPDATED_BY' THEN
596 return(to_char(table_rec.QA_LAST_UPDATED_BY));
597 END IF;
598
599 IF X_COL_NAME = 'CREATION_DATE' THEN
600 return(to_char(table_rec.CREATION_DATE));
601 END IF;
602
603 IF X_COL_NAME = 'QA_CREATION_DATE' THEN
604 return fnd_date.date_to_chardt(table_rec.QA_CREATION_DATE, calendar_aware=> FND_DATE.calendar_aware_alt);
605 END IF;
606
607 IF X_COL_NAME = 'CREATED_BY' THEN
608 return(to_char(table_rec.CREATED_BY));
609 END IF;
610
611 IF X_COL_NAME = 'QA_CREATED_BY' THEN
612 return(to_char(table_rec.QA_CREATED_BY));
613 END IF;
614
615 IF X_COL_NAME = 'LAST_UPDATE_LOGIN' THEN
616 return(to_char(table_rec.LAST_UPDATE_LOGIN));
617 END IF;
618
619 IF X_COL_NAME = 'TRANSACTION_NUMBER' THEN
620 return(to_char(table_rec.TRANSACTION_NUMBER));
621 END IF;
622
623 IF X_COL_NAME = 'TXN_HEADER_ID' THEN
624 return(to_char(table_rec.TXN_HEADER_ID));
625 END IF;
626
627 IF X_COL_NAME = 'ORGANIZATION_ID' THEN
628 return(to_char(table_rec.ORGANIZATION_ID));
629 END IF;
630
631 IF X_COL_NAME = 'PLAN_ID' THEN
632 return(to_char(table_rec.PLAN_ID));
633 END IF;
634
635 IF X_COL_NAME = 'SPEC_ID' THEN
636 return(to_char(table_rec.SPEC_ID));
637 END IF;
638
639 IF X_COL_NAME = 'TRANSACTION_ID' THEN
640 return(to_char(table_rec.TRANSACTION_ID));
641 END IF;
642
643 IF X_COL_NAME = 'DEPARTMENT_ID' THEN
644 return(to_char(table_rec.DEPARTMENT_ID));
645 END IF;
646
647 IF X_COL_NAME = 'TO_DEPARTMENT_ID' THEN
648 return(to_char(table_rec.DEPARTMENT_ID));
649 END IF;
650
651 IF X_COL_NAME = 'RESOURCE_ID' THEN
652 return(to_char(table_rec.RESOURCE_ID));
653 END IF;
654
655 IF X_COL_NAME = 'QUANTITY' THEN
656 return(to_char(table_rec.QUANTITY));
657 END IF;
658
659 IF X_COL_NAME = 'ITEM_ID' THEN
660 return(to_char(table_rec.ITEM_ID));
661 END IF;
662
663 IF X_COL_NAME = 'UOM' THEN
664 return(table_rec.UOM);
665 END IF;
666
667 IF X_COL_NAME = 'REVISION' THEN
668 return(table_rec.REVISION);
669 END IF;
670
671 IF X_COL_NAME = 'SUBINVENTORY' THEN
672 return(table_rec.SUBINVENTORY);
673 END IF;
674
675 IF X_COL_NAME = 'LOCATOR_ID' THEN
676 return(to_char(table_rec.LOCATOR_ID));
677 END IF;
678
679 IF X_COL_NAME = 'LOT_NUMBER' THEN
680 return(table_rec.LOT_NUMBER);
681 END IF;
682
683 IF X_COL_NAME = 'SERIAL_NUMBER' THEN
684 return(table_rec.SERIAL_NUMBER);
685 END IF;
686
687 IF X_COL_NAME = 'COMP_ITEM_ID' THEN
688 return(to_char(table_rec.COMP_ITEM_ID));
689 END IF;
690
691 IF X_COL_NAME = 'COMP_UOM' THEN
692 return(table_rec.COMP_UOM);
693 END IF;
694
695 IF X_COL_NAME = 'COMP_REVISION' THEN
696 return(table_rec.COMP_REVISION);
697 END IF;
698
699 IF X_COL_NAME = 'COMP_SUBINVENTORY' THEN
700 return(table_rec.COMP_SUBINVENTORY);
701 END IF;
702
703 IF X_COL_NAME = 'COMP_LOCATOR_ID' THEN
704 return(to_char(table_rec.COMP_LOCATOR_ID));
705 END IF;
706
707 IF X_COL_NAME = 'COMP_LOT_NUMBER' THEN
708 return(table_rec.COMP_LOT_NUMBER);
709 END IF;
710
711 IF X_COL_NAME = 'COMP_SERIAL_NUMBER' THEN
712 return(table_rec.COMP_SERIAL_NUMBER);
713 END IF;
714
715 IF X_COL_NAME = 'WIP_ENTITY_ID' THEN
716 return(to_char(table_rec.WIP_ENTITY_ID));
717 END IF;
718
719 IF X_COL_NAME = 'LINE_ID' THEN
720 return(to_char(table_rec.LINE_ID));
721 END IF;
722
723 IF X_COL_NAME = 'TO_OP_SEQ_NUM' THEN
724 return(to_char(table_rec.TO_OP_SEQ_NUM));
725 END IF;
726
727 IF X_COL_NAME = 'FROM_OP_SEQ_NUM' THEN
728 return(to_char(table_rec.FROM_OP_SEQ_NUM));
729 END IF;
730
731 IF X_COL_NAME = 'VENDOR_ID' THEN
732 return(to_char(table_rec.VENDOR_ID));
733 END IF;
734
735 IF X_COL_NAME = 'RECEIPT_NUM' THEN
736 return(table_rec.RECEIPT_NUM);
737 END IF;
738
739 IF X_COL_NAME = 'PO_RELEASE_ID' THEN
740 return(to_char(table_rec.PO_RELEASE_ID));
741 END IF;
742
743 IF X_COL_NAME = 'STATUS' THEN
744 return(to_char(table_rec.STATUS));
745 END IF;
746
747 IF X_COL_NAME = 'PROJECT_ID' THEN
748 return(to_char(table_rec.PROJECT_ID));
749 END IF;
750
751 IF X_COL_NAME = 'TASK_ID' THEN
752 return(to_char(table_rec.TASK_ID));
753 END IF;
754
755 IF X_COL_NAME = 'LPN_ID' THEN
756 return(to_char(table_rec.LPN_ID));
757 END IF;
758
759 -- added for new harcoded element Transfer License Plate Number
760 -- saugupta Aug 2003
761 IF X_COL_NAME = 'XFR_LPN_ID' THEN
762 return(to_char(table_rec.XFR_LPN_ID));
763 END IF;
764
765 -- Bug 3179845. Timezone Project. rponnusa Fri Oct 17 10:34:50 PDT 2003
766 -- modified to date_to_canon_dt
767 IF X_COL_NAME = 'TRANSACTION_DATE' THEN
768 return qltdate.date_to_canon_dt(table_rec.TRANSACTION_DATE);
769 END IF;
770
771 IF X_COL_NAME = 'ASSET_GROUP_ID' THEN
772 return(to_char(table_rec.ASSET_GROUP_ID));
773 END IF;
774
775 --dgupta: Start R12 EAM Integration. Bug 4345492
776 IF X_COL_NAME = 'ASSET_INSTANCE_ID' THEN
777 return(to_char(table_rec.ASSET_INSTANCE_ID));
778 END IF;
779 --dgupta: End R12 EAM Integration. Bug 4345492
780
781 IF X_COL_NAME = 'ASSET_NUMBER' THEN
782 return(table_rec.ASSET_NUMBER);
783 END IF;
784
785 IF X_COL_NAME = 'ASSET_ACTIVITY_ID' THEN
786 return(to_char(table_rec.ASSET_ACTIVITY_ID));
787 END IF;
788
789 -- added for new harcoded element Followup Activity
790 -- saugupta Aug 2003
791 IF X_COL_NAME = 'FOLLOWUP_ACTIVITY_ID' THEN
792 return(to_char(table_rec.FOLLOWUP_ACTIVITY_ID));
793 END IF;
794
795 IF X_COL_NAME = 'WORK_ORDER_ID' THEN
796 return(to_char(table_rec.WORK_ORDER_ID));
797 END IF;
798
799 IF X_COL_NAME = 'SEQUENCE1' THEN
800 return(table_rec.SEQUENCE1);
801 END IF;
802
803 IF X_COL_NAME = 'SEQUENCE2' THEN
804 return(table_rec.SEQUENCE2);
805 END IF;
806
807 IF X_COL_NAME = 'SEQUENCE3' THEN
808 return(table_rec.SEQUENCE3);
809 END IF;
810
811 IF X_COL_NAME = 'SEQUENCE4' THEN
812 return(table_rec.SEQUENCE4);
813 END IF;
814
815 IF X_COL_NAME = 'SEQUENCE5' THEN
816 return(table_rec.SEQUENCE5);
817 END IF;
818
819 IF X_COL_NAME = 'SEQUENCE6' THEN
820 return(table_rec.SEQUENCE6);
821 END IF;
822
823 IF X_COL_NAME = 'SEQUENCE7' THEN
824 return(table_rec.SEQUENCE7);
825 END IF;
826
827 IF X_COL_NAME = 'SEQUENCE8' THEN
828 return(table_rec.SEQUENCE8);
829 END IF;
830
831 IF X_COL_NAME = 'SEQUENCE9' THEN
832 return(table_rec.SEQUENCE9);
833 END IF;
834
835 IF X_COL_NAME = 'SEQUENCE10' THEN
836 return(table_rec.SEQUENCE10);
837 END IF;
838
839 IF X_COL_NAME = 'SEQUENCE11' THEN
840 return(table_rec.SEQUENCE11);
841 END IF;
842
843 IF X_COL_NAME = 'SEQUENCE12' THEN
844 return(table_rec.SEQUENCE12);
845 END IF;
846
847 IF X_COL_NAME = 'SEQUENCE13' THEN
848 return(table_rec.SEQUENCE13);
849 END IF;
850
851 IF X_COL_NAME = 'SEQUENCE14' THEN
852 return(table_rec.SEQUENCE14);
853 END IF;
854
855 IF X_COL_NAME = 'SEQUENCE15' THEN
856 return(table_rec.SEQUENCE15);
857 END IF;
858
859 IF X_COL_NAME = 'PARTY_ID' THEN
860 return(to_char(table_rec.PARTY_ID));
861 END IF;
862
863 IF X_COL_NAME = 'COMMENT1' THEN
864 return(table_rec.COMMENT1);
865 END IF;
866
867 IF X_COL_NAME = 'COMMENT2' THEN
868 return(table_rec.COMMENT2);
869 END IF;
870
871 IF X_COL_NAME = 'COMMENT3' THEN
872 return(table_rec.COMMENT3);
873 END IF;
874
875 IF X_COL_NAME = 'COMMENT4' THEN
876 return(table_rec.COMMENT4);
877 END IF;
878
879 IF X_COL_NAME = 'COMMENT5' THEN
880 return(table_rec.COMMENT5);
881 END IF;
882
883 IF X_COL_NAME = 'CONTRACT_ID' THEN
884 return(to_char(table_rec.CONTRACT_ID));
885 END IF;
886
887 IF X_COL_NAME = 'CONTRACT_LINE_ID' THEN
888 return(to_char(table_rec.CONTRACT_LINE_ID));
889 END IF;
890
891 IF X_COL_NAME = 'DELIVERABLE_ID' THEN
892 return(to_char(table_rec.DELIVERABLE_ID));
893 END IF;
894
895 --
896 -- Included the following newly added columns in
897 -- QA_RESULTS table for ASO project
898 -- rkunchal Thu Jul 25 01:43:48 PDT 2002
899 --
900
901 IF X_COL_NAME = 'CSI_INSTANCE_ID' THEN
902 return(to_char(table_rec.CSI_INSTANCE_ID));
903 END IF;
904
905 IF X_COL_NAME = 'COUNTER_ID' THEN
906 return(to_char(table_rec.COUNTER_ID));
907 END IF;
908
909 IF X_COL_NAME = 'COUNTER_READING_ID' THEN
910 return(to_char(table_rec.COUNTER_READING_ID));
911 END IF;
912
913 IF X_COL_NAME = 'AHL_MR_ID' THEN
914 return(to_char(table_rec.AHL_MR_ID));
915 END IF;
916
917 IF X_COL_NAME = 'CS_INCIDENT_ID' THEN
918 return(to_char(table_rec.CS_INCIDENT_ID));
919 END IF;
920
921 IF X_COL_NAME = 'WIP_REWORK_ID' THEN
922 return(to_char(table_rec.WIP_REWORK_ID));
923 END IF;
924
925 IF X_COL_NAME = 'DISPOSITION_SOURCE' THEN
926 return(table_rec.DISPOSITION_SOURCE);
927 END IF;
928
929 IF X_COL_NAME = 'DISPOSITION' THEN
930 return(table_rec.DISPOSITION);
931 END IF;
932
933 IF X_COL_NAME = 'DISPOSITION_ACTION' THEN
934 return(table_rec.DISPOSITION_ACTION);
935 END IF;
936
937 IF X_COL_NAME = 'DISPOSITION_STATUS' THEN
938 return(table_rec.DISPOSITION_STATUS);
939 END IF;
940
941 --
942 -- See Bug 2588213
943 -- To support the element Maintenance Op Seq Number
944 -- to be used along with Maintenance Workorder
945 -- rkunchal Mon Sep 23 23:46:28 PDT 2002
946 --
947
948 IF X_COL_NAME = 'MAINTENANCE_OP_SEQ' THEN
949 return(table_rec.MAINTENANCE_OP_SEQ);
950 END IF;
951
952 --
953 -- End of additions for ASO project
954 -- rkunchal Thu Jul 25 01:43:48 PDT 2002
955 --
956
957 -- Start of inclusions for NCM Hardcode Elements.
958 -- suramasw Thu Oct 31 10:48:59 PST 2002.
959 -- Bug 2449067.
960
961
962 IF X_COL_NAME = 'BILL_REFERENCE_ID' THEN
963 return(to_char(table_rec.BILL_REFERENCE_ID));
964 END IF;
965
966 IF X_COL_NAME = 'ROUTING_REFERENCE_ID' THEN
967 return(to_char(table_rec.ROUTING_REFERENCE_ID));
968 END IF;
969
970 IF X_COL_NAME = 'CONCURRENT_REQUEST_ID' THEN
971 return(to_char(table_rec.CONCURRENT_REQUEST_ID));
972 END IF;
973
974 -- Removed the to_char() since it is not needed for Character fields.
975 -- Bug 2686970.suramasw Wed Nov 27 05:12:52 PST 2002.
976
977 IF X_COL_NAME = 'TO_SUBINVENTORY' THEN
978 return(table_rec.TO_SUBINVENTORY);
979 END IF;
980
981 -- End Bug 2686970.
982
983 IF X_COL_NAME = 'TO_LOCATOR_ID' THEN
984 return(to_char(table_rec.TO_LOCATOR_ID));
985 END IF;
986
987 IF X_COL_NAME = 'LOT_STATUS_ID' THEN
988 return(to_char(table_rec.LOT_STATUS_ID));
989 END IF;
990
991 IF X_COL_NAME = 'SERIAL_STATUS_ID' THEN
992 return(to_char(table_rec.SERIAL_STATUS_ID));
993 END IF;
994
995 -- Removed the to_char() since it is not needed for Character fields.
996 -- Bug 2686970.suramasw Wed Nov 27 05:12:52 PST 2002.
997
998 IF X_COL_NAME = 'NONCONFORMANCE_SOURCE' THEN
999 return(table_rec.NONCONFORMANCE_SOURCE);
1000 END IF;
1001
1002 IF X_COL_NAME = 'NONCONFORM_SEVERITY' THEN
1003 return(table_rec.NONCONFORM_SEVERITY);
1004 END IF;
1005
1006 IF X_COL_NAME = 'NONCONFORM_PRIORITY' THEN
1007 return(table_rec.NONCONFORM_PRIORITY);
1008 END IF;
1009
1010 IF X_COL_NAME = 'NONCONFORMANCE_TYPE' THEN
1011 return(table_rec.NONCONFORMANCE_TYPE);
1012 END IF;
1013
1014 IF X_COL_NAME = 'NONCONFORMANCE_CODE' THEN
1015 return(table_rec.NONCONFORMANCE_CODE);
1016 END IF;
1017
1018 IF X_COL_NAME = 'NONCONFORMANCE_STATUS' THEN
1019 return(table_rec.NONCONFORMANCE_STATUS);
1020 END IF;
1021
1022 -- End Bug 2686970.
1023
1024 -- Bug 3179845. Timezone Project. rponnusa Fri Oct 17 10:34:50 PDT 2003
1025 -- added date_to_canon_dt
1026 IF X_COL_NAME = 'DATE_OPENED' THEN
1027 return qltdate.date_to_canon_dt(table_rec.DATE_OPENED);
1028 END IF;
1029
1030 IF X_COL_NAME = 'DATE_CLOSED' THEN
1031 return qltdate.date_to_canon_dt(table_rec.DATE_CLOSED);
1032 END IF;
1033
1034 IF X_COL_NAME = 'DAYS_TO_CLOSE' THEN
1035 return(to_char(table_rec.DAYS_TO_CLOSE));
1036 END IF;
1037
1038 IF X_COL_NAME = 'RCV_TRANSACTION_ID' THEN
1039 return(to_char(table_rec.RCV_TRANSACTION_ID));
1040 END IF;
1041
1042 -- End of inclusions for NCM Hardcode Elements.
1043
1044 --anagarwa Thu Nov 14 13:31:42 PST 2002
1045 -- Start inclusion for CAR Hardcoded Elements
1046
1047 -- Removed the to_char() since it is not needed for Character fields.
1048 -- Bug 2686970.suramasw Wed Nov 27 05:12:52 PST 2002.
1049
1050 IF X_COL_NAME = 'REQUEST_SOURCE' THEN
1051 return(table_rec.REQUEST_SOURCE);
1052 END IF;
1053
1054 IF X_COL_NAME = 'REQUEST_PRIORITY' THEN
1055 return(table_rec.REQUEST_PRIORITY);
1056 END IF;
1057
1058 IF X_COL_NAME = 'REQUEST_SEVERITY' THEN
1059 return(table_rec.REQUEST_SEVERITY);
1060 END IF;
1061
1062 IF X_COL_NAME = 'REQUEST_STATUS' THEN
1063 return(table_rec.REQUEST_STATUS);
1064 END IF;
1065
1066 IF X_COL_NAME = 'ECO_NAME' THEN
1067 return(table_rec.ECO_NAME);
1068 END IF;
1069
1070 -- End Bug 2686970.
1071
1072 -- End of inclusions for CAR Hardcode Elements.
1073
1074 -- R12 OPM Deviations. Bug 4345503 Start
1075 IF X_COL_NAME = 'PROCESS_BATCH_ID' THEN
1076 return(to_char(table_rec.PROCESS_BATCH_ID));
1077 END IF;
1078
1079 IF X_COL_NAME = 'PROCESS_BATCHSTEP_ID' THEN
1080 return(to_char(table_rec.PROCESS_BATCHSTEP_ID));
1081 END IF;
1082
1083 IF X_COL_NAME = 'PROCESS_OPERATION_ID' THEN
1084 return(to_char(table_rec.PROCESS_OPERATION_ID));
1085 END IF;
1086
1087 IF X_COL_NAME = 'PROCESS_ACTIVITY_ID' THEN
1088 return(to_char(table_rec.PROCESS_ACTIVITY_ID));
1089 END IF;
1090
1091 IF X_COL_NAME = 'PROCESS_RESOURCE_ID' THEN
1092 return(to_char(table_rec.PROCESS_RESOURCE_ID));
1093 END IF;
1094
1095 IF X_COL_NAME = 'PROCESS_PARAMETER_ID' THEN
1096 return(to_char(table_rec.PROCESS_PARAMETER_ID));
1097 END IF;
1098 -- R12 OPM Deviations. Bug 4345503 End
1099
1100 /* R12 DR Integration. Bug 4345489 */
1101 IF X_COL_NAME = 'REPAIR_LINE_ID' THEN
1102 return(to_char(table_rec.REPAIR_LINE_ID));
1103 END IF;
1104
1105 IF X_COL_NAME = 'JTF_TASK_ID' THEN
1106 return(to_char(table_rec.JTF_TASK_ID));
1107 END IF;
1108 /* R12 DR Integration. Bug 4345489 */
1109
1110 FND_MESSAGE.SET_NAME('QA', 'Column Not Found In Table');
1111 FND_MESSAGE.RAISE_ERROR;
1112
1113
1114 END NAME_IN;
1115
1116 PROCEDURE CLOSE_CURSOR IS
1117
1118 BEGIN
1119
1120 -- Bug 1843356. Added the IF condition below.
1121 -- kabalakr 22 feb 02
1122
1123 IF g_column = 'OCCURRENCE' THEN
1124 CLOSE qa_results_occ;
1125 ELSIF g_column = 'TXN_HEADER_ID' THEN
1126 CLOSE qa_results_txn;
1127 ELSE -- g_column = 'COLLECTION_ID'
1128 CLOSE qa_results_col;
1129 END IF;
1130
1131 END CLOSE_CURSOR;
1132
1133 FUNCTION RES_CHAR_COLUMNS
1134
1135 RETURN NUMBER IS
1136
1137 BEGIN
1138
1139 RETURN (100);
1140
1141 END RES_CHAR_COLUMNS;
1142
1143 --
1144 -- Bug 7491253. 12.1.1 FP for Bug 6599571
1145 -- Added this procedure to set value to the record
1146 -- in session for collection import for action_id=24
1147 -- skolluku
1148 PROCEDURE set_value(X_COL_NAME VARCHAR2,return_value VARCHAR2) IS
1149 BEGIN
1150
1151 IF X_COL_NAME = 'PO_HEADER_ID' THEN
1152 table_rec.PO_HEADER_ID:=to_number(return_value);
1153 END IF;
1154
1155 IF X_COL_NAME = 'PO_LINE_NUM' THEN
1156 table_rec.PO_LINE_NUM:=to_number(return_value);
1157 END IF;
1158
1159 IF X_COL_NAME = 'PO_SHIPMENT_NUM' THEN
1160 table_rec.PO_SHIPMENT_NUM:=to_number(return_value);
1161 END IF;
1162
1163 IF X_COL_NAME = 'CUSTOMER_ID' THEN
1164 table_rec.CUSTOMER_ID:=to_number(return_value);
1165 END IF;
1166
1167 IF X_COL_NAME = 'SO_HEADER_ID' THEN
1168 table_rec.SO_HEADER_ID:=to_number(return_value);
1169 END IF;
1170
1171 IF X_COL_NAME = 'RMA_HEADER_ID' THEN
1172 table_rec.RMA_HEADER_ID:=to_number(return_value);
1173 END IF;
1174
1175 IF X_COL_NAME = 'CHARACTER1' THEN
1176 table_rec.CHARACTER1:=to_char(return_value);
1177 END IF;
1178
1179 IF X_COL_NAME = 'CHARACTER2' THEN
1180 table_rec.CHARACTER2:=to_char(return_value);
1181 END IF;
1182
1183 IF X_COL_NAME = 'CHARACTER3' THEN
1184 table_rec.CHARACTER3:=to_char(return_value);
1185 END IF;
1186
1187 IF X_COL_NAME = 'CHARACTER4' THEN
1188 table_rec.CHARACTER4:=to_char(return_value);
1189 END IF;
1190
1191 IF X_COL_NAME = 'CHARACTER5' THEN
1192 table_rec.CHARACTER5:=to_char(return_value);
1193 END IF;
1194
1195 IF X_COL_NAME = 'CHARACTER6' THEN
1196 table_rec.CHARACTER6:=to_char(return_value);
1197 END IF;
1198
1199 IF X_COL_NAME = 'CHARACTER7' THEN
1200 table_rec.CHARACTER7:=to_char(return_value);
1201 END IF;
1202
1203 IF X_COL_NAME = 'CHARACTER8' THEN
1204 table_rec.CHARACTER8:=to_char(return_value);
1205 END IF;
1206
1207 IF X_COL_NAME = 'CHARACTER9' THEN
1208 table_rec.CHARACTER9:=to_char(return_value);
1209 END IF;
1210
1211 IF X_COL_NAME = 'CHARACTER10' THEN
1212 table_rec.CHARACTER10:=to_char(return_value);
1213 END IF;
1214
1215 IF X_COL_NAME = 'CHARACTER11' THEN
1216 table_rec.CHARACTER11:=to_char(return_value);
1217 END IF;
1218
1219 IF X_COL_NAME = 'CHARACTER12' THEN
1220 table_rec.CHARACTER12:=to_char(return_value);
1221 END IF;
1222
1223 IF X_COL_NAME = 'CHARACTER13' THEN
1224 table_rec.CHARACTER13:=to_char(return_value);
1225 END IF;
1226
1227 IF X_COL_NAME = 'CHARACTER14' THEN
1228 table_rec.CHARACTER14:=to_char(return_value);
1229 END IF;
1230
1231 IF X_COL_NAME = 'CHARACTER15' THEN
1232 table_rec.CHARACTER15:=to_char(return_value);
1233 END IF;
1234
1235 IF X_COL_NAME = 'CHARACTER16' THEN
1236 table_rec.CHARACTER16:=to_char(return_value);
1237 END IF;
1238
1239 IF X_COL_NAME = 'CHARACTER17' THEN
1240 table_rec.CHARACTER17:=to_char(return_value);
1241 END IF;
1242
1243 IF X_COL_NAME = 'CHARACTER18' THEN
1244 table_rec.CHARACTER18:=to_char(return_value);
1245 END IF;
1246
1247 IF X_COL_NAME = 'CHARACTER19' THEN
1248 table_rec.CHARACTER19:=to_char(return_value);
1249 END IF;
1250
1251 IF X_COL_NAME = 'CHARACTER20' THEN
1252 table_rec.CHARACTER20:=to_char(return_value);
1253 END IF;
1254
1255 IF X_COL_NAME = 'CHARACTER21' THEN
1256 table_rec.CHARACTER21:=to_char(return_value);
1257 END IF;
1258
1259 IF X_COL_NAME = 'CHARACTER22' THEN
1260 table_rec.CHARACTER22:=to_char(return_value);
1261 END IF;
1262
1263 IF X_COL_NAME = 'CHARACTER23' THEN
1264 table_rec.CHARACTER23:=to_char(return_value);
1265 END IF;
1266
1267 IF X_COL_NAME = 'CHARACTER24' THEN
1268 table_rec.CHARACTER24:=to_char(return_value);
1269 END IF;
1270
1271 IF X_COL_NAME = 'CHARACTER25' THEN
1272 table_rec.CHARACTER25:=to_char(return_value);
1273 END IF;
1274
1275 IF X_COL_NAME = 'CHARACTER26' THEN
1276 table_rec.CHARACTER26:=to_char(return_value);
1277 END IF;
1278
1279 IF X_COL_NAME = 'CHARACTER27' THEN
1280 table_rec.CHARACTER27:=to_char(return_value);
1281 END IF;
1282
1283 IF X_COL_NAME = 'CHARACTER28' THEN
1284 table_rec.CHARACTER28:=to_char(return_value);
1285 END IF;
1286
1287 IF X_COL_NAME = 'CHARACTER29' THEN
1288 table_rec.CHARACTER29:=to_char(return_value);
1289 END IF;
1290
1291 IF X_COL_NAME = 'CHARACTER30' THEN
1292 table_rec.CHARACTER30:=to_char(return_value);
1293 END IF;
1294
1295 IF X_COL_NAME = 'CHARACTER31' THEN
1296 table_rec.CHARACTER31:=to_char(return_value);
1297 END IF;
1298
1299 IF X_COL_NAME = 'CHARACTER32' THEN
1300 table_rec.CHARACTER32:=to_char(return_value);
1301 END IF;
1302
1303 IF X_COL_NAME = 'CHARACTER33' THEN
1304 table_rec.CHARACTER33:=to_char(return_value);
1305 END IF;
1306
1307 IF X_COL_NAME = 'CHARACTER34' THEN
1308 table_rec.CHARACTER34:=to_char(return_value);
1309 END IF;
1310
1311 IF X_COL_NAME = 'CHARACTER35' THEN
1312 table_rec.CHARACTER35:=to_char(return_value);
1313 END IF;
1314
1315 IF X_COL_NAME = 'CHARACTER36' THEN
1316 table_rec.CHARACTER36:=to_char(return_value);
1317 END IF;
1318
1319 IF X_COL_NAME = 'CHARACTER37' THEN
1320 table_rec.CHARACTER37:=to_char(return_value);
1321 END IF;
1322
1323 IF X_COL_NAME = 'CHARACTER38' THEN
1324 table_rec.CHARACTER38:=to_char(return_value);
1325 END IF;
1326
1327 IF X_COL_NAME = 'CHARACTER39' THEN
1328 table_rec.CHARACTER39:=to_char(return_value);
1329 END IF;
1330
1331 IF X_COL_NAME = 'CHARACTER40' THEN
1332 table_rec.CHARACTER40:=to_char(return_value);
1333 END IF;
1334
1335 IF X_COL_NAME = 'CHARACTER41' THEN
1336 table_rec.CHARACTER41:=to_char(return_value);
1337 END IF;
1338
1339 IF X_COL_NAME = 'CHARACTER42' THEN
1340 table_rec.CHARACTER42:=to_char(return_value);
1341 END IF;
1342
1343 IF X_COL_NAME = 'CHARACTER43' THEN
1344 table_rec.CHARACTER43:=to_char(return_value);
1345 END IF;
1346
1347 IF X_COL_NAME = 'CHARACTER44' THEN
1348 table_rec.CHARACTER44:=to_char(return_value);
1349 END IF;
1350
1351 IF X_COL_NAME = 'CHARACTER45' THEN
1352 table_rec.CHARACTER45:=to_char(return_value);
1353 END IF;
1354
1355 IF X_COL_NAME = 'CHARACTER46' THEN
1356 table_rec.CHARACTER46:=to_char(return_value);
1357 END IF;
1358
1359 IF X_COL_NAME = 'CHARACTER47' THEN
1360 table_rec.CHARACTER47:=to_char(return_value);
1361 END IF;
1362
1363 IF X_COL_NAME = 'CHARACTER48' THEN
1364 table_rec.CHARACTER48:=to_char(return_value);
1365 END IF;
1366
1367 IF X_COL_NAME = 'CHARACTER49' THEN
1368 table_rec.CHARACTER49:=to_char(return_value);
1369 END IF;
1370
1371 IF X_COL_NAME = 'CHARACTER50' THEN
1372 table_rec.CHARACTER50:=to_char(return_value);
1373 END IF;
1374
1375 IF X_COL_NAME = 'CHARACTER51' THEN
1376 table_rec.CHARACTER51:=to_char(return_value);
1377 END IF;
1378
1379 IF X_COL_NAME = 'CHARACTER52' THEN
1380 table_rec.CHARACTER52:=to_char(return_value);
1381 END IF;
1382
1383 IF X_COL_NAME = 'CHARACTER53' THEN
1384 table_rec.CHARACTER53:=to_char(return_value);
1385 END IF;
1386
1387 IF X_COL_NAME = 'CHARACTER54' THEN
1388 table_rec.CHARACTER54:=to_char(return_value);
1389 END IF;
1390
1391 IF X_COL_NAME = 'CHARACTER55' THEN
1392 table_rec.CHARACTER55:=to_char(return_value);
1393 END IF;
1394
1395 IF X_COL_NAME = 'CHARACTER56' THEN
1396 table_rec.CHARACTER56:=to_char(return_value);
1397 END IF;
1398
1399 IF X_COL_NAME = 'CHARACTER57' THEN
1400 table_rec.CHARACTER57:=to_char(return_value);
1401 END IF;
1402
1403 IF X_COL_NAME = 'CHARACTER58' THEN
1404 table_rec.CHARACTER58:=to_char(return_value);
1405 END IF;
1406
1407 IF X_COL_NAME = 'CHARACTER59' THEN
1408 table_rec.CHARACTER59:=to_char(return_value);
1409 END IF;
1410
1411 IF X_COL_NAME = 'CHARACTER60' THEN
1412 table_rec.CHARACTER60:=to_char(return_value);
1413 END IF;
1414
1415 IF X_COL_NAME = 'CHARACTER61' THEN
1416 table_rec.CHARACTER61:=to_char(return_value);
1417 END IF;
1418
1419 IF X_COL_NAME = 'CHARACTER62' THEN
1420 table_rec.CHARACTER62:=to_char(return_value);
1421 END IF;
1422
1423 IF X_COL_NAME = 'CHARACTER63' THEN
1424 table_rec.CHARACTER63:=to_char(return_value);
1425 END IF;
1426
1427 IF X_COL_NAME = 'CHARACTER64' THEN
1428 table_rec.CHARACTER64:=to_char(return_value);
1429 END IF;
1430
1431 IF X_COL_NAME = 'CHARACTER65' THEN
1432 table_rec.CHARACTER65:=to_char(return_value);
1433 END IF;
1434
1435 IF X_COL_NAME = 'CHARACTER66' THEN
1436 table_rec.CHARACTER66:=to_char(return_value);
1437 END IF;
1438
1439 IF X_COL_NAME = 'CHARACTER67' THEN
1440 table_rec.CHARACTER67:=to_char(return_value);
1441 END IF;
1442
1443 IF X_COL_NAME = 'CHARACTER68' THEN
1444 table_rec.CHARACTER68:=to_char(return_value);
1445 END IF;
1446
1447 IF X_COL_NAME = 'CHARACTER69' THEN
1448 table_rec.CHARACTER69:=to_char(return_value);
1449 END IF;
1450
1451 IF X_COL_NAME = 'CHARACTER70' THEN
1452 table_rec.CHARACTER70:=to_char(return_value);
1453 END IF;
1454
1455 IF X_COL_NAME = 'CHARACTER71' THEN
1456 table_rec.CHARACTER71:=to_char(return_value);
1457 END IF;
1458
1459 IF X_COL_NAME = 'CHARACTER72' THEN
1460 table_rec.CHARACTER72:=to_char(return_value);
1461 END IF;
1462
1463 IF X_COL_NAME = 'CHARACTER73' THEN
1464 table_rec.CHARACTER73:=to_char(return_value);
1465 END IF;
1466
1467 IF X_COL_NAME = 'CHARACTER74' THEN
1468 table_rec.CHARACTER74:=to_char(return_value);
1469 END IF;
1470
1471 IF X_COL_NAME = 'CHARACTER75' THEN
1472 table_rec.CHARACTER75:=to_char(return_value);
1473 END IF;
1474
1475 IF X_COL_NAME = 'CHARACTER76' THEN
1476 table_rec.CHARACTER76:=to_char(return_value);
1477 END IF;
1478
1479 IF X_COL_NAME = 'CHARACTER77' THEN
1480 table_rec.CHARACTER77:=to_char(return_value);
1481 END IF;
1482
1483 IF X_COL_NAME = 'CHARACTER78' THEN
1484 table_rec.CHARACTER78:=to_char(return_value);
1485 END IF;
1486
1487 IF X_COL_NAME = 'CHARACTER79' THEN
1488 table_rec.CHARACTER79:=to_char(return_value);
1489 END IF;
1490
1491 IF X_COL_NAME = 'CHARACTER80' THEN
1492 table_rec.CHARACTER80:=to_char(return_value);
1493 END IF;
1494
1495 IF X_COL_NAME = 'CHARACTER81' THEN
1496 table_rec.CHARACTER81:=to_char(return_value);
1497 END IF;
1498
1499 IF X_COL_NAME = 'CHARACTER82' THEN
1500 table_rec.CHARACTER82:=to_char(return_value);
1501 END IF;
1502
1503 IF X_COL_NAME = 'CHARACTER83' THEN
1504 table_rec.CHARACTER83:=to_char(return_value);
1505 END IF;
1506
1507 IF X_COL_NAME = 'CHARACTER84' THEN
1508 table_rec.CHARACTER84:=to_char(return_value);
1509 END IF;
1510
1511 IF X_COL_NAME = 'CHARACTER85' THEN
1512 table_rec.CHARACTER85:=to_char(return_value);
1513 END IF;
1514
1515 IF X_COL_NAME = 'CHARACTER86' THEN
1516 table_rec.CHARACTER86:=to_char(return_value);
1517 END IF;
1518
1519 IF X_COL_NAME = 'CHARACTER87' THEN
1520 table_rec.CHARACTER87:=to_char(return_value);
1521 END IF;
1522
1523 IF X_COL_NAME = 'CHARACTER88' THEN
1524 table_rec.CHARACTER88:=to_char(return_value);
1525 END IF;
1526
1527 IF X_COL_NAME = 'CHARACTER89' THEN
1528 table_rec.CHARACTER89:=to_char(return_value);
1529 END IF;
1530
1531 IF X_COL_NAME = 'CHARACTER90' THEN
1532 table_rec.CHARACTER90:=to_char(return_value);
1533 END IF;
1534
1535 IF X_COL_NAME = 'CHARACTER91' THEN
1536 table_rec.CHARACTER91:=to_char(return_value);
1537 END IF;
1538
1539 IF X_COL_NAME = 'CHARACTER92' THEN
1540 table_rec.CHARACTER92:=to_char(return_value);
1541 END IF;
1542
1543 IF X_COL_NAME = 'CHARACTER93' THEN
1544 table_rec.CHARACTER93:=to_char(return_value);
1545 END IF;
1546
1547 IF X_COL_NAME = 'CHARACTER94' THEN
1548 table_rec.CHARACTER94:=to_char(return_value);
1549 END IF;
1550
1551 IF X_COL_NAME = 'CHARACTER95' THEN
1552 table_rec.CHARACTER95:=to_char(return_value);
1553 END IF;
1554
1555 IF X_COL_NAME = 'CHARACTER96' THEN
1556 table_rec.CHARACTER96:=to_char(return_value);
1557 END IF;
1558
1559 IF X_COL_NAME = 'CHARACTER97' THEN
1560 table_rec.CHARACTER97:=to_char(return_value);
1561 END IF;
1562
1563 IF X_COL_NAME = 'CHARACTER98' THEN
1564 table_rec.CHARACTER98:=to_char(return_value);
1565 END IF;
1566
1567 IF X_COL_NAME = 'CHARACTER99' THEN
1568 table_rec.CHARACTER99:=to_char(return_value);
1569 END IF;
1570
1571 IF X_COL_NAME = 'CHARACTER100' THEN
1572 table_rec.CHARACTER100:=to_char(return_value);
1573 END IF;
1574
1575 IF X_COL_NAME = 'COLLECTION_ID' THEN
1576 table_rec.COLLECTION_ID:=to_number(return_value);
1577 END IF;
1578
1579 IF X_COL_NAME = 'OCCURRENCE' THEN
1580 table_rec.OCCURRENCE:=to_number(return_value);
1581 END IF;
1582
1583 IF X_COL_NAME = 'LAST_UPDATE_DATE' THEN
1584 table_rec.LAST_UPDATE_DATE:=qltdate.any_to_date(return_value);
1585 END IF;
1586
1587 IF X_COL_NAME = 'QA_LAST_UPDATE_DATE' THEN
1588 table_rec.QA_LAST_UPDATE_DATE:=(return_value);
1589 END IF;
1590
1591 IF X_COL_NAME = 'LAST_UPDATED_BY' THEN
1592 table_rec.LAST_UPDATED_BY:=to_number(return_value);
1593 END IF;
1594
1595 IF X_COL_NAME = 'QA_LAST_UPDATED_BY' THEN
1596 table_rec.QA_LAST_UPDATED_BY:=to_number(return_value);
1597 END IF;
1598
1599 IF X_COL_NAME = 'CREATION_DATE' THEN
1600 table_rec.CREATION_DATE:=qltdate.any_to_date(return_value);
1601 END IF;
1602
1603 IF X_COL_NAME = 'QA_CREATION_DATE' THEN
1604 table_rec.QA_CREATION_DATE:=qltdate.any_to_date(return_value);
1605 END IF;
1606
1607 IF X_COL_NAME = 'CREATED_BY' THEN
1608 table_rec.CREATED_BY:=to_number(return_value);
1609 END IF;
1610
1611 IF X_COL_NAME = 'QA_CREATED_BY' THEN
1612 table_rec.QA_CREATED_BY:=to_number(return_value);
1613 END IF;
1614
1615 IF X_COL_NAME = 'LAST_UPDATE_LOGIN' THEN
1616 table_rec.LAST_UPDATE_LOGIN:=to_number(return_value);
1617 END IF;
1618
1619 IF X_COL_NAME = 'TRANSACTION_NUMBER' THEN
1620 table_rec.TRANSACTION_NUMBER:=to_number(return_value);
1621 END IF;
1622
1623 IF X_COL_NAME = 'TXN_HEADER_ID' THEN
1624 table_rec.TXN_HEADER_ID:=to_number(return_value);
1625 END IF;
1626
1627 IF X_COL_NAME = 'ORGANIZATION_ID' THEN
1628 table_rec.ORGANIZATION_ID:=to_number(return_value);
1629 END IF;
1630
1631 IF X_COL_NAME = 'PLAN_ID' THEN
1632 table_rec.PLAN_ID:=to_number(return_value);
1633 END IF;
1634
1635 IF X_COL_NAME = 'SPEC_ID' THEN
1636 table_rec.SPEC_ID:=to_number(return_value);
1637 END IF;
1638
1639 IF X_COL_NAME = 'TRANSACTION_ID' THEN
1640 table_rec.TRANSACTION_ID:=to_number(return_value);
1641 END IF;
1642
1643 IF X_COL_NAME = 'DEPARTMENT_ID' THEN
1644 table_rec.DEPARTMENT_ID:=to_number(return_value);
1645 END IF;
1646
1647 IF X_COL_NAME = 'TO_DEPARTMENT_ID' THEN
1648 table_rec.DEPARTMENT_ID:=to_number(return_value);
1649 END IF;
1650
1651 IF X_COL_NAME = 'RESOURCE_ID' THEN
1652 table_rec.RESOURCE_ID:=to_number(return_value);
1653 END IF;
1654
1655 IF X_COL_NAME = 'QUANTITY' THEN
1656 table_rec.QUANTITY:=to_number(return_value);
1657 END IF;
1658
1659 IF X_COL_NAME = 'ITEM_ID' THEN
1660 table_rec.ITEM_ID:=to_number(return_value);
1661 END IF;
1662
1663 IF X_COL_NAME = 'UOM' THEN
1664 table_rec.UOM:=to_char(return_value);
1665 END IF;
1666
1667 IF X_COL_NAME = 'REVISION' THEN
1668 table_rec.REVISION:=to_char(return_value);
1669 END IF;
1670
1671 IF X_COL_NAME = 'SUBINVENTORY' THEN
1672 table_rec.SUBINVENTORY:=to_char(return_value);
1673 END IF;
1674
1675 IF X_COL_NAME = 'LOCATOR_ID' THEN
1676 table_rec.LOCATOR_ID:=to_number(return_value);
1677 END IF;
1678
1679 IF X_COL_NAME = 'LOT_NUMBER' THEN
1680 table_rec.LOT_NUMBER:=to_char(return_value);
1681 END IF;
1682
1683 IF X_COL_NAME = 'SERIAL_NUMBER' THEN
1684 table_rec.SERIAL_NUMBER:=to_char(return_value);
1685 END IF;
1686
1687 IF X_COL_NAME = 'COMP_ITEM_ID' THEN
1688 table_rec.COMP_ITEM_ID:=to_number(return_value);
1689 END IF;
1690
1691 IF X_COL_NAME = 'COMP_UOM' THEN
1692 table_rec.COMP_UOM:=to_char(return_value);
1693 END IF;
1694
1695 IF X_COL_NAME = 'COMP_REVISION' THEN
1696 table_rec.COMP_REVISION:=to_char(return_value);
1697 END IF;
1698
1699 IF X_COL_NAME = 'COMP_SUBINVENTORY' THEN
1700 table_rec.COMP_SUBINVENTORY:=to_char(return_value);
1701 END IF;
1702
1703 IF X_COL_NAME = 'COMP_LOCATOR_ID' THEN
1704 table_rec.COMP_LOCATOR_ID:=to_number(return_value);
1705 END IF;
1706
1707 IF X_COL_NAME = 'COMP_LOT_NUMBER' THEN
1708 table_rec.COMP_LOT_NUMBER:=to_char(return_value);
1709 END IF;
1710
1711 IF X_COL_NAME = 'COMP_SERIAL_NUMBER' THEN
1712 table_rec.COMP_SERIAL_NUMBER:=to_char(return_value);
1713 END IF;
1714
1715 IF X_COL_NAME = 'WIP_ENTITY_ID' THEN
1716 table_rec.WIP_ENTITY_ID:=to_number(return_value);
1717 END IF;
1718
1719 IF X_COL_NAME = 'LINE_ID' THEN
1720 table_rec.LINE_ID:=to_number(return_value);
1721 END IF;
1722
1723 IF X_COL_NAME = 'TO_OP_SEQ_NUM' THEN
1724 table_rec.TO_OP_SEQ_NUM:=to_number(return_value);
1725 END IF;
1726
1727 IF X_COL_NAME = 'FROM_OP_SEQ_NUM' THEN
1728 table_rec.FROM_OP_SEQ_NUM:=to_number(return_value);
1729 END IF;
1730
1731 IF X_COL_NAME = 'VENDOR_ID' THEN
1732 table_rec.VENDOR_ID:=to_number(return_value);
1733 END IF;
1734
1735 IF X_COL_NAME = 'RECEIPT_NUM' THEN
1736 table_rec.RECEIPT_NUM:=to_char(return_value);
1737 END IF;
1738
1739 IF X_COL_NAME = 'PO_RELEASE_ID' THEN
1740 table_rec.PO_RELEASE_ID:=to_number(return_value);
1741 END IF;
1742
1743 IF X_COL_NAME = 'STATUS' THEN
1744 table_rec.STATUS:=to_number(return_value);
1745 END IF;
1746
1747 IF X_COL_NAME = 'PROJECT_ID' THEN
1748 table_rec.PROJECT_ID:=to_number(return_value);
1749 END IF;
1750
1751 IF X_COL_NAME = 'TASK_ID' THEN
1752 table_rec.TASK_ID:=to_number(return_value);
1753 END IF;
1754
1755 IF X_COL_NAME = 'LPN_ID' THEN
1756 table_rec.LPN_ID:=to_number(return_value);
1757 END IF;
1758
1759 IF X_COL_NAME = 'XFR_LPN_ID' THEN
1760 table_rec.XFR_LPN_ID:=to_number(return_value);
1761 END IF;
1762
1763 IF X_COL_NAME = 'TRANSACTION_DATE' THEN
1764 table_rec.TRANSACTION_DATE:=qltdate.any_to_date(return_value);
1765 END IF;
1766
1767 IF X_COL_NAME = 'ASSET_GROUP_ID' THEN
1768 table_rec.ASSET_GROUP_ID:=to_number(return_value);
1769 END IF;
1770
1771 IF X_COL_NAME = 'ASSET_NUMBER' THEN
1772 table_rec.ASSET_NUMBER:=to_char(return_value);
1773 END IF;
1774
1775 IF X_COL_NAME = 'ASSET_ACTIVITY_ID' THEN
1776 table_rec.ASSET_ACTIVITY_ID:=to_number(return_value);
1777 END IF;
1778
1779 IF X_COL_NAME = 'FOLLOWUP_ACTIVITY_ID' THEN
1780 table_rec.FOLLOWUP_ACTIVITY_ID:=to_number(return_value);
1781 END IF;
1782
1783 IF X_COL_NAME = 'WORK_ORDER_ID' THEN
1784 table_rec.WORK_ORDER_ID:=to_number(return_value);
1785 END IF;
1786
1787 IF X_COL_NAME = 'SEQUENCE1' THEN
1788 table_rec.SEQUENCE1:=to_char(return_value);
1789 END IF;
1790
1791 IF X_COL_NAME = 'SEQUENCE2' THEN
1792 table_rec.SEQUENCE2:=to_char(return_value);
1793 END IF;
1794
1795 IF X_COL_NAME = 'SEQUENCE3' THEN
1796 table_rec.SEQUENCE3:=to_char(return_value);
1797 END IF;
1798
1799 IF X_COL_NAME = 'SEQUENCE4' THEN
1800 table_rec.SEQUENCE4:=to_char(return_value);
1801 END IF;
1802
1803 IF X_COL_NAME = 'SEQUENCE5' THEN
1804 table_rec.SEQUENCE5:=to_char(return_value);
1805 END IF;
1806
1807 IF X_COL_NAME = 'SEQUENCE6' THEN
1808 table_rec.SEQUENCE6:=to_char(return_value);
1809 END IF;
1810
1811 IF X_COL_NAME = 'SEQUENCE7' THEN
1812 table_rec.SEQUENCE7:=to_char(return_value);
1813 END IF;
1814
1815 IF X_COL_NAME = 'SEQUENCE8' THEN
1816 table_rec.SEQUENCE8:=to_char(return_value);
1817 END IF;
1818
1819 IF X_COL_NAME = 'SEQUENCE9' THEN
1820 table_rec.SEQUENCE9:=to_char(return_value);
1821 END IF;
1822
1823 IF X_COL_NAME = 'SEQUENCE10' THEN
1824 table_rec.SEQUENCE10:=to_char(return_value);
1825 END IF;
1826
1827 IF X_COL_NAME = 'SEQUENCE11' THEN
1828 table_rec.SEQUENCE11:=to_char(return_value);
1829 END IF;
1830
1831 IF X_COL_NAME = 'SEQUENCE12' THEN
1832 table_rec.SEQUENCE12:=to_char(return_value);
1833 END IF;
1834
1835 IF X_COL_NAME = 'SEQUENCE13' THEN
1836 table_rec.SEQUENCE13:=to_char(return_value);
1837 END IF;
1838
1839 IF X_COL_NAME = 'SEQUENCE14' THEN
1840 table_rec.SEQUENCE14:=to_char(return_value);
1841 END IF;
1842
1843 IF X_COL_NAME = 'SEQUENCE15' THEN
1844 table_rec.SEQUENCE15:=to_char(return_value);
1845 END IF;
1846
1847 IF X_COL_NAME = 'PARTY_ID' THEN
1848 table_rec.PARTY_ID:=to_number(return_value);
1849 END IF;
1850
1851 IF X_COL_NAME = 'COMMENT1' THEN
1852 table_rec.COMMENT1:=to_char(return_value);
1853 END IF;
1854
1855 IF X_COL_NAME = 'COMMENT2' THEN
1856 table_rec.COMMENT2:=to_char(return_value);
1857 END IF;
1858
1859 IF X_COL_NAME = 'COMMENT3' THEN
1860 table_rec.COMMENT3:=to_char(return_value);
1861 END IF;
1862
1863 IF X_COL_NAME = 'COMMENT4' THEN
1864 table_rec.COMMENT4:=to_char(return_value);
1865 END IF;
1866
1867 IF X_COL_NAME = 'COMMENT5' THEN
1868 table_rec.COMMENT5:=to_char(return_value);
1869 END IF;
1870
1871 IF X_COL_NAME = 'CONTRACT_ID' THEN
1872 table_rec.CONTRACT_ID:=to_number(return_value);
1873 END IF;
1874
1875 IF X_COL_NAME = 'CONTRACT_LINE_ID' THEN
1876 table_rec.CONTRACT_LINE_ID:=to_number(return_value);
1877 END IF;
1878
1879 IF X_COL_NAME = 'DELIVERABLE_ID' THEN
1880 table_rec.DELIVERABLE_ID:=to_number(return_value);
1881 END IF;
1882
1883 IF X_COL_NAME = 'CSI_INSTANCE_ID' THEN
1884 table_rec.CSI_INSTANCE_ID:=to_number(return_value);
1885 END IF;
1886
1887 IF X_COL_NAME = 'COUNTER_ID' THEN
1888 table_rec.COUNTER_ID:=to_number(return_value);
1889 END IF;
1890
1891 IF X_COL_NAME = 'COUNTER_READING_ID' THEN
1892 table_rec.COUNTER_READING_ID:=to_number(return_value);
1893 END IF;
1894
1895 IF X_COL_NAME = 'AHL_MR_ID' THEN
1896 table_rec.AHL_MR_ID:=to_number(return_value);
1897 END IF;
1898
1899 IF X_COL_NAME = 'CS_INCIDENT_ID' THEN
1900 table_rec.CS_INCIDENT_ID:=to_number(return_value);
1901 END IF;
1902
1903 IF X_COL_NAME = 'WIP_REWORK_ID' THEN
1904 table_rec.WIP_REWORK_ID:=to_number(return_value);
1905 END IF;
1906
1907 IF X_COL_NAME = 'DISPOSITION_SOURCE' THEN
1908 table_rec.DISPOSITION_SOURCE:=to_char(return_value);
1909 END IF;
1910
1911 IF X_COL_NAME = 'DISPOSITION' THEN
1912 table_rec.DISPOSITION:=to_char(return_value);
1913 END IF;
1914
1915 IF X_COL_NAME = 'DISPOSITION_ACTION' THEN
1916 table_rec.DISPOSITION_ACTION:=to_char(return_value);
1917 END IF;
1918
1919 IF X_COL_NAME = 'DISPOSITION_STATUS' THEN
1920 table_rec.DISPOSITION_STATUS:=to_char(return_value);
1921 END IF;
1922
1923 IF X_COL_NAME = 'MAINTENANCE_OP_SEQ' THEN
1924 table_rec.MAINTENANCE_OP_SEQ:=to_number(return_value);
1925 END IF;
1926
1927 IF X_COL_NAME = 'BILL_REFERENCE_ID' THEN
1928 table_rec.BILL_REFERENCE_ID:=to_number(return_value);
1929 END IF;
1930
1931 IF X_COL_NAME = 'ROUTING_REFERENCE_ID' THEN
1932 table_rec.ROUTING_REFERENCE_ID:=to_number(return_value);
1933 END IF;
1934
1935 IF X_COL_NAME = 'CONCURRENT_REQUEST_ID' THEN
1936 table_rec.CONCURRENT_REQUEST_ID:=to_number(return_value);
1937 END IF;
1938
1939 IF X_COL_NAME = 'TO_SUBINVENTORY' THEN
1940 table_rec.TO_SUBINVENTORY:=to_char(return_value);
1941 END IF;
1942
1943 IF X_COL_NAME = 'TO_LOCATOR_ID' THEN
1944 table_rec.TO_LOCATOR_ID:=to_number(return_value);
1945 END IF;
1946
1947 IF X_COL_NAME = 'LOT_STATUS_ID' THEN
1948 table_rec.LOT_STATUS_ID:=to_number(return_value);
1949 END IF;
1950
1951 IF X_COL_NAME = 'SERIAL_STATUS_ID' THEN
1952 table_rec.SERIAL_STATUS_ID:=to_number(return_value);
1953 END IF;
1954
1955 IF X_COL_NAME = 'NONCONFORMANCE_SOURCE' THEN
1956 table_rec.NONCONFORMANCE_SOURCE:=to_char(return_value);
1957 END IF;
1958
1959 IF X_COL_NAME = 'NONCONFORM_SEVERITY' THEN
1960 table_rec.NONCONFORM_SEVERITY:=to_char(return_value);
1961 END IF;
1962
1963 IF X_COL_NAME = 'NONCONFORM_PRIORITY' THEN
1964 table_rec.NONCONFORM_PRIORITY:=to_char(return_value);
1965 END IF;
1966
1967 IF X_COL_NAME = 'NONCONFORMANCE_TYPE' THEN
1968 table_rec.NONCONFORMANCE_TYPE:=to_char(return_value);
1969 END IF;
1970
1971 IF X_COL_NAME = 'NONCONFORMANCE_CODE' THEN
1972 table_rec.NONCONFORMANCE_CODE:=to_char(return_value);
1973 END IF;
1974
1975 IF X_COL_NAME = 'NONCONFORMANCE_STATUS' THEN
1976 table_rec.NONCONFORMANCE_STATUS:=to_char(return_value);
1977 END IF;
1978
1979 IF X_COL_NAME = 'DATE_OPENED' THEN
1980 table_rec.DATE_OPENED:=qltdate.any_to_date(return_value);
1981 END IF;
1982
1983 IF X_COL_NAME = 'DATE_CLOSED' THEN
1984 table_rec.DATE_CLOSED:=qltdate.any_to_date(return_value);
1985 END IF;
1986
1987 IF X_COL_NAME = 'DAYS_TO_CLOSE' THEN
1988 table_rec.DAYS_TO_CLOSE:=to_char(return_value);
1989 END IF;
1990
1991 IF X_COL_NAME = 'RCV_TRANSACTION_ID' THEN
1992 table_rec.RCV_TRANSACTION_ID:=to_number(return_value);
1993 END IF;
1994
1995 IF X_COL_NAME = 'REQUEST_SOURCE' THEN
1996 table_rec.REQUEST_SOURCE:=to_char(return_value);
1997 END IF;
1998
1999 IF X_COL_NAME = 'REQUEST_PRIORITY' THEN
2000 table_rec.REQUEST_PRIORITY:=to_char(return_value);
2001 END IF;
2002
2003 IF X_COL_NAME = 'REQUEST_SEVERITY' THEN
2004 table_rec.REQUEST_SEVERITY:=to_char(return_value);
2005 END IF;
2006
2007 IF X_COL_NAME = 'REQUEST_STATUS' THEN
2008 table_rec.REQUEST_STATUS:=to_char(return_value);
2009 END IF;
2010
2011 IF X_COL_NAME = 'ECO_NAME' THEN
2012 table_rec.ECO_NAME:=to_char(return_value);
2013 END IF;
2014
2015 END set_value;
2016 -- End of Bug 7491253
2017
2018 END qltninrb;
2019
[Home] [Help]