PACKAGE BODY: APPS.CRP_CRPRRBOR_XMLP_PKG

Source

1 PACKAGE BODY CRP_CRPRRBOR_XMLP_PKG AS
2 /* $Header: CRPRRBORB.pls 120.2 2007/12/25 07:01:55 nchinnam noship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4   BEGIN
5     BEGIN
6       P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
7       /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
8       /*SRW.USER_EXIT('FND FLEXSQL CODE="MSTK"
9                                                  APPL_SHORT_NAME="INV"
10                                                  OUTPUT=":P_FLEXDATA"
11                                                  MODE="SELECT"
12                                                  DISPLAY="ALL"
13                                                  NUM="101"
14                                                  TABLEALIAS="sys"')*/NULL;
15       IF ((P_LOW_ITEM IS NOT NULL) OR (P_HIGH_ITEM IS NOT NULL)) THEN
16         NULL;
17       END IF;
18     END;
19     RETURN (TRUE);
20   END BEFOREREPORT;
21 
22   FUNCTION AFTERREPORT RETURN BOOLEAN IS
23   BEGIN
24     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
25     RETURN (TRUE);
26   END AFTERREPORT;
27 
28   FUNCTION C_RSRC_SET_WHEREFORMULA RETURN VARCHAR2 IS
29   BEGIN
30     DECLARE
31       R_SET VARCHAR2(200);
32     BEGIN
33       R_SET := 'and br.bill_of_resources = rs.bill_of_resources ' || 'and br.organization_id = rs.organization_id ' || 'and br.bill_of_resources = ''' || P_RESOURCE_SET || '''';
34       RETURN (R_SET);
35     END;
36     RETURN NULL;
37   END C_RSRC_SET_WHEREFORMULA;
38 
39   FUNCTION C_RSRC_USE_WHEREFORMULA RETURN VARCHAR2 IS
40   BEGIN
41     DECLARE
42       R_USE VARCHAR2(80);
43     BEGIN
44       IF (P_RESOURCE_USE IS NOT NULL) THEN
45         R_USE := 'and dr.resource_group_name = ''' || P_RESOURCE_USE || ''' ';
46       ELSE
47         R_USE := 'and 1=1';
48       END IF;
49       RETURN (R_USE);
50     END;
51     RETURN NULL;
52   END C_RSRC_USE_WHEREFORMULA;
53 
54   PROCEDURE GET_PRECISION IS
55   BEGIN
56   /*   SRW.ATTR.MASK := SRW.FORMATMASK_ATTR;
57     IF P_QTY_PRECISION = 0 THEN
58       SRW.ATTR.FORMATMASK := '-NNN,NNN,NNN,NN0';
59     ELSE
60       IF P_QTY_PRECISION = 1 THEN
61         SRW.ATTR.FORMATMASK := '-NNN,NNN,NNN,NN0.0';
62       ELSE
63         IF P_QTY_PRECISION = 3 THEN
64           SRW.ATTR.FORMATMASK := '-NN,NNN,NNN,NN0.000';
65         ELSE
66           IF P_QTY_PRECISION = 4 THEN
67             SRW.ATTR.FORMATMASK := '-N,NNN,NNN,NN0.0000';
68           ELSE
69             IF P_QTY_PRECISION = 5 THEN
70               SRW.ATTR.FORMATMASK := '-NNN,NNN,NN0.00000';
71             ELSE
72               IF P_QTY_PRECISION = 6 THEN
73                 SRW.ATTR.FORMATMASK := '-NN,NNN,NN0.000000';
74               ELSE
75                 SRW.ATTR.FORMATMASK := '-NNN,NNN,NNN,NN0.00';
76               END IF;
77             END IF;
78           END IF;
79         END IF;
80       END IF;
81     END IF;*/
82     /*SRW.SET_ATTR(0
83                 ,SRW.ATTR)*/NULL;
84   END GET_PRECISION;
85 
86 END CRP_CRPRRBOR_XMLP_PKG;
87