[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)
451: ( p_count => x_msg_count,
452: p_data => x_msg_data
453: );
454:
455: -- Standard check for p_commit
456: IF FND_API.to_Boolean( p_commit )
457: THEN
458: COMMIT WORK;
459: END IF;
558: BEGIN
559: --
560: --dbms_output('Delete_Territory PVT: Entering API');
561:
562: -- Standard Start of API savepoint
563: SAVEPOINT Delete_Territory_Pvt;
564:
565: -- Standard call to check for call compatibility.
566: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
561:
562: -- Standard Start of API savepoint
563: SAVEPOINT Delete_Territory_Pvt;
564:
565: -- Standard call to check for call compatibility.
566: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
567: p_api_version_number,
568: l_api_name,
569: G_PKG_NAME)
629: ( p_count => x_msg_count,
630: p_data => x_msg_data
631: );
632:
633: -- Standard check for p_commit
634: IF FND_API.to_Boolean( p_commit )
635: THEN
636: COMMIT WORK;
637: END IF;
738: l_return_status VARCHAR2(1);
739: BEGIN
740: --dbms_output('Update_Territory PVT: Entering API');
741:
742: -- Standard Start of API savepoint
743: SAVEPOINT UPDATE_TERRITORY_PVT;
744:
745: -- Standard call to check for call compatibility.
746: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
741:
742: -- Standard Start of API savepoint
743: SAVEPOINT UPDATE_TERRITORY_PVT;
744:
745: -- Standard call to check for call compatibility.
746: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
747: p_api_version_number,
748: l_api_name,
749: G_PKG_NAME)
877: ( p_count => x_msg_count,
878: p_data => x_msg_data
879: );
880:
881: -- Standard check for p_commit
882: IF FND_API.to_Boolean( p_commit )
883: THEN
884: COMMIT WORK;
885: END IF;
1026:
1027: BEGIN
1028: --dbms_output('Deactivate_Territory PVT: Entering API');
1029:
1030: -- Standard Start of API savepoint
1031: SAVEPOINT DEACTIVATE_TERRITORY_PVT;
1032:
1033: -- Standard call to check for call compatibility.
1034: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1029:
1030: -- Standard Start of API savepoint
1031: SAVEPOINT DEACTIVATE_TERRITORY_PVT;
1032:
1033: -- Standard call to check for call compatibility.
1034: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1035: p_api_version_number,
1036: l_api_name,
1037: G_PKG_NAME)
1186: ( p_count => x_msg_count,
1187: p_data => x_msg_data
1188: );
1189:
1190: -- Standard check for p_commit
1191: IF FND_API.to_Boolean( p_commit )
1192: THEN
1193: COMMIT WORK;
1194: END IF;
1487: l_api_version_number CONSTANT NUMBER := 1.0;
1488: BEGIN
1489: --dbms_output('Create_Territory_Record PVT: Entering API');
1490:
1491: -- Standard Start of API savepoint
1492: SAVEPOINT CREATE_TERR_REC_PVT;
1493:
1494: -- Standard call to check for call compatibility.
1495: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1490:
1491: -- Standard Start of API savepoint
1492: SAVEPOINT CREATE_TERR_REC_PVT;
1493:
1494: -- Standard call to check for call compatibility.
1495: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1496: p_api_version_number,
1497: l_api_name,
1498: G_PKG_NAME)
1613: FND_MESSAGE.Set_Name('PROC_NAME', l_api_name);
1614: FND_MSG_PUB.Add;
1615: END IF;
1616:
1617: -- Standard check for p_commit
1618: IF FND_API.to_Boolean( p_commit )
1619: THEN
1620: COMMIT WORK;
1621: END IF;
1620: COMMIT WORK;
1621: END IF;
1622:
1623:
1624: -- Standard call to get message count and if count is 1, get message info.
1625: FND_MSG_PUB.Count_And_Get
1626: ( p_count => x_msg_count,
1627: p_data => x_msg_data
1628: );
1710: l_api_version_number CONSTANT NUMBER := 1.0;
1711: BEGIN
1712: --dbms_output('Create_Territory_Usages PVT: Entering API');
1713: --
1714: -- Standard Start of API savepoint
1715: SAVEPOINT CREATE_TERR_USG_PVT;
1716:
1717: -- Standard call to check for call compatibility.
1718: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1713: --
1714: -- Standard Start of API savepoint
1715: SAVEPOINT CREATE_TERR_USG_PVT;
1716:
1717: -- Standard call to check for call compatibility.
1718: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1719: p_api_version_number,
1720: l_api_name,
1721: G_PKG_NAME)
1879: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
1880: FND_MSG_PUB.Add;
1881: END IF;
1882: --
1883: -- Standard check for p_commit
1884: IF FND_API.to_Boolean( p_commit )
1885: THEN
1886: COMMIT WORK;
1887: END IF;
1885: THEN
1886: COMMIT WORK;
1887: END IF;
1888:
1889: -- Standard call to get message count and if count is 1, get message info.
1890: FND_MSG_PUB.Count_And_Get
1891: ( p_count => x_msg_count,
1892: p_data => x_msg_data
1893: );
1943: l_api_version_number CONSTANT NUMBER := 1.0;
1944: BEGIN
1945: --dbms_output('Create_Terr_QualType_Usage PVT(REC): Entering API');
1946:
1947: -- Standard Start of API savepoint
1948: SAVEPOINT CREATE_TERR_QTYPE_USG_PVT;
1949:
1950: -- Standard call to check for call compatibility.
1951: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1946:
1947: -- Standard Start of API savepoint
1948: SAVEPOINT CREATE_TERR_QTYPE_USG_PVT;
1949:
1950: -- Standard call to check for call compatibility.
1951: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1952: p_api_version_number,
1953: l_api_name,
1954: G_PKG_NAME)
2046: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2047: FND_MSG_PUB.Add;
2048: END IF;
2049:
2050: -- Standard check for p_commit
2051: IF FND_API.to_Boolean( p_commit )
2052: THEN
2053: COMMIT WORK;
2054: END IF;
2052: THEN
2053: COMMIT WORK;
2054: END IF;
2055:
2056: -- Standard call to get message count and if count is 1, get message info.
2057: FND_MSG_PUB.Count_And_Get
2058: ( p_count => x_msg_count,
2059: p_data => x_msg_data
2060: );
2149: l_api_version_number CONSTANT NUMBER := 1.0;
2150: BEGIN
2151: --dbms_output('Create_Terr_QualType_Usage PVT(TBL): Entering API');
2152:
2153: -- Standard Start of API savepoint
2154: SAVEPOINT CREATE_TERR_QTYPE_USG_PVT;
2155:
2156: -- Standard call to check for call compatibility.
2157: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2152:
2153: -- Standard Start of API savepoint
2154: SAVEPOINT CREATE_TERR_QTYPE_USG_PVT;
2155:
2156: -- Standard call to check for call compatibility.
2157: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2158: p_api_version_number,
2159: l_api_name,
2160: G_PKG_NAME)
2236: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2237: FND_MSG_PUB.Add;
2238: END IF;
2239:
2240: -- Standard check for p_commit
2241: IF FND_API.to_Boolean( p_commit )
2242: THEN
2243: COMMIT WORK;
2244: END IF;
2242: THEN
2243: COMMIT WORK;
2244: END IF;
2245:
2246: -- Standard call to get message count and if count is 1, get message info.
2247: FND_MSG_PUB.Count_And_Get
2248: ( p_count => x_msg_count,
2249: p_data => x_msg_data
2250: );
2328: l_api_version_number CONSTANT NUMBER := 1.0;
2329: BEGIN
2330: --dbms_output('Create_Terr_Qualifier REC: Entering API');
2331:
2332: -- Standard Start of API savepoint
2333: SAVEPOINT CREATE_TERR_QUAL_PVT;
2334:
2335: -- Standard call to check for call compatibility.
2336: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2331:
2332: -- Standard Start of API savepoint
2333: SAVEPOINT CREATE_TERR_QUAL_PVT;
2334:
2335: -- Standard call to check for call compatibility.
2336: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2337: p_api_version_number,
2338: l_api_name,
2339: G_PKG_NAME)
2429: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2430: FND_MSG_PUB.Add;
2431: END IF;
2432:
2433: -- Standard check for p_commit
2434: IF FND_API.to_Boolean( p_commit )
2435: THEN
2436: COMMIT WORK;
2437: END IF;
2435: THEN
2436: COMMIT WORK;
2437: END IF;
2438:
2439: -- Standard call to get message count and if count is 1, get message info.
2440: FND_MSG_PUB.Count_And_Get
2441: ( p_count => x_msg_count,
2442: p_data => x_msg_data
2443: );
2537: l_api_version_number CONSTANT NUMBER := 1.0;
2538: BEGIN
2539: --dbms_output('Create_Terr_Qualifier TBL: Entering API');
2540:
2541: -- Standard Start of API savepoint
2542: SAVEPOINT CREATE_TERR_QUAL_PVT;
2543:
2544: -- Standard call to check for call compatibility.
2545: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2540:
2541: -- Standard Start of API savepoint
2542: SAVEPOINT CREATE_TERR_QUAL_PVT;
2543:
2544: -- Standard call to check for call compatibility.
2545: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2546: p_api_version_number,
2547: l_api_name,
2548: G_PKG_NAME)
2624: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2625: FND_MSG_PUB.Add;
2626: END IF;
2627:
2628: -- Standard check for p_commit
2629: IF FND_API.to_Boolean( p_commit )
2630: THEN
2631: COMMIT WORK;
2632: END IF;
2630: THEN
2631: COMMIT WORK;
2632: END IF;
2633:
2634: -- Standard call to get message count and if count is 1, get message info.
2635: FND_MSG_PUB.Count_And_Get
2636: ( p_count => x_msg_count,
2637: p_data => x_msg_data
2638: );
2690: l_api_name CONSTANT VARCHAR2(30) := 'Create_Terr_Values';
2691: l_api_version_number CONSTANT NUMBER := 1.0;
2692: BEGIN
2693: --dbms_output('Create_Terr_Value PVT: Entering API');
2694: -- Standard Start of API savepoint
2695: SAVEPOINT CREATE_TERR_VALUE_PVT;
2696:
2697: -- Standard call to check for call compatibility.
2698: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2693: --dbms_output('Create_Terr_Value PVT: Entering API');
2694: -- Standard Start of API savepoint
2695: SAVEPOINT CREATE_TERR_VALUE_PVT;
2696:
2697: -- Standard call to check for call compatibility.
2698: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2699: p_api_version_number,
2700: l_api_name,
2701: G_PKG_NAME)
2796: FND_MESSAGE.Set_Token('PROC_NAME', l_api_name);
2797: FND_MSG_PUB.Add;
2798: END IF;
2799:
2800: -- Standard check for p_commit
2801: IF FND_API.to_Boolean( p_commit )
2802: THEN
2803: COMMIT WORK;
2804: END IF;
2802: THEN
2803: COMMIT WORK;
2804: END IF;
2805:
2806: -- Standard call to get message count and if count is 1, get message info.
2807: FND_MSG_PUB.Count_And_Get
2808: ( p_count => x_msg_count,
2809: p_data => x_msg_data
2810: );
2906: l_api_version_number CONSTANT NUMBER := 1.0;
2907: BEGIN
2908: --dbms_output('Create_Terr_Value TBL: Entering API');
2909:
2910: -- Standard Start of API savepoint
2911: SAVEPOINT CREATE_TERR_VALUE_PVT;
2912:
2913: -- Standard call to check for call compatibility.
2914: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2909:
2910: -- Standard Start of API savepoint
2911: SAVEPOINT CREATE_TERR_VALUE_PVT;
2912:
2913: -- Standard call to check for call compatibility.
2914: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2915: p_api_version_number,
2916: l_api_name,
2917: G_PKG_NAME)
2997: FND_MSG_PUB.Add;
2998: END IF;
2999:
3000: --
3001: -- Standard check for p_commit
3002: IF FND_API.to_Boolean( p_commit )
3003: THEN
3004: COMMIT WORK;
3005: END IF;
3003: THEN
3004: COMMIT WORK;
3005: END IF;
3006:
3007: -- Standard call to get message count and if count is 1, get message info.
3008: FND_MSG_PUB.Count_And_Get
3009: ( p_count => x_msg_count,
3010: p_data => x_msg_data
3011: );
4504: l_return_status VARCHAR2(1);
4505: BEGIN
4506: --dbms_output('Delete_territory_Record: Entering API');
4507:
4508: -- Standard start of PAI savepoint
4509: SAVEPOINT Delete_territory_Record_Pvt;
4510:
4511: -- Standard call to check for call compatibility.
4512: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4507:
4508: -- Standard start of PAI savepoint
4509: SAVEPOINT Delete_territory_Record_Pvt;
4510:
4511: -- Standard call to check for call compatibility.
4512: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4513: p_api_version_number,
4514: l_api_name,
4515: G_PKG_NAME)
4563: ( p_count => x_msg_count,
4564: p_data => x_msg_data
4565: );
4566:
4567: -- Standard check for p_commit
4568: IF FND_API.to_Boolean( p_commit )
4569: THEN
4570: COMMIT WORK;
4571: END IF;
4640: l_return_status VARCHAR2(1);
4641: BEGIN
4642: --dbms_output('Delete_Territory_Usages: Entering API');
4643:
4644: -- Standard start of PAI savepoint
4645: SAVEPOINT Delete_Territory_Usages_Pvt;
4646:
4647: -- Standard call to check for call compatibility.
4648: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4643:
4644: -- Standard start of PAI savepoint
4645: SAVEPOINT Delete_Territory_Usages_Pvt;
4646:
4647: -- Standard call to check for call compatibility.
4648: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4649: p_api_version_number,
4650: l_api_name,
4651: G_PKG_NAME)
4698: ( p_count => x_msg_count,
4699: p_data => x_msg_data
4700: );
4701:
4702: -- Standard check for p_commit
4703: IF FND_API.to_Boolean( p_commit )
4704: THEN
4705: COMMIT WORK;
4706: END IF;
4775:
4776: BEGIN
4777: --dbms_output('Delete_Terr_QualType_Usage: Entering API');
4778:
4779: -- Standard start of PAI savepoint
4780: SAVEPOINT Delete_Terr_QualType_Usage_Pvt;
4781:
4782: -- Standard call to check for call compatibility.
4783: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4778:
4779: -- Standard start of PAI savepoint
4780: SAVEPOINT Delete_Terr_QualType_Usage_Pvt;
4781:
4782: -- Standard call to check for call compatibility.
4783: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4784: p_api_version_number,
4785: l_api_name,
4786: G_PKG_NAME)
4836: ( p_count => x_msg_count,
4837: p_data => x_msg_data
4838: );
4839:
4840: -- Standard check for p_commit
4841: IF FND_API.to_Boolean( p_commit )
4842: THEN
4843: COMMIT WORK;
4844: END IF;
4923:
4924: BEGIN
4925: --dbms_output('Delete_Terr_Qualifier: Entering API');
4926:
4927: -- Standard start of PAI savepoint
4928: SAVEPOINT Delete_Terr_Qualifier_Pvt;
4929:
4930: -- Standard call to check for call compatibility.
4931: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4926:
4927: -- Standard start of PAI savepoint
4928: SAVEPOINT Delete_Terr_Qualifier_Pvt;
4929:
4930: -- Standard call to check for call compatibility.
4931: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4932: p_api_version_number,
4933: l_api_name,
4934: G_PKG_NAME)
5006: ( p_count => x_msg_count,
5007: p_data => x_msg_data
5008: );
5009:
5010: -- Standard check for p_commit
5011: IF FND_API.to_Boolean( p_commit )
5012: THEN
5013: COMMIT WORK;
5014: END IF;
5084: l_return_status VARCHAR2(1);
5085: BEGIN
5086: --dbms_output('Delete_Terr_Value: Entering API');
5087:
5088: -- Standard start of PAI savepoint
5089: SAVEPOINT Delete_Terr_Value_Pvt;
5090:
5091: -- Standard call to check for call compatibility.
5092: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5087:
5088: -- Standard start of PAI savepoint
5089: SAVEPOINT Delete_Terr_Value_Pvt;
5090:
5091: -- Standard call to check for call compatibility.
5092: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
5093: p_api_version_number,
5094: l_api_name,
5095: G_PKG_NAME)
5142: ( p_count => x_msg_count,
5143: p_data => x_msg_data
5144: );
5145:
5146: -- Standard check for p_commit
5147: IF FND_API.to_Boolean( p_commit )
5148: THEN
5149: COMMIT WORK;
5150: END IF;
6682: , p_num IN NUMBER
6683: , x_new_terr_id OUT NOCOPY NUMBER )
6684: IS
6685:
6686: /* local standard API variables */
6687: l_return_status VARCHAR2(200);
6688: l_msg_count NUMBER;
6689: l_msg_data VARCHAR2(2000);
6690:
6791: , p_first_terr_node_flag IN VARCHAR2
6792: , x_new_terr_id OUT NOCOPY NUMBER )
6793: IS
6794:
6795: /* local standard API variables */
6796: l_return_status VARCHAR2(200);
6797: l_msg_count NUMBER;
6798: l_msg_data VARCHAR2(2000);
6799:
6907: /*--------------------------------------------------------------------------------------*/
6908: PROCEDURE create_new_terr_usgs( p_new_terr_id IN NUMBER
6909: , p_terr_usgs_tbl IN Terr_Usgs_Tbl_Type )
6910: IS
6911: /* local standard API variables */
6912: l_api_version_number NUMBER := 1.0;
6913: l_return_status VARCHAR2(200);
6914: l_msg_count NUMBER;
6915: l_msg_data VARCHAR2(2000);
6964: PROCEDURE create_new_terr_qtype_usgs (
6965: p_new_terr_id IN NUMBER
6966: , p_terr_qtype_usgs_tbl IN Terr_QualTypeUsgs_Tbl_Type ) IS
6967:
6968: /* local standard API variables */
6969: l_api_version_number NUMBER := 1.0;
6970: l_return_status VARCHAR2(200);
6971: l_msg_count NUMBER;
6972: l_msg_data VARCHAR2(2000);
7019: PROCEDURE create_new_terr_qual_rec( p_new_terr_id IN NUMBER
7020: , p_terr_qual_rec IN Terr_Qual_Rec_Type
7021: , x_new_terr_qual_id OUT NOCOPY NUMBER )
7022: IS
7023: /* local standard API variables */
7024: l_api_version_number NUMBER := 1.0;
7025: l_return_status VARCHAR2(200);
7026: l_msg_count NUMBER;
7027: l_msg_data VARCHAR2(2000);
7105: , p_new_terr_qual_id IN NUMBER
7106: , p_terr_value_rec IN Terr_Values_Rec_Type
7107: , x_new_terr_value_id OUT NOCOPY NUMBER )
7108: IS
7109: /* local standard API variables */
7110: l_api_version_number NUMBER := 1.0;
7111: l_return_status VARCHAR2(200);
7112: l_msg_count NUMBER;
7113: l_msg_data VARCHAR2(2000);
7204: -- inserts the constant qualifiers and values for copied territories
7205: PROCEDURE insert_copied_qual_values ( p_template_terr_id NUMBER
7206: , p_new_terr_id NUMBER ) IS
7207:
7208: /* local standard API variables */
7209: l_api_version_number NUMBER := 1.0;
7210: l_return_status VARCHAR2(200);
7211: l_msg_count NUMBER;
7212: l_msg_data VARCHAR2(2000);
7356: -- inserts the constant qualifiers and values
7357: PROCEDURE insert_static_qual_values ( p_template_terr_id NUMBER
7358: , p_new_terr_id NUMBER ) IS
7359:
7360: /* local standard API variables */
7361: l_api_version_number NUMBER := 1.0;
7362: l_return_status VARCHAR2(200);
7363: l_msg_count NUMBER;
7364: l_msg_data VARCHAR2(2000);
7784: x_num_gen_terr OUT NOCOPY NUMBER
7785: )
7786: AS
7787:
7788: /* local standard API variables */
7789: l_api_name CONSTANT VARCHAR2(30) := 'Generate_Template_Territories';
7790: l_api_version_number CONSTANT NUMBER := 1.0;
7791: l_return_status VARCHAR2(200);
7792: l_msg_count NUMBER;
7812: l_tbl_count NUMBER;
7813:
7814: BEGIN
7815:
7816: -- Standard Start of API savepoint
7817: SAVEPOINT GEN_TEMPLATE_TERR_PVT;
7818:
7819: -- Standard call to check for call compatibility.
7820: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
7815:
7816: -- Standard Start of API savepoint
7817: SAVEPOINT GEN_TEMPLATE_TERR_PVT;
7818:
7819: -- Standard call to check for call compatibility.
7820: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
7821: p_api_version_number,
7822: l_api_name,
7823: G_PKG_NAME)
8010: ( p_count => x_msg_count,
8011: p_data => x_msg_data
8012: );
8013:
8014: -- Standard check for p_commit
8015: IF FND_API.to_Boolean( p_commit )
8016: THEN
8017: COMMIT WORK;
8018: END IF;
8066: x_Msg_Data OUT NOCOPY VARCHAR2,
8067: x_Terr_Id OUT NOCOPY NUMBER
8068: )
8069: AS
8070: /* local standard API variables */
8071: l_api_name CONSTANT VARCHAR2(30) := 'Copy_Territory';
8072: l_api_version_number CONSTANT NUMBER := 1.0;
8073: l_return_status VARCHAR2(200);
8074: l_msg_count NUMBER;
8100: where jta.parent_territory_id = p_terr_Id;
8101:
8102: BEGIN
8103:
8104: -- Standard Start of API savepoint
8105: SAVEPOINT COPY_TERR_PVT;
8106:
8107: -- Standard call to check for call compatibility.
8108: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
8103:
8104: -- Standard Start of API savepoint
8105: SAVEPOINT COPY_TERR_PVT;
8106:
8107: -- Standard call to check for call compatibility.
8108: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
8109: p_api_version_number,
8110: l_api_name,
8111: G_PKG_NAME)
8233: ( p_count => x_msg_count,
8234: p_data => x_msg_data
8235: );
8236:
8237: -- Standard check for p_commit
8238: IF FND_API.to_Boolean( p_commit )
8239: THEN
8240: COMMIT WORK;
8241: END IF;
8813: /* local item variables */
8814: l_terr_id NUMBER;
8815: l_hier_terr_count NUMBER;
8816:
8817: /* local standard API variables */
8818: l_api_name CONSTANT VARCHAR2(30) := 'Concurrent_Copy_Territory';
8819: l_api_version_number CONSTANT NUMBER := 1.0;
8820: l_return_status VARCHAR2(200);
8821: l_msg_count NUMBER;
8823:
8824: BEGIN
8825:
8826: --dbms_output.put_line('ENTERING Concurrent_Copy_Territory');
8827: -- Standard Start of API savepoint
8828: SAVEPOINT CONC_COPY_TERR_PVT;
8829:
8830: /* If the SQL trace flag is turned on, then turn on the trace */
8831: /* ARPATEL: 12/15/2003: Bug#3305019 fix */