PACKAGE BODY: APPS.INVIDIT4

Source

1 PACKAGE BODY INVIDIT4 as
2 /* $Header: INVIDI4B.pls 115.0 99/07/16 10:54:12 porting ship $ */
3 
4 FUNCTION get_struct_num_flex
5    ( appl_name  in varchar2,
6      flex_code  in varchar2,
7      struct_num in number,
8      cc_id      in number
9    ) return BOOLEAN is
10  torf boolean;
11  sta_date date;
12  end_date date;
13  v_segs varchar2(2000);
14 begin
15  torf :=
16 /*
17   fnd_flex_server_api.validate_ccid
18 */
19   fnd_flex_keyval.validate_ccid
20   ( appl_name,
21     flex_code,
22     struct_num,
23     cc_id,
24     'ALL',
25     null,
26     null,
27     'ENFORCE',
28     null,
29     null,
30     null,
31     null
32   );
33 
34   if torf then
35     /*  torf := fnd_flex_server_api.enabled_flag;  */
36     torf := fnd_flex_keyval.enabled_flag;
37       if torf then
38 	/*  sta_date := fnd_flex_server_api.start_date;  */
39         sta_date := fnd_flex_keyval.start_date;
40 	/*  end_date := fnd_flex_server_api.end_date;  */
41         end_date := fnd_flex_keyval.end_date;
42         if nvl(sta_date,sysdate-1) < sysdate
43            and nvl(end_date,sysdate+1) > sysdate
44         then
45            torf := true;
46         else
47            torf := false;
48         end if;
49       end if;
50    end if;
51 
52  return (torf);
53 
54 end get_struct_num_flex;
55 
56 
57 
58 
59 FUNCTION get_data_set_flex
60   ( appl_name  in varchar2,
61     flex_code  in varchar2,
62     data_set   in number,
63     cc_id      in number
64   ) return BOOLEAN is
65  torf boolean;
66  sta_date date;
67  end_date date;
68 begin
69   torf :=
70 /*
71   fnd_flex_server_api.validate_ccid
72 */
73   fnd_flex_keyval.validate_ccid
74   ( appl_name,
75     flex_code,
76     101,
77     cc_id,
78     'ALL',
79     data_set,
80     null,
81     'ENFORCE',
82     null,
83     null,
84     null,
85     null
86   );
87 
88   if torf then
89    /*  torf := fnd_flex_server_api.enabled_flag;  */
90    torf := fnd_flex_keyval.enabled_flag;
91     if torf then
92       /*  sta_date := fnd_flex_server_api.start_date;  */
93       sta_date := fnd_flex_keyval.start_date;
94       /*  end_date := fnd_flex_server_api.end_date;  */
95       end_date := fnd_flex_keyval.end_date;
96       if nvl(sta_date,sysdate-1) < sysdate
97          and nvl(end_date,sysdate+1) > sysdate
98       then
99         torf := true;
100       else
101         torf := false;
102       end if;
103     else
104       torf := false;
105     end if;
106   end if;
107 
108  return (torf);
109 
110 end get_data_set_flex;
111 
112 
113 
114 END INVIDIT4;