[Home] [Help]
PACKAGE BODY: APPS.FA_CIP_STAT_PKG
Source
1 PACKAGE BODY FA_CIP_STAT_PKG AS
2 -- $Header: FAWIPSTATPB.pls 120.1.12010000.2 2009/07/19 08:14:32 glchen ship $
3 -- ****************************************************************************************
4 -- Copyright (c) 2000 Oracle Solution Services (India) Product Development
5 -- All rights reserved
6 -- ****************************************************************************************
7 --
8 -- PROGRAM NAME
9 -- FAWIPSTATPB.pls
10 --
11 -- DESCRIPTION
12 -- This script creates the package body of FA_CIP_STAT_PKG.
13 -- This package is used to generate FA CIP Statistics for the central Statistical Office (KSH) (Hungary).
14 --
15 -- USAGE
16 -- To install How to Install
17 -- To execute How to Execute
18 --
19 -- DEPENDENCIES
20 -- None.
21 --
22 --
23 -- LAST UPDATE DATE 26-JAN-2007
24 -- Date the program has been modified for the last time
25 --
26 -- HISTORY
27 -- =======
28 --
29 -- VERSION DATE AUTHOR(S) DESCRIPTION
30 -- ------- ----------- --------------- ------------------------------------
31 -- 1.0 26-JAN-2007 Praveen Gollu M Creation
32 --
33 --****************************************************************************************
34
35 FUNCTION BookFormula RETURN VARCHAR2 IS
36 BEGIN
37
38 DECLARE
39 lc_book VARCHAR2(15);
40 ln_accounting_flex_structure NUMBER(15);
41 lc_currency_code VARCHAR2(15);
42 ln_precision NUMBER(15);
43 lc_distribution_source_book VARCHAR2(15);
44 BEGIN
45 SELECT BC.book_type_code
46 ,BC.accounting_flex_structure
47 ,SOB.currency_code
48 ,CUR.precision
49 ,BC.distribution_source_book
50 INTO lc_book
51 ,ln_accounting_flex_structure
52 ,lc_currency_code
53 ,ln_precision
54 ,lc_distribution_source_book
55 FROM fa_book_controls BC
56 ,gl_sets_of_books SOB
57 ,fnd_currencies CUR
58 WHERE BC.book_type_code = P_BOOK
59 AND SOB.set_of_books_id = BC.set_of_books_id
60 AND SOB.currency_code = CUR.currency_code;
61
62 gn_accounting_flex_structure:=ln_accounting_flex_structure;
63 gc_currency_code := lc_currency_code;
64 gn_precision := ln_precision;
65 gc_distribution_source_book := lc_distribution_source_book;
66 RETURN(lc_book);
67 END;
68 RETURN NULL;
69 END;
70
71 FUNCTION Period1Formula RETURN VARCHAR2 IS
72 BEGIN
73
74 DECLARE
75 lc_period_name VARCHAR2(15);
76 ld_period_POD DATE;
77 ln_period_pc NUMBER;
78 BEGIN
79 SELECT FDP.period_name
80 ,FDP.period_open_date
81 ,FDP.period_counter
82 INTO lc_period_name
83 ,ld_period_POD
84 ,ln_period_pc
85 FROM fa_deprn_periods FDP
86 WHERE FDP.book_type_code = P_BOOK
87 AND FDP.period_name = P_PERIOD1;
88 gd_period1_pod := ld_period_POD;
89 gn_period1_pc := ln_period_pc;
90 RETURN(lc_period_name);
91 END;
92 RETURN NULL;
93 END;
94
95 FUNCTION Period2Formula RETURN VARCHAR2 IS
96 BEGIN
97
98 DECLARE
99 lc_period_name VARCHAR2(15);
100 ld_period_PCD DATE;
101 ln_period_pc NUMBER;
102 BEGIN
103 SELECT FDP.period_name
104 ,NVL(FDP.period_close_date, SYSDATE)
105 ,FDP.period_counter
106 INTO lc_period_name
107 ,ld_period_PCD
108 ,ln_period_pc
109 FROM fa_deprn_periods FDP
110 WHERE FDP.book_type_code = P_BOOK
111 AND FDP.period_name = P_PERIOD2;
112 gd_Period2_PCD := ld_period_PCD;
113 gn_period2_pc := ln_period_pc;
114 RETURN(lc_period_name);
115 END;
116 RETURN NULL;
117 END;
118
119 --Functions to refer Oracle report placeholders--
120
121 FUNCTION Accounting_Flex_Structure_p RETURN NUMBER IS
122 BEGIN
123 RETURN gn_accounting_flex_structure;
124 END;
125 FUNCTION DISTRIBUTION_SOURCE_BOOK_p RETURN VARCHAR2 IS
126 BEGIN
127 RETURN gc_distribution_source_book;
128 END;
129 END FA_CIP_STAT_PKG ;