1 PACKAGE BODY JA_JAIN57PI_XMLP_PKG AS
2 /* $Header: JAIN57PIB.pls 120.1 2007/12/25 16:09:04 dwkrishn noship $ */
3 FUNCTION P_TO_DATEVALIDTRIGGER RETURN BOOLEAN IS
4 BEGIN
5 IF P_TO_DATE IS NULL THEN
6 CP_TO_DATE := SYSDATE;
7 ELSE
8 CP_TO_DATE := TO_CHAR(P_TO_DATE,'DD-MON-YY');
9 END IF;
10 RETURN (TRUE);
11 END P_TO_DATEVALIDTRIGGER;
12
13 FUNCTION AFTERREPORT RETURN BOOLEAN IS
14 BEGIN
15 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
16 RETURN (TRUE);
17 END AFTERREPORT;
18 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
19 BFT BOOLEAN;
20 BEGIN
21 BFT:=JA_JAIN57PI_XMLP_PKG.P_TO_DATEVALIDTRIGGER;
22 --SRW.MESSAGE(1275,'REPORT VERSION IS 115.1 LAST MODIFIED DATE IS 17/11/2004 ');
23 BEGIN
24 IF TRUNC(P_FROM_DATE) IS NULL THEN
25 SELECT MIN( CREATION_DATE) INTO CP_FROM_DATE
26 FROM JAI_PO_OSP_HDRS F3
27 WHERE F3.ORGANIZATION_ID = P_ORGANIZATION_ID
28 AND F3.LOCATION_ID = NVL(P_LOCATION_ID,F3.LOCATION_ID);
29 ELSE
30 CP_FROM_DATE := TO_CHAR(P_FROM_DATE,'DD-MON-YY');
31 END IF;
32 END;
33
34 BEGIN
35 --SRW.USER_EXIT('FND SRWINIT');
36 /*EXCEPTION
37 WHEN SRW.USER_EXIT_FAILURE THEN SRW.MESSAGE(010,'FAILED IN BEFORE REPORT TRIGGER, SRWINIT. ');
38 RAISE;*/
39 NULL;
40 END;
41
42 BEGIN
43 --SRW.REFERENCE(:P_STRUCT_NUM);
44 /*SRW.USER_EXIT('FND FLEXSQL CODE="MSTK" NUM=":P_STRUCT_NUM" DISPLAY="ALL"
45 APPL_SHORT_NAME="INV" OUTPUT=":P_ITEM_FLEXDATA" MODE="SELECT" TABLEALIAS="MSI"');
46 EXCEPTION
47 WHEN SRW.USER_EXIT_FAILURE THEN SRW.MESSAGE(020,'FAILED IN BEFORE REPORT TRIGGER, ITEM SELECT. ');
48 RAISE;*/
49 NULL;
50 END;
51
52 RETURN (TRUE);
53
54 END;
55 END JA_JAIN57PI_XMLP_PKG;
56