[Home] [Help]
79: x_communication_method_value varchar2(100) := null;
80: --16035142 end
81:
82: BEGIN
83: -- Start standard API initialization
84: SAVEPOINT control_document_GRP;
85: IF FND_API.to_boolean(p_init_msg_list) THEN
86: FND_MSG_PUB.initialize;
87: END IF;
90: THEN
91: RAISE FND_API.g_exc_unexpected_error;
92: END IF;
93: x_return_status := FND_API.g_ret_sts_success;
94: -- End standard API initialization
95:
96: IF (g_fnd_debug = 'Y') THEN
97: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
98: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
216: RAISE FND_API.g_exc_unexpected_error;
217: END IF;
218:
219:
220: -- Standard API check of p_commit
221: IF FND_API.to_boolean(p_commit) THEN
222: COMMIT WORK;
223: END IF;
224: EXCEPTION
301:
302:
303: BEGIN
304:
305: -- Start standard API initialization
306: SAVEPOINT control_document_GRP;
307: IF FND_API.to_boolean(p_init_msg_list) THEN
308: FND_MSG_PUB.initialize;
309: END IF;
312: THEN
313: RAISE FND_API.g_exc_unexpected_error;
314: END IF;
315: x_return_status := FND_API.g_ret_sts_success;
316: -- End standard API initialization
317:
318: IF (g_fnd_debug = 'Y') THEN
319: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
320: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
738: -- Apps context should be initialized, so we can get the employee id directly
739: l_agent_id PO_HEADERS.agent_id%TYPE := FND_GLOBAL.employee_id;
740:
741: BEGIN
742: -- Start standard API initialization
743: IF FND_API.to_boolean(p_init_msg_list) THEN
744: FND_MSG_PUB.initialize;
745: END IF;
746: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
748: THEN
749: RAISE FND_API.g_exc_unexpected_error;
750: END IF;
751: x_return_status := FND_API.g_ret_sts_success;
752: -- End standard API initialization
753:
754: -- Ensure that we are not using a NULL agent ID.
755: IF (l_agent_id IS NULL) THEN
756: l_agent_id := -1;
844: l_api_name CONSTANT VARCHAR2(30) := 'check_control_action';
845: l_api_version CONSTANT NUMBER := 1.0;
846:
847: BEGIN
848: -- Start standard API initialization
849: IF FND_API.to_boolean(p_init_msg_list) THEN
850: FND_MSG_PUB.initialize;
851: END IF;
852: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
854: THEN
855: RAISE FND_API.g_exc_unexpected_error;
856: END IF;
857: x_return_status := FND_API.g_ret_sts_success;
858: -- End standard API initialization
859:
860: IF (g_fnd_debug = 'Y') THEN
861: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
862: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
1320: l_release_po_header_id NUMBER;
1321: l_release_po_subtype PO_DOCUMENT_TYPES.document_subtype%TYPE;
1322:
1323: BEGIN
1324: -- Start standard API initialization
1325: IF FND_API.to_boolean(p_init_msg_list) THEN
1326: FND_MSG_PUB.initialize;
1327: END IF;
1328: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
1330: THEN
1331: RAISE FND_API.g_exc_unexpected_error;
1332: END IF;
1333: x_return_status := FND_API.g_ret_sts_success;
1334: -- End standard API initialization
1335:
1336: IF (g_fnd_debug = 'Y') THEN
1337: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1338: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
1344:
1345: -- Must have correct, matching doc types and subtypes
1346: IF ((p_doc_type IS NULL) OR (p_doc_subtype IS NULL)) OR
1347: (p_doc_type NOT IN ('PO','PA','RELEASE')) OR
1348: ((p_doc_type = 'PO') AND (p_doc_subtype NOT IN('STANDARD','PLANNED'))) OR
1349: ((p_doc_type = 'PA') AND (p_doc_subtype NOT IN('BLANKET','CONTRACT'))) OR
1350: ((p_doc_type = 'RELEASE') AND
1351: (p_doc_subtype NOT IN ('BLANKET','SCHEDULED')))
1352: THEN