PACKAGE BODY: APPS.PO_DISTRIBUTIONS_SV2

Source

1 PACKAGE BODY PO_DISTRIBUTIONS_SV2 AS
2 /* $Header: POXPOD2B.pls 115.2 2002/11/23 02:47:28 sbull ship $ */
3 
4 FUNCTION get_new_ccid(
5                 x_operation           IN VARCHAR2,
6                 x_appl_short_name     IN VARCHAR2,
7                 x_key_flex_code       IN VARCHAR2,
8                 x_structure_number    IN NUMBER,
9                 x_concat_segments     IN VARCHAR2,
10                 x_validation_date     IN DATE,
11                 x_vrule               IN VARCHAR2,
12                 x_encoded_error_msg IN OUT NOCOPY VARCHAR2,
13                 x_new_ccid          IN OUT NOCOPY NUMBER) return BOOLEAN is
14 
15 x_success  BOOLEAN;
16 
17 x_progress  VARCHAR2(3) := '000';
18 
19 BEGIN
20 
21   x_progress := '001';
22 
23   x_success := FND_FLEX_KEYVAL.validate_segs(
24                 operation=>x_operation,
25                 appl_short_name=>x_appl_short_name,
26                 key_flex_code=>x_key_flex_code,
27                 structure_number=>x_structure_number,
28                 concat_segments=>x_concat_segments,
29                 validation_date=>x_validation_date,
30                 vrule=>x_vrule);
31 
32   x_progress := '002';
33 
34   IF x_success = TRUE THEN
35 
36     x_new_ccid := FND_FLEX_KEYVAL.combination_id;
37     return(TRUE);
38 
39   ELSE
40 
41      x_encoded_error_msg := FND_FLEX_KEYVAL.encoded_error_message;
42   --   x_encoded_error_msg := FND_FLEX_KEYVAL.error_message;
43     return(FALSE);
44 
45   END IF;
46 
47 EXCEPTION
48 WHEN OTHERS THEN
49 po_message_s.sql_error('po_distributions_sv2.get_new_ccid', x_progress, sqlcode);
50 
51 
52 END;
53 
54 END po_distributions_sv2;
55