51: if (p_primary_key is not null and p_primary_key <> FND_API.G_MISS_CHAR) then
52: l_object_pk := p_primary_key;
53: else
54: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
55: FND_MESSAGE.SET_NAME('AK','AK_PRIMARY_KEY_INVALID');
56: FND_MESSAGE.SET_TOKEN('PRIMARY_KEY', p_primary_key);
57: FND_MSG_PUB.Add;
58: end if;
59: end if;
52: l_object_pk := p_primary_key;
53: else
54: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
55: FND_MESSAGE.SET_NAME('AK','AK_PRIMARY_KEY_INVALID');
56: FND_MESSAGE.SET_TOKEN('PRIMARY_KEY', p_primary_key);
57: FND_MSG_PUB.Add;
58: end if;
59: end if;
60:
69: open l_get_appl_id_csr(l_appl_short_name);
70: fetch l_get_appl_id_csr into l_appl_id;
71: if (l_get_appl_id_csr%notfound) then
72: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
73: FND_MESSAGE.SET_NAME('AK','AK_APPL_SHORT_NAME_INVALID');
74: FND_MESSAGE.SET_TOKEN('APPL_SHORT_NAME', l_appl_short_name);
75: FND_MSG_PUB.Add;
76: end if;
77: close l_get_appl_id_csr;
70: fetch l_get_appl_id_csr into l_appl_id;
71: if (l_get_appl_id_csr%notfound) then
72: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
73: FND_MESSAGE.SET_NAME('AK','AK_APPL_SHORT_NAME_INVALID');
74: FND_MESSAGE.SET_TOKEN('APPL_SHORT_NAME', l_appl_short_name);
75: FND_MSG_PUB.Add;
76: end if;
77: close l_get_appl_id_csr;
78: raise FND_API.G_EXC_ERROR;
100: l_index := 1;
101: l_buffer_tbl(l_index) := '**********';
102:
103: l_index := l_index + 1;
104: FND_MESSAGE.SET_NAME('AK','AK_START_DELETE_SESSION');
105: l_buffer_tbl(l_index) := FND_MESSAGE.GET;
106: l_index := l_index + 1;
107: l_buffer_tbl(l_index) := to_char(sysdate, 'DY MON DD YYYY HH24:MI:SS');
108: l_index := l_index + 1;
101: l_buffer_tbl(l_index) := '**********';
102:
103: l_index := l_index + 1;
104: FND_MESSAGE.SET_NAME('AK','AK_START_DELETE_SESSION');
105: l_buffer_tbl(l_index) := FND_MESSAGE.GET;
106: l_index := l_index + 1;
107: l_buffer_tbl(l_index) := to_char(sysdate, 'DY MON DD YYYY HH24:MI:SS');
108: l_index := l_index + 1;
109: l_buffer_tbl(l_index) := '**********';
147:
148: else
149: --dbms_output.put_line(upper(l_by_object) ||
150: -- ' is invalid - it must be FLOW, REGION, OBJECT, ATTRIBUTE or SECURITY');
151: FND_MESSAGE.SET_NAME('AK','AK_INVALID_BUSINESS_OBJECT');
152: FND_MESSAGE.SET_TOKEN('INVALID',l_by_object);
153: FND_MSG_PUB.Add;
154: end if;
155:
148: else
149: --dbms_output.put_line(upper(l_by_object) ||
150: -- ' is invalid - it must be FLOW, REGION, OBJECT, ATTRIBUTE or SECURITY');
151: FND_MESSAGE.SET_NAME('AK','AK_INVALID_BUSINESS_OBJECT');
152: FND_MESSAGE.SET_TOKEN('INVALID',l_by_object);
153: FND_MSG_PUB.Add;
154: end if;
155:
156: p_return_status := l_return_status;
182: l_index := l_index + 1;
183: l_buffer_tbl(l_index) := 'Primary key: '||p_primary_key;
184: end if;
185: l_index := l_index + 1;
186: FND_MESSAGE.SET_NAME('AK','AK_END_DELETE_SESSION');
187: l_buffer_tbl(l_index) := FND_MESSAGE.GET;
188:
189: --
190: -- Write all messages and ending to a log file
183: l_buffer_tbl(l_index) := 'Primary key: '||p_primary_key;
184: end if;
185: l_index := l_index + 1;
186: FND_MESSAGE.SET_NAME('AK','AK_END_DELETE_SESSION');
187: l_buffer_tbl(l_index) := FND_MESSAGE.GET;
188:
189: --
190: -- Write all messages and ending to a log file
191: --