[Home] [Help]
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