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