[Home] [Help]
1: Package BODY JTF_TERRITORY_PVT AS
2: /* $Header: jtfvterb.pls 120.11 2011/05/12 20:29:07 srguntur ship $ */
3: -- ---------------------------------------------------
4: -- Start of Comments
5: -- ---------------------------------------------------
2: /* $Header: jtfvterb.pls 120.11 2011/05/12 20:29:07 srguntur ship $ */
3: -- ---------------------------------------------------
4: -- Start of Comments
5: -- ---------------------------------------------------
6: -- PACKAGE NAME: JTF_TERRITORY_PVT
7: -- ---------------------------------------------------
8: -- PURPOSE
9: -- Joint task force core territory manager private api's.
10: -- This package is defins all private API for manupulating
65:
66: -- ***************************************************
67: -- GLOBAL VARIABLES
68: -- ***************************************************
69: G_PKG_NAME CONSTANT VARCHAR2(30):='JTF_TERRITORY_PVT';
70: G_FILE_NAME CONSTANT VARCHAR2(12):='jtfvterb.pls';
71:
72:
73: G_APPL_ID NUMBER := FND_GLOBAL.Prog_Appl_Id;
1321: l_Terr_QualTypeUsgs_Out_Tbl Terr_QualTypeUsgs_Out_Tbl_Type;
1322: l_qual_type_usg_id NUMBER ;
1323: l_dummy NUMBER;
1324: l_iterator NUMBER;
1325: p_terr_qualtypeusgs_tbl JTF_TERRITORY_PVT.terr_qualtypeusgs_tbl_type;
1326:
1327: CURSOR C_QUAL_TYPE_USG_ID (P_terr_type_id NUMBER)
1328: is
1329: SELECT QUAL_TYPE_USG_ID from JTF_TYPE_QTYPE_USGS_ALL WHERE terr_type_id = P_terr_type_id ;
8377: l_new_terr_rec.CREATED_BY := FND_GLOBAL.USER_ID;
8378: l_new_terr_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
8379: l_new_terr_rec.APPLICATION_SHORT_NAME := FND_GLOBAL.APPLICATION_SHORT_NAME;
8380:
8381: -- dbms_output.put_line('JTF_TERRITORY_PVT:create_copied_terr:l_new_terr_rec.APPLICATION_SHORT_NAME-' || l_new_terr_rec.APPLICATION_SHORT_NAME);
8382:
8383: -- 04/06/01 ARPATEL - START
8384: IF (p_copy_hierarchy_flag = 'Y') THEN
8385:
9699: /* ======================*/
9700:
9701: /* (validation procedures not necessary) */
9702:
9703: --dbms_output('JTF_TERRITORY_PVT:gen_dupliacte_territory: - BEGIN');
9704: -- get table of terr usages and terr qual type usages for the source territory
9705: initialise( p_copy_source_terr_id -- input TERR_ID
9706: , l_copy_source_terr_rec -- output desc
9707: , l_num_gen_terr -- output (irrelevant)
9721: create_new_terr_qtype_usgs(l_new_terr_id, l_tmpl_qtype_usgs_tbl);
9722:
9723: /* for all qualifier values */
9724: insert_copied_qual_values(p_copy_source_terr_id, l_new_terr_id);
9725: --dbms_output('JTF_TERRITORY_PVT:gen_dupliacte_territory: - END');
9726:
9727: /* START: 09/17/00 - JDOCHERT */
9728: IF (p_copy_rsc_flag = 'Y') THEN
9729:
9748: loop
9749:
9750: --p_new_terr_rec.parent_territory_id := l_new_terr_id;
9751:
9752: JTF_TERRITORY_PVT.Copy_Territory (
9753: p_Api_Version_Number => p_Api_Version_Number,
9754: p_Init_Msg_List => p_Init_Msg_List,
9755: p_Commit => p_Commit,
9756: p_validation_level => p_validation_level,
10371: p_debug_flag IN VARCHAR2 := 'N',
10372: p_sql_trace IN VARCHAR2 := 'N' ) AS
10373:
10374: /* local record variables */
10375: l_terr_rec JTF_TERRITORY_PVT.TERR_ALL_REC_TYPE;
10376:
10377: /* local item variables */
10378: l_terr_id NUMBER;
10379: l_hier_terr_count NUMBER;
10462: l_terr_rec.ATTRIBUTE15 := FND_API.G_MISS_CHAR;
10463: l_terr_rec.ORG_ID := FND_API.G_MISS_NUM;
10464: l_terr_rec.NUM_WINNERS := FND_API.G_MISS_NUM;
10465:
10466: JTF_TERRITORY_PVT.Copy_Territory (
10467: p_Api_Version_Number => l_Api_Version_Number,
10468: p_Init_Msg_List => FND_API.G_TRUE,
10469: p_Commit => FND_API.G_TRUE,
10470: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10981: raise_application_error(-20001,'An error was encountered while executing the Function QualValue- '||SQLCODE||' -ERROR- '||SQLERRM);
10982: END get_qual_value;
10983:
10984: -- Package Body
10985: END JTF_TERRITORY_PVT;
10986: