369: ------------------------------------------
370: -- Dynamic Call
371: ------------------------------------------
372: -- Create the SQL statement
373: l_cursor := dbms_sql.open_cursor;
374: l_sqlstmt := 'BEGIN :validate_error := ' ||
375: 'JL_ZZ_AP_WITHHOLDING_PKG.Validate_Mult_BS_GateWay(:invo_id); END;';
376:
377: -- Parse the SQL statement
374: l_sqlstmt := 'BEGIN :validate_error := ' ||
375: 'JL_ZZ_AP_WITHHOLDING_PKG.Validate_Mult_BS_GateWay(:invo_id); END;';
376:
377: -- Parse the SQL statement
378: dbms_sql.parse (l_cursor, l_sqlstmt, dbms_sql.native);
379:
380: -- Define the variables
381: dbms_sql.bind_variable (l_cursor, 'validate_error', validate_error,200);
382: dbms_sql.bind_variable (l_cursor, 'invo_id', invo_id);
377: -- Parse the SQL statement
378: dbms_sql.parse (l_cursor, l_sqlstmt, dbms_sql.native);
379:
380: -- Define the variables
381: dbms_sql.bind_variable (l_cursor, 'validate_error', validate_error,200);
382: dbms_sql.bind_variable (l_cursor, 'invo_id', invo_id);
383:
384: -- Execute the SQL statement
385: l_ignore := dbms_sql.execute (l_cursor);
378: dbms_sql.parse (l_cursor, l_sqlstmt, dbms_sql.native);
379:
380: -- Define the variables
381: dbms_sql.bind_variable (l_cursor, 'validate_error', validate_error,200);
382: dbms_sql.bind_variable (l_cursor, 'invo_id', invo_id);
383:
384: -- Execute the SQL statement
385: l_ignore := dbms_sql.execute (l_cursor);
386:
381: dbms_sql.bind_variable (l_cursor, 'validate_error', validate_error,200);
382: dbms_sql.bind_variable (l_cursor, 'invo_id', invo_id);
383:
384: -- Execute the SQL statement
385: l_ignore := dbms_sql.execute (l_cursor);
386:
387: -- Get the return value (success)
388: dbms_sql.variable_value (l_cursor, 'validate_error', validate_error);
389:
384: -- Execute the SQL statement
385: l_ignore := dbms_sql.execute (l_cursor);
386:
387: -- Get the return value (success)
388: dbms_sql.variable_value (l_cursor, 'validate_error', validate_error);
389:
390: -- Close the cursor
391: dbms_sql.close_cursor (l_cursor);
392:
387: -- Get the return value (success)
388: dbms_sql.variable_value (l_cursor, 'validate_error', validate_error);
389:
390: -- Close the cursor
391: dbms_sql.close_cursor (l_cursor);
392:
393: EXCEPTION
394: WHEN others THEN
395: IF (dbms_sql.is_open(l_cursor)) THEN
391: dbms_sql.close_cursor (l_cursor);
392:
393: EXCEPTION
394: WHEN others THEN
395: IF (dbms_sql.is_open(l_cursor)) THEN
396: dbms_sql.close_cursor(l_cursor);
397: END IF;
398: End;
399: -- Validate Mul BS by distribution lines.
392:
393: EXCEPTION
394: WHEN others THEN
395: IF (dbms_sql.is_open(l_cursor)) THEN
396: dbms_sql.close_cursor(l_cursor);
397: END IF;
398: End;
399: -- Validate Mul BS by distribution lines.
400: IF (validate_error = 'Error') THEN
761: ------------------------------------------
762: -- Dynamic Call
763: ------------------------------------------
764: -- Create the SQL statement
765: l_cursor := dbms_sql.open_cursor;
766: l_sqlstmt := 'BEGIN :validate_error := ' ||
767: 'JL_ZZ_AP_WITHHOLDING_PKG.Validate_Mult_BS_GateWay(:p_parent_id); END;';
768:
769: -- Parse the SQL statement
766: l_sqlstmt := 'BEGIN :validate_error := ' ||
767: 'JL_ZZ_AP_WITHHOLDING_PKG.Validate_Mult_BS_GateWay(:p_parent_id); END;';
768:
769: -- Parse the SQL statement
770: dbms_sql.parse (l_cursor, l_sqlstmt, dbms_sql.native);
771:
772: -- Define the variables
773: dbms_sql.bind_variable (l_cursor, 'validate_error', validate_error,200);
774: dbms_sql.bind_variable (l_cursor, 'p_parent_id', p_parent_id);
769: -- Parse the SQL statement
770: dbms_sql.parse (l_cursor, l_sqlstmt, dbms_sql.native);
771:
772: -- Define the variables
773: dbms_sql.bind_variable (l_cursor, 'validate_error', validate_error,200);
774: dbms_sql.bind_variable (l_cursor, 'p_parent_id', p_parent_id);
775:
776: -- Execute the SQL statement
777: l_ignore := dbms_sql.execute (l_cursor);
770: dbms_sql.parse (l_cursor, l_sqlstmt, dbms_sql.native);
771:
772: -- Define the variables
773: dbms_sql.bind_variable (l_cursor, 'validate_error', validate_error,200);
774: dbms_sql.bind_variable (l_cursor, 'p_parent_id', p_parent_id);
775:
776: -- Execute the SQL statement
777: l_ignore := dbms_sql.execute (l_cursor);
778:
773: dbms_sql.bind_variable (l_cursor, 'validate_error', validate_error,200);
774: dbms_sql.bind_variable (l_cursor, 'p_parent_id', p_parent_id);
775:
776: -- Execute the SQL statement
777: l_ignore := dbms_sql.execute (l_cursor);
778:
779: -- Get the return value (success)
780: dbms_sql.variable_value (l_cursor, 'validate_error', validate_error);
781:
776: -- Execute the SQL statement
777: l_ignore := dbms_sql.execute (l_cursor);
778:
779: -- Get the return value (success)
780: dbms_sql.variable_value (l_cursor, 'validate_error', validate_error);
781:
782: -- Close the cursor
783: dbms_sql.close_cursor (l_cursor);
784:
779: -- Get the return value (success)
780: dbms_sql.variable_value (l_cursor, 'validate_error', validate_error);
781:
782: -- Close the cursor
783: dbms_sql.close_cursor (l_cursor);
784:
785: EXCEPTION
786: WHEN others THEN
787: IF (dbms_sql.is_open(l_cursor)) THEN
783: dbms_sql.close_cursor (l_cursor);
784:
785: EXCEPTION
786: WHEN others THEN
787: IF (dbms_sql.is_open(l_cursor)) THEN
788: dbms_sql.close_cursor(l_cursor);
789: END IF;
790: End;
791: -- Validate Mul BS by distribution lines.
784:
785: EXCEPTION
786: WHEN others THEN
787: IF (dbms_sql.is_open(l_cursor)) THEN
788: dbms_sql.close_cursor(l_cursor);
789: END IF;
790: End;
791: -- Validate Mul BS by distribution lines.
792: IF (validate_error = 'Error') THEN