1: PACKAGE BODY GML_SYNCH_BPOS AS
2: /* $Header: GMLPBPOB.pls 115.12 2002/12/04 19:05:25 gmangari ship $ */
3:
4: /*----------------------------------------------------------------------------+
5: | |
455: FETCH terms_code_cur
456: INTO v_terms_code;
457: CLOSE terms_code_cur;
458:
459: IF NOT GML_SYNCH_BPOS.bpo_exist(int_rec.po_no) THEN
460: BEGIN
461: GML_SYNCH_BPOS.next_bpo_id(v_new_bpo_id, int_rec.orgn_code,
462: v_next_id_status);
463: IF v_next_id_status=FALSE THEN
457: CLOSE terms_code_cur;
458:
459: IF NOT GML_SYNCH_BPOS.bpo_exist(int_rec.po_no) THEN
460: BEGIN
461: GML_SYNCH_BPOS.next_bpo_id(v_new_bpo_id, int_rec.orgn_code,
462: v_next_id_status);
463: IF v_next_id_status=FALSE THEN
464: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
465: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error getting next bpo_id');
602: ELSE
603: v_order2 := 0;
604: END IF;
605:
606: IF NOT GML_SYNCH_BPOS.bpo_line_exist
607: ( int_rec.po_header_id,
608: int_rec.po_line_id,
609: int_rec.po_line_location_id) THEN
610:
628: instead.
629: */
630:
631: /*
632: v_bpo_line_no := GML_SYNCH_BPOS.get_bpo_line_no(v_bpo_id) + 1;
633: */
634: v_bpo_line_no := GML_SYNCH_BPOS.get_bpo_line_no(v_bpo_id,int_rec.po_header_id,int_rec.po_line_id);
635:
636:
630:
631: /*
632: v_bpo_line_no := GML_SYNCH_BPOS.get_bpo_line_no(v_bpo_id) + 1;
633: */
634: v_bpo_line_no := GML_SYNCH_BPOS.get_bpo_line_no(v_bpo_id,int_rec.po_header_id,int_rec.po_line_id);
635:
636:
637: /* T.Ricci 5/12/98 removed user_class and added new who columns*/
638:
1010:
1011: END cpg_bint2gms ;
1012:
1013:
1014: END GML_SYNCH_BPOS;