319: l_rejected_flag NUMBER:=0;
320: l_po_number po_headers_interface.document_num%type;
321: l_release_num po_headers_interface.release_num%type:=NULL;
322: l_revision_num po_headers_interface.revision_num%type;
323: l_line_num po_lines_interface.line_num%type:=NULL;
324: CURSOR l_csr_lines
325: (
326: p_interface_header_id NUMBER,p_process_code VARCHAR2
327: )
333: unit_price,
334: promised_date,
335: need_by_date,
336: organization_id
337: FROM po_lines_interface
338: WHERE interface_header_id=p_interface_header_id
339: AND process_code =p_process_code
340: ORDER BY line_num FOR UPDATE OF po_lines_interface.process_code;
341:
336: organization_id
337: FROM po_lines_interface
338: WHERE interface_header_id=p_interface_header_id
339: AND process_code =p_process_code
340: ORDER BY line_num FOR UPDATE OF po_lines_interface.process_code;
341:
342: type po_lines_rec
343: IS
344: record
342: type po_lines_rec
343: IS
344: record
345: (
346: interface_line_id po_lines_interface.interface_line_id%type,
347: line_num po_lines_interface.line_num%type,
348: shipment_num po_lines_interface.shipment_num%type,
349: quantity po_lines_interface.quantity%type,
350: unit_price po_lines_interface.unit_price%type,
343: IS
344: record
345: (
346: interface_line_id po_lines_interface.interface_line_id%type,
347: line_num po_lines_interface.line_num%type,
348: shipment_num po_lines_interface.shipment_num%type,
349: quantity po_lines_interface.quantity%type,
350: unit_price po_lines_interface.unit_price%type,
351: promised_date po_lines_interface.promised_date%type,
344: record
345: (
346: interface_line_id po_lines_interface.interface_line_id%type,
347: line_num po_lines_interface.line_num%type,
348: shipment_num po_lines_interface.shipment_num%type,
349: quantity po_lines_interface.quantity%type,
350: unit_price po_lines_interface.unit_price%type,
351: promised_date po_lines_interface.promised_date%type,
352: need_by_date po_lines_interface.need_by_date%type,
345: (
346: interface_line_id po_lines_interface.interface_line_id%type,
347: line_num po_lines_interface.line_num%type,
348: shipment_num po_lines_interface.shipment_num%type,
349: quantity po_lines_interface.quantity%type,
350: unit_price po_lines_interface.unit_price%type,
351: promised_date po_lines_interface.promised_date%type,
352: need_by_date po_lines_interface.need_by_date%type,
353: organization_id po_lines_interface.organization_id%type );
346: interface_line_id po_lines_interface.interface_line_id%type,
347: line_num po_lines_interface.line_num%type,
348: shipment_num po_lines_interface.shipment_num%type,
349: quantity po_lines_interface.quantity%type,
350: unit_price po_lines_interface.unit_price%type,
351: promised_date po_lines_interface.promised_date%type,
352: need_by_date po_lines_interface.need_by_date%type,
353: organization_id po_lines_interface.organization_id%type );
354: l_po_lines_rec po_lines_rec;
347: line_num po_lines_interface.line_num%type,
348: shipment_num po_lines_interface.shipment_num%type,
349: quantity po_lines_interface.quantity%type,
350: unit_price po_lines_interface.unit_price%type,
351: promised_date po_lines_interface.promised_date%type,
352: need_by_date po_lines_interface.need_by_date%type,
353: organization_id po_lines_interface.organization_id%type );
354: l_po_lines_rec po_lines_rec;
355: L_LAUNCH_APPROVALS_FLAG VARCHAR2(1):='N';
348: shipment_num po_lines_interface.shipment_num%type,
349: quantity po_lines_interface.quantity%type,
350: unit_price po_lines_interface.unit_price%type,
351: promised_date po_lines_interface.promised_date%type,
352: need_by_date po_lines_interface.need_by_date%type,
353: organization_id po_lines_interface.organization_id%type );
354: l_po_lines_rec po_lines_rec;
355: L_LAUNCH_APPROVALS_FLAG VARCHAR2(1):='N';
356: po_process_inbound EXCEPTION;
349: quantity po_lines_interface.quantity%type,
350: unit_price po_lines_interface.unit_price%type,
351: promised_date po_lines_interface.promised_date%type,
352: need_by_date po_lines_interface.need_by_date%type,
353: organization_id po_lines_interface.organization_id%type );
354: l_po_lines_rec po_lines_rec;
355: L_LAUNCH_APPROVALS_FLAG VARCHAR2(1):='N';
356: po_process_inbound EXCEPTION;
357: BEGIN
404: END IF;
405: BEGIN
406: SELECT COUNT(1)
407: INTO l_rec_count
408: FROM po_lines_interface
409: WHERE interface_header_id= l_interface_header_id
410: AND process_code IS NULL;
411: EXCEPTION
412: WHEN OTHERS THEN
421: IF l_po_number IS NOT NULL THEN
422: BEGIN
423: SELECT COUNT(1)
424: INTO l_rec_upd_count
425: FROM po_lines_interface
426: WHERE interface_header_id= l_interface_header_id
427: AND process_code ='UPDATE';
428: EXCEPTION
429: WHEN OTHERS THEN
437: END IF;
438: BEGIN
439: SELECT COUNT(1)
440: INTO l_rec_can_count
441: FROM po_lines_interface
442: WHERE interface_header_id= l_interface_header_id
443: AND process_code ='CANCEL';
444: EXCEPTION
445: WHEN OTHERS THEN
495: P_secondary_quantity =>NULL,
496: P_preferred_grade =>NULL,
497: P_org_id =>l_po_lines_rec.organization_id );
498: IF l_result_lines<>1 THEN
499: UPDATE po_lines_interface
500: SET process_code = 'REJECTED'
501: WHERE CURRENT OF l_csr_lines;
502:
503: log_err_msg (x_msg, p_userid, p_applid , p_respid,l_argument8, l_interface_header_id, l_po_lines_rec.interface_line_id);
540: p_secondary_quantity =>NULL,
541: p_preferred_grade =>NULL,
542: p_org_id =>l_po_lines_rec.organization_id );
543: IF l_result=1 THEN
544: UPDATE po_lines_interface
545: SET process_code = 'ACCEPTED'
546: WHERE CURRENT OF l_csr_lines;
547: ELSE
548: UPDATE po_lines_interface
544: UPDATE po_lines_interface
545: SET process_code = 'ACCEPTED'
546: WHERE CURRENT OF l_csr_lines;
547: ELSE
548: UPDATE po_lines_interface
549: SET process_code = 'REJECTED'
550: WHERE CURRENT OF l_csr_lines;
551:
552: log_err_msg ( x_msg, p_userid, p_applid , p_respid,l_argument8, l_interface_header_id, l_po_lines_rec.interface_line_id);
601: l_note_to_vendor =>NULL,
602: l_use_gldate =>NULL,
603: l_org_id =>l_po_lines_rec.organization_id );
604: IF x_return_status=FND_API.g_ret_sts_success THEN
605: UPDATE po_lines_interface
606: SET process_code = 'ACCEPTED'
607: WHERE CURRENT OF l_csr_lines;
608: ELSE
609: UPDATE po_lines_interface
605: UPDATE po_lines_interface
606: SET process_code = 'ACCEPTED'
607: WHERE CURRENT OF l_csr_lines;
608: ELSE
609: UPDATE po_lines_interface
610: SET process_code = 'REJECTED'
611: WHERE CURRENT OF l_csr_lines;
612:
613: l_rejected_flag:=1;
660: DELETE
661: FROM po_distributions_interface
662: WHERE interface_line_id IN
663: (SELECT interface_line_id
664: FROM po_lines_interface
665: WHERE interface_header_id =l_interface_header_id
666: AND process_code ='ACCEPTED'
667: );
668: DELETE
665: WHERE interface_header_id =l_interface_header_id
666: AND process_code ='ACCEPTED'
667: );
668: DELETE
669: FROM po_lines_interface
670: WHERE interface_header_id =l_interface_header_id
671: AND process_code ='ACCEPTED';
672: IF l_rec_count =0 THEN
673: SELECT COUNT(*)
671: AND process_code ='ACCEPTED';
672: IF l_rec_count =0 THEN
673: SELECT COUNT(*)
674: INTO l_lns_count
675: FROM po_lines_interface
676: WHERE interface_header_id =l_interface_header_id;
677: IF l_lns_count =0 THEN
678: DELETE
679: FROM po_headers_interface