[Home] [Help]
210:
211: BEGIN
212: --dbms_output('Create_Territory PVT: Entering API -' || G_APP_SHORT_NAME);
213:
214: -- Standard Start of API savepoint
215: SAVEPOINT CREATE_TERRITORY_PVT;
216:
217: -- Standard call to check for call compatibility.
218: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
213:
214: -- Standard Start of API savepoint
215: SAVEPOINT CREATE_TERRITORY_PVT;
216:
217: -- Standard call to check for call compatibility.
218: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
219: p_api_version_number,
220: l_api_name,
221: G_PKG_NAME)
441: ( p_count => x_msg_count,
442: p_data => x_msg_data
443: );
444:
445: -- Standard check for p_commit
446: IF FND_API.to_Boolean( p_commit )
447: THEN
448: COMMIT WORK;
449: END IF;
554: BEGIN
555: --
556: --dbms_output('Delete_Territory PVT: Entering API');
557:
558: -- Standard Start of API savepoint
559: SAVEPOINT Delete_Territory_Pvt;
560:
561: -- Standard call to check for call compatibility.
562: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
557:
558: -- Standard Start of API savepoint
559: SAVEPOINT Delete_Territory_Pvt;
560:
561: -- Standard call to check for call compatibility.
562: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
563: p_api_version_number,
564: l_api_name,
565: G_PKG_NAME)
637: ( p_count => x_msg_count,
638: p_data => x_msg_data
639: );
640:
641: -- Standard check for p_commit
642: IF FND_API.to_Boolean( p_commit )
643: THEN
644: COMMIT WORK;
645: END IF;
747: l_return_status VARCHAR2(1);
748: BEGIN
749: --dbms_output('Update_Territory PVT: Entering API');
750:
751: -- Standard Start of API savepoint
752: SAVEPOINT UPDATE_TERRITORY_PVT;
753:
754: -- Standard call to check for call compatibility.
755: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
750:
751: -- Standard Start of API savepoint
752: SAVEPOINT UPDATE_TERRITORY_PVT;
753:
754: -- Standard call to check for call compatibility.
755: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
756: p_api_version_number,
757: l_api_name,
758: G_PKG_NAME)
903: ( p_count => x_msg_count,
904: p_data => x_msg_data
905: );
906:
907: -- Standard check for p_commit
908: IF FND_API.to_Boolean( p_commit )
909: THEN
910: COMMIT WORK;
911: END IF;
1052:
1053: BEGIN
1054: --dbms_output('Deactivate_Territory PVT: Entering API');
1055:
1056: -- Standard Start of API savepoint
1057: SAVEPOINT DEACTIVATE_TERRITORY_PVT;
1058:
1059: -- Standard call to check for call compatibility.
1060: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1055:
1056: -- Standard Start of API savepoint
1057: SAVEPOINT DEACTIVATE_TERRITORY_PVT;
1058:
1059: -- Standard call to check for call compatibility.
1060: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1061: p_api_version_number,
1062: l_api_name,
1063: G_PKG_NAME)
1212: ( p_count => x_msg_count,
1213: p_data => x_msg_data
1214: );
1215:
1216: -- Standard check for p_commit
1217: IF FND_API.to_Boolean( p_commit )
1218: THEN
1219: COMMIT WORK;
1220: END IF;
1588: l_api_version_number CONSTANT NUMBER := 1.0;
1589: BEGIN
1590: --dbms_output('Create_Territory_Record PVT: Entering API');
1591:
1592: -- Standard Start of API savepoint
1593: SAVEPOINT CREATE_TERR_REC_PVT;
1594:
1595: -- Standard call to check for call compatibility.
1596: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1591:
1592: -- Standard Start of API savepoint
1593: SAVEPOINT CREATE_TERR_REC_PVT;
1594:
1595: -- Standard call to check for call compatibility.
1596: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1597: p_api_version_number,
1598: l_api_name,
1599: G_PKG_NAME)
1714: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
1715: FND_MSG_PUB.Add;
1716: END IF;
1717:
1718: -- Standard check for p_commit
1719: IF FND_API.to_Boolean( p_commit )
1720: THEN
1721: COMMIT WORK;
1722: END IF;
1721: COMMIT WORK;
1722: END IF;
1723:
1724:
1725: -- Standard call to get message count and if count is 1, get message info.
1726: FND_MSG_PUB.Count_And_Get
1727: ( p_count => x_msg_count,
1728: p_data => x_msg_data
1729: );
1811: l_api_version_number CONSTANT NUMBER := 1.0;
1812: BEGIN
1813: --dbms_output('Create_Territory_Usages PVT: Entering API');
1814: --
1815: -- Standard Start of API savepoint
1816: SAVEPOINT CREATE_TERR_USG_PVT;
1817:
1818: -- Standard call to check for call compatibility.
1819: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1814: --
1815: -- Standard Start of API savepoint
1816: SAVEPOINT CREATE_TERR_USG_PVT;
1817:
1818: -- Standard call to check for call compatibility.
1819: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1820: p_api_version_number,
1821: l_api_name,
1822: G_PKG_NAME)
1980: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
1981: FND_MSG_PUB.Add;
1982: END IF;
1983: --
1984: -- Standard check for p_commit
1985: IF FND_API.to_Boolean( p_commit )
1986: THEN
1987: COMMIT WORK;
1988: END IF;
1986: THEN
1987: COMMIT WORK;
1988: END IF;
1989:
1990: -- Standard call to get message count and if count is 1, get message info.
1991: FND_MSG_PUB.Count_And_Get
1992: ( p_count => x_msg_count,
1993: p_data => x_msg_data
1994: );
2044: l_api_version_number CONSTANT NUMBER := 1.0;
2045: BEGIN
2046: --dbms_output('Create_Terr_QualType_Usage PVT(REC): Entering API');
2047:
2048: -- Standard Start of API savepoint
2049: SAVEPOINT CREATE_TERR_QTYPE_USG_PVT;
2050:
2051: -- Standard call to check for call compatibility.
2052: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2047:
2048: -- Standard Start of API savepoint
2049: SAVEPOINT CREATE_TERR_QTYPE_USG_PVT;
2050:
2051: -- Standard call to check for call compatibility.
2052: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2053: p_api_version_number,
2054: l_api_name,
2055: G_PKG_NAME)
2147: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2148: FND_MSG_PUB.Add;
2149: END IF;
2150:
2151: -- Standard check for p_commit
2152: IF FND_API.to_Boolean( p_commit )
2153: THEN
2154: COMMIT WORK;
2155: END IF;
2153: THEN
2154: COMMIT WORK;
2155: END IF;
2156:
2157: -- Standard call to get message count and if count is 1, get message info.
2158: FND_MSG_PUB.Count_And_Get
2159: ( p_count => x_msg_count,
2160: p_data => x_msg_data
2161: );
2250: l_api_version_number CONSTANT NUMBER := 1.0;
2251: BEGIN
2252: --dbms_output('Create_Terr_QualType_Usage PVT(TBL): Entering API');
2253:
2254: -- Standard Start of API savepoint
2255: SAVEPOINT CREATE_TERR_QTYPE_USG_PVT;
2256:
2257: -- Standard call to check for call compatibility.
2258: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2253:
2254: -- Standard Start of API savepoint
2255: SAVEPOINT CREATE_TERR_QTYPE_USG_PVT;
2256:
2257: -- Standard call to check for call compatibility.
2258: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2259: p_api_version_number,
2260: l_api_name,
2261: G_PKG_NAME)
2337: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2338: FND_MSG_PUB.Add;
2339: END IF;
2340:
2341: -- Standard check for p_commit
2342: IF FND_API.to_Boolean( p_commit )
2343: THEN
2344: COMMIT WORK;
2345: END IF;
2343: THEN
2344: COMMIT WORK;
2345: END IF;
2346:
2347: -- Standard call to get message count and if count is 1, get message info.
2348: FND_MSG_PUB.Count_And_Get
2349: ( p_count => x_msg_count,
2350: p_data => x_msg_data
2351: );
2429: l_api_version_number CONSTANT NUMBER := 1.0;
2430: BEGIN
2431: --dbms_output('Create_Terr_Qualifier REC: Entering API');
2432:
2433: -- Standard Start of API savepoint
2434: SAVEPOINT CREATE_TERR_QUAL_PVT;
2435:
2436: -- Standard call to check for call compatibility.
2437: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2432:
2433: -- Standard Start of API savepoint
2434: SAVEPOINT CREATE_TERR_QUAL_PVT;
2435:
2436: -- Standard call to check for call compatibility.
2437: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2438: p_api_version_number,
2439: l_api_name,
2440: G_PKG_NAME)
2562: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2563: FND_MSG_PUB.Add;
2564: END IF;
2565:
2566: -- Standard check for p_commit
2567: IF FND_API.to_Boolean( p_commit )
2568: THEN
2569: COMMIT WORK;
2570: END IF;
2568: THEN
2569: COMMIT WORK;
2570: END IF;
2571:
2572: -- Standard call to get message count and if count is 1, get message info.
2573: FND_MSG_PUB.Count_And_Get
2574: ( p_count => x_msg_count,
2575: p_data => x_msg_data
2576: );
2670: l_api_version_number CONSTANT NUMBER := 1.0;
2671: BEGIN
2672: --dbms_output('Create_Terr_Qualifier TBL: Entering API');
2673:
2674: -- Standard Start of API savepoint
2675: SAVEPOINT CREATE_TERR_QUAL_PVT;
2676:
2677: -- Standard call to check for call compatibility.
2678: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2673:
2674: -- Standard Start of API savepoint
2675: SAVEPOINT CREATE_TERR_QUAL_PVT;
2676:
2677: -- Standard call to check for call compatibility.
2678: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2679: p_api_version_number,
2680: l_api_name,
2681: G_PKG_NAME)
2757: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2758: FND_MSG_PUB.Add;
2759: END IF;
2760:
2761: -- Standard check for p_commit
2762: IF FND_API.to_Boolean( p_commit )
2763: THEN
2764: COMMIT WORK;
2765: END IF;
2763: THEN
2764: COMMIT WORK;
2765: END IF;
2766:
2767: -- Standard call to get message count and if count is 1, get message info.
2768: FND_MSG_PUB.Count_And_Get
2769: ( p_count => x_msg_count,
2770: p_data => x_msg_data
2771: );
2833: l_msg_data VARCHAR2(2000);
2834: L_SHORT_NAME VARCHAR2(15);
2835: BEGIN
2836: --dbms_output('Create_Territory PVT: Entering API -' || G_APP_SHORT_NAME);
2837: -- Standard Start of API savepoint
2838: SAVEPOINT CREATE_TERRITORY_PVT;
2839: -- Standard call to check for call compatibility.
2840: IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME) THEN
2841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2835: BEGIN
2836: --dbms_output('Create_Territory PVT: Entering API -' || G_APP_SHORT_NAME);
2837: -- Standard Start of API savepoint
2838: SAVEPOINT CREATE_TERRITORY_PVT;
2839: -- Standard call to check for call compatibility.
2840: IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number, l_api_name, G_PKG_NAME) THEN
2841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2842: END IF;
2843:
2950: FND_MSG_PUB.ADD;
2951: END IF;
2952: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
2953:
2954: -- Standard check for p_commit
2955: IF FND_API.to_Boolean( p_commit ) THEN
2956: COMMIT WORK;
2957: END IF;
2958: --
3027: l_api_version_number CONSTANT NUMBER := 1.0;
3028: l_dummy VARCHAR2(3);
3029: BEGIN
3030: --dbms_output('Create_Terr_Value PVT: Entering API');
3031: -- Standard Start of API savepoint
3032: SAVEPOINT CREATE_TERR_VALUE_PVT;
3033:
3034: -- Standard call to check for call compatibility.
3035: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3030: --dbms_output('Create_Terr_Value PVT: Entering API');
3031: -- Standard Start of API savepoint
3032: SAVEPOINT CREATE_TERR_VALUE_PVT;
3033:
3034: -- Standard call to check for call compatibility.
3035: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3036: p_api_version_number,
3037: l_api_name,
3038: G_PKG_NAME)
3170: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
3171: FND_MSG_PUB.Add;
3172: END IF;
3173:
3174: -- Standard check for p_commit
3175: IF FND_API.to_Boolean( p_commit )
3176: THEN
3177: COMMIT WORK;
3178: END IF;
3176: THEN
3177: COMMIT WORK;
3178: END IF;
3179:
3180: -- Standard call to get message count and if count is 1, get message info.
3181: FND_MSG_PUB.Count_And_Get
3182: ( p_count => x_msg_count,
3183: p_data => x_msg_data
3184: );
3280: l_api_version_number CONSTANT NUMBER := 1.0;
3281: BEGIN
3282: --dbms_output('Create_Terr_Value TBL: Entering API');
3283:
3284: -- Standard Start of API savepoint
3285: SAVEPOINT CREATE_TERR_VALUE_PVT;
3286:
3287: -- Standard call to check for call compatibility.
3288: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3283:
3284: -- Standard Start of API savepoint
3285: SAVEPOINT CREATE_TERR_VALUE_PVT;
3286:
3287: -- Standard call to check for call compatibility.
3288: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3289: p_api_version_number,
3290: l_api_name,
3291: G_PKG_NAME)
3371: FND_MSG_PUB.Add;
3372: END IF;
3373:
3374: --
3375: -- Standard check for p_commit
3376: IF FND_API.to_Boolean( p_commit )
3377: THEN
3378: COMMIT WORK;
3379: END IF;
3377: THEN
3378: COMMIT WORK;
3379: END IF;
3380:
3381: -- Standard call to get message count and if count is 1, get message info.
3382: FND_MSG_PUB.Count_And_Get
3383: ( p_count => x_msg_count,
3384: p_data => x_msg_data
3385: );
4918: l_return_status VARCHAR2(1);
4919: BEGIN
4920: --dbms_output('Delete_territory_Record: Entering API');
4921:
4922: -- Standard start of PAI savepoint
4923: SAVEPOINT Delete_territory_Record_Pvt;
4924:
4925: -- Standard call to check for call compatibility.
4926: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4921:
4922: -- Standard start of PAI savepoint
4923: SAVEPOINT Delete_territory_Record_Pvt;
4924:
4925: -- Standard call to check for call compatibility.
4926: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4927: p_api_version_number,
4928: l_api_name,
4929: G_PKG_NAME)
4977: ( p_count => x_msg_count,
4978: p_data => x_msg_data
4979: );
4980:
4981: -- Standard check for p_commit
4982: IF FND_API.to_Boolean( p_commit )
4983: THEN
4984: COMMIT WORK;
4985: END IF;
5054: l_return_status VARCHAR2(1);
5055: BEGIN
5056: --dbms_output('Delete_Territory_Usages: Entering API');
5057:
5058: -- Standard start of PAI savepoint
5059: SAVEPOINT Delete_Territory_Usages_Pvt;
5060:
5061: -- Standard call to check for call compatibility.
5062: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5057:
5058: -- Standard start of PAI savepoint
5059: SAVEPOINT Delete_Territory_Usages_Pvt;
5060:
5061: -- Standard call to check for call compatibility.
5062: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5063: p_api_version_number,
5064: l_api_name,
5065: G_PKG_NAME)
5112: ( p_count => x_msg_count,
5113: p_data => x_msg_data
5114: );
5115:
5116: -- Standard check for p_commit
5117: IF FND_API.to_Boolean( p_commit )
5118: THEN
5119: COMMIT WORK;
5120: END IF;
5189:
5190: BEGIN
5191: --dbms_output('Delete_Terr_QualType_Usage: Entering API');
5192:
5193: -- Standard start of PAI savepoint
5194: SAVEPOINT Delete_Terr_QualType_Usage_Pvt;
5195:
5196: -- Standard call to check for call compatibility.
5197: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5192:
5193: -- Standard start of PAI savepoint
5194: SAVEPOINT Delete_Terr_QualType_Usage_Pvt;
5195:
5196: -- Standard call to check for call compatibility.
5197: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5198: p_api_version_number,
5199: l_api_name,
5200: G_PKG_NAME)
5250: ( p_count => x_msg_count,
5251: p_data => x_msg_data
5252: );
5253:
5254: -- Standard check for p_commit
5255: IF FND_API.to_Boolean( p_commit )
5256: THEN
5257: COMMIT WORK;
5258: END IF;
5337:
5338: BEGIN
5339: --dbms_output('Delete_Terr_Qualifier: Entering API');
5340:
5341: -- Standard start of PAI savepoint
5342: SAVEPOINT Delete_Terr_Qualifier_Pvt;
5343:
5344: -- Standard call to check for call compatibility.
5345: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5340:
5341: -- Standard start of PAI savepoint
5342: SAVEPOINT Delete_Terr_Qualifier_Pvt;
5343:
5344: -- Standard call to check for call compatibility.
5345: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5346: p_api_version_number,
5347: l_api_name,
5348: G_PKG_NAME)
5420: ( p_count => x_msg_count,
5421: p_data => x_msg_data
5422: );
5423:
5424: -- Standard check for p_commit
5425: IF FND_API.to_Boolean( p_commit )
5426: THEN
5427: COMMIT WORK;
5428: END IF;
5498: l_return_status VARCHAR2(1);
5499: BEGIN
5500: --dbms_output('Delete_Terr_Value: Entering API');
5501:
5502: -- Standard start of PAI savepoint
5503: SAVEPOINT Delete_Terr_Value_Pvt;
5504:
5505: -- Standard call to check for call compatibility.
5506: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5501:
5502: -- Standard start of PAI savepoint
5503: SAVEPOINT Delete_Terr_Value_Pvt;
5504:
5505: -- Standard call to check for call compatibility.
5506: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5507: p_api_version_number,
5508: l_api_name,
5509: G_PKG_NAME)
5555: ( p_count => x_msg_count,
5556: p_data => x_msg_data
5557: );
5558:
5559: -- Standard check for p_commit
5560: IF FND_API.to_Boolean( p_commit )
5561: THEN
5562: COMMIT WORK;
5563: END IF;
8246: , p_num IN NUMBER
8247: , x_new_terr_id OUT NOCOPY NUMBER )
8248: IS
8249:
8250: /* local standard API variables */
8251: l_return_status VARCHAR2(200);
8252: l_msg_count NUMBER;
8253: l_msg_data VARCHAR2(2000);
8254:
8355: , p_first_terr_node_flag IN VARCHAR2
8356: , x_new_terr_id OUT NOCOPY NUMBER )
8357: IS
8358:
8359: /* local standard API variables */
8360: l_return_status VARCHAR2(200);
8361: l_msg_count NUMBER;
8362: l_msg_data VARCHAR2(2000);
8363:
8471: /*--------------------------------------------------------------------------------------*/
8472: PROCEDURE create_new_terr_usgs( p_new_terr_id IN NUMBER
8473: , p_terr_usgs_tbl IN Terr_Usgs_Tbl_Type )
8474: IS
8475: /* local standard API variables */
8476: l_api_version_number NUMBER := 1.0;
8477: l_return_status VARCHAR2(200);
8478: l_msg_count NUMBER;
8479: l_msg_data VARCHAR2(2000);
8528: PROCEDURE create_new_terr_qtype_usgs (
8529: p_new_terr_id IN NUMBER
8530: , p_terr_qtype_usgs_tbl IN Terr_QualTypeUsgs_Tbl_Type ) IS
8531:
8532: /* local standard API variables */
8533: l_api_version_number NUMBER := 1.0;
8534: l_return_status VARCHAR2(200);
8535: l_msg_count NUMBER;
8536: l_msg_data VARCHAR2(2000);
8583: PROCEDURE create_new_terr_qual_rec( p_new_terr_id IN NUMBER
8584: , p_terr_qual_rec IN Terr_Qual_Rec_Type
8585: , x_new_terr_qual_id OUT NOCOPY NUMBER )
8586: IS
8587: /* local standard API variables */
8588: l_api_version_number NUMBER := 1.0;
8589: l_return_status VARCHAR2(200);
8590: l_msg_count NUMBER;
8591: l_msg_data VARCHAR2(2000);
8669: , p_new_terr_qual_id IN NUMBER
8670: , p_terr_value_rec IN Terr_Values_Rec_Type
8671: , x_new_terr_value_id OUT NOCOPY NUMBER )
8672: IS
8673: /* local standard API variables */
8674: l_api_version_number NUMBER := 1.0;
8675: l_return_status VARCHAR2(200);
8676: l_msg_count NUMBER;
8677: l_msg_data VARCHAR2(2000);
8768: -- inserts the constant qualifiers and values for copied territories
8769: PROCEDURE insert_copied_qual_values ( p_template_terr_id NUMBER
8770: , p_new_terr_id NUMBER ) IS
8771:
8772: /* local standard API variables */
8773: l_api_version_number NUMBER := 1.0;
8774: l_return_status VARCHAR2(200);
8775: l_msg_count NUMBER;
8776: l_msg_data VARCHAR2(2000);
8920: -- inserts the constant qualifiers and values
8921: PROCEDURE insert_static_qual_values ( p_template_terr_id NUMBER
8922: , p_new_terr_id NUMBER ) IS
8923:
8924: /* local standard API variables */
8925: l_api_version_number NUMBER := 1.0;
8926: l_return_status VARCHAR2(200);
8927: l_msg_count NUMBER;
8928: l_msg_data VARCHAR2(2000);
9348: x_num_gen_terr OUT NOCOPY NUMBER
9349: )
9350: AS
9351:
9352: /* local standard API variables */
9353: l_api_name CONSTANT VARCHAR2(30) := 'Generate_Template_Territories';
9354: l_api_version_number CONSTANT NUMBER := 1.0;
9355: l_return_status VARCHAR2(200);
9356: l_msg_count NUMBER;
9376: l_tbl_count NUMBER;
9377:
9378: BEGIN
9379:
9380: -- Standard Start of API savepoint
9381: SAVEPOINT GEN_TEMPLATE_TERR_PVT;
9382:
9383: -- Standard call to check for call compatibility.
9384: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
9379:
9380: -- Standard Start of API savepoint
9381: SAVEPOINT GEN_TEMPLATE_TERR_PVT;
9382:
9383: -- Standard call to check for call compatibility.
9384: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
9385: p_api_version_number,
9386: l_api_name,
9387: G_PKG_NAME)
9574: ( p_count => x_msg_count,
9575: p_data => x_msg_data
9576: );
9577:
9578: -- Standard check for p_commit
9579: IF FND_API.to_Boolean( p_commit )
9580: THEN
9581: COMMIT WORK;
9582: END IF;
9630: x_Msg_Data OUT NOCOPY VARCHAR2,
9631: x_Terr_Id OUT NOCOPY NUMBER
9632: )
9633: AS
9634: /* local standard API variables */
9635: l_api_name CONSTANT VARCHAR2(30) := 'Copy_Territory';
9636: l_api_version_number CONSTANT NUMBER := 1.0;
9637: l_return_status VARCHAR2(200);
9638: l_msg_count NUMBER;
9664: where jta.parent_territory_id = p_terr_Id;
9665:
9666: BEGIN
9667:
9668: -- Standard Start of API savepoint
9669: SAVEPOINT COPY_TERR_PVT;
9670:
9671: -- Standard call to check for call compatibility.
9672: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
9667:
9668: -- Standard Start of API savepoint
9669: SAVEPOINT COPY_TERR_PVT;
9670:
9671: -- Standard call to check for call compatibility.
9672: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
9673: p_api_version_number,
9674: l_api_name,
9675: G_PKG_NAME)
9797: ( p_count => x_msg_count,
9798: p_data => x_msg_data
9799: );
9800:
9801: -- Standard check for p_commit
9802: IF FND_API.to_Boolean( p_commit )
9803: THEN
9804: COMMIT WORK;
9805: END IF;
10377: /* local item variables */
10378: l_terr_id NUMBER;
10379: l_hier_terr_count NUMBER;
10380:
10381: /* local standard API variables */
10382: l_api_name CONSTANT VARCHAR2(30) := 'Concurrent_Copy_Territory';
10383: l_api_version_number CONSTANT NUMBER := 1.0;
10384: l_return_status VARCHAR2(200);
10385: l_msg_count NUMBER;
10387:
10388: BEGIN
10389:
10390: --dbms_output.put_line('ENTERING Concurrent_Copy_Territory');
10391: -- Standard Start of API savepoint
10392: SAVEPOINT CONC_COPY_TERR_PVT;
10393:
10394: /* If the SQL trace flag is turned on, then turn on the trace */
10395: /* ARPATEL: 12/15/2003: Bug#3305019 fix */