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