1 PACKAGE BODY INV_INVARHMA_XMLP_PKG AS
2 /* $Header: INVARHMAB.pls 120.2 2008/01/08 06:19:14 dwkrishn noship $ */
3 FUNCTION C_FORMATTEDCURRENCYCODEFORMULA(CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
4 BEGIN
5 DECLARE
6 TEMP_C VARCHAR2(20);
7 BEGIN
8 TEMP_C := '(' || CURRENCY_CODE || ')';
9 RETURN (TEMP_C);
10 END;
11 RETURN NULL;
12 END C_FORMATTEDCURRENCYCODEFORMULA;
13
14 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
15 BEGIN
16 BEGIN
17 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
18 LP_FROMDATE:=P_FROMDATE;
19 LP_TODATE :=P_TODATE;
20 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
21 EXCEPTION
22 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
23 /*SRW.MESSAGE(1
24 ,'Before Report: Init')*/NULL;
25 END;
26 RETURN (TRUE);
27 END BEFOREREPORT;
28
29 FUNCTION AFTERREPORT RETURN BOOLEAN IS
30 BEGIN
31 BEGIN
32 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
33 END;
34 RETURN (TRUE);
35 END AFTERREPORT;
36
37 FUNCTION F_OUTTOLERANCEFLAGFORMULA(SERIAL_DETAIL IN NUMBER
38 ,SERIAL_NUMBER IN VARCHAR2
39 ,ADJ_QUANTITY IN NUMBER
40 ,SYS_QUANTITY IN NUMBER
41 ,NEG_TOL IN NUMBER
42 ,POS_TOL IN NUMBER) RETURN NUMBER IS
43 BEGIN
44 IF SERIAL_DETAIL = 2 AND SERIAL_NUMBER IS NOT NULL THEN
45 IF (ADJ_QUANTITY = 0) OR (ADJ_QUANTITY IS NULL) THEN
46 RETURN (0);
47 ELSE
48 RETURN (1);
49 END IF;
50 ELSE
51 BEGIN
52 IF (ADJ_QUANTITY = 0) OR (ADJ_QUANTITY IS NULL) THEN
53 RETURN (0);
54 ELSIF (ADJ_QUANTITY < 0) THEN
55 IF (ABS(ADJ_QUANTITY) >= (SYS_QUANTITY * NEG_TOL / 100)) THEN
56 RETURN (1);
57 ELSE
58 RETURN (0);
59 END IF;
60 ELSE
61 IF (ABS(ADJ_QUANTITY) >= (SYS_QUANTITY * POS_TOL / 100)) THEN
62 RETURN (1);
63 ELSE
64 RETURN (0);
65 END IF;
66 END IF;
67 END;
68 END IF;
69 RETURN NULL;
70 END F_OUTTOLERANCEFLAGFORMULA;
71
72 FUNCTION F_ACCURACYPERCENTFORMULA(F_TOTALENTRIES IN NUMBER
73 ,C_TOTALOUTTOLERANCE IN NUMBER) RETURN NUMBER IS
74 BEGIN
75 BEGIN
76 /*SRW.REFERENCE(F_TOTALENTRIES)*/NULL;
77 /*SRW.REFERENCE(C_TOTALOUTTOLERANCE)*/NULL;
78 IF F_TOTALENTRIES = 0 THEN
79 RETURN (100);
80 ELSE
81 RETURN (100 * (F_TOTALENTRIES - C_TOTALOUTTOLERANCE) / F_TOTALENTRIES);
82 END IF;
83 END;
84 RETURN NULL;
85 END F_ACCURACYPERCENTFORMULA;
86
87 FUNCTION FS_ACCURACYPERCENTFORMULA(SS_TOTALENTRIES IN NUMBER
88 ,SS_TOTALOUTTOLERANCE IN NUMBER) RETURN NUMBER IS
89 BEGIN
90 BEGIN
91 /*SRW.REFERENCE(SS_TOTALENTRIES)*/NULL;
92 /*SRW.REFERENCE(SS_TOTALOUTTOLERANCE)*/NULL;
93 IF SS_TOTALENTRIES = 0 THEN
94 RETURN (100);
95 ELSE
96 RETURN (100 * (SS_TOTALENTRIES - SS_TOTALOUTTOLERANCE) / SS_TOTALENTRIES);
97 END IF;
98 END;
99 RETURN NULL;
100 END FS_ACCURACYPERCENTFORMULA;
101
102 FUNCTION SR_ACCURACYPERCENTFORMULA(SR_TOTALENTRIES IN NUMBER
103 ,SR_TOTALOUTTOLERANCE IN NUMBER) RETURN NUMBER IS
104 BEGIN
105 BEGIN
106 /*SRW.REFERENCE(SR_TOTALENTRIES)*/NULL;
107 /*SRW.REFERENCE(SR_TOTALOUTTOLERANCE)*/NULL;
108 IF SR_TOTALENTRIES = 0 THEN
109 RETURN (100);
110 ELSE
111 RETURN (100 * (SR_TOTALENTRIES - SR_TOTALOUTTOLERANCE) / SR_TOTALENTRIES);
112 END IF;
113 END;
114 RETURN NULL;
115 END SR_ACCURACYPERCENTFORMULA;
116
117 FUNCTION AFTERPFORM RETURN BOOLEAN IS
118 BEGIN
119 RETURN (TRUE);
120 END AFTERPFORM;
121
122 FUNCTION C_SERIAL_YES_NOFORMULA(CNT_SL_NO IN NUMBER) RETURN VARCHAR2 IS
123 C_RETURN_VAL VARCHAR2(10);
124 C_RETURN_NUMBER NUMBER(2);
125 BEGIN
126 IF NVL(CNT_SL_NO
127 ,0) > 0 THEN
128 C_RETURN_NUMBER := 1;
129 ELSE
130 C_RETURN_NUMBER := 2;
131 END IF;
132 SELECT
133 MEANING
134 INTO C_RETURN_VAL
135 FROM
136 MFG_LOOKUPS
137 WHERE LOOKUP_TYPE = 'SYS_YES_NO'
138 AND LOOKUP_CODE = C_RETURN_NUMBER;
139 RETURN (C_RETURN_VAL);
140 RETURN NULL;
141 EXCEPTION
142 WHEN NO_DATA_FOUND THEN
143 RETURN NULL;
144 WHEN OTHERS THEN
145 RETURN NULL;
146 END C_SERIAL_YES_NOFORMULA;
147
148 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
149 BEGIN
150 RETURN (TRUE);
151 END BEFOREPFORM;
152
153 END INV_INVARHMA_XMLP_PKG;
154
155