56: l_OU_id NUMBER ;
57:
58: BEGIN
59:
60: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
61: g_log_enabled := TRUE;
62: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
63: , G_PKG_NAME
64: , '>> '||l_program||'Start >>'
58: BEGIN
59:
60: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
61: g_log_enabled := TRUE;
62: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
63: , G_PKG_NAME
64: , '>> '||l_program||'Start >>'
65: );
66: END IF;
66: END IF;
67:
68: l_OU_ID := MO_GLOBAL.get_current_org_id ;
69:
70: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
71: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
72: , G_PKG_NAME
73: , 'l_OU_ID => '|| l_OU_ID
74: );
67:
68: l_OU_ID := MO_GLOBAL.get_current_org_id ;
69:
70: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
71: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
72: , G_PKG_NAME
73: , 'l_OU_ID => '|| l_OU_ID
74: );
75: END IF;
102: , p_init_msg_list => FND_API.G_TRUE
103: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
104: );
105:
106: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
107: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
108: , G_PKG_NAME
109: , ' Subcontract_Orders_Manager '
110: );
103: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
104: );
105:
106: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
107: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
108: , G_PKG_NAME
109: , ' Subcontract_Orders_Manager '
110: );
111: END IF;
111: END IF;
112:
113: IF g_log_enabled
114: THEN
115: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
116: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
117: , G_PKG_NAME ||l_program
118: , 'Exit'
119: ) ;
112:
113: IF g_log_enabled
114: THEN
115: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
116: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
117: , G_PKG_NAME ||l_program
118: , 'Exit'
119: ) ;
120: END IF;
147:
148: BEGIN
149: IF g_log_enabled
150: THEN
151: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
152: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
153: , G_PKG_NAME ||l_program
154: , 'Entry'
155: ) ;
148: BEGIN
149: IF g_log_enabled
150: THEN
151: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
152: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
153: , G_PKG_NAME ||l_program
154: , 'Entry'
155: ) ;
156: END IF;
161: );
162:
163: IF g_log_enabled
164: THEN
165: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
166: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
167: , G_PKG_NAME ||l_program
168: , 'Exit'
169: ) ;
162:
163: IF g_log_enabled
164: THEN
165: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
166: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
167: , G_PKG_NAME ||l_program
168: , 'Exit'
169: ) ;
170: END IF;
206: l_msg_data VARCHAR2(3000) ;
207: l_OU_ID NUMBER ;
208: BEGIN
209:
210: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
211: THEN
212: g_log_enabled := TRUE;
213: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
214: , G_PKG_NAME ||
209:
210: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
211: THEN
212: g_log_enabled := TRUE;
213: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
214: , G_PKG_NAME ||
215: 'Run_SHIKYU_reconciliation.invoked'
216: , 'Entry' ) ;
217: END IF;
217: END IF;
218:
219: l_OU_ID := MO_GLOBAL.get_current_org_id ;
220:
221: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
222: THEN
223: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
224: , G_PKG_NAME ,
225: 'l_OU_ID => '|| l_OU_ID
219: l_OU_ID := MO_GLOBAL.get_current_org_id ;
220:
221: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
222: THEN
223: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
224: , G_PKG_NAME ,
225: 'l_OU_ID => '|| l_OU_ID
226: ) ;
227: END IF;
239: , p_to_organization => p_to_organization
240: ) ;
241:
242:
243: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
244: THEN
245: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
246: , G_PKG_NAME || 'Run_SHIKYU_reconciliation'
247: , 'Returned from Process_SHIKYU_Reconciliation. Status:' || l_return_status
241:
242:
243: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
244: THEN
245: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
246: , G_PKG_NAME || 'Run_SHIKYU_reconciliation'
247: , 'Returned from Process_SHIKYU_Reconciliation. Status:' || l_return_status
248: ) ;
249: END IF;
249: END IF;
250:
251: if l_return_status <> FND_API.G_RET_STS_SUCCESS
252: then
253: if FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
254: then
255: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
256: , G_PKG_NAME || 'Run_SHIKYU_reconciliation'
257: , 'Process_SHIKYU_Reconciliation returned::' || l_return_status);
251: if l_return_status <> FND_API.G_RET_STS_SUCCESS
252: then
253: if FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
254: then
255: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
256: , G_PKG_NAME || 'Run_SHIKYU_reconciliation'
257: , 'Process_SHIKYU_Reconciliation returned::' || l_return_status);
258:
259: x_retcode := 1;
258:
259: x_retcode := 1;
260: end if;
261: else
262: if FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
263: then
264: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
265: , G_PKG_NAME || 'Run_SHIKYU_reconciliation'
266: , 'Process_SHIKYU_Reconciliation returned::' || l_return_status);
260: end if;
261: else
262: if FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
263: then
264: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
265: , G_PKG_NAME || 'Run_SHIKYU_reconciliation'
266: , 'Process_SHIKYU_Reconciliation returned::' || l_return_status);
267: end if;
268: end if;
268: end if;
269:
270: IF g_log_enabled
271: THEN
272: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
273: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
274: , G_PKG_NAME || 'Run_SHIKYU_reconciliation'
275: , 'Exit' ) ;
276: END IF;
269:
270: IF g_log_enabled
271: THEN
272: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
273: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
274: , G_PKG_NAME || 'Run_SHIKYU_reconciliation'
275: , 'Exit' ) ;
276: END IF;
277: END IF;