PACKAGE BODY: APPS.WIP_WIPMLINT_XMLP_PKG

Source

1 PACKAGE BODY WIP_WIPMLINT_XMLP_PKG AS
2 /* $Header: WIPMLINTB.pls 120.1 2008/01/31 12:26:29 npannamp noship $ */
3   FUNCTION C_SUCCESSFORMULA(PPHASE IN NUMBER) RETURN NUMBER IS
4   BEGIN
5     IF (PPHASE = 4) THEN
6       RETURN (1);
7     ELSE
8       RETURN (0);
9     END IF;
10     RETURN NULL;
11   END C_SUCCESSFORMULA;
12   FUNCTION C_SUCCESS_REPETITIVEFORMULA(PPHASE1 IN NUMBER) RETURN NUMBER IS
13   BEGIN
14     IF (PPHASE1 = 4) THEN
15       RETURN (1);
16     ELSE
17       RETURN (0);
18     END IF;
19     RETURN NULL;
20   END C_SUCCESS_REPETITIVEFORMULA;
21   FUNCTION C_SUCCESS_RESCHEDULEFORMULA(PPHASE2 IN NUMBER) RETURN NUMBER IS
22   BEGIN
23     IF (PPHASE2 = 4) THEN
24       RETURN (1);
25     ELSE
26       RETURN (0);
27     END IF;
28     RETURN NULL;
29   END C_SUCCESS_RESCHEDULEFORMULA;
30   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
31   BEGIN
32     BEGIN
33     qty_precision:=wip_common_xmlp_pkg.get_precision(P_qty_precision);
34       P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
35       /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
36       /*SRW.USER_EXIT('FND FLEXSQL CODE="MSTK"
37                     APPL_SHORT_NAME="INV" OUTPUT="P_FLEXDATA"
38                     MODE="SELECT" DISPLAY="ALL" TABLEALIAS="MSI" ')*/NULL;
39       RETURN TRUE;
40     END;
41     RETURN (TRUE);
42   END BEFOREREPORT;
43   FUNCTION AFTERREPORT RETURN BOOLEAN IS
44   BEGIN
45     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
46     RETURN (TRUE);
47   END AFTERREPORT;
48   FUNCTION C_FLEXFIELDFORMULA RETURN VARCHAR2 IS
49   BEGIN
50     RETURN NULL;
51   END C_FLEXFIELDFORMULA;
52   FUNCTION C_FLEXFIELD1FORMULA RETURN VARCHAR2 IS
53   BEGIN
54     RETURN NULL;
55   END C_FLEXFIELD1FORMULA;
56   FUNCTION C_FLEXFIELD2FORMULA RETURN VARCHAR2 IS
57   BEGIN
58     RETURN NULL;
59   END C_FLEXFIELD2FORMULA;
60   FUNCTION GROUPID RETURN CHARACTER IS
61     GRP_ID VARCHAR2(500);
62   BEGIN
63     IF (P_GROUP_ID IS NOT NULL) THEN
64       GRP_ID := 'and wjsi.group_id = ''' || P_GROUP_ID || '''ORDER BY 1 ASC,2 ASC , wjsi.load_type,wjsi.process_phase,wjsi.process_status,wjsi.wip_entity_id,wjsi.repetitive_schedule_id';
65     ELSE
66       GRP_ID := 'ORDER BY 1 ASC,2 ASC , wjsi.load_type,wjsi.process_phase,wjsi.process_status,wjsi.wip_entity_id, wjsi.repetitive_schedule_id';
67     END IF;
68     RETURN (GRP_ID);
69   END GROUPID;
70   FUNCTION C_FAILFORMULA RETURN VARCHAR2 IS
71   BEGIN
72     RETURN NULL;
73   END C_FAILFORMULA;
74   FUNCTION C_FAIL_REPFORMULA RETURN VARCHAR2 IS
75   BEGIN
76     RETURN NULL;
77   END C_FAIL_REPFORMULA;
78   FUNCTION C_FAIL_RESFORMULA RETURN VARCHAR2 IS
79   BEGIN
80     RETURN NULL;
81   END C_FAIL_RESFORMULA;
82   FUNCTION AFTERPFORM RETURN BOOLEAN IS
83   BEGIN
84     RETURN (TRUE);
85   END AFTERPFORM;
86   FUNCTION INCLUDE_WARNINGS RETURN CHARACTER IS
87     INCLUDE_WARNINGS VARCHAR2(500);
88   BEGIN
89     IF (P_INCLUDE_WARNINGS = 2) THEN
90       INCLUDE_WARNINGS := 'and wie.error_type = 1 order by 1';
91     ELSE
92       INCLUDE_WARNINGS := 'order by 1';
93     END IF;
94     RETURN (INCLUDE_WARNINGS);
95   END INCLUDE_WARNINGS;
96   FUNCTION C_STATUS_TYPEFORMULA(STATUS_TYPE IN NUMBER) RETURN CHAR IS
97     L_STATUS_MEANING MFG_LOOKUPS.MEANING%TYPE;
98   BEGIN
99     SELECT
100       MEANING
101     INTO L_STATUS_MEANING
102     FROM
103       MFG_LOOKUPS
104     WHERE LOOKUP_CODE = STATUS_TYPE
105       AND LOOKUP_TYPE = 'WIP_JOB_STATUS';
106     RETURN (L_STATUS_MEANING);
107   EXCEPTION
108     WHEN OTHERS THEN
109       RETURN (NULL);
110   END C_STATUS_TYPEFORMULA;
111 END WIP_WIPMLINT_XMLP_PKG;
112 
113