154:
155: /* This procedure accepts a string of Ids and populates a pl/sql table with the Ids.
156: */
157: PROCEDURE buildTable(p_id_str IN VARCHAR2,
158: x_id_table OUT NOCOPY jtf_terr_number_list)
159: IS
160: l_start integer;
161: idx integer;
162: foundStrPos integer;
165: l_start:=1;
166: foundStrPos:=1;
167: idx:=1;
168:
169: x_id_table := jtf_terr_number_list();
170: WHILE (foundStrPos>0)
171: LOOP
172: foundStrPos := INSTR(p_id_str,',', l_start);
173: IF foundStrPos >0 THEN
204: tail Number ;
205: i Number ;
206: idx Number ;
207:
208: l_terrGrpId_tbl jtf_terr_number_list;
209: l_grpAcctId_tbl jtf_terr_number_list;
210: l_acctId_tbl jtf_terr_number_list;
211:
212: BEGIN
205: i Number ;
206: idx Number ;
207:
208: l_terrGrpId_tbl jtf_terr_number_list;
209: l_grpAcctId_tbl jtf_terr_number_list;
210: l_acctId_tbl jtf_terr_number_list;
211:
212: BEGIN
213:
206: idx Number ;
207:
208: l_terrGrpId_tbl jtf_terr_number_list;
209: l_grpAcctId_tbl jtf_terr_number_list;
210: l_acctId_tbl jtf_terr_number_list;
211:
212: BEGIN
213:
214: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
217: 'Start of the procedure JTF_TTY_NA_TERRGP.delete_bulk_TGA');
218: END IF;
219:
220: x_return_status := FND_API.G_RET_STS_SUCCESS;
221: l_terrGrpId_tbl := jtf_terr_number_list();
222: l_grpAcctId_tbl := jtf_terr_number_list();
223: l_acctId_tbl := jtf_terr_number_list();
224:
225:
218: END IF;
219:
220: x_return_status := FND_API.G_RET_STS_SUCCESS;
221: l_terrGrpId_tbl := jtf_terr_number_list();
222: l_grpAcctId_tbl := jtf_terr_number_list();
223: l_acctId_tbl := jtf_terr_number_list();
224:
225:
226: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
219:
220: x_return_status := FND_API.G_RET_STS_SUCCESS;
221: l_terrGrpId_tbl := jtf_terr_number_list();
222: l_grpAcctId_tbl := jtf_terr_number_list();
223: l_acctId_tbl := jtf_terr_number_list();
224:
225:
226: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
227: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,