PACKAGE BODY: APPS.GMD_SPREADSHEET_COMMON

Source

1 PACKAGE BODY GMD_SPREADSHEET_COMMON AS
2 /* $Header: GMDSPDSB.pls 115.1 2002/12/18 18:42:21 rajreddy noship $ */
3 
4   PROCEDURE qc_values (V_orgn_code  IN  VARCHAR2,
5   		       V_item_id    IN  NUMBER,
6   		       V_assay_code IN  VARCHAR2,
7   		       V_num_rslt   OUT NOCOPY NUMBER,
8   		       V_text_rslt  OUT NOCOPY VARCHAR2) IS
9     X_loct	VARCHAR2(40);
10     CURSOR   Cur_get_qcvalue (V_orgn_code VARCHAR2, V_item_id NUMBER, V_assay_code VARCHAR2) IS
11        SELECT  c.result_value_char, c.result_value_num
12        FROM    gmd_samples a,
13                gmd_qc_tests_b b,
14                gmd_results c
15        WHERE    a.item_id = v_item_id
16          AND   (a.lot_id IS NULL OR a.lot_id = 0)
17          AND   a.whse_code IS NULL
18          AND   (a.location IS NULL OR a.location = X_loct)
19          AND   a.delete_mark = 0
20          AND   a.source = 'I'
21          AND   a.sample_id = c.sample_id
22          AND   c.test_id = b.test_id
23          AND   b.test_code = v_assay_code
24          AND   c.qc_lab_orgn_code = v_orgn_code
25          AND   c.delete_mark = 0
26          AND   rownum = 1
27          ORDER BY c.result_date desc;
28   BEGIN
29     X_loct := FND_PROFILE.VALUE('IC$DEFAULT_LOCT');
30     OPEN Cur_get_qcvalue(V_orgn_code, V_item_id, V_assay_code);
31     FETCH Cur_get_qcvalue INTO V_text_rslt, V_num_rslt;
32     CLOSE Cur_get_qcvalue;
33   END qc_values;
34 
35 END GMD_SPREADSHEET_COMMON;