[Home] [Help]
1: Package Body JTF_TERR_NAMEACC_PUB AS
2: /* $Header: jtftrnpb.pls 120.6 2006/04/21 13:15:17 spai ship $ */
3: -- ***************************************************
4: -- GLOBAL VARIABLES
5: -- ***************************************************
2: /* $Header: jtftrnpb.pls 120.6 2006/04/21 13:15:17 spai ship $ */
3: -- ***************************************************
4: -- GLOBAL VARIABLES
5: -- ***************************************************
6: G_PKG_NAME CONSTANT VARCHAR2(30):='JTF_TERR_NAMEACC_PUB';
7: G_FILE_NAME CONSTANT VARCHAR2(12):='jtftrnpb.pls';
8: G_NEW_LINE VARCHAR2(02) := FND_GLOBAL.Local_Chr(10);
9: G_APPL_ID NUMBER := FND_GLOBAL.Prog_Appl_Id;
10: G_LOGIN_ID NUMBER := FND_GLOBAL.Conc_Login_Id;
14: G_APP_SHORT_NAME VARCHAR2(15) := FND_GLOBAL.Application_Short_Name;
15: ---------------------------------------------------------
16: -- Start of Comments
17: -- ---------------------------------------------------
18: -- PACKAGE NAME: JTF_TERR_NAMEACC_PUB
19: -- ---------------------------------------------------
20: -- PURPOSE
21: -- This package is a public API for getting winning territory
22: -- resources.
75: BEGIN
76: -- New logging guidelines
77: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
78: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
79: 'jtf.plsql.JTF_TERR_NAMEACC_PUB.Set_Winners_tbl.begin',
80: 'Start of the procedure JTF_TERR_NAMEACC_PUB.Set_Winners_tbl');
81: END IF;
82: FND_MSG_PUB.initialize;
83: -- Standard call to check for call compatibility.
76: -- New logging guidelines
77: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
78: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
79: 'jtf.plsql.JTF_TERR_NAMEACC_PUB.Set_Winners_tbl.begin',
80: 'Start of the procedure JTF_TERR_NAMEACC_PUB.Set_Winners_tbl');
81: END IF;
82: FND_MSG_PUB.initialize;
83: -- Standard call to check for call compatibility.
84: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
113: where party_id = p_party_id;
114: end if;
115: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
116: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
117: 'jtf.plsql.JTF_TERR_NAMEACC_PUB.Set_Winners_tbl.begin',
118: 'Initializing Input and Output records');
119: END IF;
120: -- Assign input parameters to lp_trans_Rec
121: lp_trans_rec.trans_object_id1 := jtf_terr_number_list(p_party_id);
298: END IF;
299: COMMIT;
300: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
301: FND_LOG.string(FND_LOG.LEVEL_EVENT,
302: 'jtf.plsql.JTF_TERR_NAMEACC_PUB.Set_Winners_tbl',
303: 'Number of winning resources : ' || l_num_res_rows);
304: END IF;
305: -- Debug Message
306: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
315: );
316: --dbms_output.put_line('JTF_TERR_LOOKUP_PUB: End ');
317: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
318: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
319: 'jtf.plsql.JTF_TERR_NAMEACC_PUB.Set_Winners_tbl',
320: 'End of the procedure tf.plsql.JTF_TERR_NAMEACC_PUB.Set_Winners_tbl');
321: END IF;
322: EXCEPTION
323: WHEN NO_DATA_FOUND THEN NULL;
316: --dbms_output.put_line('JTF_TERR_LOOKUP_PUB: End ');
317: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
318: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
319: 'jtf.plsql.JTF_TERR_NAMEACC_PUB.Set_Winners_tbl',
320: 'End of the procedure tf.plsql.JTF_TERR_NAMEACC_PUB.Set_Winners_tbl');
321: END IF;
322: EXCEPTION
323: WHEN NO_DATA_FOUND THEN NULL;
324: WHEN OTHERS THEN
335: END IF;
336:
337: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
338: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION,
339: 'jtf.plsql.JTF_TERR_NAMEACC_PUB.Set_Winners_tbl.OTHERS',
340: substr(x_msg_data, 1, 4000));
341: END IF;
342: End Set_Winners_tbl;
343: END JTF_TERR_NAMEACC_PUB;
339: 'jtf.plsql.JTF_TERR_NAMEACC_PUB.Set_Winners_tbl.OTHERS',
340: substr(x_msg_data, 1, 4000));
341: END IF;
342: End Set_Winners_tbl;
343: END JTF_TERR_NAMEACC_PUB;
344: