1 PACKAGE BODY WMS_WMSASNI_XMLP_PKG AS
2 /* $Header: WMSASNIBIB.pls 120.1 2008/03/18 05:44:59 dwkrishn noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
6 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
7 RETURN (TRUE);
8 END BEFOREREPORT;
9
10 FUNCTION AFTERREPORT RETURN BOOLEAN IS
11 BEGIN
12 BEGIN
13 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
14 RETURN (TRUE);
15 END;
16 RETURN (TRUE);
17 END AFTERREPORT;
18
19 FUNCTION AFTERPFORM RETURN BOOLEAN IS
20 BEGIN
21 /*SRW.MESSAGE(123
22 ,'p_from_date =' || P_FROM_DATE)*/NULL;
23 /*SRW.MESSAGE(123
24 ,'p_end_date =' || P_END_DATE)*/NULL;
25 RETURN (TRUE);
26 END AFTERPFORM;
27
28 FUNCTION BETWEENPAGE RETURN BOOLEAN IS
29 BEGIN
30 /*SRW.MESSAGE(123
31 ,'test message between pages')*/NULL;
32 RETURN (TRUE);
33 END BETWEENPAGE;
34
35 FUNCTION CF_1FORMULA RETURN CHAR IS
36 P_ORG_NAME VARCHAR2(240);
37 BEGIN
38 SELECT
39 ORGANIZATION_NAME
40 INTO P_ORG_NAME
41 FROM
42 ORG_ORGANIZATION_DEFINITIONS ORG
43 WHERE ORG.ORGANIZATION_ID = ORG_ID;
44 RETURN P_ORG_NAME;
45 EXCEPTION
46 WHEN OTHERS THEN
47 RETURN 'Organization Name Not Found';
48 END CF_1FORMULA;
49
50 FUNCTION CF_3FORMULA RETURN CHAR IS
51 P_COMMA VARCHAR2(1);
52 P_VIEW_BY VARCHAR2(80);
53 BEGIN
54 P_VIEW_BY := '';
55 P_COMMA := '';
56 IF NVL(P_CHECK_LPN
57 ,'N') = 'Y' THEN
58 P_VIEW_BY := P_VIEW_BY || 'LPN';
59 P_COMMA := ',';
60 END IF;
61 IF NVL(P_CHECK_REVISION
62 ,'N') = 'Y' THEN
63 P_COMMA := ',';
64 P_VIEW_BY := P_VIEW_BY || P_COMMA || 'REVISION';
65 END IF;
66 IF NVL(P_CHECK_LOT_NUMBER
67 ,'N') = 'Y' THEN
68 P_COMMA := ',';
69 P_VIEW_BY := P_VIEW_BY || P_COMMA || 'Lot Number';
70 END IF;
71 IF NVL(P_CHECK_SER_NUMBER
72 ,'N') = 'Y' THEN
73 P_COMMA := ',';
74 P_VIEW_BY := P_VIEW_BY || P_COMMA || 'SERIAL';
75 END IF;
76 RETURN P_VIEW_BY;
77 END CF_3FORMULA;
78
79 FUNCTION CF_2FORMULA(ITEM_ID IN NUMBER) RETURN CHAR IS
80 P_ITEM_DESCRIPTION VARCHAR2(40);
81 BEGIN
82 SELECT
83 MSI.CONCATENATED_SEGMENTS
84 INTO P_ITEM_DESCRIPTION
85 FROM
86 MTL_SYSTEM_ITEMS_KFV MSI
87 WHERE MSI.ORGANIZATION_ID = ORG_ID
88 AND MSI.INVENTORY_ITEM_ID = ITEM_ID;
89 RETURN P_ITEM_DESCRIPTION;
90 EXCEPTION
91 WHEN OTHERS THEN
92 RETURN 'Item Not Found ';
93 END CF_2FORMULA;
94
95 FUNCTION CF_4FORMULA RETURN NUMBER IS
96 BEGIN
97 RETURN 1;
98 END CF_4FORMULA;
99
100 FUNCTION CF_5FORMULA RETURN NUMBER IS
101 BEGIN
102 RETURN 1;
103 END CF_5FORMULA;
104
105 FUNCTION CF_6FORMULA RETURN CHAR IS
106 BEGIN
107 RETURN ' ';
108 END CF_6FORMULA;
109
110 FUNCTION CF_7FORMULA RETURN NUMBER IS
111 BEGIN
112 RETURN 1;
113 END CF_7FORMULA;
114
115 FUNCTION CF_8FORMULA RETURN NUMBER IS
116 BEGIN
117 RETURN 1;
118 END CF_8FORMULA;
119
120 FUNCTION CF_9FORMULA(VENDOR_ID1 IN NUMBER) RETURN CHAR IS
121 P_VENDOR_NAME VARCHAR2(240);
122 BEGIN
123 /*SRW.MESSAGE(123
124 ,'Inside CF_9 Formula')*/NULL;
125 SELECT
126 SUBSTR(VENDOR_NAME
127 ,1
128 ,240)
129 INTO P_VENDOR_NAME
130 FROM
131 PO_VENDORS
132 WHERE VENDOR_ID = VENDOR_ID1;
133 /*SRW.MESSAGE(123
134 ,'After Getting Values in CF_9 Formula')*/NULL;
135 RETURN P_VENDOR_NAME;
136 EXCEPTION
137 WHEN OTHERS THEN
138 /*SRW.MESSAGE(123
139 ,'Error at CF_9 Formula returning null')*/NULL;
140 RETURN ' ';
141 END CF_9FORMULA;
142
143 END WMS_WMSASNI_XMLP_PKG;
144