PACKAGE BODY: APPS.FII_AP_DRILL_ACROSS

Source

1 PACKAGE BODY FII_AP_DRILL_ACROSS  AS
2 /* $Header: FIIAPS5B.pls 120.2 2005/08/26 13:55:45 vkazhipu noship $ */
3 
4 PROCEDURE drill_across(pSource IN varchar2,  pOperatingUnit IN varchar2,
5                        pSupplier IN varchar2, pCurrency IN varchar2,
6                        pAsOfDateValue IN varchar2,pPeriod IN varchar2,pParamIds IN varchar2) IS
7 p1   varchar2(100);
8 p2    varchar2(100);
9 pS    varchar2(100);
10 pSu    varchar2(500);
11 pOU    varchar2(500);
12 pD   varchar2(100);
13 pC   varchar2(100);
14 pP   varchar2(100);
15 
16 
17 BEGIN
18 
19 IF pSource = 'FII_AP_HOLD_TREND'  THEN
20 
21 p1 := 'FII_AP_INV_ON_HOLD_DETAIL';
22 
23 p2 := 'FII_AP_INV_ON_HOLD_DETAIL';
24 
25 pS := pSource;
26 
27 pSu := pSupplier;
28 
29 pOU := pOperatingUnit;
30 
31 pd := pAsOfDateValue;
32 
33 pC := pCurrency;
34 bisviewer_pub.showreport(pURLString => 'pFunctionName='||p1||'&pParameterDisplayOnly=Y&ORGANIZATION+FII_OPERATING_UNITS='||pOU||'&SUPPLIER+POA_SUPPLIERS='||pSu||'&CURRENCY+FII_CURRENCIES='||pC||'&FII_REPORT_SOURCE='||p2||'&AS_OF_DATE='||pD||
35 													 '&pParamIds=Y',
36                            pUserId  => icx_sec.getID(icx_sec.PV_WEB_USER_ID),
37                            pSessionId => icx_sec.getID(icx_sec.PV_SESSION_ID),
38                            pRespId => icx_sec.getId(icx_sec.PV_RESPONSIBILITY_ID));
39 /* addding the logic below to implement drill in Electronic Invoice trend report*/
40 
41 
42 ELSIF pSource = 'FII_AP_E_INV_ENT_DTL' THEN
43 
44 p1 := 'FII_AP_E_INV_ENT_DTL';
45 
46 p2 := 'FII_AP_E_INV_ENT_DTL';
47 
48 pS := pSource;
49 
50 pSu := pSupplier;
51 
52 pOU := pOperatingUnit;
53 
54 pd := pAsOfDateValue;
55 
56 pC := pCurrency;
57 
58 
59 CASE pPeriod
60 when 'FII_TIME_ENT_PERIOD' THEN
61 pP := '&FII_TIME_ENT_PERIOD=TIME+FII_TIME_ENT_PERIOD';
62 
63 when 'FII_TIME_ENT_YEAR' THEN
64 pP := '&FII_TIME_ENT_YEAR=TIME+FII_TIME_ENT_YEAR';
65 
66 when 'FII_TIME_ENT_QTR'  THEN
67 pP := '&FII_TIME_ENT_QTR=TIME+FII_TIME_ENT_QTR';
68 
69 when 'FII_TIME_WEEK'  THEN
70 pP := '&FII_TIME_WEEK=TIME+FII_TIME_WEEK';
71 
72 END CASE;
73 
74 
75 bisviewer_pub.showreport(pURLString => 'pFunctionName='||p1||'&pParameterDisplayOnly=Y&ORGANIZATION+FII_OPERATING_UNITS='||pOU||'&SUPPLIER+POA_SUPPLIERS='||pSu||'&CURRENCY+FII_CURRENCIES='||pC||pP||'&FII_REPORT_SOURCE='||p2||'&AS_OF_DATE='||pD||'
76                             &pParamIds=Y',
77                            	   pUserId  => icx_sec.getID(icx_sec.PV_WEB_USER_ID),
78                            pSessionId => icx_sec.getID(icx_sec.PV_SESSION_ID),
79                            pRespId => icx_sec.getId(icx_sec.PV_RESPONSIBILITY_ID));
80 
81 END IF;
82 
83 END drill_across;
84 
85 END FII_AP_DRILL_ACROSS;