PACKAGE BODY: APPS.PSB_OFA_PVT

Source

1 PACKAGE  body PSB_OFA_PVT as
2 /* $Header: PSBVFA1B.pls 115.4 2002/11/22 07:38:55 pmamdaba ship $ */
3 ------------------------------------------------------------------------------------------
4 Procedure Set_Flex_Seg_Desc(p_code_combination_id in varchar2, p_segment in varchar2,p_coa_id in varchar2) IS
5   lv_return   boolean;
6   lv_ccid_num number;
7   lv_seg_num  number;
8   lv_coa_id   number;
9 Begin
10   lv_ccid_num := TO_NUMBER(p_code_combination_id);
11   lv_coa_id := TO_NUMBER(p_coa_id);
12   select TO_NUMBER(TRANSLATE(p_segment, 'SEGMENT', '0'))
13     into lv_seg_num
14     from dual;
15   lv_return := FND_FLEX_KEYVAL.validate_ccid('SQLGL', 'GL#', lv_coa_id, lv_ccid_num);
16   description := FND_FLEX_KEYVAL.segment_description(lv_seg_num);
17 End;
18 
19 Function Get_Flex_Seg_Desc return varchar2 IS
20   lv_return_text varchar2(150);
21 Begin
22   Return description;
23 End;
24 
25 END PSB_OFA_PVT;