[Home] [Help]
124: g_debug := PO_R12_CAT_UPG_DEBUG.is_logging_enabled;
125:
126: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_module,l_progress,'START'); END IF;
127:
128: -- Standard call to check for call compatibility
129: IF NOT FND_API.compatible_API_call(
130: p_current_version_number => l_api_version,
131: p_caller_version_number => p_api_version,
132: p_api_name => l_api_name,
280:
281: -- attach_gbpa_numbers_in_cpa;
282:
283: l_progress := '150';
284: -- Standard check of p_commit.
285: IF FND_API.to_boolean(p_commit) THEN
286: COMMIT;
287: END IF;
288:
286: COMMIT;
287: END IF;
288:
289: l_progress := '160';
290: -- Standard call to get message count and if count is 1, get message info.
291: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
292: p_data => x_msg_data );
293:
294: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_module,l_progress,'END'); END IF;
306: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
307: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
308: END IF;
309:
310: -- Standard call to get message count and if count is 1, get message info.
311: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
312: p_data => x_msg_data );
313:
314: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_module,l_progress,'OTHERS End'); END IF;
640: xml_flag,
641: xml_send_date,
642: ever_approved_flag, -- Not present in txn table
643: latest_external_flag, -- Not present in txn table
644: standard_comment_code -- Not present in txn table
645: )
646: SELECT
647: acceptance_due_date,
648: acceptance_required_flag,
800: xml_flag,
801: xml_send_date,
802: 'Y', -- ever_approved_flag, -- Not present in txn table
803: 'Y', -- latest_external_flag, -- Not present in txn table
804: NULL -- standard_comment_code -- Not present in txn table
805: FROM PO_HEADERS_ALL
806: WHERE po_header_id = p_po_header_ids(i)
807: AND NOT EXISTS
808: (SELECT 'Archive record for Header already exists'