[Home] [Help]
82: --p_po_header_id
83: -- unique identifier for document with the draft changes
84: --p_delete_processed_draft
85: -- indicates whether draft changes should be removed after the process
86: -- If FND_API.G_TRUE, draft records will be removed after the process
87: -- If FND_API.G_FALSE, draft records will retain after the process
88: -- If 'X', drafts records except for the one in PO_DRAFTS will be removed
89: -- after the process
90: --IN OUT:
83: -- unique identifier for document with the draft changes
84: --p_delete_processed_draft
85: -- indicates whether draft changes should be removed after the process
86: -- If FND_API.G_TRUE, draft records will be removed after the process
87: -- If FND_API.G_FALSE, draft records will retain after the process
88: -- If 'X', drafts records except for the one in PO_DRAFTS will be removed
89: -- after the process
90: --IN OUT:
91: --OUT:
132: p_delete_processed_draft);
133: PO_LOG.proc_begin(d_module, 'p_acceptance_action', p_acceptance_action);
134: END IF;
135:
136: IF (FND_API.to_boolean(p_init_msg_list)) THEN
137: FND_MSG_PUB.initialize;
138: END IF;
139:
140: IF (NOT FND_API.Compatible_API_Call
136: IF (FND_API.to_boolean(p_init_msg_list)) THEN
137: FND_MSG_PUB.initialize;
138: END IF;
139:
140: IF (NOT FND_API.Compatible_API_Call
141: ( p_current_version_number => d_api_version
142: , p_caller_version_number => p_api_version
143: , p_api_name => d_api_name
144: , p_pkg_name => d_pkg_name
144: , p_pkg_name => d_pkg_name
145: )
146: ) THEN
147:
148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
149: END IF; -- not compatible_api
150:
151: x_return_status := FND_API.G_RET_STS_SUCCESS;
152:
147:
148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
149: END IF; -- not compatible_api
150:
151: x_return_status := FND_API.G_RET_STS_SUCCESS;
152:
153: -- if acceptance action is specified, we need to propogate the action to
154: -- all levels
155: IF (p_acceptance_action IS NOT NULL) THEN
257: ( p_pkg_name => d_pkg_name,
258: p_procedure_name => d_api_name || '.' || d_position
259: );
260:
261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
262: END transfer_draft_to_txn;
263:
264:
265: -----------------------------------------------------------------------
276: --p_draft_id
277: -- draft unique identifier
278: --p_exclude_ctrl_tbl
279: -- determines whether control table should be excluded from deletion
280: -- FND_API.G_TRUE if PO_DRAFTS should be excluded
281: -- FND_API.G_FALSE if PO_DRAFTS should not be excluded
282: --IN OUT:
283: --OUT:
284: --x_return_status
277: -- draft unique identifier
278: --p_exclude_ctrl_tbl
279: -- determines whether control table should be excluded from deletion
280: -- FND_API.G_TRUE if PO_DRAFTS should be excluded
281: -- FND_API.G_FALSE if PO_DRAFTS should not be excluded
282: --IN OUT:
283: --OUT:
284: --x_return_status
285: -- return status of the procedure
304: IF (PO_LOG.d_proc) THEN
305: PO_LOG.proc_begin(d_module);
306: END IF;
307:
308: x_return_status := FND_API.G_RET_STS_SUCCESS;
309:
310: PO_HEADERS_DRAFT_PKG.delete_rows
311: ( p_draft_id => p_draft_id,
312: p_po_header_id => NULL
361: );
362:
363: d_position := 90;
364:
365: IF (NVL(p_exclude_ctrl_tbl, FND_API.G_FALSE) = FND_API.G_FALSE) THEN
366: -- delete draft control table as well
367: DELETE FROM po_drafts
368: WHERE draft_id = p_draft_id;
369: END IF;
378: ( p_pkg_name => d_pkg_name,
379: p_procedure_name => d_api_name || '.' || d_position
380: );
381:
382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
383: END remove_draft_changes;
384:
385:
386:
434:
435: -- SQL What: Check whether po_header_id specified already
436: -- exists in PO_HEADERS_ALL
437: -- SQL Why: Need to see whether it is a new document being created
438: SELECT NVL(MAX(FND_API.G_FALSE), FND_API.G_TRUE)
439: INTO x_draft_info.new_document
440: FROM po_headers_all POH
441: WHERE POH.po_header_id = p_po_header_id;
442:
439: INTO x_draft_info.new_document
440: FROM po_headers_all POH
441: WHERE POH.po_header_id = p_po_header_id;
442:
443: IF (x_draft_info.new_document = FND_API.G_TRUE) THEN
444: d_position := 10;
445: SELECT PHD.type_lookup_code,
446: PHD.quote_type_lookup_code,
447: NVL(PHD.global_agreement_flag, 'N')
590: PO_MESSAGE_S.add_exc_msg
591: ( p_pkg_name => d_pkg_name,
592: p_procedure_name => d_api_name || '.' || d_position
593: );
594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
595: END populate_draft_info;
596:
597: -- bug4176111
598: -----------------------------------------------------------------------
645: PO_MESSAGE_S.add_exc_msg
646: ( p_pkg_name => d_pkg_name,
647: p_procedure_name => d_api_name || '.' || d_position
648: );
649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
650: END pre_apply;
651:
652:
653:
814: PO_MESSAGE_S.add_exc_msg
815: ( p_pkg_name => d_pkg_name,
816: p_procedure_name => d_api_name || '.' || d_position
817: );
818: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
819: END get_request_id;
820:
821: -----------------------------------------------------------------------
822: --Start of Comments
990: IF (PO_LOG.d_proc) THEN
991: PO_LOG.proc_begin(d_module);
992: END IF;
993:
994: x_update_allowed := FND_API.G_TRUE;
995: x_locking_applicable := FND_API.G_TRUE;
996: x_unlock_required := FND_API.G_FALSE;
997:
998: -- Default calling module if one is not specified
991: PO_LOG.proc_begin(d_module);
992: END IF;
993:
994: x_update_allowed := FND_API.G_TRUE;
995: x_locking_applicable := FND_API.G_TRUE;
996: x_unlock_required := FND_API.G_FALSE;
997:
998: -- Default calling module if one is not specified
999: l_calling_module := NVL(p_calling_module, g_call_mod_UNKNOWN);
992: END IF;
993:
994: x_update_allowed := FND_API.G_TRUE;
995: x_locking_applicable := FND_API.G_TRUE;
996: x_unlock_required := FND_API.G_FALSE;
997:
998: -- Default calling module if one is not specified
999: l_calling_module := NVL(p_calling_module, g_call_mod_UNKNOWN);
1000:
1033: -- bug 5358300
1034: -- Added g_call_mod_HTML_UI_SAVE to the list as we would allow online save operations on the document
1035: IF ( l_calling_module NOT IN (g_call_mod_HTML_UI, g_call_mod_HTML_UI_SAVE, g_call_mod_PDOI, g_call_mod_FORMS_PO_SUMMARY)) THEN
1036: x_message := 'PO_DOC_LOCKED';
1037: x_update_allowed := FND_API.G_FALSE;
1038: RETURN;
1039: END IF;
1040:
1041: -- Disallow update if one of the following is true
1047: -- such case to recover the document so we do not want to prevent
1048: -- PDOI from processing this document here)
1049: IF (l_draft_status = g_status_IN_PROCESS ) THEN
1050: x_message := 'PO_BUYER_ACCEPTANCE_PENDING';
1051: x_update_allowed := FND_API.G_FALSE;
1052: RETURN;
1053:
1054: ELSIF (l_draft_status = g_status_PDOI_PROCESSING AND
1055: l_calling_module <> g_call_mod_PDOI ) THEN
1054: ELSIF (l_draft_status = g_status_PDOI_PROCESSING AND
1055: l_calling_module <> g_call_mod_PDOI ) THEN
1056:
1057: x_message := 'PO_UPLOAD_PENDING_RUNNING';
1058: x_update_allowed := FND_API.G_FALSE;
1059: RETURN;
1060:
1061: ELSIF (l_draft_status = g_status_PDOI_ERROR
1062: AND l_calling_module <> g_call_mod_PDOI) THEN
1061: ELSIF (l_draft_status = g_status_PDOI_ERROR
1062: AND l_calling_module <> g_call_mod_PDOI) THEN
1063:
1064: x_message := 'PO_LOCKED_BY_PDOI_ERR';
1065: x_update_allowed := FND_API.G_FALSE;
1066: RETURN;
1067:
1068: END IF;
1069: END IF;
1069: END IF;
1070:
1071: d_position := 40;
1072:
1073: IF ( NVL(p_skip_cat_upload_chk, FND_API.G_FALSE) = FND_API.G_FALSE) THEN
1074: -- Call iP API to see if there is catalog uploading activity. If so,
1075: -- Prevent locking
1076:
1077: -- bug5014131
1085: x_upload_job_number => l_upload_job_number,
1086: x_upload_status_display => l_upload_status_display
1087: );
1088:
1089: IF (l_upload_in_progress = FND_API.G_TRUE) THEN
1090: IF (l_upload_status_code IN (g_upload_status_PENDING, g_upload_status_RUNNING)) THEN
1091: IF (PO_LOG.d_stmt) THEN
1092: PO_LOG.stmt (d_module, d_position, 'in progress catalog upload');
1093: END IF;
1092: PO_LOG.stmt (d_module, d_position, 'in progress catalog upload');
1093: END IF;
1094:
1095: x_message := 'PO_UPLOAD_PENDING_RUNNING';
1096: x_update_allowed := FND_API.G_FALSE;
1097: RETURN;
1098: ELSIF (l_upload_status_code = g_upload_status_ERROR) THEN
1099: IF (PO_LOG.d_stmt) THEN
1100: PO_LOG.stmt (d_module, d_position, 'errored catalog upload');
1105: --upload was done by Supplier/Cat Admin
1106: --then buyer can break the lock
1107: IF (p_role = PO_GLOBAL.g_role_BUYER AND
1108: p_role <> l_upload_requestor_role) THEN
1109: x_unlock_required := FND_API.G_TRUE;
1110: ELSE
1111: x_update_allowed := FND_API.G_FALSE;
1112: END IF;
1113: RETURN;
1107: IF (p_role = PO_GLOBAL.g_role_BUYER AND
1108: p_role <> l_upload_requestor_role) THEN
1109: x_unlock_required := FND_API.G_TRUE;
1110: ELSE
1111: x_update_allowed := FND_API.G_FALSE;
1112: END IF;
1113: RETURN;
1114: END IF;
1115: END IF;
1119: ( p_po_header_id => p_po_header_id,
1120: p_role => p_role
1121: );
1122:
1123: IF (x_locking_applicable = FND_API.G_FALSE) THEN
1124: IF (PO_LOG.d_stmt) THEN
1125: PO_LOG.stmt (d_module, d_position, 'locking is not applicable');
1126: END IF;
1127:
1141: -- supplier is allowed to get the lock only if the document is enabled
1142: -- for supplier authoring
1143: IF (NVL(l_supplier_auth_enabled, 'N') = 'N') THEN
1144: x_message := 'PO_UPDATE_NOT_ALLOWED';
1145: x_update_allowed := FND_API.G_FALSE;
1146: RETURN;
1147: END IF;
1148: END IF;
1149:
1156: -- cat admin is allowed to get the lock only if the document is enabled
1157: -- for Cat Admin authoring
1158: IF (NVL(l_cat_admin_auth_enabled, 'N') = 'N') THEN
1159: x_message := 'PO_UPDATE_NOT_ALLOWED';
1160: x_update_allowed := FND_API.G_FALSE;
1161: RETURN;
1162: END IF;
1163: END IF;
1164:
1180: 'in this status');
1181: END IF;
1182:
1183: x_message := 'PO_AUTH_STATUS_ERROR';
1184: x_update_allowed := FND_API.G_FALSE;
1185: RETURN;
1186: END IF;
1187:
1188: -- bug5532550 START
1193: ( p_po_header_id => p_po_header_id,
1194: p_role => p_role
1195: );
1196:
1197: IF ( l_updatable_state = FND_API.G_FALSE ) THEN
1198: x_message := 'PO_ALL_CADM_DOC_CANT_BE_OPENED';
1199: x_update_allowed := FND_API.G_FALSE;
1200: RETURN;
1201: END IF;
1195: );
1196:
1197: IF ( l_updatable_state = FND_API.G_FALSE ) THEN
1198: x_message := 'PO_ALL_CADM_DOC_CANT_BE_OPENED';
1199: x_update_allowed := FND_API.G_FALSE;
1200: RETURN;
1201: END IF;
1202:
1203: -- bug5532550 END
1226: -- the same role is currently locking the document OR
1227: -- nobody is locking the document
1228:
1229: -- In such cases, we can simply take the default value of the
1230: -- update_allowed_flag (FND_API.G_TRUE)
1231: NULL;
1232: ELSIF (p_role = PO_GLOBAL.g_role_BUYER) THEN
1233: x_message := 'PO_DOC_LOCKED_BY_OTHER_ROLE';
1234: -- if role is buyer and the role currently locking the document
1232: ELSIF (p_role = PO_GLOBAL.g_role_BUYER) THEN
1233: x_message := 'PO_DOC_LOCKED_BY_OTHER_ROLE';
1234: -- if role is buyer and the role currently locking the document
1235: -- is different, we need to unlock the document first
1236: x_unlock_required := FND_API.G_TRUE;
1237: RETURN;
1238: ELSE
1239: -- cannot update - role is not BUYER and it is currently locked
1240: -- by somebody else
1238: ELSE
1239: -- cannot update - role is not BUYER and it is currently locked
1240: -- by somebody else
1241: x_message := 'PO_DOC_LOCKED_BY_OTHER_ROLE';
1242: x_update_allowed := FND_API.G_FALSE;
1243: RETURN;
1244: END IF;
1245:
1246: ELSIF (l_calling_module in (g_call_mod_HTML_UI_SAVE)) THEN
1253: -- if document is currently locked by some other role
1254:
1255: IF (p_role <> l_current_lock_owner_role) THEN
1256: x_message := 'PO_DOC_LOCKED_BY_OTHER_ROLE';
1257: x_update_allowed := FND_API.G_FALSE;
1258: RETURN;
1259: END IF;
1260:
1261: ELSE
1265: -- if document is currently locked by some other role
1266:
1267: IF (p_role <> l_current_lock_owner_role) THEN
1268: x_message := 'PO_DOC_LOCKED';
1269: x_update_allowed := FND_API.G_FALSE;
1270: RETURN;
1271: END IF;
1272:
1273: END IF;
1281: PO_MESSAGE_S.add_exc_msg
1282: ( p_pkg_name => d_pkg_name,
1283: p_procedure_name => d_api_name || '.' || d_position
1284: );
1285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1286: END update_permission_check;
1287:
1288: -- update_permission_check - 2
1289: PROCEDURE update_permission_check
1316:
1317: x_token_name_tbl := PO_TBL_VARCHAR30();
1318: x_token_value_tbl := PO_TBL_VARCHAR2000();
1319:
1320: IF (x_update_allowed = FND_API.G_TRUE) THEN
1321: RETURN;
1322: END IF;
1323:
1324: l_style_name := PO_DOC_STYLE_PVT.get_style_display_name
1364: x_token_name_tbl => l_token_name_tbl,
1365: x_token_value_tbl => l_token_value_tbl
1366: );
1367:
1368: IF (x_update_allowed = FND_API.G_TRUE) THEN
1369: RETURN;
1370: END IF;
1371:
1372: FND_MESSAGE.set_name ('PO', x_message);
1427: END IF;
1428:
1429: PO_DRAFTS_PVT.remove_draft_changes
1430: ( p_draft_id => l_draft_id,
1431: p_exclude_ctrl_tbl => FND_API.G_FALSE,
1432: x_return_status => l_return_status
1433: );
1434:
1435: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1431: p_exclude_ctrl_tbl => FND_API.G_FALSE,
1432: x_return_status => l_return_status
1433: );
1434:
1435: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1437: END IF;
1438: END IF;
1439:
1432: x_return_status => l_return_status
1433: );
1434:
1435: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1437: END IF;
1438: END IF;
1439:
1440: -- unlock document by setting lock owner role to NULL
1496: ( p_po_header_id => p_po_header_id,
1497: p_role => p_role
1498: );
1499:
1500: IF (l_locking_applicable = FND_API.G_FALSE) THEN
1501: RETURN;
1502: END IF;
1503:
1504: IF (p_unlock_current = FND_API.G_TRUE) THEN
1500: IF (l_locking_applicable = FND_API.G_FALSE) THEN
1501: RETURN;
1502: END IF;
1503:
1504: IF (p_unlock_current = FND_API.G_TRUE) THEN
1505: unlock_document
1506: ( p_po_header_id => p_po_header_id
1507: );
1508: END IF;
1541: d_api_name CONSTANT VARCHAR2(30) := 'is_locking_applicable';
1542: d_module CONSTANT VARCHAR2(2000) := d_pkg_name || d_api_name || '.';
1543: d_position NUMBER;
1544:
1545: l_applicable VARCHAR2(1) := FND_API.G_TRUE;
1546:
1547: l_type_lookup_code PO_HEADERS_ALL.type_lookup_code%TYPE;
1548: l_ga_flag PO_HEADERS_ALL.global_agreement_flag%TYPE;
1549: l_approved_date PO_HEADERS_ALL.approved_date%TYPE;
1572:
1573: -- locking is applicable only for global blanket agreement
1574: IF (NOT (l_type_lookup_code = 'BLANKET' AND l_ga_flag = 'Y')) THEN
1575:
1576: l_applicable := FND_API.G_FALSE;
1577:
1578: ELSIF ( l_current_lock_owner_role IS NULL AND
1579: p_role = PO_GLOBAL.g_role_BUYER AND
1580: l_approved_date IS NULL ) THEN
1578: ELSIF ( l_current_lock_owner_role IS NULL AND
1579: p_role = PO_GLOBAL.g_role_BUYER AND
1580: l_approved_date IS NULL ) THEN
1581:
1582: l_applicable := FND_API.G_FALSE;
1583: END IF;
1584:
1585: IF (PO_LOG.d_proc) THEN
1586: PO_LOG.proc_end(d_module, 'l_applicable', l_applicable);
1589: RETURN l_applicable;
1590:
1591: EXCEPTION
1592: WHEN NO_DATA_FOUND THEN
1593: l_applicable := FND_API.G_FALSE;
1594: RETURN l_applicable;
1595: END is_locking_applicable;
1596:
1597: -----------------------------------------------------------------------
1615: d_api_name CONSTANT VARCHAR2(30) := 'is_draft_applicable';
1616: d_module CONSTANT VARCHAR2(2000) := d_pkg_name || d_api_name || '.';
1617: d_position NUMBER;
1618:
1619: l_applicable VARCHAR2(1) := FND_API.G_TRUE;
1620:
1621: l_type_lookup_code PO_HEADERS_ALL.type_lookup_code%TYPE;
1622: l_ga_flag PO_HEADERS_ALL.global_agreement_flag%TYPE;
1623: BEGIN
1641:
1642: -- locking is applicable only for global blanket agreement
1643: IF (NOT (l_type_lookup_code = 'BLANKET' AND l_ga_flag = 'Y')) THEN
1644:
1645: l_applicable := FND_API.G_FALSE;
1646:
1647: ELSIF ( p_role = PO_GLOBAL.g_role_BUYER) THEN
1648:
1649: l_applicable := FND_API.G_FALSE;
1645: l_applicable := FND_API.G_FALSE;
1646:
1647: ELSIF ( p_role = PO_GLOBAL.g_role_BUYER) THEN
1648:
1649: l_applicable := FND_API.G_FALSE;
1650: END IF;
1651:
1652: IF (PO_LOG.d_proc) THEN
1653: PO_LOG.proc_end(d_module, 'l_applicable', l_applicable);
1656: RETURN l_applicable;
1657:
1658: EXCEPTION
1659: WHEN NO_DATA_FOUND THEN
1660: l_applicable := FND_API.G_FALSE;
1661: RETURN l_applicable;
1662: END is_draft_applicable;
1663:
1664:
1724:
1725:
1726: -- if locking is not allowed, do not need to continue to lock the
1727: -- document
1728: IF (l_locking_applicable = FND_API.G_FALSE OR
1729: x_locking_allowed = FND_API.G_FALSE) THEN
1730: RETURN;
1731: END IF;
1732:
1725:
1726: -- if locking is not allowed, do not need to continue to lock the
1727: -- document
1728: IF (l_locking_applicable = FND_API.G_FALSE OR
1729: x_locking_allowed = FND_API.G_FALSE) THEN
1730: RETURN;
1731: END IF;
1732:
1733: d_position := 10;
1809: l_draft_id PO_DRAFTS.draft_id%TYPE;
1810: l_draft_status PO_DRAFTS.status%TYPE;
1811: l_draft_owner_role PO_DRAFTS.owner_role%TYPE;
1812:
1813: l_pending_changes_exist VARCHAR2(1) := FND_API.G_FALSE;
1814: BEGIN
1815:
1816: d_position := 0;
1817: IF (PO_LOG.d_proc) THEN
1825: x_draft_owner_role => l_draft_owner_role
1826: );
1827:
1828: IF (l_draft_id IS NOT NULL) THEN
1829: l_pending_changes_exist := FND_API.G_TRUE;
1830: END IF;
1831:
1832: IF (PO_LOG.d_proc) THEN
1833: PO_LOG.proc_end(d_module, 'l_pending_changes_exist', l_pending_changes_exist);
1841: --Start of Comments
1842: --Name: changes_exist_for_draft
1843: --Function:
1844: -- Given the draft id table, check whether there exist any draft changes
1845: -- at any entity for each draft id. FND_API.G_TRUE will be populated to
1846: -- the corresponding entry in the returned table
1847: --Parameters:
1848: --IN:
1849: --p_draft_id_tbl
1894: p_po_line_id_tbl => l_null_id_tbl
1895: );
1896:
1897: FOR i IN 1..l_master_chg_exist_tbl.COUNT LOOP
1898: IF (l_chg_exist_tbl(i) = FND_API.G_TRUE) THEN
1899: l_master_chg_exist_tbl(i) := FND_API.G_TRUE;
1900: END IF;
1901: END LOOP;
1902:
1895: );
1896:
1897: FOR i IN 1..l_master_chg_exist_tbl.COUNT LOOP
1898: IF (l_chg_exist_tbl(i) = FND_API.G_TRUE) THEN
1899: l_master_chg_exist_tbl(i) := FND_API.G_TRUE;
1900: END IF;
1901: END LOOP;
1902:
1903: d_position := 30;
1908: p_line_location_id_tbl => l_null_id_tbl
1909: );
1910:
1911: FOR i IN 1..l_master_chg_exist_tbl.COUNT LOOP
1912: IF (l_chg_exist_tbl(i) = FND_API.G_TRUE) THEN
1913: l_master_chg_exist_tbl(i) := FND_API.G_TRUE;
1914: END IF;
1915: END LOOP;
1916:
1909: );
1910:
1911: FOR i IN 1..l_master_chg_exist_tbl.COUNT LOOP
1912: IF (l_chg_exist_tbl(i) = FND_API.G_TRUE) THEN
1913: l_master_chg_exist_tbl(i) := FND_API.G_TRUE;
1914: END IF;
1915: END LOOP;
1916:
1917: d_position := 40;
1922: p_po_distribution_id_tbl => l_null_id_tbl
1923: );
1924:
1925: FOR i IN 1..l_master_chg_exist_tbl.COUNT LOOP
1926: IF (l_chg_exist_tbl(i) = FND_API.G_TRUE) THEN
1927: l_master_chg_exist_tbl(i) := FND_API.G_TRUE;
1928: END IF;
1929: END LOOP;
1930:
1923: );
1924:
1925: FOR i IN 1..l_master_chg_exist_tbl.COUNT LOOP
1926: IF (l_chg_exist_tbl(i) = FND_API.G_TRUE) THEN
1927: l_master_chg_exist_tbl(i) := FND_API.G_TRUE;
1928: END IF;
1929: END LOOP;
1930:
1931: d_position := 50;
1936: p_org_assignment_id_tbl => l_null_id_tbl
1937: );
1938:
1939: FOR i IN 1..l_master_chg_exist_tbl.COUNT LOOP
1940: IF (l_chg_exist_tbl(i) = FND_API.G_TRUE) THEN
1941: l_master_chg_exist_tbl(i) := FND_API.G_TRUE;
1942: END IF;
1943: END LOOP;
1944:
1937: );
1938:
1939: FOR i IN 1..l_master_chg_exist_tbl.COUNT LOOP
1940: IF (l_chg_exist_tbl(i) = FND_API.G_TRUE) THEN
1941: l_master_chg_exist_tbl(i) := FND_API.G_TRUE;
1942: END IF;
1943: END LOOP;
1944:
1945: d_position := 60;
1950: p_price_differential_id_tbl => l_null_id_tbl
1951: );
1952:
1953: FOR i IN 1..l_master_chg_exist_tbl.COUNT LOOP
1954: IF (l_chg_exist_tbl(i) = FND_API.G_TRUE) THEN
1955: l_master_chg_exist_tbl(i) := FND_API.G_TRUE;
1956: END IF;
1957: END LOOP;
1958:
1951: );
1952:
1953: FOR i IN 1..l_master_chg_exist_tbl.COUNT LOOP
1954: IF (l_chg_exist_tbl(i) = FND_API.G_TRUE) THEN
1955: l_master_chg_exist_tbl(i) := FND_API.G_TRUE;
1956: END IF;
1957: END LOOP;
1958:
1959: d_position := 70;
1964: p_notification_id_tbl => l_null_id_tbl
1965: );
1966:
1967: FOR i IN 1..l_master_chg_exist_tbl.COUNT LOOP
1968: IF (l_chg_exist_tbl(i) = FND_API.G_TRUE) THEN
1969: l_master_chg_exist_tbl(i) := FND_API.G_TRUE;
1970: END IF;
1971: END LOOP;
1972:
1965: );
1966:
1967: FOR i IN 1..l_master_chg_exist_tbl.COUNT LOOP
1968: IF (l_chg_exist_tbl(i) = FND_API.G_TRUE) THEN
1969: l_master_chg_exist_tbl(i) := FND_API.G_TRUE;
1970: END IF;
1971: END LOOP;
1972:
1973: d_position := 80;
1978: p_attribute_values_id_tbl => l_null_id_tbl
1979: );
1980:
1981: FOR i IN 1..l_master_chg_exist_tbl.COUNT LOOP
1982: IF (l_chg_exist_tbl(i) = FND_API.G_TRUE) THEN
1983: l_master_chg_exist_tbl(i) := FND_API.G_TRUE;
1984: END IF;
1985: END LOOP;
1986:
1979: );
1980:
1981: FOR i IN 1..l_master_chg_exist_tbl.COUNT LOOP
1982: IF (l_chg_exist_tbl(i) = FND_API.G_TRUE) THEN
1983: l_master_chg_exist_tbl(i) := FND_API.G_TRUE;
1984: END IF;
1985: END LOOP;
1986:
1987: d_position := 90;
1992: p_attribute_values_tlp_id_tbl => l_null_id_tbl
1993: );
1994:
1995: FOR i IN 1..l_master_chg_exist_tbl.COUNT LOOP
1996: IF (l_chg_exist_tbl(i) = FND_API.G_TRUE) THEN
1997: l_master_chg_exist_tbl(i) := FND_API.G_TRUE;
1998: END IF;
1999: END LOOP;
2000:
1993: );
1994:
1995: FOR i IN 1..l_master_chg_exist_tbl.COUNT LOOP
1996: IF (l_chg_exist_tbl(i) = FND_API.G_TRUE) THEN
1997: l_master_chg_exist_tbl(i) := FND_API.G_TRUE;
1998: END IF;
1999: END LOOP;
2000:
2001: IF (PO_LOG.d_proc) THEN
2032: l_draft_id PO_DRAFTS.draft_id%TYPE;
2033: l_draft_status PO_DRAFTS.status%TYPE;
2034: l_draft_owner_role PO_DRAFTS.owner_role%TYPE;
2035:
2036: l_pending_acceptance VARCHAR2(1) := FND_API.G_FALSE;
2037: BEGIN
2038:
2039: d_position := 0;
2040: IF (PO_LOG.d_proc) THEN
2048: x_draft_owner_role => l_draft_owner_role
2049: );
2050:
2051: IF (l_draft_status = g_status_IN_PROCESS) THEN
2052: l_pending_acceptance := FND_API.G_TRUE;
2053: END IF;
2054:
2055: IF (PO_LOG.d_proc) THEN
2056: PO_LOG.proc_end(d_module, 'l_pending_acceptance', l_pending_acceptance);
2094: INVALID_VIEW_NAME_EXC EXCEPTION;
2095: RESOURCE_BUSY_EXC EXCEPTION;
2096: PRAGMA EXCEPTION_INIT (RESOURCE_BUSY_EXC, -54);
2097:
2098: l_success VARCHAR2(1) := FND_API.G_TRUE;
2099:
2100: BEGIN
2101:
2102: d_position := 0;
2221: IF (PO_LOG.d_proc) THEN
2222: PO_LOG.proc_end(d_module);
2223: END IF;
2224:
2225: RETURN FND_API.G_TRUE;
2226:
2227: EXCEPTION
2228: WHEN RESOURCE_BUSY_EXC THEN
2229: -- come here if database locking cannot be acquired
2226:
2227: EXCEPTION
2228: WHEN RESOURCE_BUSY_EXC THEN
2229: -- come here if database locking cannot be acquired
2230: l_success := FND_API.G_FALSE;
2231: RETURN FND_API.G_FALSE;
2232:
2233: WHEN INVALID_VIEW_NAME_EXC THEN
2234: IF (PO_LOG.d_exc) THEN
2227: EXCEPTION
2228: WHEN RESOURCE_BUSY_EXC THEN
2229: -- come here if database locking cannot be acquired
2230: l_success := FND_API.G_FALSE;
2231: RETURN FND_API.G_FALSE;
2232:
2233: WHEN INVALID_VIEW_NAME_EXC THEN
2234: IF (PO_LOG.d_exc) THEN
2235: PO_LOG.exc(d_module, d_position, 'Invalid view name');
2234: IF (PO_LOG.d_exc) THEN
2235: PO_LOG.exc(d_module, d_position, 'Invalid view name');
2236: END IF;
2237:
2238: l_success := FND_API.G_FALSE;
2239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2240: WHEN OTHERS THEN
2241: l_success := FND_API.G_FALSE;
2242:
2235: PO_LOG.exc(d_module, d_position, 'Invalid view name');
2236: END IF;
2237:
2238: l_success := FND_API.G_FALSE;
2239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2240: WHEN OTHERS THEN
2241: l_success := FND_API.G_FALSE;
2242:
2243: PO_MESSAGE_S.add_exc_msg
2237:
2238: l_success := FND_API.G_FALSE;
2239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2240: WHEN OTHERS THEN
2241: l_success := FND_API.G_FALSE;
2242:
2243: PO_MESSAGE_S.add_exc_msg
2244: ( p_pkg_name => d_pkg_name,
2245: p_procedure_name => d_api_name || '.' || d_position
2345: SET supplier_auth_enabled_flag
2346: = p_supplier_auth_enabled_flag
2347: WHERE po_header_id = p_po_header_id;
2348:
2349: return FND_API.G_RET_STS_SUCCESS;
2350:
2351: EXCEPTION
2352: WHEN no_data_found THEN
2353: RETURN FND_API.G_RET_STS_ERROR;
2349: return FND_API.G_RET_STS_SUCCESS;
2350:
2351: EXCEPTION
2352: WHEN no_data_found THEN
2353: RETURN FND_API.G_RET_STS_ERROR;
2354: WHEN others THEN
2355: po_message_s.sql_error('get_supp_auth_enabled_flag',d_position, sqlcode);
2356: raise;
2357:
2451: SET cat_admin_auth_enabled_flag
2452: = p_cat_admin_auth_enable_flag
2453: WHERE po_header_id = p_po_header_id;
2454:
2455: return FND_API.G_RET_STS_SUCCESS;
2456:
2457: EXCEPTION
2458: WHEN no_data_found THEN
2459: RETURN FND_API.G_RET_STS_ERROR;
2455: return FND_API.G_RET_STS_SUCCESS;
2456:
2457: EXCEPTION
2458: WHEN no_data_found THEN
2459: RETURN FND_API.G_RET_STS_ERROR;
2460: WHEN others THEN
2461: po_message_s.sql_error('get_cat_admin_auth_enable_flag',d_position, sqlcode);
2462: raise;
2463:
2536: --p_role
2537: -- role of the user
2538: --IN OUT:
2539: --OUT:
2540: -- upload_in_progress: FND_API.G_TRUE if there's one upload that's not yet
2541: -- complete
2542: -- upload_status_code
2543: -- upload_requestor_role
2544: -- upload_requestor_role_id id of the role
2559: x_upload_status_display OUT NOCOPY VARCHAR2
2560: ) IS
2561:
2562: BEGIN
2563: x_upload_in_progress := FND_API.G_FALSE;
2564:
2565: -- return the upload status for any upload that's considered 'IN PROGRESS'
2566: SELECT job_status,
2567: -- role_user_id,
2577: g_upload_status_RUNNING,
2578: g_upload_status_ERROR)
2579: AND ROWNUM = 1;
2580:
2581: x_upload_in_progress := FND_API.G_TRUE;
2582:
2583: EXCEPTION
2584: WHEN NO_DATA_FOUND THEN
2585: NULL;
2590: -- bug5090429 START
2591: -- Overloaded procedure for another one. All the parameters required by
2592: -- the other one can be derived from p_po_header_id
2593: PROCEDURE unlock_document_and_send_notif
2594: ( p_commit IN VARCHAR2 := FND_API.G_FALSE,
2595: p_po_header_id IN NUMBER
2596: ) IS
2597:
2598: d_api_name CONSTANT VARCHAR2(30) := 'unlock_document_and_send_notif';
2766: );
2767:
2768: d_pos := 60;
2769: --Commit the changes
2770: IF p_commit = FND_API.G_TRUE THEN
2771: COMMIT WORK;
2772: END IF;
2773:
2774: IF (PO_LOG.d_proc) THEN
2832: AND NVL(closed_code, 'OPEN') NOT IN ('CLOSED', 'FINALLY CLOSED')
2833: AND NVL(frozen_flag, 'N') <> 'Y'
2834: AND NVL(user_hold_flag, 'N') <> 'Y';
2835:
2836: RETURN FND_API.G_TRUE;
2837: ELSE
2838: RETURN FND_API.G_TRUE;
2839: END IF;
2840:
2834: AND NVL(user_hold_flag, 'N') <> 'Y';
2835:
2836: RETURN FND_API.G_TRUE;
2837: ELSE
2838: RETURN FND_API.G_TRUE;
2839: END IF;
2840:
2841: IF (PO_LOG.d_proc) THEN
2842: PO_LOG.proc_end(d_module);
2842: PO_LOG.proc_end(d_module);
2843: END IF;
2844: EXCEPTION
2845: WHEN NO_DATA_FOUND THEN
2846: RETURN FND_API.G_FALSE;
2847: END is_doc_in_updatable_state;
2848:
2849: -----------------------------------------------------------------------
2850: --Start of Comments
2933: PO_MESSAGE_S.add_exc_msg
2934: ( p_pkg_name => d_pkg_name,
2935: p_procedure_name => d_api_name || '.' || d_position
2936: );
2937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2938: END apply_changes;
2939:
2940:
2941: -----------------------------------------------------------------------
2980: IF (PO_LOG.d_proc) THEN
2981: PO_LOG.proc_begin(d_module);
2982: END IF;
2983:
2984: IF (p_draft_info.new_document = FND_API.G_TRUE) THEN
2985: RETURN;
2986: END IF;
2987:
2988: SELECT PH.revision_num
2991: WHERE PH.po_header_id = p_draft_info.po_header_id;
2992:
2993: d_position := 10;
2994: -- determine which level(s) do we need to check for revision change
2995: IF (p_draft_info.headers_changed = FND_API.G_TRUE
2996: OR p_draft_info.ga_org_assign_changed = FND_API.G_TRUE) THEN
2997:
2998: l_index := l_index +1;
2999: l_rev_check_level_tbl(l_index) := 'HEADER';
2992:
2993: d_position := 10;
2994: -- determine which level(s) do we need to check for revision change
2995: IF (p_draft_info.headers_changed = FND_API.G_TRUE
2996: OR p_draft_info.ga_org_assign_changed = FND_API.G_TRUE) THEN
2997:
2998: l_index := l_index +1;
2999: l_rev_check_level_tbl(l_index) := 'HEADER';
3000: END IF;
2999: l_rev_check_level_tbl(l_index) := 'HEADER';
3000: END IF;
3001:
3002: d_position := 20;
3003: IF (p_draft_info.lines_changed = FND_API.G_TRUE) THEN
3004: l_index := l_index +1;
3005: l_rev_check_level_tbl(l_index) := 'LINES';
3006: END IF;
3007:
3005: l_rev_check_level_tbl(l_index) := 'LINES';
3006: END IF;
3007:
3008: d_position := 30;
3009: IF (p_draft_info.line_locations_changed = FND_API.G_TRUE) THEN
3010: l_index := l_index +1;
3011: l_rev_check_level_tbl(l_index) := 'SHIPMENTS';
3012: END IF;
3013:
3011: l_rev_check_level_tbl(l_index) := 'SHIPMENTS';
3012: END IF;
3013:
3014: d_position := 40;
3015: IF (p_draft_info.distributions_changed = FND_API.G_TRUE) THEN
3016: l_index := l_index +1;
3017: l_rev_check_level_tbl(l_index) := 'DISTRIBUTIONS';
3018: END IF;
3019:
3017: l_rev_check_level_tbl(l_index) := 'DISTRIBUTIONS';
3018: END IF;
3019:
3020: d_position := 50;
3021: IF (p_draft_info.price_diff_changed = FND_API.G_TRUE) THEN
3022: l_index := l_index +1;
3023: l_rev_check_level_tbl(l_index) := 'PO_LINE_PRICE_DIFF';
3024:
3025: IF (p_draft_info.doc_subtype = 'BLANKET') THEN
3046: );
3047:
3048: d_position := 80;
3049: IF (l_return_status <> 'S') THEN
3050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3051: END IF;
3052:
3053: IF (l_orig_revision_num <> l_new_revision_num) THEN
3054: d_position := 90;
3072: PO_MESSAGE_S.add_exc_msg
3073: ( p_pkg_name => d_pkg_name,
3074: p_procedure_name => d_api_name || '.' || d_position
3075: );
3076: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3077: END set_new_revision;
3078:
3079:
3080: -----------------------------------------------------------------------
3092: --p_draft_info
3093: -- record structure that holds draft information
3094: --p_delete_draft
3095: -- flag to indicate whether draft changes should get removed from draft
3096: -- tables. Possible values are FND_API.G_TRUE, FND_API.G_FALSE, 'X'
3097: --IN OUT:
3098: --OUT:
3099: --Returns:
3100: --Notes:
3121:
3122: -- delete_draft = 'X' means that the PO_DRAFTS table should be
3123: -- excluded from deletion. We should just mark it as 'COMPLETED'
3124:
3125: IF (p_delete_draft = FND_API.G_FALSE OR
3126: p_delete_draft = 'X') THEN
3127:
3128: d_position := 10;
3129:
3133: );
3134:
3135: END IF;
3136:
3137: IF (p_delete_draft = FND_API.G_TRUE OR
3138: p_delete_draft = 'X') THEN
3139:
3140: IF (p_delete_draft = FND_API.G_TRUE) THEN
3141: l_exclude_ctrl_tbl := FND_API.G_FALSE;
3136:
3137: IF (p_delete_draft = FND_API.G_TRUE OR
3138: p_delete_draft = 'X') THEN
3139:
3140: IF (p_delete_draft = FND_API.G_TRUE) THEN
3141: l_exclude_ctrl_tbl := FND_API.G_FALSE;
3142: ELSIF (p_delete_draft = 'X') THEN
3143: l_exclude_ctrl_tbl := FND_API.G_TRUE;
3144: END IF;
3137: IF (p_delete_draft = FND_API.G_TRUE OR
3138: p_delete_draft = 'X') THEN
3139:
3140: IF (p_delete_draft = FND_API.G_TRUE) THEN
3141: l_exclude_ctrl_tbl := FND_API.G_FALSE;
3142: ELSIF (p_delete_draft = 'X') THEN
3143: l_exclude_ctrl_tbl := FND_API.G_TRUE;
3144: END IF;
3145:
3139:
3140: IF (p_delete_draft = FND_API.G_TRUE) THEN
3141: l_exclude_ctrl_tbl := FND_API.G_FALSE;
3142: ELSIF (p_delete_draft = 'X') THEN
3143: l_exclude_ctrl_tbl := FND_API.G_TRUE;
3144: END IF;
3145:
3146: d_position := 20;
3147: remove_draft_changes
3149: p_exclude_ctrl_tbl => l_exclude_ctrl_tbl,
3150: x_return_status => l_return_status
3151: );
3152:
3153: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3155: END IF;
3156: END IF;
3157:
3150: x_return_status => l_return_status
3151: );
3152:
3153: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3155: END IF;
3156: END IF;
3157:
3158: d_position := 30;
3164: PO_MESSAGE_S.add_exc_msg
3165: ( p_pkg_name => d_pkg_name,
3166: p_procedure_name => d_api_name || '.' || d_position
3167: );
3168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3169: END complete_transfer;
3170:
3171:
3172: -----------------------------------------------------------------------
3286: PO_MESSAGE_S.add_exc_msg
3287: ( p_pkg_name => d_pkg_name,
3288: p_procedure_name => d_api_name || '.' || d_position
3289: );
3290: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3291: END update_acceptance_status;
3292:
3293: END PO_DRAFTS_PVT;