[Home] [Help]
2998: BEGIN
2999: IF l_debug_level > 0 THEN
3000: oe_debug_pub.add( 'ENTERING INSERT_LINE ( ) PROCEDURE' , 1 ) ;
3001: END IF;
3002: INSERT INTO RA_INTERFACE_LINES_ALL
3003: (CREATED_BY
3004: ,CREATION_DATE
3005: ,LAST_UPDATED_BY
3006: ,LAST_UPDATE_DATE
3573: AND p_interface_line_rec.promised_commitment_amount IS NOT NULL THEN
3574: IF l_debug_level > 0 THEN
3575: oe_debug_pub.add( 'BUILD UPDATE STATEMENT WITH PROMISED COMMITMENT AMOUNT' , 1 ) ;
3576: END IF;
3577: update_sql_stmt := 'UPDATE RA_INTERFACE_LINES_ALL
3578: SET PROMISED_COMMITMENT_AMOUNT = :1
3579: WHERE ROWID = :r1';
3580: IF l_debug_level > 0 THEN
3581: oe_debug_pub.add( 'EXECUTING UPDATE STMT FOR PROMISED_COMMITMENT_AMOUNT' , 1 ) ;
3589: IF p_interface_line_rec.payment_set_id IS NOT NULL THEN
3590: IF l_debug_level > 0 THEN
3591: oe_debug_pub.add( 'BUILD UPDATE STATEMENT WITH PAYMENT_SET_ID' , 1 ) ;
3592: END IF;
3593: update_sql_stmt1 := 'UPDATE RA_INTERFACE_LINES_ALL
3594: SET PAYMENT_SET_ID = :2
3595: WHERE ROWID = :r2';
3596: IF l_debug_level > 0 THEN
3597: oe_debug_pub.add( 'EXECUTING UPDATE STMT FOR PAYMENT_SET_ID: '||P_INTERFACE_LINE_REC.PAYMENT_SET_ID , 1 ) ;
3607: oe_debug_pub.add( 'EXIT INSERT_LINE ( ) PROCEDURE' , 1 ) ;
3608: END IF;
3609: EXCEPTION
3610: WHEN OTHERS THEN
3611: err_msg := 'Error while inserting to RA_INTERFACE_LINES_ALL :\n '|| SQLERRM;
3612: IF l_debug_level > 0 THEN
3613: oe_debug_pub.add( ERR_MSG || ' SQLCODE: '||TO_CHAR ( SQLCODE ) , 1 ) ;
3614: END IF;
3615: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5772: ,p_x_charges_rec => l_charges_rec);
5773:
5774: SELECT nvl(max(interface_line_attribute5),0) --Bug 3338492
5775: INTO l_count1
5776: FROM ra_interface_lines_all
5777: WHERE interface_line_context = 'ORDER ENTRY'
5778: AND interface_line_attribute1 = l_charges_rec.INTERFACE_LINE_ATTRIBUTE1
5779: AND interface_line_attribute2 = l_charges_rec.INTERFACE_LINE_ATTRIBUTE2
5780: AND interface_line_attribute6 = l_charges_rec.INTERFACE_LINE_ATTRIBUTE6
6345: oe_debug_pub.add( 'THIS LINE WAS INTERFACED ATLEAST ONCE BEFORE' , 5 ) ;
6346: END IF;
6347: SELECT count(*)
6348: INTO l_count1
6349: FROM ra_interface_lines_all
6350: WHERE interface_line_context = 'ORDER ENTRY'
6351: AND interface_line_attribute1 = p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE1
6352: AND interface_line_attribute2 = p_x_interface_line_rec.INTERFACE_LINE_ATTRIBUTE2
6353: AND interface_line_attribute6= to_char(p_line_rec.line_id)
8205: oe_debug_pub.add( 'ENTER UPDATE_NUMBERS ( ) PROCEDURE' , 5 ) ;
8206: END IF;
8207: SELECT count(*)
8208: INTO l_count
8209: FROM ra_interface_lines_all
8210: WHERE request_id = -1 * p_id;
8211:
8212: IF l_count = 0 THEN
8213: IF l_debug_level > 0 THEN
8239: oe_debug_pub.add( 'POSITION 2-1' ) ;
8240: END IF;
8241: grp_stmt := 'Select ' || select_col || ' group_cols,' ||
8242: ' l.interface_line_attribute3, ROWID ' ||
8243: ' From RA_INTERFACE_LINES_ALL L' ||
8244: ' Where trx_number is NULL' ||
8245: ' And request_id = :p' ||
8246: ' Order by ' || group_col_clause ||
8247: ' , l.interface_line_attribute3, l.org_id' ;
8302: END IF;
8303: IF l_debug_level > 0 THEN
8304: oe_debug_pub.add( 'TRANSACTION NUMBER IS : '|| INV_NUM , 5 ) ;
8305: END IF;
8306: Update RA_INTERFACE_LINES_ALL
8307: set trx_number = substr(inv_num,1,20) -- substr(inv_num,20)--inv_num --bug#7592350 -- Bug 8216166
8308: where rowid = chartorowid(this_rowid);
8309: END LOOP;
8310: CLOSE del_cursor;
8310: CLOSE del_cursor;
8311: IF l_debug_level > 0 THEN
8312: oe_debug_pub.add( 'SETTING REQUEST ID TO NULL' , 5 ) ;
8313: END IF;
8314: update ra_interface_lines_all
8315: set request_id=null
8316: where request_id = -1 * p_id;
8317: x_return_status := FND_API.G_RET_STS_SUCCESS;
8318: IF l_debug_level > 0 THEN