1 PACKAGE BODY CSI_CSICPREP_XMLP_PKG AS
2 /* $Header: CSICPREPB.pls 120.1 2008/04/24 07:03:41 dwkrishn noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 BEGIN
6 /*SRW.REFERENCE(P_ORGANIZATION_ID)*/NULL;
7 P_ORGANIZATION_ID := FND_PROFILE.VALUE('SO_ORGANIZATION_ID');
8 END;
9 BEGIN
10 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
11 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
12 EXCEPTION
13 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
14 /*SRW.MESSAGE(1
15 ,'srw_init failed')*/NULL;
16 END;
17 BEGIN
18 /*SRW.REFERENCE(P_ITEM_STRUCT_NUM)*/NULL;
19 EXCEPTION
20 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
21 /*SRW.MESSAGE(1
22 ,'Before Report: ItemFlex')*/NULL;
23 END;
24 CS_REPORTS_PACKAGE.CS_GET_COMPANY_NAME(RP_COMPANY_NAME
25 ,P_SOB_ID);
26 CS_REPORTS_PACKAGE.CS_GET_REPORT_NAME(RP_REPORT_NAME
27 ,P_CONC_REQUEST_ID
28 ,'Customer Products Summary Report');
29 BEGIN
30 /*SRW.REFERENCE(P_ITEM_STRUCT_NUM)*/NULL;
31 /*SRW.REFERENCE(P_ITEM_LO)*/NULL;
32 /*SRW.REFERENCE(P_ITEM_HIGH)*/NULL;
33 IF (P_ITEM_LO IS NOT NULL) AND (P_ITEM_HIGH IS NOT NULL) THEN
34 /*SRW.REFERENCE(P_ITEM_STRUCT_NUM)*/NULL;
35 /*SRW.REFERENCE(P_ITEM_LO)*/NULL;
36 /*SRW.REFERENCE(P_ITEM_HIGH)*/NULL;
37 P_ITEM_WHERE := ' AND ' || P_ITEM_WHERE;
38 ELSIF (P_ITEM_LO IS NOT NULL) AND (P_ITEM_HIGH IS NULL) THEN
39 /*SRW.REFERENCE(P_ITEM_STRUCT_NUM)*/NULL;
40 /*SRW.REFERENCE(P_ITEM_LO)*/NULL;
41 P_ITEM_WHERE := ' AND ' || P_ITEM_WHERE;
42 ELSIF (P_ITEM_LO IS NULL) AND (P_ITEM_HIGH IS NOT NULL) THEN
43 /*SRW.REFERENCE(P_ITEM_STRUCT_NUM)*/NULL;
44 /*SRW.REFERENCE(P_ITEM_HIGH)*/NULL;
45 P_ITEM_WHERE := ' AND ' || P_ITEM_WHERE;
46 ELSE
47 NULL;
48 END IF;
49 EXCEPTION
50 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
51 /*SRW.MESSAGE(1
52 ,'Failed in before report trigger:MSTK:WHERE')*/NULL;
53 END;
54 BEGIN
55 /*SRW.REFERENCE(P_ITEM_STRUCT_NUM)*/NULL;
56 EXCEPTION
57 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
58 /*SRW.MESSAGE(1
59 ,'Failed in FLEXSQL : Order by ')*/NULL;
60 END;
61 RETURN (TRUE);
62 END BEFOREREPORT;
63 FUNCTION AFTERREPORT RETURN BOOLEAN IS
64 BEGIN
65 BEGIN
66 BEGIN
67 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
68 END;
69 END;
70 RETURN (TRUE);
71 END AFTERREPORT;
72 FUNCTION P_SOB_IDVALIDTRIGGER RETURN BOOLEAN IS
73 BEGIN
74 RETURN (TRUE);
75 END P_SOB_IDVALIDTRIGGER;
76 FUNCTION AFTERPFORM RETURN BOOLEAN IS
77 BEGIN
78 IF ((P_CUSTOMER_NUMBER_LOW IS NULL) AND (P_CUSTOMER_NUMBER_HIGH IS NULL) AND (P_ITEM_LO IS NULL) AND (P_ITEM_HIGH IS NULL) AND (P_INSTALL_LOCATION IS NULL) AND (P_CP_STATUS IS NULL)) THEN
79 /*SRW.MESSAGE(100
80 ,'Aborting the generation of the report as no Parameters are specified.')*/NULL;
81 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,'Aborting the generation of the report as no Parameters are specified.');
82 RETURN (FALSE);
83 END IF;
84 BEGIN
85 /*SRW.REFERENCE(P_CUSTOMER_NUMBER_LOW)*/NULL;
86 /*SRW.REFERENCE(P_CUSTOMER_NUMBER_HIGH)*/NULL;
87 IF (P_CUSTOMER_NUMBER_LOW IS NOT NULL) AND (P_CUSTOMER_NUMBER_HIGH IS NOT NULL) THEN
88 LP_CUSTOMER_RANGE := 'AND hca.account_number BETWEEN :p_customer_number_low AND :p_customer_number_high';
89 ELSIF (P_CUSTOMER_NUMBER_LOW IS NOT NULL) THEN
90 LP_CUSTOMER_RANGE := 'AND hca.account_number >= :p_customer_number_low ';
91 ELSIF (P_CUSTOMER_NUMBER_HIGH IS NOT NULL) THEN
92 LP_CUSTOMER_RANGE := 'AND hca.account_number <= :p_customer_number_high ';
93 END IF;
94 /*SRW.REFERENCE(P_INSTALL_LOCATION)*/NULL;
95 IF (P_INSTALL_LOCATION IS NOT NULL) THEN
96 LP_INSTALL_LOCATION := 'AND hl.city =
97 :p_install_location';
98 END IF;
99 /*SRW.REFERENCE(P_CP_STATUS)*/NULL;
100 IF (P_CP_STATUS IS NOT NULL) THEN
101 LP_CP_STATUS := 'AND ccps.name = :p_cp_status';
102 END IF;
103 END;
104 RETURN (TRUE);
105 END AFTERPFORM;
106 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
107 BEGIN
108 RETURN RP_REPORT_NAME;
109 END RP_REPORT_NAME_P;
110 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
111 BEGIN
112 RETURN RP_COMPANY_NAME;
113 END RP_COMPANY_NAME_P;
114 END CSI_CSICPREP_XMLP_PKG;
115