[Home] [Help]
504:
505: BEGIN
506: SELECT TO_NUMBER(DECODE(SUBSTRB(USERENV('CLIENT_INFO'),1,1), ' ', NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10)))
507: INTO l_org_id
508: FROM dual;
509: po_moac_utils_pvt.set_org_context(l_org_id);
510: EXCEPTION
511: WHEN NO_DATA_FOUND THEN
512: RAISE NO_DATA_FOUND;
1059:
1060: -- Get unique requisition_header_id
1061: CURSOR req_header_id_cur IS
1062: SELECT po_requisition_headers_s.nextval
1063: FROM sys.dual;
1064:
1065: -- Get unique requisition_line_id
1066: CURSOR req_line_id_cur IS
1067: SELECT po_requisition_lines_s.nextval
1064:
1065: -- Get unique requisition_line_id
1066: CURSOR req_line_id_cur IS
1067: SELECT po_requisition_lines_s.nextval
1068: FROM sys.dual;
1069:
1070: -- Cursor to get unique Distribution_id
1071: CURSOR dist_line_id_cur IS
1072: SELECT po_req_distributions_s.nextval
1069:
1070: -- Cursor to get unique Distribution_id
1071: CURSOR dist_line_id_cur IS
1072: SELECT po_req_distributions_s.nextval
1073: FROM sys.dual;
1074:
1075: -- Cursor to get Accrual Account ID and Variance Account ID
1076: -- For Destination Type Code INVENTORY get accrual account id
1077: -- from MTL_PARAMETERS
1286: return;
1287: END IF;
1288:
1289: -- get all the values required to insert into po_requisition_header table
1290: SELECT Sysdate INTO l_today FROM dual;
1291: l_user_id := nvl(fnd_global.user_id, 0) ;
1292: l_login_id := nvl(fnd_global.login_id, -1);
1293:
1294: -- operating unit
1294: -- operating unit
1295: BEGIN
1296: SELECT TO_NUMBER(DECODE(SUBSTRB(USERENV('CLIENT_INFO'),1,1), ' ', NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10)))
1297: INTO l_org_id
1298: FROM dual;
1299: po_moac_utils_pvt.set_org_context(l_org_id);
1300:
1301: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1302: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1478: -- check for uniqueness of requisition_number
1479: BEGIN
1480:
1481: SELECT 1 INTO l_dummy
1482: FROM DUAL
1483: WHERE NOT EXISTS
1484: ( SELECT 1
1485: FROM po_requisition_headers
1486: WHERE Segment1 = l_header_rec.requisition_number)
1837: -- order_header_id
1838: IF l_header_rec.order_header_id IS NULL THEN
1839: select oe_order_headers_s.nextval
1840: into l_header_rec.order_header_id
1841: from dual;
1842: END IF;
1843:
1844: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1845: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2298:
2299: IF l_line_tbl(i).order_line_id IS NULL THEN
2300: select oe_order_lines_s.nextval
2301: into l_line_tbl(i).order_line_id
2302: from dual;
2303: END IF;
2304:
2305: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2306: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2886:
2887: -- Get unique requisition_header_id
2888: CURSOR req_header_id_cur IS
2889: SELECT po_requisition_headers_s.nextval
2890: FROM sys.dual;
2891:
2892: -- Get unique requisition_line_id
2893: CURSOR req_line_id_cur IS
2894: SELECT po_requisition_lines_s.nextval
2891:
2892: -- Get unique requisition_line_id
2893: CURSOR req_line_id_cur IS
2894: SELECT po_requisition_lines_s.nextval
2895: FROM sys.dual;
2896:
2897: -- Get preparer_id
2898: CURSOR employee_id_cur IS
2899: SELECT employee_id
2924: l_header_rec := px_header_rec;
2925: l_line_tbl := px_line_table;
2926:
2927: -- Get data for populating who columns
2928: SELECT Sysdate INTO l_today FROM dual;
2929: l_user_id := nvl(fnd_global.user_id, 0) ;
2930: l_login_id := nvl(fnd_global.login_id, -1);
2931:
2932: -- operating unit
2932: -- operating unit
2933: BEGIN
2934: SELECT TO_NUMBER(DECODE(SUBSTRB(USERENV('CLIENT_INFO'),1,1), ' ', NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10)))
2935: INTO l_org_id
2936: FROM dual;
2937: po_moac_utils_pvt.set_org_context(l_org_id);
2938: EXCEPTION
2939: WHEN NO_DATA_FOUND THEN
2940: null;
2968: -- check for uniqueness of requisition_number
2969: BEGIN
2970:
2971: SELECT 1 INTO l_dummy
2972: FROM DUAL
2973: WHERE NOT EXISTS
2974: ( SELECT 1
2975: FROM po_requisition_headers
2976: WHERE Segment1 = l_header_rec.requisition_number)