1 PACKAGE BODY QA_QLTSPECR_XMLP_PKG AS
2 /* $Header: QLTSPECRB.pls 120.0 2007/12/24 10:39:15 krreddy noship $ */
3 FUNCTION C_TARGET_VALUEFORMULA(DATATYPE IN NUMBER
4 ,TARGET_VALUE IN VARCHAR2) RETURN NUMBER IS
5 BEGIN
6 IF (DATATYPE = 2) THEN
7 RETURN (TO_NUMBER(TARGET_VALUE
8 ,'9999999999999999.999999999999'));
9 ELSE
10 RETURN (2);
11 END IF;
12 RETURN NULL;
13 END C_TARGET_VALUEFORMULA;
14
15 FUNCTION C_UPPER_SPEC_NUMBERFORMULA(DATATYPE IN NUMBER
16 ,UPPER_SPEC_LIMIT IN VARCHAR2) RETURN NUMBER IS
17 BEGIN
18 IF (DATATYPE = 2) THEN
19 RETURN (TO_NUMBER(UPPER_SPEC_LIMIT
20 ,'9999999999999999.999999999999'));
21 ELSE
22 RETURN (2);
23 END IF;
24 RETURN NULL;
25 END C_UPPER_SPEC_NUMBERFORMULA;
26
27 FUNCTION C_UPPER_USER_NUMBERFORMULA(DATATYPE IN NUMBER
28 ,UPPER_USER_DEFINED_LIMIT IN VARCHAR2) RETURN NUMBER IS
29 BEGIN
30 IF (DATATYPE = 2) THEN
31 RETURN (TO_NUMBER(UPPER_USER_DEFINED_LIMIT
32 ,'9999999999999999.999999999999'));
33 ELSE
34 RETURN (2);
35 END IF;
36 RETURN NULL;
37 END C_UPPER_USER_NUMBERFORMULA;
38
39 FUNCTION C_UPPER_REASON_NUMBERFORMULA(DATATYPE IN NUMBER
40 ,UPPER_REASONABLE_LIMIT IN VARCHAR2) RETURN NUMBER IS
41 BEGIN
42 IF (DATATYPE = 2) THEN
43 RETURN (TO_NUMBER(UPPER_REASONABLE_LIMIT
44 ,'9999999999999999.999999999999'));
45 ELSE
46 RETURN (2);
47 END IF;
48 RETURN NULL;
49 END C_UPPER_REASON_NUMBERFORMULA;
50
51 FUNCTION AFTERPFORM RETURN BOOLEAN IS
52 BEGIN
53 IF (P_SPEC_NAME IS NOT NULL) THEN
54 SELECT
55 SPEC_NAME
56 INTO P_SPEC_NAME
57 FROM
58 QA_SPECS
59 WHERE SPEC_ID = P_SPEC_NAME;
60 P_SPEC_NAME_LIMITER := 'and qsv.spec_name = ''' || P_SPEC_NAME || '''';
61 END IF;
62 IF (P_CATEGORY_SET IS NOT NULL) THEN
63 P_CATEGORY_SET_LIMITER := 'and qsv.category_set_name = ''' || P_CATEGORY_SET || '''';
64 END IF;
65 IF (P_SPEC_TYPE IS NOT NULL) THEN
66 P_SPEC_TYPE_LIMITER := 'and qsv.ASSIGNMENT_TYPE = ''' || P_SPEC_TYPE || '''';
67 SELECT
68 MEANING
69 INTO P_SPEC_TYPE_MEANING
70 FROM
71 MFG_LOOKUPS
72 WHERE LOOKUP_TYPE = 'QA_SPEC_TYPE'
73 AND LOOKUP_CODE = P_SPEC_TYPE;
74 END IF;
75 IF (P_VENDOR_NUMBER IS NOT NULL) THEN
76 P_VENDOR_NUMBER_LIMITER := 'and qsv.VENDOR_NUMBER = ''' || P_VENDOR_NUMBER || '''';
77 END IF;
78 IF (P_CUSTOMER_NUMBER IS NOT NULL) THEN
79 P_CUSTOMER_NUMBER_LIMITER := 'and qsv.customer_number = ''' || P_CUSTOMER_NUMBER || '''';
80 END IF;
81 IF (P_ORGANIZATION_ID IS NOT NULL) THEN
82 P_ORG_LIMITER := 'and qsv.organization_id = ' || TO_CHAR(P_ORGANIZATION_ID);
83 END IF;
84 RETURN (TRUE);
85 END AFTERPFORM;
86
87 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
88 BEGIN
89 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
90 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
91 /*SRW.REFERENCE(P_STRUCT_NUM)*/NULL;
92 /*SRW.REFERENCE(P_STRUCT_NUM)*/NULL;
93 /* IF (P_ITEM IS NOT NULL) THEN
94 P_ITEM_LIMITER := 'and ' || P_ITEM_LIMITER;
95 END IF;
96 IF (P_CATEGORY IS NOT NULL) THEN
97 P_CATEGORY_LIMITER := 'and ' || P_CATEGORY_LIMITER;
98 END IF;*/null;
99 RETURN (TRUE);
100 END BEFOREREPORT;
101
102 FUNCTION AFTERREPORT RETURN BOOLEAN IS
103 BEGIN
104 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
105 RETURN (TRUE);
106 END AFTERREPORT;
107
108 FUNCTION C_LOWER_SPEC_NUMBERFORMULA(DATATYPE IN NUMBER
109 ,LOWER_SPEC_LIMIT IN VARCHAR2) RETURN NUMBER IS
110 BEGIN
111 IF (DATATYPE = 2) THEN
112 RETURN (TO_NUMBER(LOWER_SPEC_LIMIT
113 ,'9999999999999999.999999999999'));
114 ELSE
115 RETURN (2);
116 END IF;
117 RETURN NULL;
118 END C_LOWER_SPEC_NUMBERFORMULA;
119
120 FUNCTION C_LOWER_USER_NUMBERFORMULA(DATATYPE IN NUMBER
121 ,LOWER_USER_DEFINED_LIMIT IN VARCHAR2) RETURN NUMBER IS
122 BEGIN
123 IF (DATATYPE = 2) THEN
124 RETURN (TO_NUMBER(LOWER_USER_DEFINED_LIMIT
125 ,'9999999999999999.999999999999'));
126 ELSE
127 RETURN (2);
128 END IF;
129 RETURN NULL;
130 END C_LOWER_USER_NUMBERFORMULA;
131
132 FUNCTION C_LOWER_REASON_NUMBERFORMULA(DATATYPE IN NUMBER
133 ,LOWER_REASONABLE_LIMIT IN VARCHAR2) RETURN NUMBER IS
134 BEGIN
135 IF (DATATYPE = 2) THEN
136 RETURN (TO_NUMBER(LOWER_REASONABLE_LIMIT
137 ,'9999999999999999.999999999999'));
138 ELSE
139 RETURN (2);
140 END IF;
141 RETURN NULL;
142 END C_LOWER_REASON_NUMBERFORMULA;
143
144 /* PROCEDURE GET_PRECISION(ID IN NUMBER) IS
145 BEGIN
146 SRW.ATTR.MASK := SRW.FORMATMASK_ATTR;
147 IF ID = 0 THEN
148 SRW.ATTR.FORMATMASK := '-NNNGNNNGNNNGNN0';
149 ELSIF ID = 1 THEN
150 SRW.ATTR.FORMATMASK := '-NNNGNNNGNNNGNN0D0';
151 ELSIF ID = 2 THEN
152 SRW.ATTR.FORMATMASK := '-NNNGNNNGNNNGNN0D00';
153 ELSIF ID = 3 THEN
154 SRW.ATTR.FORMATMASK := '-NNNGNNNGNNNGNN0D000';
155 ELSIF ID = 4 THEN
156 SRW.ATTR.FORMATMASK := '-NNNGNNNGNNNGNN0D0000';
157 ELSIF ID = 5 THEN
158 SRW.ATTR.FORMATMASK := '-NNNGNNNGNNNGNN0D000000';
159 ELSIF ID = 6 THEN
160 SRW.ATTR.FORMATMASK := '-NNNGNNNGNNNGNN0D0000000';
161 ELSIF ID = 7 THEN
162 SRW.ATTR.FORMATMASK := '-NNNGNNNGNNNGNN0D00000000';
163 ELSIF ID = 8 THEN
164 SRW.ATTR.FORMATMASK := '-NNNGNNNGNNNGNN0D000000000';
165 ELSIF ID = 9 THEN
166 SRW.ATTR.FORMATMASK := '-NNNGNNNGNNNGNN0D0000000000';
167 ELSIF ID = 10 THEN
168 SRW.ATTR.FORMATMASK := '-NNNGNNNGNNNGNN0D00000000000';
169 ELSIF ID = 11 THEN
170 SRW.ATTR.FORMATMASK := '-NNNGNNNGNNNGNN0D000000000000';
171 ELSIF ID = 12 THEN
172 SRW.ATTR.FORMATMASK := '-NNNGNNNGNNNGNN0D0000000000000';
173 ELSE
174 SRW.ATTR.FORMATMASK := '-NNNGNNNGNNNGNN0D00';
175 END IF;
176 END GET_PRECISION;*/
177
178 END QA_QLTSPECR_XMLP_PKG;
179