PACKAGE BODY: APPS.PO_LINE_TYPES_SV1

Source

1 PACKAGE BODY PO_LINE_TYPES_SV1 AS
2 /* $Header: POXPILTB.pls 120.0.12000000.1 2007/07/27 08:34:08 grohit noship $ */
3 
4 /*================================================================
5 
6   FUNCTION NAME: 	val_line_type_id()
7 
8 ==================================================================*/
9  FUNCTION val_line_type_id(x_line_type_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 there are x_line_type_id exists in
19       po_line_types_val_v table */
20 
21    SELECT count(*)
22      INTO x_temp
23      FROM po_line_types_val_v
24     WHERE line_type_id = x_line_type_id;
25 
26    IF x_temp = 0 THEN
27       RETURN FALSE;      /* validation fails */
28    ELSE
29       RETURN TRUE;       /* validation succeeds */
30    END IF;
31 
32  EXCEPTION
33    WHEN others THEN
34         po_message_s.sql_error
35         ('val_line_type_id', x_progress, sqlcode);
36         raise;
37  END val_line_type_id;
38 
39 /*================================================================
40 
41   FUNCTION NAME: 	derive_line_type_id()
42 
43 ==================================================================*/
44 FUNCTION  derive_line_type_id(X_line_type  IN VARCHAR2) return NUMBER IS
45 
46   X_progress          varchar2(3)     := NULL;
47   X_line_type_id_v    number        := NULL;
48 
49 BEGIN
50 
51   X_progress := '010';
52 
53    /* derive line_type_id from po_line_types_val_v view based on
54       line_type which is being provided from input parameter */
55 
56    SELECT line_type_id
57     INTO X_line_type_id_v
58     FROM po_line_types_val_v
59    WHERE line_type = X_line_type;
60 
61   RETURN X_line_type_id_v;
62 
63 EXCEPTION
64    When no_data_found then
65         RETURN NULL;
66    When others then
67         po_message_s.sql_error('derive_line_type_id',X_progress, sqlcode);
68         raise;
69 END derive_line_type_id;
70 
71 END PO_LINE_TYPES_SV1;