[Home] [Help]
8: | debugging utility |
9: +-----------------------------------------------------*/
10: procedure mdebug(msg in varchar2)
11: is
12: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
13: begin
14: --dbms_output.put_line(msg);
15: null;
16: end;
244: l_length NUMBER;
245: l_padded_length NUMBER;
246: l_obj_seq_num NUMBER;
247:
248: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
249: BEGIN
250: --
251: -- Standard start of API savepoint
252: SAVEPOINT InvQtyBetwn;
634: l_api_version constant number := 0.9;
635: l_api_name constant varchar2(30) := 'SNUniqueCheck';
636:
637: L_nothing VARCHAR2(10) ;
638: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
639: BEGIN
640: -- Standard start of API savepoint
641: SAVEPOINT SNUniqueCheck;
642: -- Standard Call to check for call compatibility
814: INDEX BY BINARY_INTEGER;
815: L_sn_mask L_mask_tab;
816: L_group NUMBER := 0;
817: --
818: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
819: BEGIN
820: -- initialize out variables
821: x_errorcode := 0;
822: x_to_status := 0;
934: L_current_organization_id NUMBER;
935: L_wip_entity_id NUMBER;
936: L_nothing VARCHAR2(10);
937: L_user_id NUMBER;
938: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
939: BEGIN
940: SAVEPOINT SNValidate;
941: -- Standard Call to check for call compatibility
942: IF NOT FND_API.Compatible_API_Call(l_api_version
1242: L_from_length NUMBER;
1243: L_to_length NUMBER;
1244: L_f_ser_num VARCHAR2(30);
1245: L_t_ser_num VARCHAR2(30);
1246: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1247: BEGIN
1248: x_errorcode := 0;
1249:
1250: L_f_ser_num := P_FROM_SERIAL_NUMBER;