[Home] [Help]
37: begin
38:
39: x_progress := 'PO_WF_PO_CHARGE_ACC.check_destination_type: 01';
40: IF (g_po_wf_debug = 'Y') THEN
41: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
42: END IF;
43:
44:
45: -- Do nothing in cancel or timeout mode
127: begin
128:
129: x_debug_stmt := 'PO_WF_PO_CHARGE_ACC.inventory: 01' || x_progress;
130: IF (g_po_wf_debug = 'Y') THEN
131: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_debug_stmt);
132: END IF;
133:
134:
135: -- Do nothing in cancel or timeout mode
163: End DEBUG */
164:
165: x_debug_stmt := 'PO_WF_PO_CHARGE_ACC.inventory: dest sub inv :' || x_dest_sub_inv;
166: IF (g_po_wf_debug = 'Y') THEN
167: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_debug_stmt);
168: END IF;
169:
170: /* Start DEBUG
171: If (debug_acc_generator_wf) then
174: End DEBUG */
175:
176: x_debug_stmt := 'PO_WF_PO_CHARGE_ACC.inventory: inv item type :' || x_inv_item_type;
177: IF (g_po_wf_debug = 'Y') THEN
178: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_debug_stmt);
179: END IF;
180:
181: x_inv_item_type := check_inv_item_type (itemtype, itemkey, x_dest_org_id, x_item_id);
182:
415: EXCEPTION
416: WHEN OTHERS THEN
417: -- Bug 3433867: Enhanced exception handling for this function
418: IF (g_po_wf_debug = 'Y') THEN
419: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
420: 'PO_WF_PO_CHARGE_ACC.check_inv_item_type EXCEPTION at '||x_progress
421: ||': '||SQLERRM);
422: END IF;
423: wf_core.context('PO_WF_PO_CHARGE_ACC','check_inv_item_type',x_progress);
486: begin
487:
488: x_progress := 'PO_WF_PO_CHARGE_ACC.expense: 01';
489: IF (g_po_wf_debug = 'Y') THEN
490: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
491: END IF;
492:
493:
494: -- Do nothing in cancel or timeout mode
574: if (success = 'N') then
575: result := 'COMPLETE:FAILURE';
576:
577: IF (g_po_wf_debug = 'Y') THEN
578: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
579: 'PO_WF_PO_CHARGE_ACC.expense result='||result);
580: END IF;
581:
582: return;
593: fnd_message.clear;
594: RETURN;
595:
596: IF (g_po_wf_debug = 'Y') THEN
597: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
598: 'PO_WF_PO_CHARGE_ACC.expense x_expense_acc='||x_expense_acc);
599: END IF;
600:
601: EXCEPTION
628: begin
629:
630: x_progress := 'PO_WF_PO_CHARGE_ACC.check_type_of_wip: 01';
631: IF (g_po_wf_debug = 'Y') THEN
632: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
633: END IF;
634:
635:
636: -- Do nothing in cancel or timeout mode
697: begin
698:
699: x_progress := 'PO_WF_PO_CHARGE_ACC.job_wip: 01';
700: IF (g_po_wf_debug = 'Y') THEN
701: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
702: END IF;
703:
704: -- Do nothing in cancel or timeout mode
705: --
749: 'l_category_id' || to_char(l_category_id);
750: --
751:
752: IF (g_po_wf_debug = 'Y') THEN
753: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
754: END IF;
755:
756: --Bug# 1902716 togeorge 07/25/2001
757: --EAM: if entity type in(6,7) get the eam account. This call is
908: END IF;
909:
910: x_progress := 'WIP_JOB_ACCOUNT is :' || to_char(x_wip_job_account);
911: IF (g_po_wf_debug = 'Y') THEN
912: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
913: END IF;
914:
915: if (x_wip_job_account IS NOT NULL) then
916:
928: EXCEPTION
929: WHEN OTHERS THEN
930: wf_core.context('PO_WF_PO_CHARGE_ACC','job_wip',x_progress);
931: IF (g_po_wf_debug = 'Y') THEN
932: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey, 'EXCEPTION IN PO_WF_PO_CHARGE_ACC.JOB_WIP');
933: END IF;
934: raise;
935:
936: end job_wip;
956: begin
957:
958: x_progress := 'PO_WF_PO_CHARGE_ACC.schedule: 01';
959: IF (g_po_wf_debug = 'Y') THEN
960: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
961: END IF;
962:
963:
964: -- Do nothing in cancel or timeout mode
1006: 'wip_entity_type' || x_wip_entity_type || 'wip_repetitive_schedule_id' ||
1007: to_char(x_wip_repetitive_schedule_id);
1008:
1009: IF (g_po_wf_debug = 'Y') THEN
1010: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
1011: END IF;
1012:
1013:
1014: IF (x_wip_schedule_account IS NULL) THEN
1107: END IF;
1108:
1109: x_progress := 'WIP_JOB_ACCOUNT is :' || to_char(x_wip_schedule_account);
1110: IF (g_po_wf_debug = 'Y') THEN
1111: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
1112: END IF;
1113:
1114: if (x_wip_schedule_account IS NOT NULL) then
1115:
1127: EXCEPTION
1128: WHEN OTHERS THEN
1129: wf_core.context('PO_WF_PO_CHARGE_ACC','schedule',x_progress);
1130: IF (g_po_wf_debug = 'Y') THEN
1131: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey, 'EXCEPTION IN PO_WF_PO_CHARGE_ACC.SCHEDULE');
1132: END IF;
1133: raise;
1134:
1135: end schedule;
1158: begin
1159:
1160: x_progress := 'PO_WF_PO_CHARGE_ACC.is_encumbrance_on: 01';
1161: IF (g_po_wf_debug = 'Y') THEN
1162: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
1163: END IF;
1164:
1165:
1166: -- Do nothing in cancel or timeout mode
1196: -- get NULL for these attribute values for requisition case. Set them to 'N'.
1197: -- We do not want to compare the item_type to 'POWFRQAG' (i.e. seeded Req AG WF)
1198: -- because the item_types are not hard-coded and customers may change them.
1199: IF (g_po_wf_debug = 'Y') THEN
1200: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,'po_encumbrance_flag='||po_encumbrance_flag||', x_destination_type='||x_destination_type||', l_is_financing_flag='||l_is_financing_flag||', l_is_advance_flag='||l_is_advance_flag);
1201:
1202: -- DEBUG QUERIES: Start
1203: -- As part of bug 5058123, there was another issue related to MOAC setup
1204: -- of MO: Security Profile. The value of PO_ENCUMBRANCE_FLAG was NULL.
1209: -- I suspect that the values loaded in PO_STARTUP_VALUES are NULL in
1210: -- PO_CORE_S.get_po_parameters() [POXCOC1B.pls]. The following queries should
1211: -- get us moe information.
1212: -- Remove this DEBUG QUERIES block, once the MOAC issue is completely fixed.
1213: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,'org_id from PO_MOAC='||PO_MOAC_UTILS_PVT.get_current_org_id||', org_id from PO_GA_PVT='||PO_GA_PVT.get_current_org );
1214: -- Query from: PO_CORE_S.get_po_parameters() [POXCOC1B.pls].
1215: SELECT nvl(fsp.purch_encumbrance_flag,'N'),
1216: nvl(fsp.req_encumbrance_flag,'N')
1217: INTO l_purch_encumbrance_flag,
1222: rcv_parameters rcv
1223: WHERE fsp.set_of_books_id = sob.set_of_books_id
1224: AND rcv.organization_id (+) = fsp.inventory_organization_id;
1225:
1226: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,'PO_CORE_S: l_purch_encumbrance_flag='||l_purch_encumbrance_flag||', l_req_encumbrance_flag='||l_req_encumbrance_flag);
1227:
1228: SELECT purch_encumbrance_flag,
1229: req_encumbrance_flag
1230: INTO l_purch_encumbrance_flag,
1230: INTO l_purch_encumbrance_flag,
1231: l_req_encumbrance_flag
1232: FROM FINANCIALS_SYSTEM_PARAMETERS; -- view
1233:
1234: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,'View: l_purch_encumbrance_flag='||l_purch_encumbrance_flag||', l_req_encumbrance_flag='||l_req_encumbrance_flag);
1235:
1236: SELECT purch_encumbrance_flag,
1237: req_encumbrance_flag
1238: INTO l_purch_encumbrance_flag,
1239: l_req_encumbrance_flag
1240: FROM FINANCIALS_SYSTEM_PARAMS_ALL -- table
1241: WHERE org_id = PO_MOAC_UTILS_PVT.get_current_org_id;
1242:
1243: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,'Table: MOAC: l_purch_encumbrance_flag='||l_purch_encumbrance_flag||', l_req_encumbrance_flag='||l_req_encumbrance_flag);
1244:
1245: SELECT purch_encumbrance_flag,
1246: req_encumbrance_flag
1247: INTO l_purch_encumbrance_flag,
1248: l_req_encumbrance_flag
1249: FROM FINANCIALS_SYSTEM_PARAMS_ALL -- table
1250: WHERE org_id = PO_GA_PVT.get_current_org;
1251:
1252: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,'Table: PO_GA_PVT: l_purch_encumbrance_flag='||l_purch_encumbrance_flag||', l_req_encumbrance_flag='||l_req_encumbrance_flag);
1253: -- DEBUG QUERIES: End
1254: END IF;
1255:
1256: IF (l_is_financing_flag IS NULL) THEN
1261: l_is_advance_flag := 'N';
1262: END IF;
1263:
1264: IF (g_po_wf_debug = 'Y') THEN
1265: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,'After: l_is_financing_flag='||l_is_financing_flag||', l_is_advance_flag='||l_is_advance_flag);
1266: END IF;
1267: -- Bug 5058123: End
1268:
1269: /* For Encumbrance Project - To enable Encumbrance for Destination type Shop Floor and WIP entity type EAM */
1282: end if;
1283:
1284: x_progress := 'PO_WF_PO_CHARGE_ACC.is_encumbrance_on: result = ' || result;
1285: IF (g_po_wf_debug = 'Y') THEN
1286: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
1287: END IF;
1288:
1289: return;
1290:
1418: result := WF_ENGINE.eng_completed || ':Y';
1419: END IF;
1420:
1421: IF (g_po_wf_debug = 'Y') THEN
1422: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
1423: 'PO_WF_PO_CHARGE_ACC.is_dest_accounts_flow_type result='||result);
1424: END IF;
1425: EXCEPTION
1426: WHEN OTHERS THEN
1479: result := WF_ENGINE.eng_completed || ':' || l_is_SPS_distribution;
1480: END IF;
1481:
1482: IF (g_po_wf_debug = 'Y') THEN
1483: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
1484: 'PO_WF_PO_CHARGE_ACC.is_SPS_distribution result='||result);
1485: END IF;
1486: EXCEPTION
1487: WHEN OTHERS THEN
1773: itemkey => p_itemkey,
1774: aname => 'PURCHASING_OU_ID');
1775:
1776: IF (l_temp_ou_id <> l_purchasing_ou_id) THEN
1777: PO_WF_DEBUG_PKG.insert_debug(p_itemtype, p_itemkey,
1778: 'LINV does not belong to POU');
1779: END IF;
1780: EXCEPTION
1781: WHEN OTHERS THEN
1779: END IF;
1780: EXCEPTION
1781: WHEN OTHERS THEN
1782: -- record and ignore the exception, this is just debug code.
1783: PO_WF_DEBUG_PKG.insert_debug(p_itemtype, p_itemkey,
1784: 'Exception while sanity checking LINV');
1785: END;
1786: END IF; -- IF (g_po_wf_debug = 'Y'), sanity check for LINV
1787: END sanity_check_logical_inv_org;
1923:
1924: l_progress := '160';
1925:
1926: IF (g_po_wf_debug = 'Y') THEN
1927: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
1928: 'PO_WF_PO_CHARGE_ACC.get_SPS_charge_account result='||result);
1929: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
1930: 'PO_WF_PO_CHARGE_ACC.get_SPS_charge_account l_SPS_charge_account_id='||
1931: l_SPS_charge_account_id);
1925:
1926: IF (g_po_wf_debug = 'Y') THEN
1927: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
1928: 'PO_WF_PO_CHARGE_ACC.get_SPS_charge_account result='||result);
1929: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
1930: 'PO_WF_PO_CHARGE_ACC.get_SPS_charge_account l_SPS_charge_account_id='||
1931: l_SPS_charge_account_id);
1932: END IF;
1933: EXCEPTION
1932: END IF;
1933: EXCEPTION
1934: WHEN OTHERS THEN
1935: IF (g_po_wf_debug = 'Y') THEN
1936: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
1937: 'PO_WF_PO_CHARGE_ACC.get_SPS_charge_account EXCEPTION at '|| l_progress);
1938: END IF;
1939: WF_CORE.context('PO_WF_PO_CHARGE_ACC', 'get_SPS_charge_account', l_progress);
1940: RAISE;
2000: itemtype => itemtype,
2001: itemkey => itemkey,
2002: aname => 'TEMP_ACCOUNT_ID');
2003:
2004: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
2005: 'PO_WF_PO_CHARGE_ACC.is_dest_charge_acc_null '||
2006: 'Copying DestChargeAccId to TEMP_ACCOUNT_ID '||
2007: '(current val = ' || l_temp_acc_id || ') ' ||
2008: 'dest_charge_account_id='||l_dest_charge_account_id);
2019: result := WF_ENGINE.eng_completed || ':N';
2020: END IF;
2021:
2022: IF (g_po_wf_debug = 'Y') THEN
2023: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
2024: 'PO_WF_PO_CHARGE_ACC.is_dest_charge_acc_null result='||result||
2025: ' l_dest_charge_account_id='||l_dest_charge_account_id);
2026: END IF;
2027:
2111: result := WF_ENGINE.eng_completed || ':Y';
2112: END IF;
2113:
2114: IF (g_po_wf_debug = 'Y') THEN
2115: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
2116: 'PO_WF_PO_CHARGE_ACC.are_COAs_same result='||result);
2117: END IF;
2118: EXCEPTION
2119: WHEN OTHERS THEN
2162: aname =>'RESPONSIBILITY_ID',
2163: avalue => fnd_global.resp_id);
2164: l_progress := '020';
2165: IF (g_po_wf_debug = 'Y') THEN
2166: PO_WF_DEBUG_PKG.insert_debug(itemtype,
2167: itemkey,
2168: 'PO_WF_PO_CHARGE_ACC.set_null_resp_id: Setting the Responsibility to NULL ');
2169: END IF;
2170: FND_GLOBAL.apps_initialize( user_id => fnd_global.user_id,
2212: itemkey => itemkey,
2213: aname => 'RESPONSIBILITY_ID');
2214: l_progress := '020';
2215: IF (g_po_wf_debug = 'Y') THEN
2216: PO_WF_DEBUG_PKG.insert_debug(itemtype,
2217: itemkey,
2218: 'PO_WF_PO_CHARGE_ACC.reset_resp_id: Setting the Responsibility back to:' || l_resp_id);
2219: END IF;
2220: FND_GLOBAL.apps_initialize( user_id => fnd_global.user_id,
2295: itemkey => itemkey,
2296: aname => 'FND_FLEX_STATUS');
2297:
2298: IF (g_po_wf_debug = 'Y') THEN
2299: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
2300: 'PO_WF_PO_CHARGE_ACC.validate_combination: l_flex_status='
2301: ||l_flex_status);
2302: END IF;
2303:
2354: 'GL_GLOBAL\nDETAIL_POSTING_ALLOWED\nI\nNAME=PO_ALL_POSTING_NA\nY');
2355:
2356: IF (NOT l_is_combination_valid) THEN
2357: IF (g_po_wf_debug = 'Y') THEN
2358: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
2359: 'PO_WF_PO_CHARGE_ACC.validate_combination: l_is_combination_valid is false');
2360: END IF;
2361:
2362: wf_engine.setitemattrtext(itemtype,itemkey,'FND_FLEX_STATUS','INVALID');