1 PACKAGE BODY INV_INVIRRIT_XMLP_PKG AS
2 /* $Header: INVIRRITB.pls 120.1 2007/12/25 10:30:21 dwkrishn noship $ */
3 FUNCTION C_RPT_TITLEFORMULA(C_RELATION_NAME IN VARCHAR2) RETURN VARCHAR2 IS
4 BEGIN
5 /*SRW.REFERENCE(C_RELATION_NAME)*/NULL;
6 RETURN (C_RELATION_NAME || ' Items ');
7 END C_RPT_TITLEFORMULA;
8
9 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
10 BEGIN
11 BEGIN
12 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
13 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
14 EXCEPTION
15 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
16 /*SRW.MESSAGE(1
17 ,'FAILED SRWINIT IN BEFORE REPORT TRIGGER')*/NULL;
18 RAISE;
19 END;
20 BEGIN
21 NULL;
22 EXCEPTION
23 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
24 /*SRW.MESSAGE(2
25 ,'ITEM FLEX1 SELECT FAILED IN BEFORE REPORT TRIGGER')*/NULL;
26 RAISE;
27 END;
28 BEGIN
29 NULL;
30 EXCEPTION
31 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
32 /*SRW.MESSAGE(3
33 ,'ITEM FLEX2 SELECT FAILED IN BEFORE REPORT TRIGGER')*/NULL;
34 RAISE;
35 END;
36 BEGIN
37 NULL;
38 EXCEPTION
39 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
40 /*SRW.MESSAGE(4
41 ,'CATG FLEX SELECT FAILED IN BEFORE REPORT TRIGGER')*/NULL;
42 RAISE;
43 END;
44 BEGIN
45 NULL;
46 EXCEPTION
47 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
48 /*SRW.MESSAGE(5
49 ,'CATG FLEX2 SELECT FAILED IN BEFORE REPORT TRIGGER')*/NULL;
50 RAISE;
51 END;
52 BEGIN
53 NULL;
54 EXCEPTION
55 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
56 /*SRW.MESSAGE(6
57 ,'ITEM FLEX1 WHERE FAILED IN BEFORE REPORT TRIGGER')*/NULL;
58 RAISE;
59 END;
60 BEGIN
61 NULL;
62 EXCEPTION
63 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
64 /*SRW.MESSAGE(7
65 ,'CATG FLEX WHERE FAILED IN BEFORE REPORT TRIGGER')*/NULL;
66 RAISE;
67 END;
68 RETURN (TRUE);
69 END BEFOREREPORT;
70
71 FUNCTION C_ITEM_LABELFORMULA(C_RELATION_NAME IN VARCHAR2) RETURN VARCHAR2 IS
72 BEGIN
73 /*SRW.REFERENCE(C_RELATION_NAME)*/NULL;
74 IF NVL(LENGTH(C_RELATION_NAME)
75 ,0) < 26 THEN
76 RETURN (C_RELATION_NAME || ' Item');
77 ELSE
78 RETURN (SUBSTR(C_RELATION_NAME
79 ,1
80 ,25) || ' Item');
81 END IF;
82 RETURN NULL;
83 END C_ITEM_LABELFORMULA;
84
85 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
86 BEGIN
87 RETURN (TRUE);
88 END BEFOREPFORM;
89
90 FUNCTION AFTERPFORM RETURN BOOLEAN IS
91 BEGIN
92 RETURN (TRUE);
93 END AFTERPFORM;
94
95 FUNCTION C_RECIPROCAL_VALUEFORMULA(RECIPROCAL_FLAG IN VARCHAR2) RETURN VARCHAR2 IS
96 BEGIN
97 /*SRW.REFERENCE(RECIPROCAL_FLAG)*/NULL;
98 IF RECIPROCAL_FLAG = 'Y' THEN
99 RETURN ('Yes');
100 ELSE
101 RETURN ('No');
102 END IF;
103 RETURN NULL;
104 END C_RECIPROCAL_VALUEFORMULA;
105
106 FUNCTION C_ICG_DESC_1FORMULA(ITEM_ID1 IN NUMBER) RETURN VARCHAR2 IS
107 BEGIN
108 DECLARE
109 AA VARCHAR2(240);
110 PROFILE_VAL VARCHAR2(240);
111 BEGIN
112 AA := NULL;
113 PROFILE_VAL := NULL;
114 IF (P_DESC_TYPE_FLAG = 2) THEN
115 FND_PROFILE.GET('USE_NAME_ICG_DESC'
116 ,PROFILE_VAL);
117 IF (PROFILE_VAL = 'Y' OR (PROFILE_VAL IS NULL)) THEN
118 AA := INVICGDS.INV_FN_GET_ICG_DESC(ITEM_ID1
119 ,30
120 ,'Y'
121 ,P_SEGMENT_DELIMITER
122 ,'Y'
123 ,'Y');
124 ELSE
125 AA := INVICGDS.INV_FN_GET_ICG_DESC(ITEM_ID1
126 ,30
127 ,'N'
128 ,P_SEGMENT_DELIMITER
129 ,'Y'
130 ,'Y');
131 END IF;
132 END IF;
133 RETURN (AA);
134 END;
135 RETURN NULL;
136 END C_ICG_DESC_1FORMULA;
137
138 FUNCTION C_ICG_DESC_2FORMULA(ITEM_ID2 IN NUMBER) RETURN VARCHAR2 IS
139 BEGIN
140 DECLARE
141 AA VARCHAR2(240);
142 PROFILE_VAL VARCHAR2(240);
143 BEGIN
144 AA := NULL;
145 PROFILE_VAL := NULL;
146 IF (P_DESC_TYPE_FLAG = 2) THEN
147 FND_PROFILE.GET('USE_NAME_ICG_DESC'
148 ,PROFILE_VAL);
149 IF (PROFILE_VAL = 'Y' OR (PROFILE_VAL IS NULL)) THEN
150 AA := INVICGDS.INV_FN_GET_ICG_DESC(ITEM_ID2
151 ,30
152 ,'Y'
153 ,P_SEGMENT_DELIMITER
154 ,'Y'
155 ,'Y');
156 ELSE
157 AA := INVICGDS.INV_FN_GET_ICG_DESC(ITEM_ID2
158 ,30
159 ,'N'
160 ,P_SEGMENT_DELIMITER
161 ,'Y'
162 ,'Y');
163 END IF;
164 END IF;
165 RETURN (AA);
166 END;
167 RETURN NULL;
168 END C_ICG_DESC_2FORMULA;
169
170 FUNCTION AFTERREPORT RETURN BOOLEAN IS
171 BEGIN
172 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
173 RETURN (TRUE);
174 END AFTERREPORT;
175
176 END INV_INVIRRIT_XMLP_PKG;
177