1 PACKAGE BODY GML_RIBOL_XMLP_PKG AS
2 /* $Header: RIBOLB.pls 120.1 2008/01/06 13:44:56 dwkrishn noship $ */
3 FUNCTION AFTERPFORM RETURN BOOLEAN IS
4 SORT1 VARCHAR2(10);
5 BEGIN
6 PARAM_WHERE_CLAUSE := ' ';
7 PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and lad.orgn_code = :p_default_orgn ';
8 IF (P_FROM_SHIPMENT_NO IS NOT NULL) THEN
9 PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and lad.bol_no >= :p_from_shipment_no ';
10 END IF;
11 IF (P_TO_SHIPMENT_NO IS NOT NULL) THEN
12 PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and lad.bol_no <= :p_to_shipment_no ';
13 END IF;
14 IF (P_SORT_ASC_DESC = '1') THEN
15 P_SORT := 'ASC';
16 ELSIF (P_SORT_ASC_DESC = '2') THEN
17 P_SORT := 'DESC';
18 ELSE
19 /*SRW.MESSAGE(1232
20 ,'INVALID OPTION')*/NULL;
21 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
22 END IF;
23 RETURN (TRUE);
24 END AFTERPFORM;
25
26 FUNCTION CF_SORT_1FORMULA RETURN VARCHAR2 IS
27 TEMP VARCHAR2(80);
28 BEGIN
29 SELECT
30 MEANING
31 INTO TEMP
32 FROM
33 GEM_LOOKUP_VALUES
34 WHERE LOOKUP_TYPE = 'GEMMS_OP_RIBOL'
35 AND LOOKUP_CODE = P_SORT_ASC_DESC;
36 CP_SORT_1 := TEMP;
37 RETURN NULL;
38 END CF_SORT_1FORMULA;
39
40 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
41 BEGIN
42 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
43 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
44 SELECT
45 ORGN_NAME
46 INTO CP_ORGN_NAME
47 FROM
48 SY_ORGN_MST
49 WHERE ORGN_CODE = P_DEFAULT_ORGN;
50 SELECT
51 USER_NAME
52 INTO CP_USER
53 FROM
54 FND_USER
55 WHERE USER_ID = P_DEFAULT_USER;
56 RETURN (TRUE);
57 RETURN NULL;
58 EXCEPTION
59 WHEN OTHERS THEN
60 RETURN TRUE;
61 RETURN (TRUE);
62 END BEFOREREPORT;
63
64 PROCEDURE GML_RIBOL_XMLP_PKG_HEADER IS
65 BEGIN
66 NULL;
67 END GML_RIBOL_XMLP_PKG_HEADER;
68
69 FUNCTION AFTERREPORT RETURN BOOLEAN IS
70 BEGIN
71 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
72 RETURN (TRUE);
73 END AFTERREPORT;
74
75 FUNCTION CP_ORGN_NAME_P RETURN VARCHAR2 IS
76 BEGIN
77 RETURN CP_ORGN_NAME;
78 END CP_ORGN_NAME_P;
79
80 FUNCTION CP_USER_P RETURN VARCHAR2 IS
81 BEGIN
82 RETURN CP_USER;
83 END CP_USER_P;
84
85 FUNCTION CP_SORT_1_P RETURN VARCHAR2 IS
86 BEGIN
87 RETURN CP_SORT_1;
88 END CP_SORT_1_P;
89
90 END GML_RIBOL_XMLP_PKG;
91