8:
9: G_PKG_NAME CONSTANT VARCHAR2(30):= 'IEX_STRATEGY_PUB';
10:
11:
12: --PG_DEBUG NUMBER(2) := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
13: PG_DEBUG NUMBER ;
14:
15: PROCEDURE create_strategy
16: (
288: --End bug 6723540 gnramasa 02 Jan 08
289:
290: l_stry_cnt_rec := IEX_STRATEGY_TYPE_PUB.INST_STRY_CNT_REC;
291:
292: l_default_rs_id := fnd_profile.value('IEX_STRY_DEFAULT_RESOURCE');
293: l_resource_id := fnd_profile.value('IEX_STRY_FULFILMENT_RESOURCE');
294: b_Skip := 'F';
295:
296:
289:
290: l_stry_cnt_rec := IEX_STRATEGY_TYPE_PUB.INST_STRY_CNT_REC;
291:
292: l_default_rs_id := fnd_profile.value('IEX_STRY_DEFAULT_RESOURCE');
293: l_resource_id := fnd_profile.value('IEX_STRY_FULFILMENT_RESOURCE');
294: b_Skip := 'F';
295:
296:
297: -- Standard Start of API savepoint
300: -- Initialize API return status to SUCCESS
301: l_return_status := FND_API.G_RET_STS_SUCCESS;
302:
303: /*
304: if (NVL(FND_PROFILE.VALUE('IEX_STRATEGY_DISABLED'), 'N') = 'Y') then
305: return;
306: end if;
307: */
308:
307: */
308:
309: /* check the default profile valuse */
310: /* Check the required profiles for Strategy Concurrent before starting */
311: if (NVL(FND_PROFILE.VALUE('IEX_STRATEGY_DISABLED'), 'N') = 'Y') then
312: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
313: IEX_DEBUG_PUB.LogMessage( 'Strategy creation aborted. ' );
314: IEX_DEBUG_PUB.LogMessage( 'Strategy Disabled by Profile ');
315: END IF;
323: END IF;
324: b_Skip := 'T';
325: end if;
326:
327: l_StrategyTempID := NVL(to_number(FND_PROFILE.VALUE('IEX_STRATEGY_DEFAULT_TEMPLATE')), 0);
328: if (l_StrategyTempID = 0) Then
329: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
330: IEX_DEBUG_PUB.LogMessage( 'Strategy creation stopped. ' );
331: IEX_DEBUG_PUB.LogMessage( 'No Default Strategy Template Profile ');
762:
763: l_object_version_number := 1;
764:
765: --Added for Bug# 6870773 by pnaveenk
766: if fnd_profile.value('IEX_PROC_STR_ORG')='Y' then
767: --l_strategy_rec.org_id:=fnd_profile.value('ORG_ID');
768: l_strategy_rec.org_id:=mo_global.get_current_org_id;
769:
770: else
763: l_object_version_number := 1;
764:
765: --Added for Bug# 6870773 by pnaveenk
766: if fnd_profile.value('IEX_PROC_STR_ORG')='Y' then
767: --l_strategy_rec.org_id:=fnd_profile.value('ORG_ID');
768: l_strategy_rec.org_id:=mo_global.get_current_org_id;
769:
770: else
771: l_strategy_rec.org_id:=NULL;
1334:
1335:
1336: -- Initialize API return status to SUCCESS
1337: l_return_status := FND_API.G_RET_STS_SUCCESS;
1338: if (NVL(FND_PROFILE.VALUE('IEX_STRATEGY_DISABLED'), 'N') = 'Y') then
1339: return;
1340: end if;
1341: l_objectType := UPPER(p_ObjectType);
1342: -- commenting for bug 8864768 PNAVEENK
1539: Cursor C_getFirstTempID IS
1540: Select Strategy_Temp_ID FROM IEX_STRATEGY_TEMPLATES_B where
1541: Check_List_YN = 'N';
1542: BEGIN
1543: l_StrategyTempID := NVL(to_number(FND_PROFILE.VALUE('IEX_STRATEGY_DEFAULT_TEMPLATE')), 0);
1544: if (l_StrategyTempID = 0) Then
1545: Open C_getFirstTempID;
1546: fetch C_getFirstTempID into lCursorStrategyTempID;
1547: if C_getFirstTempID%FOUND then
1618: fStrategyVersionNumber := 2.0;
1619: l_object_version_number := 2.0;
1620:
1621: x_return_status := 'T';
1622: if (NVL(FND_PROFILE.VALUE('IEX_STRATEGY_DISABLED'), 'N') = 'Y') then
1623: return;
1624: end if;
1625:
1626: FND_MSG_PUB.initialize;
1819: fStrategyVersionNumber := 2.0;
1820: l_object_version_number := 2.0;
1821:
1822: x_return_status := FND_API.G_RET_STS_SUCCESS;
1823: if (NVL(FND_PROFILE.VALUE('IEX_STRATEGY_DISABLED'), 'N') = 'Y') then
1824: return;
1825: end if;
1826: -- Standard Start of API savepoint
1827: SAVEPOINT SET_STRATEGY;
1976: BEGIN
1977: -- initialize variables
1978: PG_DEBUG := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1979:
1980: l_MsgLevel := NVL(to_number(FND_PROFILE.VALUE('FND_AS_MSG_LEVEL_THRESHOLD')), FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
1981: l_DefaultTempID := GetDefaultStrategyTempID;
1982:
1983: --Start adding for bug 8834310 gnramasa 26th Aug 09
1984: /*