PACKAGE BODY: APPS.EDW_PROJ_CLS

Source

1 PACKAGE BODY EDW_PROJ_CLS AS
2 /* $Header: FIICAPCB.pls 120.0 2002/08/24 04:49:59 appldev noship $  */
3 VERSION  CONSTANT CHAR(80) := '$Header: EDWFKMPB.pls 110.48 99/06/09 11:55:56 vs
4 urendr ship $';
5 
6 Function get_class_fk(
7    p_project_id        in NUMBER,
8    p_cls_no in VARCHAR2) return VARCHAR2 is
9   l_cat     VARCHAR2(120) := 'NA_EDW';
10 BEGIN
11    select class_code
12           || '-'
13           || edw_instance.get_code
14     into l_cat
15     from pa_project_classes
16     where project_id = p_project_id
17       and class_category =  p_cls_no;
18 
19 return l_cat ;
20 exception
21    when no_data_found
22      then l_cat := 'NA_EDW';
23     return 'NA_EDW';
24 end;
25 end;