[Home] [Help]
PACKAGE BODY: APPS.WSH_FLEX_UPGR_COGS
Source
1 PACKAGE BODY WSH_FLEX_UPGR_COGS AS
2 /* $Header: WSHWFUPB.pls 115.7 99/07/16 08:24:48 porting ship $ */
3
4 /*
5 * Global Variables
6 */
7
8 DEBUG_COGS BOOLEAN := FALSE;
9
10 --
11 -- PRIVATE PROCEDURES
12 --
13
14 PROCEDURE PRINTLN(p_string IN VARCHAR2) IS
15 BEGIN
16 --dbms_output.enable(1000000);
17 --dbms_output.put_line(p_string);
18 null;
19 END PRINTLN;
20
21 --
22 -- PUBLIC FUNCTIONS
23 --
24
25
26 /*===========================================================================+
27 | Name: BUILD |
28 | Purpose: This is a stub build function that returns a value FALSE and |
29 | sets the value of the output varriable FB_FLEX_SEGto NULL and |
30 | output error message variable FB_ERROR_MSG to the AOL error |
31 | message FLEXWK-UPGRADE FUNC MISSING. This will ensure that the |
32 | user will get an appropriate error message if they try to use |
33 | the FLEXBUILDER_UPGRADE process without creating the conversion |
34 | package successfully. |
35 +===========================================================================*/
36 FUNCTION BUILD (
37 FB_FLEX_NUM IN NUMBER DEFAULT 101,
38 OE_II_COMMITMENT_ID_RAW IN VARCHAR2 DEFAULT NULL,
39 OE_II_CUSTOMER_ID_RAW IN VARCHAR2 DEFAULT NULL,
40 OE_II_HEADER_ID_RAW IN VARCHAR2 DEFAULT NULL,
41 OE_II_LINE_DETAIL_ID_RAW IN VARCHAR2 DEFAULT NULL,
42 OE_II_OPTION_FLAG_RAW IN VARCHAR2 DEFAULT NULL,
43 OE_II_ORDER_CATEGORY_RAW IN VARCHAR2 DEFAULT NULL,
44 OE_II_ORDER_LINE_ID_RAW IN VARCHAR2 DEFAULT NULL,
45 OE_II_ORDER_TYPE_ID_RAW IN VARCHAR2 DEFAULT NULL,
46 OE_II_ORGANIZATION_ID_RAW IN VARCHAR2 DEFAULT NULL,
47 OE_II_PICK_LINE_DETAIL_ID_RAW IN VARCHAR2 DEFAULT NULL,
48 FB_FLEX_SEG IN OUT VARCHAR2,
49 FB_ERROR_MSG IN OUT VARCHAR2)
50 RETURN BOOLEAN
51 IS
52 BEGIN <<BUILD>>
53 IF (DEBUG_COGS) THEN
54 DBMS_OUTPUT.ENABLE(1000000);
55 PRINTLN('Calling Stub WSH_FLEX_UPGR_COGS.BUILD');
56 END IF;
57 FB_FLEX_SEG := NULL;
58 FND_MESSAGE.SET_NAME('FND', 'FLEXWK-UPGRADE FUNC MISSING');
59 FND_MESSAGE.SET_TOKEN('FUNC','OE_INVENTORY_INTERFACE');
60 FB_ERROR_MSG := FND_MESSAGE.GET_ENCODED;
61 RETURN FALSE;
62 END; /* BUILD */
63
64
65 /*===========================================================================+
66 | Name: UPGRADE_COGS_FLEX |
67 | Purpose: Determines whether an item is an option item or not |
68 +===========================================================================*/
69
70 PROCEDURE UPGRADE_COGS_FLEX(ITEMTYPE IN VARCHAR2,
71 ITEMKEY IN VARCHAR2,
72 ACTID IN NUMBER,
73 FUNCMODE IN VARCHAR2,
74 RESULT OUT VARCHAR2)
75
76 IS
77 L_LINE_DETAIL_ID NUMBER;
78 L_ORDER_LINE_ID NUMBER;
79 L_PICK_LINE_DETAIL_ID NUMBER;
80 L_ORGANIZATION_ID NUMBER;
81 L_COMMITMENT_ID NUMBER;
82 L_CUSTOMER_ID NUMBER;
83 L_HEADER_ID NUMBER;
84 L_ORDER_CATEGORY VARCHAR2(10);
85 L_ORDER_TYPE_ID NUMBER;
86 L_OPTION_FLAG VARCHAR2(2);
87 L_FLEX_NUM NUMBER;
88 L_FB_FLEX_SEGS VARCHAR2(240) DEFAULT NULL;
89 L_FB_ERROR_MSG VARCHAR2(240) DEFAULT NULL;
90 BEGIN <<UPGRADE_COGS_FLEX>>
91 IF (DEBUG_COGS) THEN
92 DBMS_OUTPUT.ENABLE(1000000);
93 PRINTLN('Calling OE_INVENTORY_INTERFACE.BUILD');
94 END IF;
95 IF (FUNCMODE = 'RUN') THEN
96 L_LINE_DETAIL_ID:= wf_engine.GetItemAttrNumber(itemtype,itemkey,'LINE_DETAIL_ID');
97 L_ORDER_LINE_ID:= wf_engine.GetItemAttrNumber(itemtype,itemkey,'ORDER_LINE_ID');
98 L_PICK_LINE_DETAIL_ID:= wf_engine.GetItemAttrNumber(itemtype,itemkey,'PICKING_LINE_DETAIL_ID');
99 L_ORGANIZATION_ID:= wf_engine.GetItemAttrNumber(itemtype,itemkey,'ORGANIZATION_ID');
100 L_COMMITMENT_ID:= wf_engine.GetItemAttrNumber(itemtype,itemkey,'COMMITMENT_ID');
101 L_CUSTOMER_ID:= wf_engine.GetItemAttrNumber(itemtype,itemkey,'CUSTOMER_ID');
102 L_HEADER_ID:= wf_engine.GetItemAttrNumber(itemtype,itemkey,'ORDER_LINE_HEADER_ID');
103 L_ORDER_CATEGORY:= wf_engine.GetItemAttrText(itemtype,itemkey,'ORDER_CATEGORY');
104 L_ORDER_TYPE_ID:= wf_engine.GetItemAttrNumber(itemtype,itemkey,'ORDER_TYPE_ID');
105 L_OPTION_FLAG:= wf_engine.GetItemAttrText(itemtype,itemkey,'OPTION_FLAG');
106 L_FLEX_NUM:= wf_engine.GetItemAttrNumber(itemtype,itemkey,'CHART_OF_ACCOUNTS_ID');
107
108 IF (DEBUG_COGS) THEN
109 PRINTLN('Input Paramerers : ');
110 PRINTLN('Line detail id :'||to_char(l_line_detail_id));
111 PRINTLN('Line id :'||to_char(l_order_line_id));
112 PRINTLN('Picking line detail id :'||to_char(l_pick_line_detail_id));
113 PRINTLN('Organization id :'||to_char(l_organization_id));
114 PRINTLN('Commitment ID :'||to_char(l_commitment_id));
115 PRINTLN('Customer ID :'||to_char(l_customer_id));
116 PRINTLN('Order Category :'||l_order_category);
117 PRINTLN('Order Type :'||to_char(l_order_type_id));
118 PRINTLN('Option Flag :'||l_option_flag);
119 PRINTLN('Structure Number :'|| to_char(l_flex_num));
120 END IF;
121
122 IF (OE_INVENTORY_INTERFACE.BUILD(L_FLEX_NUM,
123 L_COMMITMENT_ID,
124 L_CUSTOMER_ID,
125 L_HEADER_ID,
126 L_LINE_DETAIL_ID,
127 L_OPTION_FLAG,
128 L_ORDER_CATEGORY,
129 L_ORDER_LINE_ID,
130 L_ORDER_TYPE_ID,
131 L_ORGANIZATION_ID,
132 L_PICK_LINE_DETAIL_ID,
133 L_FB_FLEX_SEGS,
134 L_FB_ERROR_MSG)=TRUE)
135 THEN
136 PRINTLN ('OE_INVENTORY_INTERFACE.BUILD returned SUCCESS ');
137 result := 'COMPLETE:SUCCESS';
138 ELSE
139 PRINTLN ('OE_INVENTORY_INTERFACE.BUILD returned FAILURE ');
140 result := 'COMPLETE:FAILURE';
141 END IF;
142
143 IF L_FB_ERROR_MSG IS NOT NULL THEN
144 wf_engine.setItemAttrText(itemtype,itemkey,'ERROR_MESSAGE',L_FB_ERROR_MSG);
145 PRINTLN ('Error : L_FB_ERROR_MSG = '||L_FB_ERROR_MSG);
146 END IF;
147
148 FND_FLEX_WORKFLOW.LOAD_CONCATENATED_SEGMENTS(itemtype,
149 itemkey,
150 l_fb_flex_segs);
151 RETURN;
152
153 ELSIF (funcmode = 'CANCEL') THEN
154 result := wf_engine.eng_completed;
155 RETURN;
156 ELSE
157 result := '';
158 RETURN;
159 END IF;
160 EXCEPTION
161 WHEN OTHERS THEN
162 wf_core.context('WSH_FLEX_UPGR_COGS','UPGRADE_COGS_FLEX',
163 itemtype,itemkey,TO_CHAR(actid),funcmode);
164 RAISE;
165 END; /* UPGRADE_COGS_FLEX */
166 END WSH_FLEX_UPGR_COGS;