PACKAGE BODY: APPS.PO_UN_NUMBERS_SV1

Source

1 PACKAGE BODY PO_UN_NUMBERS_SV1 AS
2 /* $Header: POXPIUNB.pls 120.0.12000000.1 2007/07/27 08:35:45 grohit noship $ */
3 
4 /*================================================================
5 
6   FUNCTION NAME: 	val_un_number_id()
7 
8 ==================================================================*/
9  FUNCTION val_un_number_id(x_un_number_id IN NUMBER) RETURN BOOLEAN
10  IS
11 
12    x_progress   varchar2(3) := null;
13    x_temp       binary_integer := 0;
14 
15  BEGIN
16    x_progress := '010';
17 
18    /* check to see if x_un_number_id is valid in po_un_numbers_val_v */
19 
20    SELECT count(*)
21      INTO x_temp
22      FROM po_un_numbers_val_v
23     WHERE un_number_id = x_un_number_id;
24 
25    IF x_temp = 0 THEN
26       RETURN FALSE;   /* validation fails */
27    ELSE
28       RETURN TRUE;    /* validation succeeds */
29    END IF;
30 
31  EXCEPTION
32    WHEN others THEN
33         po_message_s.sql_error
34         ('val_un_number_id', x_progress, sqlcode);
35         raise;
36  END val_un_number_id;
37 
38 /*================================================================
39 
40   FUNCTION NAME: 	derive_un_number_id()
41 
42 ==================================================================*/
43 FUNCTION  derive_un_number_id(X_un_number IN VARCHAR2)
44                                    return NUMBER IS
45 
46     X_progress       varchar2(3)     := NULL;
47     X_un_number_id_v  number      := NULL;
48 
49     /* get the group of un_number_id records */
50 
51     CURSOR c_un_number_id IS
52     SELECT un_number_id
53     FROM   po_un_numbers_val_v
54     WHERE  un_number = X_un_number;
55 
56 BEGIN
57 
58     X_progress := '010';
59 
60     OPEN c_un_number_id;
61     FETCH c_un_number_id INTO  X_un_number_id_v;
62 
63     IF c_un_number_id%NOTFOUND then
64        X_un_number_id_v := NULL;
65     END IF;
66 
67     CLOSE c_un_number_id;
68 
69     RETURN X_un_number_id_v;
70 
71 EXCEPTION
72    WHEN OTHERS THEN
73      po_message_s.sql_error('derive_un_number_id',X_progress, sqlcode);
74    RAISE;
75 
76 END derive_un_number_id;
77 
78 END PO_UN_NUMBERS_SV1;