eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.GMD_QC_LABELS_UTIL

Source


1 PACKAGE BODY GMD_QC_LABELS_UTIL AS
2 /*  $Header: GMDULABB.pls 120.5 2006/02/27 10:38:59 plowe noship $
3  *****************************************************************
4  *                                                               *
5  * Package  GMD_QC_LABELS_UTIL                                   *
6  *                                                               *
7  * Contents SAMPLE_GEN_SRS                                       *
8  *                                                               *
9  * Use      This is the UTIL layer for generating QC labels      *
10  *                                                               *
11  * History                                                       *
12  *         Written by H Verdding, OPM Development (EMEA)         *
13  *         magupta, Changed it for stability study.              *
14  *    01-JUN-2005 - J. DiIorio Changed for OPM Convergence.      *
15  *     1) Changed fields to refer to their converged counterpart.*
16  *        For example, changed                                   *
17  *        p_orgn_code to p_organization_id.                      *
18  *     2) Added cursors to convert ids to their display values.  *
19  *     3) All changes identified by JD.                          *
20  * 4) Saikiran Vankadari 10-Nov-05 Bug# 4612611                  *
21  *     Removed plant_code and added Item, revsion and storage orgn*
22  *                                                               *
23  *****************************************************************
24 */
25 
26 --   Global variables
27 
28 G_PKG_NAME           CONSTANT  VARCHAR2(30):='GMD_QC_LABELS_UTIL';
29 
30 PROCEDURE SAMPLE_GEN_SRS
31 ( errbuf            OUT NOCOPY VARCHAR2,
32   retcode           OUT NOCOPY VARCHAR2,
33   p_organization_id IN  NUMBER DEFAULT NULL,
34   p_from_sample_no  IN  VARCHAR2 DEFAULT NULL,
35   p_to_sample_no    IN  VARCHAR2 DEFAULT NULL,
36   p_delimiter       IN  VARCHAR2 DEFAULT ',',
37   p_variant_id      IN  NUMBER DEFAULT NULL,
38   p_time_point_id   IN  NUMBER DEFAULT NULL
39 )
40 IS
41 l_sample_id    NUMBER;
42 l_delim        VARCHAR2(1);
43 l_priority     VARCHAR2(80);
44 l_retain_as    VARCHAR2(15);
45 l_source       VARCHAR2(80);
46 l_batch_no     VARCHAR2(32);
47 l_form_no      VARCHAR2(32);
48 l_form_vers    VARCHAR2(4);
49 l_oprn_no      VARCHAR2(16);
50 l_oprn_vers    VARCHAR2(5);
51 l_recipe_no    VARCHAR2(32);
52 l_recipe_vers  VARCHAR2(5);
53 l_routing_no   VARCHAR2(32);
54 l_routing_vers VARCHAR2(5);
55 l_cust_name    VARCHAR2(360);
56 l_oper_unit    VARCHAR2(60);
57 l_ship_to      VARCHAR2(40);
58 l_order_type   VARCHAR2(30);
59 l_order_no     NUMBER;
60 l_line_no      NUMBER;
61 l_supp_code    VARCHAR2(30);
62 l_supp_name    VARCHAR2(80);
63 l_supp_site    VARCHAR2(15);
64 l_po_no        VARCHAR2(20);
65 l_po_lineno    NUMBER;
66 l_rcpt_no      VARCHAR2(30);
67 l_rcpt_lineno  NUMBER;
68 l_total_lines  BINARY_INTEGER := 0;
69 
70   -- Bug 3088216: added retain as to select for cursor
71 
72   -- JD changed orgn_code to organization_id.
73   --    replaced orgn_code to organization_id, sample_uom to sample_qty_uom,
74   --    whse_code to subinventory, location to locator_id, lot_no to parent_lot_number,
75   --    sublot_no to lot_number, qc_lab_orgn_code to lab_organization_id,
76   --    storage_whse to storage_subinventory, storage_location to storage_locator_id.
77 
78 CURSOR c_get_sample
79 IS
80 SELECT sample_id, source, organization_id, sample_no, sample_desc, inventory_item_id, revision, priority,
81        sample_qty, sample_qty_uom, subinventory, locator_id, parent_lot_number, lot_number,
82        lab_organization_id, expiration_date, lot_retest_ind, storage_organization_id, storage_subinventory,
83        storage_locator_id, sample_instance,date_drawn, resources, instance_id,
84        time_point_id, retain_as
85 FROM GMD_SAMPLES
86 WHERE ((p_organization_id IS NULL) OR (ORGANIZATION_ID = p_organization_id))
87 AND ((p_from_sample_no IS NULL) OR (sample_no between p_from_sample_no and p_to_sample_no))
88 AND ((p_variant_id IS NULL) OR (variant_id = p_variant_id))
89 AND ((p_time_point_id IS NULL ) OR (time_point_id = p_time_point_id))
90 ORDER BY 1
91 ;
92 
93 CURSOR c_get_priority ( p_priority VARCHAR2)
94 IS
95 SELECT meaning
96 FROM   GEM_LOOKUPS
97 WHERE  LOOKUP_TYPE = 'GMD_QC_TEST_PRIORITY'
98 AND    LOOKUP_CODE = p_priority;
99 
100 CURSOR c_get_source ( p_source VARCHAR2)
101 IS
102 SELECT meaning
103 FROM   GEM_LOOKUPS
104 WHERE  LOOKUP_TYPE = 'GMD_QC_SOURCE'
105 AND    LOOKUP_CODE = p_source;
106 
107 --JD changed plant_code to organization_id.
108 
109 CURSOR c_get_batch_info ( p_sample_id NUMBER)
110 IS
111 SELECT /*organization_id, BUG# 4612611*/ batch_no, formula_no, formula_vers, oprn_no, oprn_vers,
112        recipe_no, recipe_version, routing_no, routing_vers
113 FROM   GMD_QC_E_WIP_SAMPLE_DTLS_V
114 WHERE  sample_id = p_sample_id;
115 
116 -- bug 4924550 sql id  16293559
117 CURSOR c_get_cust_info ( p_sample_id NUMBER)
118 IS
119 /*SELECT customer_name, operating_unit_name,
120        ship_to_site_name, order_type,
121        order_number, order_line_number
122 FROM   GMD_QC_E_CUST_SAMPLE_DTLS_V
123 WHERE  sample_id = p_sample_id; */
124 
125 
126 SELECT
127   hzp.party_name customer_name ,
128   hrou.NAME operating_unit_name,
129   hzcsua.LOCATION ship_to_site_name ,
130   oeoha.order_number order_number,
131   oetrtyp.NAME order_type ,
132   oeola.line_number order_line_number
133 FROM
134   gmd_samples gsmp ,
135   hz_parties hzp ,
136   hz_cust_accounts_all hzca ,
137   hr_all_organization_units_tl hrou ,
138   HR_ORGANIZATION_INFORMATION O2,
139   hz_cust_site_uses_all hzcsua ,
140   oe_order_headers_all oeoha ,
141   oe_transaction_types_tl oetrtyp ,
142   oe_order_lines_all oeola
143 WHERE
144   hzp.party_id = hzca.party_id AND
145   hzca.cust_account_id = gsmp.cust_id AND
146   hrou.organization_id(+) = gsmp.org_id AND
147   O2.ORGANIZATION_ID = hrou.ORGANIZATION_ID AND
148   O2.ORG_INFORMATION1 = 'OPERATING_UNIT' AND
149   O2.ORG_INFORMATION2 = 'Y' AND
150   hrou.language = userenv('LANG') AND
151   hzcsua.site_use_id(+) = gsmp.ship_to_site_id AND
152   oeoha.header_id(+) = gsmp.order_id AND
153   oetrtyp.transaction_type_id(+) = oeoha.order_type_id AND
154   oetrtyp.language = userenv('LANG') AND
155   oeola.line_id(+) = gsmp.order_line_id AND
156   gsmp.SOURCE = 'C' AND
157   sample_id = p_sample_id;
158 
159 -- bug 4924550 sql id  16293585
160 -- bug 5065199 sql id  16293585
161 CURSOR c_get_supp_info ( p_sample_id NUMBER)
162 IS
163 /*SELECT supplier_code, supplier_name,supplier_site,
164        po_number, po_line_number, receipt_number,
165        receipt_line_number
166 FROM   GMD_QC_E_SUPP_SAMPLE_DTLS_V
167 WHERE  sample_id = p_sample_id; */
168 
169 SELECT
170   povend.segment1 supplier_code ,
171   povend.vendor_name supplier_name ,
172   povendsites.vendor_site_code supplier_site ,
173   pohdrall.segment1 po_number,
174   polinesall.line_num po_line_number ,
175   rcvshiphdr.receipt_num receipt_number ,
176   rcvshiplines.line_num receipt_line_number
177  FROM
178   gmd_samples gsmp ,
179   po_vendors povend ,
180   po_vendor_sites_all povendsites ,
181   po_headers_all pohdrall ,
182   po_lines_all polinesall ,
183   rcv_shipment_headers rcvshiphdr ,
184   rcv_shipment_lines rcvshiplines ,
185   hr_operating_units hrops ,
186   mtl_parameters mp
187 WHERE
188   gsmp.supplier_id = povend.vendor_id AND
189   gsmp.supplier_site_id = povendsites.vendor_site_id(+) AND
190   gsmp.po_header_id = pohdrall.po_header_id(+) AND
191   gsmp.po_line_id = polinesall.po_line_id(+) AND
192   gsmp.receipt_id = rcvshiphdr.shipment_header_id(+) AND
193   gsmp.receipt_line_id = rcvshiplines.shipment_line_id(+) AND
194   gsmp.SOURCE = 'S' AND
195   hrops.organization_id = gsmp.org_id AND
196   mp.organization_id = gsmp.organization_id
197   and gsmp.sample_id = p_sample_id;
198 
199 
200 --Added for stability study
201 --JD changed orgn_code to organization_id.
202 
203 CURSOR c_get_stbl_info ( p_sample_id NUMBER)
204 IS
205 SELECT f.organization_id, f.ss_no,c.spec_name item_spec, c.spec_vers item_spec_version,
206        d.spec_name storage_spec, d.spec_vers storage_spec_version,
207        a.variant_no, b.name time_interval_name, b.scheduled_date
208 FROM   GMD_SS_VARIANTS A, GMD_SS_TIME_POINTS B,
209        GMD_SPECIFICATIONS_B C, GMD_SPECIFICATIONS D,
210        GMD_SAMPLES E,GMD_STABILITY_STUDIES f
211 WHERE  e.sample_id = p_sample_id
212 AND    e.variant_id = p_variant_id
213 AND    e.time_point_id = b.time_point_id
214 AND    e.variant_id    = b.variant_id
215 AND    a.variant_id = b.variant_id
216 AND    b.spec_id = c.spec_id
217 AND    a.storage_spec_id = d.spec_id
218 AND    a.ss_id = f.ss_id;
219 
220 --JD changed orgn_code to organization_id.
221 
222 CURSOR c_get_stbl_retained ( p_sample_id NUMBER)
223 IS
224 SELECT f.organization_id, f.ss_no,c.spec_name item_spec, c.spec_vers item_spec_version,
225        d.spec_name storage_spec, d.spec_vers storage_spec_version,
226        a.variant_no, null time_interval_name, null scheduled_date --null for retained sample.
227 FROM   GMD_SS_VARIANTS A,
228        GMD_SPECIFICATIONS_B C, GMD_SPECIFICATIONS D,
229        GMD_SAMPLES E,GMD_STABILITY_STUDIES f
230 WHERE  e.sample_id = p_sample_id
231 AND    e.variant_id = p_variant_id
232 AND    e.variant_id    = a.variant_id
233 AND    a.default_spec_id = c.spec_id
234 AND    a.storage_spec_id = d.spec_id
235 AND    a.ss_id = f.ss_id;
236 
237 c_stbl_row   c_get_stbl_info%ROWTYPE;
238 c_stbl_row_retain   c_get_stbl_retained%ROWTYPE;
239 
240 
241 --JD changed storage_whse_code to storage_subinventory.
242 --   changed storage_location to storage_locator_id.
243 
244 CURSOR c_get_variant_storage IS
245 SELECT a.instance_number, b.resources, b.storage_organization_id, b.storage_subinventory, b.storage_locator_id
246 FROM GMP_RESOURCE_INSTANCES a, GMD_SS_VARIANTS B
247 WHERE a.INSTANCE_ID(+) = b.resource_instance_id
248 AND   b.variant_id = p_variant_id;
249 c_variant_storage_row  c_get_variant_storage%ROWTYPE;
250 
251 --end for stability study
252 
253   -- Bug 3088216: added retain as to sample labels
254 CURSOR c_get_retain_as(p_retain_as VARCHAR2) IS
255 SELECT meaning
256 FROM   GEM_LOOKUPS
257 WHERE  LOOKUP_TYPE = 'GMD_QC_RETAIN_AS'
258   AND  LOOKUP_CODE = p_retain_as;
259 
260 --JD Added cursor to get orgn_code for display.
261 
262 CURSOR get_orgn_code (v_organization_id  mtl_parameters.organization_id%TYPE) IS
263 SELECT organization_code
264 FROM   mtl_parameters
265 WHERE  organization_id = v_organization_id;
266 
267 --BUG# 4612611. Added the cursor
268 CURSOR c_get_item (p_organization_id mtl_parameters.organization_id%TYPE, p_inventory_item_id mtl_system_items_b.inventory_item_id%TYPE) IS
269 SELECT concatenated_segments
270 FROM mtl_system_items_b_kfv
271 WHERE organization_id = p_organization_id
272 AND inventory_item_id = p_inventory_item_id;
273 
274 l_sample_orgn_code       mtl_parameters.organization_code%TYPE;
275 l_lab_orgn_code          mtl_parameters.organization_code%TYPE;
276 l_stab_orgn_code         mtl_parameters.organization_code%TYPE;
277 l_stab_retain_orgn_code  mtl_parameters.organization_code%TYPE;
278 l_smpl_storage_orgn_code mtl_parameters.organization_code%TYPE; --BUG# 4612611
279 l_item_code              mtl_system_items_b_kfv.concatenated_segments%TYPE; --BUG# 4612611
280 
281 
282 -- JD Added cursor to get location for display.
283 
284 CURSOR get_locator (v_locator_id  mtl_item_locations.inventory_location_id%TYPE) IS
285 SELECT segment1
286 FROM   mtl_item_locations
287 WHERE  inventory_location_id = v_locator_id;
288 
289 l_segment1           mtl_item_locations.segment1%TYPE;
290 l_store_segment1     mtl_item_locations.segment1%TYPE;
291 
292 
293 NO_PARAMETERS_DEFINED EXCEPTION;
294 NO_SAMPLES_FOUND      EXCEPTION;
295 
296 BEGIN
297  --Start change for stability study
298  -- JD changed orgn_code to organization_id.
299 
300  IF (p_variant_id IS NULL) THEN
301    IF p_organization_id is NULL OR
302       p_from_sample_no is NULL OR
303       p_to_sample_no is NULL OR
304       p_delimiter is NULL THEN
305     RAISE NO_PARAMETERS_DEFINED;
306    END IF;
307  ELSIF p_time_point_id IS NULL  AND
308        p_variant_id  IS NULL THEN
309    RAISE NO_PARAMETERS_DEFINED;
310  END IF;
311  --End change for stability study.
312 
313 
314  l_delim := p_delimiter;
315  -- l_delim := ',';
316 
317  -- Define Static Headings
318 
319  FND_FILE.PUT(FND_FILE.OUTPUT,'ORGN CODE '|| l_delim);
320  FND_FILE.PUT(FND_FILE.OUTPUT,'SAMPLE NO' || l_delim);
321  FND_FILE.PUT(FND_FILE.OUTPUT,'SAMPLE DESC' || l_delim);
322   -- FND_FILE.PUT(FND_FILE.OUTPUT,'SAMPLE DISPOSITION' || l_delim);
323  FND_FILE.PUT(FND_FILE.OUTPUT,'SAMPLE QTY' || l_delim);
324  FND_FILE.PUT(FND_FILE.OUTPUT,'SAMPLE UOM' || l_delim);
325   -- Bug 3088216: added Retain As to headings
326  FND_FILE.PUT(FND_FILE.OUTPUT,'RETAIN AS ' || l_delim);
327  FND_FILE.PUT(FND_FILE.OUTPUT,'ITEM CODE ' || l_delim); --BUG# 4612611
328  FND_FILE.PUT(FND_FILE.OUTPUT,'REVISION ' || l_delim);  --BUG# 4612611
329  FND_FILE.PUT(FND_FILE.OUTPUT,'PRIORITY' || l_delim);
330  FND_FILE.PUT(FND_FILE.OUTPUT,'SOURCE' || l_delim);
331 --JD
332 -- Changed label whse_code to subinventory.
333 -- Changed label location to locator.
334 -- Changed label lot_no to Parent_lot_number.
335 -- Changed label sublot_no to lot_number.
336 
337  FND_FILE.PUT(FND_FILE.OUTPUT,'SUBINVENTORY' || l_delim);
338  FND_FILE.PUT(FND_FILE.OUTPUT,'LOCATOR' || l_delim);
339  FND_FILE.PUT(FND_FILE.OUTPUT,'PARENT LOT NUMBER' || l_delim);
340  FND_FILE.PUT(FND_FILE.OUTPUT,'LOT NUMBER' || l_delim);
341  FND_FILE.PUT(FND_FILE.OUTPUT,'QC LAB ORGN' || l_delim);
345 --JD
342  FND_FILE.PUT(FND_FILE.OUTPUT,'DATE DRAWN' || l_delim);
343  FND_FILE.PUT(FND_FILE.OUTPUT,'EXPIRATION DATE' || l_delim);
344  FND_FILE.PUT(FND_FILE.OUTPUT,'LOT RETEST IND' || l_delim);
346 -- Changed label storage_whse_code to storage_subinventory.
347 -- Changed label storage_location to storage_locator.
348  FND_FILE.PUT(FND_FILE.OUTPUT,'STORAGE ORGN' || l_delim); --BUG# 4612611
349  FND_FILE.PUT(FND_FILE.OUTPUT,'STORAGE SUBINVENTORY' || l_delim);
350  FND_FILE.PUT(FND_FILE.OUTPUT,'STORAGE LOCATOR' || l_delim);
351  FND_FILE.PUT(FND_FILE.OUTPUT,'RESOURCES' || l_delim);
352  FND_FILE.PUT(FND_FILE.OUTPUT,'RESOURCE INSTANCE' || l_delim);
353  FND_FILE.PUT(FND_FILE.OUTPUT,'SAMPLE INSTANCE' || l_delim);
354  --FND_FILE.PUT(FND_FILE.OUTPUT,'PLANT CODE' || l_delim); --BUG# 4612611
355  FND_FILE.PUT(FND_FILE.OUTPUT,'BATCH NO' || l_delim);
356  FND_FILE.PUT(FND_FILE.OUTPUT,'FORMULA NO' || l_delim);
357  FND_FILE.PUT(FND_FILE.OUTPUT,'FORMULA VERS' || l_delim);
358  FND_FILE.PUT(FND_FILE.OUTPUT,'OPRN NO' || l_delim);
359  FND_FILE.PUT(FND_FILE.OUTPUT,'OPRN VERS' || l_delim);
360  FND_FILE.PUT(FND_FILE.OUTPUT,'RECIPE NO' || l_delim);
361  FND_FILE.PUT(FND_FILE.OUTPUT,'RECIPE VERSION' || l_delim);
362  FND_FILE.PUT(FND_FILE.OUTPUT,'ROUTING NO' || l_delim);
363  FND_FILE.PUT(FND_FILE.OUTPUT,'ROUTING VERS' || l_delim);
364  FND_FILE.PUT(FND_FILE.OUTPUT,'CUSTOMER NAME' || l_delim);
365  FND_FILE.PUT(FND_FILE.OUTPUT,'OPERATING UNIT' || l_delim);
366  FND_FILE.PUT(FND_FILE.OUTPUT,'SHIP TO SITE' || l_delim);
367  FND_FILE.PUT(FND_FILE.OUTPUT,'ORDER TYPE ' || l_delim);
368  FND_FILE.PUT(FND_FILE.OUTPUT,'ORDER NO  ' || l_delim);
369  FND_FILE.PUT(FND_FILE.OUTPUT,'LINE NO  ' || l_delim);
370  FND_FILE.PUT(FND_FILE.OUTPUT,'SUPPLIER CODE  ' || l_delim);
371  FND_FILE.PUT(FND_FILE.OUTPUT,'SUPPLIER NAME  ' || l_delim);
372  FND_FILE.PUT(FND_FILE.OUTPUT,'SUPPLIER SITE  ' || l_delim);
373  FND_FILE.PUT(FND_FILE.OUTPUT,'PO NUMBER  ' || l_delim);
374  FND_FILE.PUT(FND_FILE.OUTPUT,'PO LINE NUMBER  ' || l_delim);
375  FND_FILE.PUT(FND_FILE.OUTPUT,'RECIEPT NUMBER  ' || l_delim);
376  FND_FILE.PUT(FND_FILE.OUTPUT,'RECIEPT LINE NUMBER  ');
377 
378  --Added for stability study
379  FND_FILE.PUT(FND_FILE.OUTPUT,'STABILITY STUDY ORGN  ' || l_delim);
380  FND_FILE.PUT(FND_FILE.OUTPUT,'STABILTY STUDY NO  ' || l_delim);
381  FND_FILE.PUT(FND_FILE.OUTPUT,'ITEM SPEC  ' || l_delim);
382  FND_FILE.PUT(FND_FILE.OUTPUT,'ITEM SPEC VERS ' || l_delim);
383  FND_FILE.PUT(FND_FILE.OUTPUT,'STORAGE SPEC ' || l_delim);
384  FND_FILE.PUT(FND_FILE.OUTPUT,'STORAGE_SPEC_VERSION  ' || l_delim);
385  FND_FILE.PUT(FND_FILE.OUTPUT,'VARIANT NUMBER  ' || l_delim);
386  FND_FILE.PUT(FND_FILE.OUTPUT,'TIME INTERVAL NAME  ' || l_delim);
387  FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'SCHEDULED START DATE  ' || l_delim);
388 
389 
390 
391  FOR samp in c_get_sample LOOP
392 
393     EXIT WHEN c_get_sample%NOTFOUND;
394 
395     -- JD convert sample organization_id to organization code for display.
396     IF (samp.organization_id IS NOT NULL) THEN
397        OPEN get_orgn_code(samp.organization_id);
398        FETCH get_orgn_code INTO l_sample_orgn_code;
399        IF (get_orgn_code%NOTFOUND) THEN
400           l_sample_orgn_code := NULL;
401        END IF;
402        CLOSE get_orgn_code;
403     ELSE
404        l_sample_orgn_code := NULL;
405     END IF;
406 
407     -- JD changed samp.orgn_code to l_sample_orgn_code.
408     -- JD changed samp.sample_uom to samp.sample_qty_uom.
409 
410     FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_sample_orgn_code||   '"' || l_delim);
411     FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||samp.sample_no||   '"' || l_delim);
412     FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||samp.sample_desc|| '"' || l_delim);
413     FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||samp.sample_qty||  '"' || l_delim);
414     FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||samp.sample_qty_uom||  '"' || l_delim);
415  --   FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||samp.sample_disposition|| '"' || l_delim);
416 
417       -- Bug 3088216: If retain as exists, get the value
418     IF samp.retain_as IS NOT NULL THEN
419        OPEN c_get_retain_as(samp.retain_as);
420        FETCH c_get_retain_as INTO l_retain_as;
421        CLOSE c_get_retain_as;
422        FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_retain_as || '"' || l_delim);
423     ELSE
424        FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||samp.retain_as || '"' || l_delim);
425     END IF;
426 
427     OPEN c_get_item(samp.organization_id, samp.inventory_item_id);  --BUG# 4612611
428     FETCH c_get_item INTO l_item_code;
429     CLOSE c_get_item;
430 
431     FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_item_code || '"' || l_delim); --BUG# 4612611
432     FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||samp.revision || '"' || l_delim); --BUG# 4612611
433 
434     IF samp.priority is NOT NULL THEN
435        OPEN c_get_priority(samp.priority);
436         FETCH c_get_priority INTO l_priority;
437        CLOSE c_get_priority;
438        FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_priority || '"' || l_delim);
439     ELSE
440        FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||samp.priority || '"' || l_delim);
441     END IF;
442 
443     IF samp.source is NOT NULL THEN
444        OPEN c_get_source(samp.source);
445         FETCH c_get_source INTO l_source;
446        CLOSE c_get_source;
447        FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_source || '"' || l_delim);
448     ELSE
449        FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||samp.source || '"' || l_delim);
450     END IF;
451 --JD changed samp.whse_code to samp.subinventory.
452 --   Added cursor to get locator display value.
453 --   changed location to l_segment1.
457 
454 --   changed lot_no to parent_lot_number.
455 --   changed sublot_no to lot_number.
456 --   changed qc_lab_orgn_code to l_lab_orgn_code.
458     IF (samp.locator_id IS NOT NULL) THEN
459        OPEN get_locator (samp.locator_id);
460        FETCH get_locator INTO l_segment1;
461        IF (get_locator%NOTFOUND) THEN
462           l_segment1 := NULL;
463        END IF;
464        CLOSE get_locator;
465     ELSE
466        l_segment1 := NULL;
467     END IF;
468 
469     -- JD convert qc_lab organization_id to lab_organization code for display.
470 
471     IF (samp.lab_organization_id IS NOT NULL) THEN
472        OPEN get_orgn_code(samp.lab_organization_id);
473        FETCH get_orgn_code INTO l_lab_orgn_code;
474        IF (get_orgn_code%NOTFOUND) THEN
475           l_lab_orgn_code := NULL;
476        END IF;
477        CLOSE get_orgn_code;
478     ELSE
479        l_lab_orgn_code := NULL;
480     END IF;
481 
482     FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||samp.subinventory||   '"' || l_delim);
483     FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_segment1||    '"' || l_delim);
484     FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||samp.parent_lot_number||      '"' || l_delim);
485     FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||samp.lot_number||   '"' || l_delim);
486     FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_lab_orgn_code|| '"' || l_delim);
487     FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||samp.date_drawn|| '"' || l_delim);
488     FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||samp.expiration_date|| '"' || l_delim);
489     FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||samp.lot_retest_ind|| '"' || l_delim);
490 
491     IF (samp.source ='T') THEN
492       OPEN c_get_variant_storage;
493       FETCH c_get_variant_storage into c_variant_storage_row;
494       CLOSE c_get_variant_storage;
495 
496       IF (c_variant_storage_row.storage_organization_id IS NOT NULL) THEN --BUG# 4612611
497         OPEN get_orgn_code(c_variant_storage_row.storage_organization_id);
498         FETCH get_orgn_code INTO l_smpl_storage_orgn_code;
499         CLOSE get_orgn_code;
500       END IF;
501 
502       --   Added cursor to get locator display value.
503       --   changed location to l_store_segment1.
504 
505       IF (c_variant_storage_row.storage_locator_id IS NOT NULL) THEN
506          OPEN get_locator (c_variant_storage_row.storage_locator_id);
507          FETCH get_locator INTO l_segment1;
508          IF (get_locator%NOTFOUND) THEN
509             l_store_segment1 := NULL;
510          END IF;
511          CLOSE get_locator;
512       ELSE
513          l_store_segment1 := NULL;
514       END IF;
515 
516       FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_smpl_storage_orgn_code|| '"' || l_delim);  --BUG# 4612611
517       FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||c_variant_storage_row.storage_subinventory|| '"' || l_delim);
518       FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_store_segment1|| '"' || l_delim);
519       FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||c_variant_storage_row.resources|| '"' || l_delim);
520       FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||c_variant_storage_row.instance_number|| '"' || l_delim);
521 
522     ELSE
523 
524       IF (samp.storage_organization_id IS NOT NULL) THEN --BUG# 4612611
525         OPEN get_orgn_code(samp.storage_organization_id);
526         FETCH get_orgn_code INTO l_smpl_storage_orgn_code;
527         CLOSE get_orgn_code;
528       END IF;
529 
530       --  changed storage_location to l_segment1.
531       --    changed storage_whse to storage_subinventory.
532 
533       IF (samp.storage_locator_id IS NOT NULL) THEN
534          OPEN get_locator (samp.storage_locator_id);
535          FETCH get_locator INTO l_segment1;
536          CLOSE get_locator;
537       END IF;
538 
539       FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_smpl_storage_orgn_code|| '"' || l_delim); --BUG# 4612611
540       FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||samp.storage_subinventory|| '"' || l_delim);
541       FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_segment1|| '"' || l_delim);
542       FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||samp.resources|| '"' || l_delim);
543       FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||samp.instance_id|| '"' || l_delim);
544     END IF;
545 
546     FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||samp.sample_instance|| '"'  || l_delim);
547 
548 
549 
550     IF samp.source = 'W' THEN
551        OPEN c_get_batch_info (samp.sample_id);
552         FETCH c_get_batch_info INTO
553            --l_plant_organization_id, --BUG# 4612611
554            l_batch_no,
555            l_form_no,
556            l_form_vers,
557            l_oprn_no,
558            l_oprn_vers,
559            l_recipe_no,
560            l_recipe_vers,
561            l_routing_no,
562            l_routing_vers;
563        CLOSE c_get_batch_info;
564 
565 
566 
567        --FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_plant_code|| '"' || l_delim);  --BUG# 4612611
568        FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_batch_no||   '"' || l_delim);
569        FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_form_no||    '"' || l_delim);
570        FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_form_vers||  '"' || l_delim);
571        FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_oprn_no||    '"' || l_delim);
572        FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_oprn_vers||  '"' || l_delim);
573        FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_recipe_no||  '"' || l_delim);
574        FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_recipe_vers||'"' || l_delim);
575        FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_routing_no|| '"' || l_delim);
579        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- order_type
576        FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_routing_vers|| '"' || l_delim);
577        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- customer name
578        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- ship_to_site
580        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- order_no
581        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- line_no
582        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- supplier_code
583        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- supplier_name
584        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- supplier_site
585        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- po_number
586        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- po_line_number
587        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- reicpt_no
588        FND_FILE.PUT(FND_FILE.OUTPUT,'" "'); -- receipt_line_no
589 
590        --start for stability study
591        FND_FILE.PUT(FND_FILE.OUTPUT,'" "  ' || l_delim);  --stability study orgn
592        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim);   -- stability study no
593        FND_FILE.PUT(FND_FILE.OUTPUT,'" "  ' || l_delim);  --item spec
594        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim);   -- item spec vers
595        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim);    --storage spec
596        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim);  --storage_spec_version
597        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim);  --variant number
598        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim);  --time interval name
599        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim);  --scheduled start date
600        --end for stability study
601 
602 
603 
604 
605 
606 
607      ELSIF samp.source  = 'C' THEN
608        OPEN c_get_cust_info (samp.sample_id);
609         FETCH c_get_cust_info INTO
610            l_cust_name,
611            l_oper_unit,
612            l_ship_to,
613            l_order_type,
614            l_order_no,
615            l_line_no;
616        CLOSE c_get_cust_info;
617        --FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- plant_codce --BUG# 4612611
618        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- batch_no
619        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- formula_no
620        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- formula_vers
621        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- oprn_no
622        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- oprn_vers
623        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- recipe_no
624        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- recipe_vers
625        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- routing_no
626        FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_cust_name||   '"' || l_delim);
627        FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_oper_unit||   '"' || l_delim);
628        FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_ship_to||     '"' || l_delim);
629        FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_order_type||  '"' || l_delim);
630        FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_order_no||    '"' || l_delim);
631        FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_line_no||     '"' || l_delim);
632        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- supplier_code
633        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- supplier_name
634        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- supplier_site
635        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- po_number
636        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- po_line_number
637        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- reicpt_no
638        FND_FILE.PUT(FND_FILE.OUTPUT,'" "'); -- receipt_line_no
639 
640 
641        --start for stability study
642        FND_FILE.PUT(FND_FILE.OUTPUT,'" "  ' || l_delim);  --stability study orgn
643        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim);   -- stability study no
644        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim);  --item spec
645        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim);   -- item spec vers
646        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim);    --storage spec
647        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim);  --storage_spec_version
648        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim);  --variant number
649        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim);  --time interval name
650        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim);  --scheduled start date
651        --end for stability study
652 
653      ELSIF samp.source = 'S' THEN
654        OPEN c_get_supp_info (samp.sample_id);
655         FETCH c_get_supp_info INTO
656            l_supp_code,
657            l_supp_name,
658            l_supp_site,
659            l_po_no,
660            l_po_lineno,
661            l_rcpt_no,
662            l_rcpt_lineno;
663 
664         CLOSE c_get_supp_info;
665         --FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- plant_codce --BUG# 4612611
666         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- batch_no
667         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- plant_codce
668         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- plant_codce
669         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- formula_no
670         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- formula_vers
671         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- oprn_no
672         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- oprn_vers
673         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- recipe_no
674         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- recipe_vers
675         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- routing_no
676         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- routing_vers
677         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- customer name
678         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- ship_to_site
679         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- order_type
680         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- order_no
681         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- line_no
682         FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_supp_code||   '"' || l_delim);
683         FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_supp_name||   '"' || l_delim);
684         FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_supp_site||   '"' || l_delim);
685         FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_po_no||       '"' || l_delim);
686         FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_po_lineno||   '"' || l_delim);
687         FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_rcpt_no||     '"' || l_delim);
688         FND_FILE.PUT(FND_FILE.OUTPUT,'"' ||l_rcpt_lineno|| '"');
689 
690                --start for stability study
691        FND_FILE.PUT(FND_FILE.OUTPUT,'" "  ' || l_delim);  --stability study orgn
692        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim);   -- stability study no
693        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim);  --item spec
694        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim);   -- item spec vers
695        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim);    --storage spec
696        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim);  --storage_spec_version
697        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim);  --variant number
698        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim);  --time interval name
699        FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim);  --scheduled start date
700        --end for stability study
701      ELSIF samp.source = 'T' THEN
702        IF (samp.time_point_id IS NOT NULL) THEN
703          OPEN c_get_stbl_info (samp.sample_id);
704          FETCH c_get_stbl_info INTO c_stbl_row;
705          CLOSE c_get_stbl_info;
706        ELSE
707          OPEN c_get_stbl_retained(samp.sample_id);
708          FETCH c_get_stbl_retained INTO c_stbl_row_retain;
709          CLOSE c_get_stbl_retained;
710        END IF;
711 
712 
713 
714         --FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- plant_codce --BUG# 4612611
715         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- batch_no
716         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- plant_codce
717         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- plant_codce
718         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- formula_no
719         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- formula_vers
720         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- oprn_no
721         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- oprn_vers
722         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- recipe_no
723         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- recipe_vers
724         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- routing_no
728         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- order_type
725         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- routing_vers
726         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- customer name
727         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- ship_to_site
729         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- order_no
730         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- line_no
731         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- supplier_code
732         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- supplier_name
733         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- supplier_site
734         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- po_number
735         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- po_line_number
736         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- reicpt_no
737         FND_FILE.PUT(FND_FILE.OUTPUT,'" "'); -- receipt_line_no
738 
739        IF (samp.time_point_id IS NOT NULL) THEN
740          -- JD convert stab study organization_id to organization code for display.
741          -- change c_stbl_row.orgn_code to l_stab_orgn_code.
742 
743          IF (c_stbl_row.organization_id IS NOT NULL) THEN
744             OPEN get_orgn_code(c_stbl_row.organization_id);
745             FETCH get_orgn_code INTO l_stab_orgn_code;
746             IF (get_orgn_code%NOTFOUND) THEN
747                l_stab_orgn_code := NULL;
748             END IF;
749             CLOSE get_orgn_code;
750          ELSE
751             l_stab_orgn_code := NULL;
752          END IF;
753 
754          FND_FILE.PUT(FND_FILE.OUTPUT,'"'||l_stab_orgn_code ||'"' || l_delim);  --stability sudy orgn code
755          FND_FILE.PUT(FND_FILE.OUTPUT,'"'||c_stbl_row.ss_no ||'"' || l_delim);   -- ss_no
756          FND_FILE.PUT(FND_FILE.OUTPUT,'"'||c_stbl_row.item_spec ||'"' || l_delim);  --item spec
757          FND_FILE.PUT(FND_FILE.OUTPUT,'"'||c_stbl_row.item_spec_version ||'"' || l_delim);   -- item spec vers
758          FND_FILE.PUT(FND_FILE.OUTPUT,'"'||c_stbl_row.storage_spec ||'"' || l_delim);    --storage spec
759          FND_FILE.PUT(FND_FILE.OUTPUT,'"'||c_stbl_row.storage_spec_version ||'"' || l_delim);  --storage_spec_version
760          FND_FILE.PUT(FND_FILE.OUTPUT,'"'||c_stbl_row.variant_no ||'"' || l_delim);  --variant number
761          FND_FILE.PUT(FND_FILE.OUTPUT,'"'||c_stbl_row.time_interval_name ||'"' || l_delim);  --time interval name
762          FND_FILE.PUT(FND_FILE.OUTPUT,'"'||c_stbl_row.scheduled_date ||'"' || l_delim);  --scheduled start date
763        ELSE
764          -- JD convert retain ss organization_id to organization code for display.
765          -- change c_stbl_row_retain.orgn_code to l_stab_orgn_code.
766 
767          IF (c_stbl_row_retain.organization_id IS NOT NULL) THEN
768             OPEN get_orgn_code(c_stbl_row_retain.organization_id);
769             FETCH get_orgn_code INTO l_stab_retain_orgn_code;
770             IF (get_orgn_code%NOTFOUND) THEN
771                l_stab_retain_orgn_code := NULL;
772             END IF;
773             CLOSE get_orgn_code;
774          ELSE
775             l_stab_retain_orgn_code := NULL;
776          END IF;
777 
778          FND_FILE.PUT(FND_FILE.OUTPUT,'"'||l_stab_retain_orgn_code ||'"' || l_delim);  --stability sudy orgn code
779          FND_FILE.PUT(FND_FILE.OUTPUT,'"'||c_stbl_row_retain.ss_no ||'"' || l_delim);   -- ss_no
780          FND_FILE.PUT(FND_FILE.OUTPUT,'"'||c_stbl_row_retain.item_spec ||'"' || l_delim);  --item spec
781          FND_FILE.PUT(FND_FILE.OUTPUT,'"'||c_stbl_row_retain.item_spec_version ||'"' || l_delim);   -- item spec vers
782          FND_FILE.PUT(FND_FILE.OUTPUT,'"'||c_stbl_row_retain.storage_spec ||'"' || l_delim);    --storage spec
783          FND_FILE.PUT(FND_FILE.OUTPUT,'"'||c_stbl_row_retain.storage_spec_version ||'"' || l_delim);  --storage_spec_version
784          FND_FILE.PUT(FND_FILE.OUTPUT,'"'||c_stbl_row_retain.variant_no ||'"' || l_delim);  --variant number
785          FND_FILE.PUT(FND_FILE.OUTPUT,'"'||c_stbl_row_retain.time_interval_name ||'"' || l_delim);  --time interval name
786          FND_FILE.PUT(FND_FILE.OUTPUT,'"'||c_stbl_row_retain.scheduled_date ||'"' || l_delim);  --scheduled start date
787        END IF;
788 
789      --end for stability study
790 
791      ELSE
792         --FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- plant_codce --BUG# 4612611
793         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- batch_no
794         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- plant_codce
795         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- plant_codce
796         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- formula_no
797         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- formula_vers
798         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- oprn_no
799         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- oprn_vers
800         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- recipe_no
801         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- recipe_vers
802         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- routing_no
803         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- routing_vers
804         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- customer name
805         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- ship_to_site
806         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- order_type
807         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- order_no
808         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- line_no
809         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- supplier_code
810         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- supplier_name
811         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- supplier_site
812         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- po_number
813         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- po_line_number
814         FND_FILE.PUT(FND_FILE.OUTPUT,'" "' || l_delim); -- reicpt_no
815         FND_FILE.PUT(FND_FILE.OUTPUT,'" "'); -- receipt_line_no
816      END IF;
817 
818    l_total_lines := l_total_lines + 1.0;
819 
820    FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
821 
822  END LOOP;
823 
824 -- JD changed p_orgn_code to p_organization_id.
825 
826  IF l_total_lines = 0 THEN
827      RAISE NO_SAMPLES_FOUND;
828  ELSIF (p_organization_id IS NOT NULL) THEN
829      FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
830      FND_FILE.PUT_LINE(FND_FILE.LOG,' Please Check View/Output For Output ');
831      FND_FILE.PUT_LINE(FND_FILE.LOG,'Total Samples Generated => ' || l_total_lines ||' For Input Values Defined ');
832      FND_FILE.PUT_LINE(FND_FILE.LOG,'ORGANIZATION_ID   => ' || p_organization_id);
833      FND_FILE.PUT_LINE(FND_FILE.LOG,'FROM SAMPLE => ' || p_from_sample_no);
834      FND_FILE.PUT_LINE(FND_FILE.LOG,'TO SAMPLE   => ' || p_to_sample_no);
835      FND_FILE.PUT_LINE(FND_FILE.LOG,'DELIMITER   => ' || p_delimiter);
836      FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
837  ELSE
838      FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
839      FND_FILE.PUT_LINE(FND_FILE.LOG,' Please Check View/Output For Output ');
840      FND_FILE.PUT_LINE(FND_FILE.LOG,'Total Samples Generated => ' || l_total_lines ||' For Input Values Defined ');
841      FND_FILE.PUT_LINE(FND_FILE.LOG,'VARIANT_ID   => ' || p_variant_id);
842      FND_FILE.PUT_LINE(FND_FILE.LOG,'TIME_POINT_ID => ' || p_time_point_id);
843      FND_FILE.PUT_LINE(FND_FILE.LOG,'DELIMITER   => ' || p_delimiter);
844      FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
845  END IF;
846 
847 
848 EXCEPTION
849 -- JD changed p_orgn_code to p_organization_id.
850 
851 WHEN NO_SAMPLES_FOUND THEN
852          IF (p_organization_id IS NOT NULL) THEN
853            FND_FILE.PUT_LINE(FND_FILE.LOG,'No sample records found for :');
854            FND_FILE.PUT_LINE(FND_FILE.LOG,'ORGANIZATION_ID   => ' || p_organization_id);
855            FND_FILE.PUT_LINE(FND_FILE.LOG,'FROM SAMPLE => ' || p_from_sample_no);
856            FND_FILE.PUT_LINE(FND_FILE.LOG,'TO SAMPLE   => ' || p_to_sample_no);
857            FND_FILE.PUT_LINE(FND_FILE.LOG,'DELIMITER   => ' || p_delimiter);
858          ELSE
859             FND_FILE.PUT_LINE(FND_FILE.LOG,'No sample records found for :');
860             FND_FILE.PUT_LINE(FND_FILE.LOG,'VARIANT_ID   => ' || p_variant_id);
861             FND_FILE.PUT_LINE(FND_FILE.LOG,'TIME_POINT_ID => ' || p_time_point_id);
862             FND_FILE.PUT_LINE(FND_FILE.LOG,'DELIMITER   => ' || p_delimiter);
863          END IF;
864 
865 
866 
867 WHEN NO_PARAMETERS_DEFINED THEN
868          FND_FILE.PUT_LINE(FND_FILE.LOG,'Required Parameters Missing :');
869          FND_FILE.PUT_LINE(FND_FILE.LOG,'ORGANIZATION_ID   => ' || p_organization_id);
870          FND_FILE.PUT_LINE(FND_FILE.LOG,'FROM SAMPLE => ' || p_from_sample_no);
871          FND_FILE.PUT_LINE(FND_FILE.LOG,'TO SAMPLE   => ' || p_to_sample_no);
872          FND_FILE.PUT_LINE(FND_FILE.LOG,'DELIMITER   => ' || p_delimiter);
873 WHEN OTHERS THEN
874          FND_FILE.PUT_LINE(FND_FILE.LOG,'Concurrant Program Raised WHEN OTHERS EXCEPTION');
875 
876 END SAMPLE_GEN_SRS;
877 
878 
879 
880 
881 END GMD_QC_LABELS_UTIL;