eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.POS_GET

Source


1 PACKAGE BODY POS_GET as
2 /* $Header: POSGETUB.pls 115.7 2002/12/12 22:28:05 ammitra ship $*/
3 
4 g_old_person_name VARCHAR2(240) := NULL;
5 g_old_person_id   NUMBER        := NULL;
6 
7 /*===========================================================================
8 
9   FUNCTION NAME:	get_person_name()
10 
11 ===========================================================================*/
12 FUNCTION  get_person_name (x_person_id 	IN  NUMBER) RETURN VARCHAR2 is
13 
14 x_person_name  VARCHAR2(240);
15 
16 BEGIN
17 
18   SELECT full_name
19   INTO   x_person_name
20   FROM   PER_ALL_PEOPLE_F
21   WHERE  x_person_id = person_id
22   AND EFFECTIVE_END_DATE >= ALL(SELECT EFFECTIVE_END_DATE
23 				FROM PER_PEOPLE_F
24 				WHERE PERSON_ID=x_person_id);
25 
26   return(x_person_name);
27 
28 EXCEPTION
29   WHEN OTHERS THEN
30     return('');
31 
32 END get_person_name;
33 
34 /*===========================================================================
35 
36   FUNCTION NAME:	get_person_name_cache()
37 
38 ===========================================================================*/
39 FUNCTION  get_person_name_cache (x_person_id 	IN  NUMBER) RETURN VARCHAR2 is
40 
41 x_person_name  VARCHAR2(240);
42 
43 BEGIN
44 
45      /* Check to see if the values are already cached */
46      if (((g_old_person_id = x_person_id)
47         OR ((g_old_person_id is NULL)
48            AND (x_person_id IS NULL)))
49         AND (g_old_person_name is not NULL)) then
50         return g_old_person_name;
51      end if;
52 
53   x_person_name     := NULL;
54   x_person_name     :=  get_person_name (x_person_id);
55   g_old_person_id   :=  x_person_id;
56   g_old_person_name :=  x_person_name;
57 
58   return(x_person_name);
59 
60 EXCEPTION
61   WHEN OTHERS THEN
62     return('');
63 
64 END get_person_name_cache;
65 
66 /*===========================================================================
67   FUNCTION NAME:  item_flex_seg
68 ===========================================================================*/
69 function  item_flex_seg (
70 	ri		in 	rowid)
71 return varchar2 is
72     ret_val varchar2(2000) := NULL;
73 begin
74     if (ri is null) then
75 	return (null);
76     else
77 
78 	select msi.concatenated_segments
79 	into ret_val
80 	from mtl_system_items_kfv msi
81 	where rowid = ri;
82 
83         return(ret_val);
84     end if;
85 end item_flex_seg;
86 
87 /*===========================================================================
88   FUNCTION NAME:  get_gl_account
89 ===========================================================================*/
90 
91 -- ***** GET_GL_ACCOUNT function *****
92 
93 -- Function to get gl concatenated account number
94 
95 FUNCTION get_gl_account (x_cc_id IN NUMBER)
96 				 RETURN VARCHAR2 IS
97 x_concat_segments VARCHAR2(155);
98 BEGIN
99   /* Get the account number concatentated segments  */
100   SELECT concatenated_segments
101   INTO   x_concat_segments
102   FROM   GL_CODE_COMBINATIONS_KFV
103   WHERE  code_combination_id = x_cc_id;
104   RETURN (x_concat_segments);
105 EXCEPTION
106   WHEN OTHERS THEN
107     return null;
108 END;
109 
110 /*===========================================================================
111   FUNCTION NAME:  get_gl_value
112 ===========================================================================*/
113 -- ***** GET_GL_VALUE function *****
114 
115 -- Function to get the correct gl value for the cost center, company, or
116 -- account number regardless of which flex field segment column the value
117 -- is contained in
118 
119 FUNCTION get_gl_value (appl_id in number,
120 			     id_flex_code in varchar2,
121 			     id_flex_num in number,
122 			     cc_id in number,
123 			     gl_qualifier in varchar2)
124 		           return varchar2 is
125 v_seg_value varchar2(40) := '';
126 v_seg_name varchar2(40) := '';
127 v_seg_number varchar2(40);
128 begin
129 select decode(upper(gl_qualifier)
130 		,'COST CENTER', 'FA_COST_CTR'
131 		,'COMPANY','GL_BALANCING'
132 		,'ACCOUNT','GL_ACCOUNT'
133 		, null)
134 into v_seg_name
135 from sys.dual;
136 if v_seg_name is null then
137 return null;
138 end if;
139 if FND_FLEX_APIS.get_segment_column(appl_id
140 				   , id_flex_code
141 				   , id_flex_num
142 				   , v_seg_name
143 				   , v_seg_number) = TRUE
144   then
145 	begin
146 	select decode(v_seg_number
147 		,'SEGMENT1',SEGMENT1
148 		,'SEGMENT2', SEGMENT2
149 		,'SEGMENT3', SEGMENT3
150 		,'SEGMENT4', SEGMENT4
151 		,'SEGMENT5', SEGMENT5
152 		,'SEGMENT6', SEGMENT6
153 		,'SEGMENT7', SEGMENT7
154 		,'SEGMENT8', SEGMENT8
155 		,'SEGMENT9', SEGMENT9
156 		,'SEGMENT10', SEGMENT10
157 		,'SEGMENT11', SEGMENT11
158 		,'SEGMENT12', SEGMENT12
159 		,'SEGMENT13', SEGMENT13
160 		,'SEGMENT14', SEGMENT14
161 		,'SEGMENT15', SEGMENT15
162 		,'SEGMENT16', SEGMENT16
163 		,'SEGMENT17', SEGMENT17
164 		,'SEGMENT18', SEGMENT18
165 		,'SEGMENT19', SEGMENT19
166 		,'SEGMENT20', SEGMENT20
167 		,'SEGMENT21', SEGMENT21
168 		,'SEGMENT22', SEGMENT22
169 		,'SEGMENT23', SEGMENT23
170 		,'SEGMENT24', SEGMENT24
171 		,'SEGMENT25', SEGMENT25
172 		,'SEGMENT26', SEGMENT26
173 		,'SEGMENT27', SEGMENT27
174 		,'SEGMENT28', SEGMENT28
175 		,'SEGMENT29', SEGMENT29
176 		,'SEGMENT30', SEGMENT30)
177 	into v_seg_value
178 	from gl_code_combinations_kfv
179 	where code_combination_id = cc_id
180 	and rownum = 1;
181 	return(v_seg_value);
182 	exception
183 	  when others then
184 	return null;
185 	end;
186   else
187 	return null;
188 end if;
189 end;
190 
191 /*===========================================================================
192   FUNCTION NAME:  get_item_config
193 ===========================================================================*/
194 function  get_item_config (
195 	   x_item_id in NUMBER,
196            x_org_id  in NUMBER
197           )
198 return varchar2 is
199     ret_val varchar2(1) := NULL;
200 begin
201     if (x_item_id is null) then
202 	return('F');
203     else
204     begin
205 	select 'T'
206 	into ret_val
207 	from mtl_system_items_kfv msi
208 	where msi.inventory_item_id = x_item_id
209         and   msi.organization_id   = x_org_id
210         and   msi.bom_item_type     = 4
211         and   msi.base_item_id is not null
212         and   nvl(msi.auto_created_config_flag, 'N') = 'Y';
213         return(ret_val);
214      exception
215         when others then
216          return('F');
217      end;
218     end if;
219 end get_item_config;
220 
221 /*===========================================================================
222   FUNCTION NAME:  get_item_number
223 ===========================================================================*/
224 function  get_item_number ( x_item_id	in 	number,
225 			    x_org_id	in 	number)
226 return varchar2 is
227     ret_val varchar2(2000) := NULL;
228 begin
229     if (x_item_id is null) then
230 	return ('');
231     else
232 
233 	select msi.concatenated_segments
234 	into ret_val
235 	from mtl_system_items_kfv msi
236 	where inventory_item_id = x_item_id and
237               organization_id = x_org_id;
238 
239         return(ret_val);
240     end if;
241 end get_item_number;
242 
243 end POS_GET;