[Home] [Help]
PACKAGE BODY: APPS.JA_JAINITCL_XMLP_PKG
Source
1 PACKAGE BODY JA_JAINITCL_XMLP_PKG AS
2 /* $Header: JAINITCLB.pls 120.1 2007/12/25 16:19:49 dwkrishn noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 CURSOR C_PROGRAM_ID(P_REQUEST_ID IN NUMBER) IS
5 SELECT
6 CONCURRENT_PROGRAM_ID,
7 NVL(ENABLE_TRACE
8 ,'N')
9 FROM
10 FND_CONCURRENT_REQUESTS
11 WHERE REQUEST_ID = P_REQUEST_ID;
12 V_ENABLE_TRACE FND_CONCURRENT_PROGRAMS.ENABLE_TRACE%TYPE;
13 V_PROGRAM_ID FND_CONCURRENT_PROGRAMS.CONCURRENT_PROGRAM_ID%TYPE;
14 LV_SUPP_TYPE_COMPANY CONSTANT VARCHAR2(15) DEFAULT 'COMPANY';
15 BEGIN
16 /*SRW.MESSAGE(1275
17 ,'Report Version is 120.4 Last modified date is 15/12/2005')*/NULL;
18 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
19 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
20 BEGIN
21 OPEN C_PROGRAM_ID(P_CONC_REQUEST_ID);
22 FETCH C_PROGRAM_ID
23 INTO V_PROGRAM_ID,V_ENABLE_TRACE;
24 CLOSE C_PROGRAM_ID;
25 /*SRW.MESSAGE(1275
26 ,'v_program_id -> ' || V_PROGRAM_ID || ', v_enable_trace -> ' || V_ENABLE_TRACE || ', request_id -> ' || P_CONC_REQUEST_ID)*/NULL;
27 IF V_ENABLE_TRACE = 'Y' THEN
28 EXECUTE IMMEDIATE
29 'ALTER SESSION SET EVENTS ''10046 trace name context forever, level 4''';
30 END IF;
31 EXCEPTION
32 WHEN OTHERS THEN
33 /*SRW.MESSAGE(1275
34 ,'Error during enabling the trace. ErrCode -> ' || SQLCODE || ', ErrMesg -> ' || SQLERRM)*/NULL;
35 END;
36 IF P_FROM_DATE IS NULL THEN
37 SELECT
38 MIN(API2.INVOICE_DATE)
39 INTO P_FROM_DATE
40 FROM
41 JAI_AP_TDS_F16_HDRS_ALL AFRM,
42 JAI_AP_TDS_F16_DTLS_ALL FRMD,
43 HR_ORGANIZATION_UNITS HOU,
44 HR_LOCATIONS LOC,
45 JAI_CMN_INVENTORY_ORGS JHOU,
46 AP_INVOICES_ALL API1,
47 AP_INVOICES_ALL API2,
48 AP_INVOICE_PAYMENTS_ALL APIP,
49 PO_VENDORS POV1,
50 PO_VENDORS POV2,
51 PO_VENDOR_SITES_ALL POVS,
52 AP_INVOICE_LINES_ALL APLL
53 WHERE DECODE(AFRM.ORG_ID
54 ,NULL
55 ,0
56 ,AFRM.ORG_ID) = NVL(P_ORGANIZATION_ID
57 ,DECODE(AFRM.ORG_ID
58 ,NULL
59 ,0
60 ,AFRM.ORG_ID))
61 AND AFRM.TDS_TAX_SECTION = P_TDS_PAYMENT_TYPE
62 AND FRMD.CERTIFICATE_NUM = AFRM.CERTIFICATE_NUM
63 AND AFRM.ORG_ID = hou.organization_id (+)
64 AND apll.invoice_id (+) = FRMD.TDS_INVOICE_ID
65 AND ( ( POV1.ORGANIZATION_TYPE_LOOKUP_CODE = P_SUPPLIER_ORG_TYPE
66 AND UPPER(P_SUPPLIER_ORG_TYPE) = LV_SUPP_TYPE_COMPANY )
67 OR ( POV1.ORGANIZATION_TYPE_LOOKUP_CODE <> P_SUPPLIER_ORG_TYPE
68 AND UPPER(P_SUPPLIER_ORG_TYPE) <> LV_SUPP_TYPE_COMPANY ) )
69 AND pov1.vendor_id (+) = AFRM.VENDOR_ID
70 AND povs.vendor_site_id (+) = AFRM.VENDOR_SITE_ID
71 AND povs.org_id (+) = AFRM.ORG_ID
72 AND api2.invoice_id (+) = FRMD.TDS_INVOICE_ID
73 AND api1.invoice_id (+) = FRMD.INVOICE_ID
74 AND apip.invoice_payment_id (+) = FRMD.INVOICE_PAYMENT_ID
75 AND jhou.organization_id (+) = HOU.ORGANIZATION_ID
76 AND HOU.LOCATION_ID = loc.location_id (+)
77 AND pov2.vendor_id (+) = AFRM.TAX_AUTHORITY_ID;
78 END IF;
79 RETURN (TRUE);
80 END BEFOREREPORT;
81
82 FUNCTION CF_GROSS_INV_AMTFORMULA(INVOICE_ID1 IN NUMBER
83 ,INVOICE_AMOUNT1 IN NUMBER) RETURN NUMBER IS
84 TMP NUMBER := 0;
85 CURSOR FETCH_PREPAYMENT_AMT_CUR(CP_LINE_TYPE IN AP_INVOICE_DISTRIBUTIONS_ALL.LINE_TYPE_LOOKUP_CODE%TYPE) IS
86 SELECT
87 SUM(AMOUNT)
88 FROM
89 AP_INVOICE_LINES_ALL
90 WHERE INVOICE_ID = INVOICE_ID1
91 AND LINE_TYPE_LOOKUP_CODE = CP_LINE_TYPE;
92 V_PREPAYMENT_AMOUNT NUMBER;
93 BEGIN
94 OPEN FETCH_PREPAYMENT_AMT_CUR('PREPAY');
95 FETCH FETCH_PREPAYMENT_AMT_CUR
96 INTO V_PREPAYMENT_AMOUNT;
97 CLOSE FETCH_PREPAYMENT_AMT_CUR;
98 TMP := NVL(INVOICE_AMOUNT1
99 ,0) + NVL(V_PREPAYMENT_AMOUNT
100 ,0);
101 RETURN (TMP);
102 END CF_GROSS_INV_AMTFORMULA;
103
104 FUNCTION AFTERPFORM RETURN BOOLEAN IS
105 LV_REPORTING_LEVEL VARCHAR2(2000);
106 LN_REPORTING_ENTITY_ID NUMBER;
107 LV_PREDICATE_TYPE VARCHAR2(2000);
108 BEGIN
109 RETURN (TRUE);
110 END AFTERPFORM;
111
112 FUNCTION AFTERREPORT RETURN BOOLEAN IS
113 BEGIN
114 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
115 RETURN (TRUE);
116 END AFTERREPORT;
117
118 END JA_JAINITCL_XMLP_PKG;
119
120