21: INTO l_curr_code,
22: l_mau,
23: l_sp,
24: l_ep
25: FROM FND_CURRENCIES FC,
26: GL_SETS_OF_BOOKS GB,
27: PA_IMPLEMENTATIONS IMP
28: WHERE FC.Currency_Code =
29: DECODE(IMP.Set_Of_Books_ID, Null, Null,GB.CURRENCY_CODE)
36: INTO l_curr_code,
37: l_mau,
38: l_sp,
39: l_ep
40: FROM FND_CURRENCIES FC,
41: GL_SETS_OF_BOOKS GB,
42: PA_IMPLEMENTATIONS_ALL IMP
43: WHERE FC.Currency_Code =
44: DECODE(IMP.Set_Of_Books_ID, Null, Null,GB.CURRENCY_CODE)
80: INTO G_curr_code,
81: G_mau,
82: G_sp,
83: G_ep
84: FROM FND_CURRENCIES FC,
85: GL_SETS_OF_BOOKS GB,
86: PA_IMPLEMENTATIONS IMP
87: WHERE FC.Currency_Code =
88: DECODE(IMP.Set_Of_Books_ID, Null, Null,GB.CURRENCY_CODE)
110: FC.Extended_Precision
111: INTO l_mau,
112: l_sp,
113: l_ep
114: FROM FND_CURRENCIES FC
115: WHERE FC.Currency_Code = l_curr_code;
116: ELSIF G_curr_code IS NOT NULL THEN
117: l_mau := G_mau;
118: l_sp := G_sp;
133: -- ==========================================================================
134:
135: FUNCTION get_currency_code RETURN VARCHAR2
136: IS
137: l_curr_code fnd_currencies.currency_code%TYPE;
138: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
139: l_sp fnd_currencies.precision%TYPE;
140: l_ep fnd_currencies.extended_precision%TYPE;
141: BEGIN
134:
135: FUNCTION get_currency_code RETURN VARCHAR2
136: IS
137: l_curr_code fnd_currencies.currency_code%TYPE;
138: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
139: l_sp fnd_currencies.precision%TYPE;
140: l_ep fnd_currencies.extended_precision%TYPE;
141: BEGIN
142: Get_Currency_Info(l_curr_code, l_mau, l_sp, l_ep);
135: FUNCTION get_currency_code RETURN VARCHAR2
136: IS
137: l_curr_code fnd_currencies.currency_code%TYPE;
138: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
139: l_sp fnd_currencies.precision%TYPE;
140: l_ep fnd_currencies.extended_precision%TYPE;
141: BEGIN
142: Get_Currency_Info(l_curr_code, l_mau, l_sp, l_ep);
143: return(l_curr_code);
136: IS
137: l_curr_code fnd_currencies.currency_code%TYPE;
138: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
139: l_sp fnd_currencies.precision%TYPE;
140: l_ep fnd_currencies.extended_precision%TYPE;
141: BEGIN
142: Get_Currency_Info(l_curr_code, l_mau, l_sp, l_ep);
143: return(l_curr_code);
144: END get_currency_code;
148: -- ==========================================================================
149:
150: FUNCTION round_currency_amt ( X_amount IN NUMBER ) RETURN NUMBER
151: IS
152: l_curr_code fnd_currencies.currency_code%TYPE;
153: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
154: l_sp fnd_currencies.precision%TYPE;
155: l_ep fnd_currencies.extended_precision%TYPE;
156: BEGIN
149:
150: FUNCTION round_currency_amt ( X_amount IN NUMBER ) RETURN NUMBER
151: IS
152: l_curr_code fnd_currencies.currency_code%TYPE;
153: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
154: l_sp fnd_currencies.precision%TYPE;
155: l_ep fnd_currencies.extended_precision%TYPE;
156: BEGIN
157:
150: FUNCTION round_currency_amt ( X_amount IN NUMBER ) RETURN NUMBER
151: IS
152: l_curr_code fnd_currencies.currency_code%TYPE;
153: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
154: l_sp fnd_currencies.precision%TYPE;
155: l_ep fnd_currencies.extended_precision%TYPE;
156: BEGIN
157:
158: Get_Currency_Info(l_curr_code, l_mau, l_sp, l_ep);
151: IS
152: l_curr_code fnd_currencies.currency_code%TYPE;
153: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
154: l_sp fnd_currencies.precision%TYPE;
155: l_ep fnd_currencies.extended_precision%TYPE;
156: BEGIN
157:
158: Get_Currency_Info(l_curr_code, l_mau, l_sp, l_ep);
159:
186:
187: FUNCTION round_trans_currency_amt ( X_amount IN NUMBER,
188: X_Curr_Code IN VARCHAR2 ) RETURN NUMBER
189: IS
190: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
191: l_sp fnd_currencies.precision%TYPE;
192: l_ep fnd_currencies.extended_precision%TYPE;
193: BEGIN
194:
187: FUNCTION round_trans_currency_amt ( X_amount IN NUMBER,
188: X_Curr_Code IN VARCHAR2 ) RETURN NUMBER
189: IS
190: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
191: l_sp fnd_currencies.precision%TYPE;
192: l_ep fnd_currencies.extended_precision%TYPE;
193: BEGIN
194:
195: Get_Trans_Currency_Info(X_curr_code, l_mau, l_sp, l_ep);
188: X_Curr_Code IN VARCHAR2 ) RETURN NUMBER
189: IS
190: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
191: l_sp fnd_currencies.precision%TYPE;
192: l_ep fnd_currencies.extended_precision%TYPE;
193: BEGIN
194:
195: Get_Trans_Currency_Info(X_curr_code, l_mau, l_sp, l_ep);
196:
224: -- ==========================================================================
225:
226: FUNCTION currency_fmt_mask(X_length IN NUMBER) RETURN VARCHAR2
227: IS
228: l_curr_code fnd_currencies.currency_code%TYPE;
229: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
230: l_sp fnd_currencies.precision%TYPE;
231: l_ep fnd_currencies.extended_precision%TYPE;
232:
225:
226: FUNCTION currency_fmt_mask(X_length IN NUMBER) RETURN VARCHAR2
227: IS
228: l_curr_code fnd_currencies.currency_code%TYPE;
229: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
230: l_sp fnd_currencies.precision%TYPE;
231: l_ep fnd_currencies.extended_precision%TYPE;
232:
233: fmt_mask VARCHAR2(80);
226: FUNCTION currency_fmt_mask(X_length IN NUMBER) RETURN VARCHAR2
227: IS
228: l_curr_code fnd_currencies.currency_code%TYPE;
229: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
230: l_sp fnd_currencies.precision%TYPE;
231: l_ep fnd_currencies.extended_precision%TYPE;
232:
233: fmt_mask VARCHAR2(80);
234: len number;
227: IS
228: l_curr_code fnd_currencies.currency_code%TYPE;
229: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
230: l_sp fnd_currencies.precision%TYPE;
231: l_ep fnd_currencies.extended_precision%TYPE;
232:
233: fmt_mask VARCHAR2(80);
234: len number;
235: BEGIN
277: -- ==========================================================================
278:
279: FUNCTION rpt_currency_fmt_mask(X_org_id IN NUMBER, X_length IN NUMBER) RETURN VARCHAR2
280: IS
281: l_curr_code fnd_currencies.currency_code%TYPE;
282: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
283: l_sp fnd_currencies.precision%TYPE;
284: l_ep fnd_currencies.extended_precision%TYPE;
285:
278:
279: FUNCTION rpt_currency_fmt_mask(X_org_id IN NUMBER, X_length IN NUMBER) RETURN VARCHAR2
280: IS
281: l_curr_code fnd_currencies.currency_code%TYPE;
282: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
283: l_sp fnd_currencies.precision%TYPE;
284: l_ep fnd_currencies.extended_precision%TYPE;
285:
286: fmt_mask VARCHAR2(80);
279: FUNCTION rpt_currency_fmt_mask(X_org_id IN NUMBER, X_length IN NUMBER) RETURN VARCHAR2
280: IS
281: l_curr_code fnd_currencies.currency_code%TYPE;
282: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
283: l_sp fnd_currencies.precision%TYPE;
284: l_ep fnd_currencies.extended_precision%TYPE;
285:
286: fmt_mask VARCHAR2(80);
287: len number;
280: IS
281: l_curr_code fnd_currencies.currency_code%TYPE;
282: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
283: l_sp fnd_currencies.precision%TYPE;
284: l_ep fnd_currencies.extended_precision%TYPE;
285:
286: fmt_mask VARCHAR2(80);
287: len number;
288: BEGIN
300: INTO l_curr_code,
301: l_mau,
302: l_sp,
303: l_ep
304: FROM FND_CURRENCIES FC,
305: GL_SETS_OF_BOOKS GB,
306: PA_IMPLEMENTATIONS_ALL IMP
307: WHERE FC.Currency_Code =
308: DECODE(IMP.Set_Of_Books_ID, Null, Null,GB.CURRENCY_CODE)
340:
341: FUNCTION trans_currency_fmt_mask(X_Curr_Code IN VARCHAR2,
342: X_length IN NUMBER) RETURN VARCHAR2
343: IS
344: l_curr_code fnd_currencies.currency_code%TYPE;
345: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
346: l_sp fnd_currencies.precision%TYPE;
347: l_ep fnd_currencies.extended_precision%TYPE;
348:
341: FUNCTION trans_currency_fmt_mask(X_Curr_Code IN VARCHAR2,
342: X_length IN NUMBER) RETURN VARCHAR2
343: IS
344: l_curr_code fnd_currencies.currency_code%TYPE;
345: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
346: l_sp fnd_currencies.precision%TYPE;
347: l_ep fnd_currencies.extended_precision%TYPE;
348:
349: fmt_mask VARCHAR2(80);
342: X_length IN NUMBER) RETURN VARCHAR2
343: IS
344: l_curr_code fnd_currencies.currency_code%TYPE;
345: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
346: l_sp fnd_currencies.precision%TYPE;
347: l_ep fnd_currencies.extended_precision%TYPE;
348:
349: fmt_mask VARCHAR2(80);
350: len number;
343: IS
344: l_curr_code fnd_currencies.currency_code%TYPE;
345: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
346: l_sp fnd_currencies.precision%TYPE;
347: l_ep fnd_currencies.extended_precision%TYPE;
348:
349: fmt_mask VARCHAR2(80);
350: len number;
351: BEGIN
386: END trans_currency_fmt_mask;
387:
388: FUNCTION get_mau ( X_Curr_Code IN VARCHAR2 ) RETURN VARCHAR2
389: IS
390: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
391: l_sp fnd_currencies.precision%TYPE;
392: l_ep fnd_currencies.extended_precision%TYPE;
393: l_div NUMBER;
394: BEGIN
387:
388: FUNCTION get_mau ( X_Curr_Code IN VARCHAR2 ) RETURN VARCHAR2
389: IS
390: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
391: l_sp fnd_currencies.precision%TYPE;
392: l_ep fnd_currencies.extended_precision%TYPE;
393: l_div NUMBER;
394: BEGIN
395:
388: FUNCTION get_mau ( X_Curr_Code IN VARCHAR2 ) RETURN VARCHAR2
389: IS
390: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
391: l_sp fnd_currencies.precision%TYPE;
392: l_ep fnd_currencies.extended_precision%TYPE;
393: l_div NUMBER;
394: BEGIN
395:
396: IF (G_proj_curr_code IS NULL) OR
451: INTO l_curr_code,
452: l_mau,
453: l_sp,
454: l_ep
455: FROM FND_CURRENCIES FC,
456: GL_SETS_OF_BOOKS GB,
457: PA_IMPLEMENTATIONS IMP
458: WHERE FC.Currency_Code =
459: DECODE(IMP.Set_Of_Books_ID, Null, Null,GB.CURRENCY_CODE)
485: END Get_Currency_Info1;
486:
487: FUNCTION round_currency_amt1 ( X_amount IN NUMBER ) RETURN NUMBER
488: IS
489: l_curr_code fnd_currencies.currency_code%TYPE;
490: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
491: l_sp fnd_currencies.precision%TYPE;
492: l_ep fnd_currencies.extended_precision%TYPE;
493: BEGIN
486:
487: FUNCTION round_currency_amt1 ( X_amount IN NUMBER ) RETURN NUMBER
488: IS
489: l_curr_code fnd_currencies.currency_code%TYPE;
490: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
491: l_sp fnd_currencies.precision%TYPE;
492: l_ep fnd_currencies.extended_precision%TYPE;
493: BEGIN
494:
487: FUNCTION round_currency_amt1 ( X_amount IN NUMBER ) RETURN NUMBER
488: IS
489: l_curr_code fnd_currencies.currency_code%TYPE;
490: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
491: l_sp fnd_currencies.precision%TYPE;
492: l_ep fnd_currencies.extended_precision%TYPE;
493: BEGIN
494:
495: Get_Currency_Info1(l_curr_code, l_mau, l_sp, l_ep);
488: IS
489: l_curr_code fnd_currencies.currency_code%TYPE;
490: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
491: l_sp fnd_currencies.precision%TYPE;
492: l_ep fnd_currencies.extended_precision%TYPE;
493: BEGIN
494:
495: Get_Currency_Info1(l_curr_code, l_mau, l_sp, l_ep);
496:
537: FC.Extended_Precision
538: INTO l_mau,
539: l_sp,
540: l_ep
541: FROM FND_CURRENCIES FC
542: WHERE FC.Currency_Code = l_curr_code;
543:
544: G_TransCurrCode := l_curr_code;
545: G_TransMau := l_mau;
559:
560: FUNCTION round_trans_currency_amt1 ( X_amount IN NUMBER,
561: X_Curr_Code IN VARCHAR2 ) RETURN NUMBER
562: IS
563: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
564: l_sp fnd_currencies.precision%TYPE;
565: l_ep fnd_currencies.extended_precision%TYPE;
566: BEGIN
567:
560: FUNCTION round_trans_currency_amt1 ( X_amount IN NUMBER,
561: X_Curr_Code IN VARCHAR2 ) RETURN NUMBER
562: IS
563: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
564: l_sp fnd_currencies.precision%TYPE;
565: l_ep fnd_currencies.extended_precision%TYPE;
566: BEGIN
567:
568: Get_Trans_Currency_Info1(X_curr_code, l_mau, l_sp, l_ep);
561: X_Curr_Code IN VARCHAR2 ) RETURN NUMBER
562: IS
563: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
564: l_sp fnd_currencies.precision%TYPE;
565: l_ep fnd_currencies.extended_precision%TYPE;
566: BEGIN
567:
568: Get_Trans_Currency_Info1(X_curr_code, l_mau, l_sp, l_ep);
569:
598: IS
599: x_amount_tab PA_PLSQL_DATATYPES.NumTabTyp;
600: l_prev_curr_code VARCHAR2(30);
601:
602: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
603: l_sp fnd_currencies.precision%TYPE;
604: l_ep fnd_currencies.extended_precision%TYPE;
605: BEGIN
606: FOR i IN p_amount_tab.FIRST .. p_amount_tab.LAST
599: x_amount_tab PA_PLSQL_DATATYPES.NumTabTyp;
600: l_prev_curr_code VARCHAR2(30);
601:
602: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
603: l_sp fnd_currencies.precision%TYPE;
604: l_ep fnd_currencies.extended_precision%TYPE;
605: BEGIN
606: FOR i IN p_amount_tab.FIRST .. p_amount_tab.LAST
607: LOOP
600: l_prev_curr_code VARCHAR2(30);
601:
602: l_mau fnd_currencies.minimum_accountable_unit%TYPE;
603: l_sp fnd_currencies.precision%TYPE;
604: l_ep fnd_currencies.extended_precision%TYPE;
605: BEGIN
606: FOR i IN p_amount_tab.FIRST .. p_amount_tab.LAST
607: LOOP
608: IF ( l_prev_curr_code IS NULL OR l_prev_curr_code <> p_currency_tab(i) )