Oracle Apps KT: QR Code in Oracle EBS R12 in XML Publisher Report

Query: SELECT zt_qr.f_qr_as_png('https://google.com', 'H', 'N', '000000', 'FFFFFF', 10) IMAGE FROM DUAL;

Concurrent Program XML Data Definition - Data Template xml file as below:

<?xml version="1.0" encoding="UTF-8" ?>

<dataTemplate name="EmpDT" description="Employee Details" Version="1.0">

<dataQuery>

<sqlStatement name="Q1">

<![CDATA[SELECT zt_qr.f_qr_as_png('https://google.com', 'H', 'N', '000000', 'FFFFFF', 10) IMAGE FROM DUAL]]>

</sqlStatement>

</dataQuery>

<dataStructure>

<group name="G_EMP" source="Q1">

<element name="IMAGE" value="IMAGE" />

</group>

</dataStructure>

</dataTemplate>

field in Rtf template :

<fo:instream-foreign-object content-type="image/png" width="3cm" height="3cm">
<xsl:value-of select=".//IMAGE"/>
</fo:instream-foreign-object>

5. code for the package

CREATE OR REPLACE PACKAGE APPS.ZT_QR AUTHID DEFINER AS

/******************************************************************************

Author: Zoran Tica

ZT-TECH, racunalni�ke storitve s.p.

http://www.zt-tech.eu

PURPOSE: A package for QR code data and image generation

REVISIONS:

Ver Date Author Description

--------- ---------- --------------- ------------------------------------

1.0 18/08/2018 Zoran Tica First version of package.

1.1 26/05/2019 Zoran Tica Added UTF-8 support, fixed minor BUGs for debug display

1.2 15/12/2019 Zoran Tica Fixed "_" and "%" BUG

1.3 13/03/2020 Zoran Tica Added function f_qr_as_long_raw

1.4 07/01/2021 Zoran Tica Terminator BUG

1.5 05/02/2021 Zoran Tica older databases compatibility (10g)

f_integer_2_binary - LISTAGG replaced with pure PL SQL

f_get_version - XMLTABLE replaced with local function f_explode

2.0 09/02/2021 Zoran Tica SVG files support

2.1 21/08/2023 Zoran Tica Display logo in QR code (for SVG QR Code representation)

2.2 24/06/2024 k0mita Select a QR code and background color for BMP representation

----------------------------------------------------------------------------

Permission is hereby granted, free of charge, to any person obtaining a copy

of this software and associated documentation files (the "Software"), to deal

in the Software without restriction, including without limitation the rights

to use, copy, modify, merge, publish, distribute, sublicense, and/or sell

copies of the Software, and to permit persons to whom the Software is

furnished to do so, subject to the following conditions:

The above copyright notice and this permission notice shall be included in

all copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE

AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER

LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,

OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN

THE SOFTWARE.

----------------------------------------------------------------------------

Error correction modes:

L - Low Recovers 7% of data

M - Medium Recovers 15% of data

Q - Quartile Recovers 25% of data

H - High Recovers 30% of data

Procedure generates QR code data as varchar2 variable filled with 0 and 1

0 is white module, 1 is black

Lines are separated with chr(10)

IN parameters:

p_data - data that is going to be encoded into QR code

p_error_correction - error correction level (values L, M, Q or H)

OUT parameters:

p_qr - generated QR code data in format "row (1110100010100...) || newline (chr 10) || row || newline..."

p_matrix_size - matrix size in modules (21, 25, 29...)

PROCEDURE p_generate_qr_data(

p_data varchar2,

p_error_correction varchar2,

p_qr OUT NOCOPY varchar2,

p_matrix_size OUT pls_integer

);

Procedure generates QR code data as varchar2 variable filled with 0 and 1

0 is white module, 1 is black

Lines are separated with chr(10)

Debug is printed as DBMS_OUTPUT

There are 3 levels of debug (1, 2 or 3 - low, medium, high)

IN parameters:

p_data - data that is going to be encoded into QR code

p_error_correction - error correction level (values L, M, Q or H)

p_debug - should DBMS OUTPUT be printed

p_debug_level - debug level (1, 2, 3...) - details to be printed in debug output

p_masking_out - which masking (values 0-7) should be displayed; null -> the best masking will be calculated and selected automatically

OUT parameters:

p_qr - generated QR code data in format "row (1110100010100) || newline (chr 10) || row || newline..."

p_matrix_size - matrix size in modules (21, 25, 29...)

Testing code (enable DBMS OUTPUT for debug!):

DECLARE

lcQR varchar2(32727);

lnMatrixSize pls_integer;

BEGIN

ZT_QR.p_qr_debug(

p_data => 'http://www.zt-tech.eu',

p_error_correction => 'Q',

p_debug => true,

p_debug_level => 2,

p_qr => lcQR,

p_matrix_size => lnMatrixSize

);

END;

PROCEDURE p_qr_debug(

p_data varchar2,

p_error_correction varchar2,

p_debug boolean default true,

p_debug_level pls_integer default 1,

p_masking_out pls_integer default null,

p_qr OUT NOCOPY varchar2,

p_matrix_size OUT pls_integer

);

Function return HTML code for HTML table element representing QR code

Modules are shown as table cells

No additional data (CSS or HTML code) is needed to show table in HTML page

IN parameters:

p_data - data that is going to be encoded into QR code

p_error_correction - error correction level (values L, M, Q or H)

p_module_size_in_px - width and height of module (table cell)

p_margines - should white margine around QR code (4 modules wide) be generated

FUNCTION f_qr_as_html_table(

p_data varchar2, --data going to be encoded into QR code

p_error_correction varchar2, --L, M, Q or H

p_module_size_in_px pls_integer default 8, --module size in pixels

p_margines boolean default false --margines around QR code (4 modules)

) RETURN clob;

Procedure prints HTML code for HTML table element using HTP.P procedure

HTML code is prepared in function f_qr_as_html_table

IN parameters:

p_data - data that is going to be encoded into QR code

p_error_correction - error correction level (values L, M, Q or H)

p_module_size_in_px - width and height of module (table cell)

p_margines - should white margine around QR code (4 modules wide) be generated

PROCEDURE p_qr_as_html_table(

p_data varchar2, --data going to be encoded into QR code

p_error_correction varchar2, --L, M, Q or H

p_module_size_in_px pls_integer default 8, --module size in pixels

p_margines boolean default false --margines around QR code (4 modules)

);

Function returns black and white BMP image with QR code

Modules are 8x8 pixels large

IN parameters:

p_data - data that is going to be encoded into QR code

p_error_correction - error correction level (values L, M, Q or H)

p_margines - should white margine around QR code (4 modules wide) be generated

p_foreground_color -- HEX representation of the RGB values of the foreground color (default black)

p_background_color -- HEX representation of the RGB values of the background color (default white)

Suggested HEX foreground colors:

Blue - 002db3

Red - 990000

Green - 008000

Brown - 663300

Orange - ff9900

Pink - cc0066

Magenta - cc00cc

Gray - 737373

FUNCTION f_qr_as_bmp(

p_data varchar2, --data going to be encoded into QR code

p_error_correction varchar2, --L, M, Q or H

p_margines varchar2 default 'N', --margines around QR code (4 modules) - values Y or N

p_foreground_color varchar2 default '000000', -- HEX representation of the RGB values of the foreground color

p_background_color varchar2 default 'FFFFFF'-- HEX representation of the RGB values of the background color

) RETURN blob;

FUNCTION f_qr_as_long_raw(

p_data varchar2, --data going to be encoded into QR code

p_error_correction varchar2, --L, M, Q or H

p_margines varchar2 default 'N' --margines around QR code (4 modules) - values Y or N

) RETURN long raw;

Procedure shows QR code as black and white BMP image

Printed is HTML img tag with base64 image in it

IN parameters:

p_data - data that is going to be encoded into QR code

p_error_correction - error correction level (values L, M, Q or H)

p_image_size_px - image size in pixels

p_margines - should white margine around QR code (4 modules wide) be generated

PROCEDURE p_qr_as_img_tag_base64(

p_data varchar2, --data going to be encoded into QR code

p_error_correction varchar2, --L, M, Q or H

p_image_size_px pls_integer,

p_margines varchar2 default 'N' --margines around QR code (4 modules) - values Y or N

);

Function returns SVG image with QR code

IN parameters:

p_data - data that is going to be encoded into QR code

p_error_correction - error correction level (values L, M, Q or H)

p_margines_yn - should white margine around QR code (4 modules wide) be generated; values 'Y' or 'N'

p_module_size_px - width and height of one module

p_module_color - module color; colors can be defined as named colors (for example black, red, white...), using rgb function (for example rgb(255, 0, 0) ) or HEX values (for example #FF0000)

p_background_color - background color; colors can be defined as named colors (for example black, red white...), using rgb function (for example rgb(255, 0, 0) ) or HEX values (for example #FF0000)

p_module_rounded_px - if modules should have rounded edges (if size of this parameter is half the module size (or larger) then modules are represented as circles)

p_logo_yn - should logo be displayed on not (values Y / N)

p_logo_size_percent - logo background rectangle size (in percentages) related to QR code size

p_logo_image - logo image (URL reference or base64 content)

p_logo_back_rect_yn - should logo background rectangle be displayed or not

p_logo_back_rect_color - logo background rectangle color

p_logo_back_rect_round_px - logo background rectangle rounded edges

p_logo_margine_px - a margine between logo and background rectangle

Procedure prints SVG image using HTP.P procedure (can be used to print SVG image directly into HTML code)

FUNCTION f_qr_as_svg(

p_data varchar2, --data going to be encoded into QR code

p_error_correction varchar2, --L, M, Q or H

p_module_size_px pls_integer default 8, --modul size in pixels

p_margines_yn varchar2 default 'N', --margines around QR code (4 modules) - values Y or N

p_module_color varchar2 default 'black', --colors are defined as SVG named colors OR rgb (with # or rgb function)

p_background_color varchar2 default 'white',

p_module_rounded_px pls_integer default 0, --0 - sharp corners; > 0 - rounded in pixels

p_logo_yn varchar2 default 'N',

p_logo_size_percent number default 20,

p_logo_image clob default null,

p_logo_back_rect_yn varchar2 default 'Y',

p_logo_back_rect_color varchar2 default 'white',

p_logo_back_rect_round_px pls_integer default 0,

p_logo_margine_px number default 5

) RETURN clob;

PROCEDURE p_qr_as_svg(

p_data varchar2, --data going to be encoded into QR code

p_error_correction varchar2, --L, M, Q or H

p_module_size_px pls_integer default 8, --modul size in pixels

p_margines_yn varchar2 default 'N', --margines around QR code (4 modules) - values Y or N

p_module_color varchar2 default 'black', --colors are defined as SVG named colors OR rgb (with # or rgb function)

p_background_color varchar2 default 'white',

p_module_rounded_px pls_integer default 0, --0 - sharp corners; > 0 - rounded in pixels

p_logo_yn varchar2 default 'N',

p_logo_size_percent number default 20,

p_logo_image clob default null,

p_logo_back_rect_yn varchar2 default 'Y',

p_logo_back_rect_color varchar2 default 'white',

p_logo_back_rect_round_px pls_integer default 0,

p_logo_margine_px number default 5

);

Utility procedure which saves generated BMP file containing QR code on server side (directory)

PROCEDURE p_save_file(

p_document blob,

p_file_name varchar2,

p_folder varchar2

);

FUNCTION convert_bmp_to_png(

p_bmp_blob BLOB,

p_scale_factor NUMBER-- DEFAULT 1

) RETURN BLOB;

FUNCTION f_qr_as_png(

p_data VARCHAR2,

p_error_correction VARCHAR2, -- L, M, Q or H

p_margines VARCHAR2 DEFAULT 'N', -- Y or N

p_foreground_color VARCHAR2 DEFAULT '000000',

p_background_color VARCHAR2 DEFAULT 'FFFFFF',

p_scale_factor NUMBER DEFAULT 10 -- New parameter for scaling

) RETURN BLOB;

END ZT_QR;

CREATE OR REPLACE PACKAGE BODY APPS.ZT_QR AS

--C O N S T A N T S

--data mode

cNumericMode CONSTANT pls_integer := 1;

cAlphanumericMode CONSTANT pls_integer := 2;

cByteMode CONSTANT pls_integer := 3;

cKanjiMode CONSTANT pls_integer := 4;

--V A R I A B L E S

--debug

gpbDebug boolean := false;

gpnDebugLevel pls_integer := 1;

--mode and version

gpnMode pls_integer;

gpnVersion pls_integer;

--Error Correction Code Words and Block Information

TYPE r_err_cor IS RECORD(

total_no_of_data_cw pls_integer,

ec_cw_per_block pls_integer,

blocks_in_g1 pls_integer,

cw_in_g1 pls_integer,

blocks_in_g2 pls_integer,

cw_in_g2 pls_integer);

TYPE t_err_cor IS TABLE OF r_err_cor INDEX BY varchar2(10);

gprErrCorInfo t_err_cor;

--logs and antilogs

TYPE t_log_anti IS TABLE OF pls_integer INDEX BY pls_integer;

gprLog t_log_anti;

gprAntiLog t_log_anti;

--matrix

TYPE t_row IS TABLE OF varchar2(1);

TYPE t_column IS TABLE OF t_row;

TYPE t_masking IS TABLE OF t_column INDEX BY pls_integer;

gprMatrix t_column := t_column();

gprMasking t_masking;

--DEBUG FUNCS AND PROCS

PROCEDURE p_debug(

p_text varchar2,

p_level pls_integer default 1,

p_new_line boolean default true) IS

BEGIN

if gpbDebug and p_level <= gpnDebugLevel then

if p_new_line then

DBMS_OUTPUT.put_line(p_text);

else

DBMS_OUTPUT.put(p_text);

end if;

END;

PROCEDURE p_dbms_output_matrix(

p_matrix t_column,

p_level pls_integer default 1) IS

lcQR varchar2(200);

BEGIN

FOR t IN 1 .. p_matrix.count LOOP

lcQR := null;

FOR p IN 1 .. p_matrix.count LOOP

lcQR := lcQR || nvl(p_matrix(t)(p), 'X');

END LOOP;

p_debug(lcQR, p_level);

END LOOP;

END;

--UTILITY FUNCS AND PROCS

FUNCTION bitor(p1 number, p2 number) RETURN number IS

BEGIN

RETURN p1 - bitand(p1, p2) + p2;

END;

FUNCTION bitxor(p1 number, p2 number) RETURN number IS

BEGIN

RETURN bitor(p1, p2) - bitand(p1, p2);

END;

FUNCTION bin2dec(p_binval varchar2) RETURN pls_integer IS

lnResult number := 0;

BEGIN

FOR t IN 1 .. length(p_binval) LOOP

lnResult := (lnResult * 2) + to_number(substr(p_binval, t, 1));

END LOOP;

RETURN lnResult;

END bin2dec;

FUNCTION f_integer_2_binary(p_integer pls_integer) RETURN varchar2 IS

lcBinary varchar2(100);

BEGIN

SELECT LISTAGG(SIGN(BITAND(p_integer, POWER(2, LEVEL-1))),'') WITHIN GROUP(ORDER BY LEVEL DESC)

INTO lcBinary

FROM dual

CONNECT BY POWER(2, LEVEL-1) <= p_integer;

RETURN lcBinary;

END;

--function changed to pure PL/SQL version

--also compatible with older databases (10g)

FUNCTION f_integer_2_binary(p_integer pls_integer) RETURN varchar2 IS

lcBinary varchar2(100);

lnTemp number := p_integer;

BEGIN

if p_integer <> 0 then

WHILE ( lnTemp > 0 ) LOOP

lcBinary := mod(lnTemp, 2) || lcBinary;

lnTemp := trunc( lnTemp / 2 );

END LOOP;

else

lcBinary := '0';

end if;

RETURN lcBinary;

END f_integer_2_binary;

--INIT FUNCS AND PROCS

PROCEDURE p_fill_log_antilog IS

lnVal pls_integer;

lnPrevVal pls_integer;

BEGIN

FOR t IN 0 .. 255 LOOP

if t = 0 then

lnVal := 1;

else

lnVal := lnPrevVal * 2;

if lnVal > 255 then

lnVal := bitxor(lnVal, 285);

end if;

gprLog(t) := lnVal;

gprAntiLog(lnVal) := t;

lnPrevVal := lnVal;

p_debug('Log for ' || t || ': ' || gprLog(t), 4);

END LOOP;

END;

FUNCTION f_matrix_size RETURN pls_integer IS

BEGIN

--minimal matrix size is 21x21 module; every next version is 4 modules larger

RETURN ((gpnVersion - 1) * 4) + 21;

END;

PROCEDURE p_init_matrix IS

TYPE t_col IS TABLE OF pls_integer;

TYPE t_alignment_pos IS TABLE OF t_col;

lrAlignPos t_alignment_pos := t_alignment_pos();

lcModule varchar2(1);

PROCEDURE p_add_finder(p_column pls_integer, p_row pls_integer) IS

BEGIN

--outer black square

FOR t IN 0 .. 6 LOOP

gprMatrix(p_column + t)(p_row) := '3';

gprMatrix(p_column + t)(p_row + 6) := '3';

gprMatrix(p_column)(p_row + t) := '3';

gprMatrix(p_column + 6)(p_row + t) := '3';

END LOOP;

--inner white square

FOR t IN 0 .. 4 LOOP

gprMatrix(p_column + 1 + t)(p_row + 1) := '2';

gprMatrix(p_column + 1 + t)(p_row + 1 + 4) := '2';

gprMatrix(p_column + 1)(p_row + 1 + t) := '2';

gprMatrix(p_column + 1 + 4)(p_row + 1 + t) := '2';

END LOOP;

--inner black square

FOR t IN 0 .. 2 LOOP

FOR p IN 0 .. 2 LOOP

gprMatrix(p_column + 2 + t)(p_row + 2 + p) := '3';

END LOOP;

END;

PROCEDURE p_init_alignment IS

BEGIN

lrAlignPos.delete;

lrAlignPos.extend(40);

lrAlignPos(1) := t_col(0);

lrAlignPos(2) := t_col(6, 18);

lrAlignPos(3) := t_col(6, 22);

lrAlignPos(4) := t_col(6, 26);

lrAlignPos(5) := t_col(6, 30);

lrAlignPos(6) := t_col(6, 34);

lrAlignPos(7) := t_col(6, 22, 38);

lrAlignPos(8) := t_col(6, 24, 42);

lrAlignPos(9) := t_col(6, 26, 46);

lrAlignPos(10) := t_col(6, 28, 50);

lrAlignPos(11) := t_col(6, 30, 54);

lrAlignPos(12) := t_col(6, 32, 58);

lrAlignPos(13) := t_col(6, 34, 62);

lrAlignPos(14) := t_col(6, 26, 46, 66);

lrAlignPos(15) := t_col(6, 26, 48, 70);

lrAlignPos(16) := t_col(6, 26, 50, 74);

lrAlignPos(17) := t_col(6, 30, 54, 78);

lrAlignPos(18) := t_col(6, 30, 56, 82);

lrAlignPos(19) := t_col(6, 30, 58, 86);

lrAlignPos(20) := t_col(6, 34, 62, 90);

lrAlignPos(21) := t_col(6, 28, 50, 72, 94);

lrAlignPos(22) := t_col(6, 26, 50, 74, 98);

lrAlignPos(23) := t_col(6, 30, 54, 78, 102);

lrAlignPos(24) := t_col(6, 28, 54, 80, 106);

lrAlignPos(25) := t_col(6, 32, 58, 84, 110);

lrAlignPos(26) := t_col(6, 30, 58, 86, 114);

lrAlignPos(27) := t_col(6, 34, 62, 90, 118);

lrAlignPos(28) := t_col(6, 26, 50, 74, 98, 122 );

lrAlignPos(29) := t_col(6, 30, 54, 78, 102, 126);

lrAlignPos(30) := t_col(6, 26, 52, 78, 104, 130 );

lrAlignPos(31) := t_col(6, 30, 56, 82, 108, 134 );

lrAlignPos(32) := t_col(6, 34, 60, 86, 112, 138 );

lrAlignPos(33) := t_col(6, 30, 58, 86, 114, 142 );

lrAlignPos(34) := t_col(6, 34, 62, 90, 118, 146 );

lrAlignPos(35) := t_col(6, 30, 54, 78, 102, 126, 150);

lrAlignPos(36) := t_col(6, 24, 50, 76, 102, 128, 154);

lrAlignPos(37) := t_col(6, 28, 54, 80, 106, 132, 158);

lrAlignPos(38) := t_col(6, 32, 58, 84, 110, 136, 162);

lrAlignPos(39) := t_col(6, 26, 54, 82, 110, 138, 166);

lrAlignPos(40) := t_col(6, 30, 58, 86, 114, 142, 170);

END;

PROCEDURE p_add_alignment(p_column pls_integer, p_row pls_integer) IS

BEGIN

--check if coordinates are OK and alignment is on matrix

if p_column - 2 < 1 or p_column + 2 > f_matrix_size or p_row - 2 < 1 or p_row + 2 > f_matrix_size then

p_debug('Alignment on ' || p_column || ', ' || p_row || ' is outside of matrix! Skipping...', 2);

RETURN;

end if;

--first check if overlap with existing finders; if overlaps then do not draw finder

FOR t IN p_column - 2 .. p_column + 2 LOOP

FOR p IN p_row - 2 .. p_row + 2 LOOP

if gprMatrix(p)(t) is not null then

p_debug('Alignment on ' || p_column || ', ' || p_row || ' overlaps with finder! Skipping...', 2);

RETURN;

end if;

END LOOP;

--draw alignment

--outer black square

FOR t IN 0 .. 4 LOOP

gprMatrix(p_row - 2)(p_column - 2 + t) := '3';

gprMatrix(p_row - 2 + t)(p_column - 2) := '3';

gprMatrix(p_row + 2)(p_column - 2 + t) := '3';

gprMatrix(p_row - 2 + t)(p_column + 2) := '3';

END LOOP;

--inner white square and center module

FOR t IN 0 .. 2 LOOP

FOR p IN 0 .. 2 LOOP

gprMatrix(p_row - 1 + t)(p_column - 1 + p) := '2';

END LOOP;

gprMatrix(p_row)(p_column) := '3';

END;

BEGIN

p_debug('Matrix size: ' || f_matrix_size || 'x' || f_matrix_size || ' modules', 2);

--collection initialization

gprMatrix.delete;

gprMatrix.extend(f_matrix_size);

FOR t IN 1 .. f_matrix_size LOOP

gprMatrix(t) := t_row();

gprMatrix(t).extend(f_matrix_size);

END LOOP;

--add Finder Patterns (3x)

p_add_finder(1, 1);

p_add_finder(f_matrix_size - 6, 1);

p_add_finder(1, f_matrix_size - 6);

--add Separators

FOR t IN 0 .. 7 LOOP

--upper left

gprMatrix(1 + t)(1 + 7) := '2';

gprMatrix(1 + 7)(1 + t) := '2';

--lower left

gprMatrix(f_matrix_size - 7 + t)(1 + 7) := '2';

gprMatrix(f_matrix_size - 7)(1 + t) := '2';

--upper right

gprMatrix(1 + t)(f_matrix_size - 7) := '2';

gprMatrix(1 + 7)(f_matrix_size - 7 + t) := '2';

END LOOP;

--add Alignment Patterns (for versions larger then 1)

p_init_alignment;

if gpnVersion > 1 then

FOR t IN 1 .. lrAlignPos(gpnVersion).count LOOP

FOR p IN 1 .. lrAlignPos(gpnVersion).count LOOP

p_add_alignment(lrAlignPos(gpnVersion)(t) + 1, lrAlignPos(gpnVersion)(p) + 1);

END LOOP;

end if;

--Timing Patterns

FOR t IN 9 .. f_matrix_size - 8 LOOP

if t mod 2 <> 0 then

lcModule := '3'; --first module is black, then white, then black...

else

lcModule := '2';

end if;

gprMatrix(7)(t) := lcModule;

gprMatrix(t)(7) := lcModule;

END LOOP;

--Dark Module

gprMatrix(f_matrix_size - 7)(9) := '3';

--Reserved Areas (Format Information Area, Version Information Area)

--will be filled with actual values later

--Format Information Area, placeholder values are dots

FOR t IN 1 .. 9 LOOP

if gprMatrix(9)(t) is null then

gprMatrix(9)(t) := '.';

end if;

if gprMatrix(t)(9) is null then

gprMatrix(t)(9) := '.';

end if;

END LOOP;

FOR t IN 1 .. 8 LOOP

if gprMatrix(f_matrix_size - t + 1)(9) is null then

gprMatrix(f_matrix_size - t + 1)(9) := '.';

end if;

if gprMatrix(9)(f_matrix_size - t + 1) is null then

gprMatrix(9)(f_matrix_size - t + 1) := '.';

end if;

END LOOP;

--Version Information Area, placeholder values are *

--it aplies only to versions 7 and larger

if gpnVersion >= 7 then

FOR t IN 1 .. 6 LOOP

gprMatrix(f_matrix_size - 8)(t) := '*';

gprMatrix(f_matrix_size - 9)(t) := '*';

gprMatrix(f_matrix_size - 10)(t) := '*';

gprMatrix(t)(f_matrix_size - 8) := '*';

gprMatrix(t)(f_matrix_size - 9) := '*';

gprMatrix(t)(f_matrix_size - 10) := '*';

END LOOP;

end if;

END;

PROCEDURE p_fill_err_cor IS

BEGIN

gprErrCorInfo('1-L').total_no_of_data_cw := 19; gprErrCorInfo('1-L').ec_cw_per_block := 7; gprErrCorInfo('1-L').blocks_in_g1 := 1; gprErrCorInfo('1-L').cw_in_g1 := 19; gprErrCorInfo('1-L').blocks_in_g2 := null; gprErrCorInfo('1-L').cw_in_g2 := null;

gprErrCorInfo('1-M').total_no_of_data_cw := 16; gprErrCorInfo('1-M').ec_cw_per_block := 10; gprErrCorInfo('1-M').blocks_in_g1 := 1; gprErrCorInfo('1-M').cw_in_g1 := 16; gprErrCorInfo('1-M').blocks_in_g2 := null; gprErrCorInfo('1-M').cw_in_g2 := null;

gprErrCorInfo('1-Q').total_no_of_data_cw := 13; gprErrCorInfo('1-Q').ec_cw_per_block := 13; gprErrCorInfo('1-Q').blocks_in_g1 := 1; gprErrCorInfo('1-Q').cw_in_g1 := 13; gprErrCorInfo('1-Q').blocks_in_g2 := null; gprErrCorInfo('1-Q').cw_in_g2 := null;

gprErrCorInfo('1-H').total_no_of_data_cw := 9; gprErrCorInfo('1-H').ec_cw_per_block := 17; gprErrCorInfo('1-H').blocks_in_g1 := 1; gprErrCorInfo('1-H').cw_in_g1 := 9; gprErrCorInfo('1-H').blocks_in_g2 := null; gprErrCorInfo('1-H').cw_in_g2 := null;

gprErrCorInfo('2-L').total_no_of_data_cw := 34; gprErrCorInfo('2-L').ec_cw_per_block := 10; gprErrCorInfo('2-L').blocks_in_g1 := 1; gprErrCorInfo('2-L').cw_in_g1 := 34; gprErrCorInfo('2-L').blocks_in_g2 := null; gprErrCorInfo('2-L').cw_in_g2 := null;

gprErrCorInfo('2-M').total_no_of_data_cw := 28; gprErrCorInfo('2-M').ec_cw_per_block := 16; gprErrCorInfo('2-M').blocks_in_g1 := 1; gprErrCorInfo('2-M').cw_in_g1 := 28; gprErrCorInfo('2-M').blocks_in_g2 := null; gprErrCorInfo('2-M').cw_in_g2 := null;

gprErrCorInfo('2-Q').total_no_of_data_cw := 22; gprErrCorInfo('2-Q').ec_cw_per_block := 22; gprErrCorInfo('2-Q').blocks_in_g1 := 1; gprErrCorInfo('2-Q').cw_in_g1 := 22; gprErrCorInfo('2-Q').blocks_in_g2 := null; gprErrCorInfo('2-Q').cw_in_g2 := null;

gprErrCorInfo('2-H').total_no_of_data_cw := 16; gprErrCorInfo('2-H').ec_cw_per_block := 28; gprErrCorInfo('2-H').blocks_in_g1 := 1; gprErrCorInfo('2-H').cw_in_g1 := 16; gprErrCorInfo('2-H').blocks_in_g2 := null; gprErrCorInfo('2-H').cw_in_g2 := null;

gprErrCorInfo('3-L').total_no_of_data_cw := 55; gprErrCorInfo('3-L').ec_cw_per_block := 15; gprErrCorInfo('3-L').blocks_in_g1 := 1; gprErrCorInfo('3-L').cw_in_g1 := 55; gprErrCorInfo('3-L').blocks_in_g2 := null; gprErrCorInfo('3-L').cw_in_g2 := null;

gprErrCorInfo('3-M').total_no_of_data_cw := 44; gprErrCorInfo('3-M').ec_cw_per_block := 26; gprErrCorInfo('3-M').blocks_in_g1 := 1; gprErrCorInfo('3-M').cw_in_g1 := 44; gprErrCorInfo('3-M').blocks_in_g2 := null; gprErrCorInfo('3-M').cw_in_g2 := null;

gprErrCorInfo('3-Q').total_no_of_data_cw := 34; gprErrCorInfo('3-Q').ec_cw_per_block := 18; gprErrCorInfo('3-Q').blocks_in_g1 := 2; gprErrCorInfo('3-Q').cw_in_g1 := 17; gprErrCorInfo('3-Q').blocks_in_g2 := null; gprErrCorInfo('3-Q').cw_in_g2 := null;

gprErrCorInfo('3-H').total_no_of_data_cw := 26; gprErrCorInfo('3-H').ec_cw_per_block := 22; gprErrCorInfo('3-H').blocks_in_g1 := 2; gprErrCorInfo('3-H').cw_in_g1 := 13; gprErrCorInfo('3-H').blocks_in_g2 := null; gprErrCorInfo('3-H').cw_in_g2 := null;

gprErrCorInfo('4-L').total_no_of_data_cw := 80; gprErrCorInfo('4-L').ec_cw_per_block := 20; gprErrCorInfo('4-L').blocks_in_g1 := 1; gprErrCorInfo('4-L').cw_in_g1 := 80; gprErrCorInfo('4-L').blocks_in_g2 := null; gprErrCorInfo('4-L').cw_in_g2 := null;

gprErrCorInfo('4-M').total_no_of_data_cw := 64; gprErrCorInfo('4-M').ec_cw_per_block := 18; gprErrCorInfo('4-M').blocks_in_g1 := 2; gprErrCorInfo('4-M').cw_in_g1 := 32; gprErrCorInfo('4-M').blocks_in_g2 := null; gprErrCorInfo('4-M').cw_in_g2 := null;

gprErrCorInfo('4-Q').total_no_of_data_cw := 48; gprErrCorInfo('4-Q').ec_cw_per_block := 26; gprErrCorInfo('4-Q').blocks_in_g1 := 2; gprErrCorInfo('4-Q').cw_in_g1 := 24; gprErrCorInfo('4-Q').blocks_in_g2 := null; gprErrCorInfo('4-Q').cw_in_g2 := null;

gprErrCorInfo('4-H').total_no_of_data_cw := 36; gprErrCorInfo('4-H').ec_cw_per_block := 16; gprErrCorInfo('4-H').blocks_in_g1 := 4; gprErrCorInfo('4-H').cw_in_g1 := 9; gprErrCorInfo('4-H').blocks_in_g2 := null; gprErrCorInfo('4-H').cw_in_g2 := null;

gprErrCorInfo('5-L').total_no_of_data_cw := 108; gprErrCorInfo('5-L').ec_cw_per_block := 26; gprErrCorInfo('5-L').blocks_in_g1 := 1; gprErrCorInfo('5-L').cw_in_g1 := 108; gprErrCorInfo('5-L').blocks_in_g2 := null; gprErrCorInfo('5-L').cw_in_g2 := null;

gprErrCorInfo('5-M').total_no_of_data_cw := 86; gprErrCorInfo('5-M').ec_cw_per_block := 24; gprErrCorInfo('5-M').blocks_in_g1 := 2; gprErrCorInfo('5-M').cw_in_g1 := 43; gprErrCorInfo('5-M').blocks_in_g2 := null; gprErrCorInfo('5-M').cw_in_g2 := null;

gprErrCorInfo('5-Q').total_no_of_data_cw := 62; gprErrCorInfo('5-Q').ec_cw_per_block := 18; gprErrCorInfo('5-Q').blocks_in_g1 := 2; gprErrCorInfo('5-Q').cw_in_g1 := 15; gprErrCorInfo('5-Q').blocks_in_g2 := 2; gprErrCorInfo('5-Q').cw_in_g2 := 16;

gprErrCorInfo('5-H').total_no_of_data_cw := 46; gprErrCorInfo('5-H').ec_cw_per_block := 22; gprErrCorInfo('5-H').blocks_in_g1 := 2; gprErrCorInfo('5-H').cw_in_g1 := 11; gprErrCorInfo('5-H').blocks_in_g2 := 2; gprErrCorInfo('5-H').cw_in_g2 := 12;

gprErrCorInfo('6-L').total_no_of_data_cw := 136; gprErrCorInfo('6-L').ec_cw_per_block := 18; gprErrCorInfo('6-L').blocks_in_g1 := 2; gprErrCorInfo('6-L').cw_in_g1 := 68; gprErrCorInfo('6-L').blocks_in_g2 := null; gprErrCorInfo('6-L').cw_in_g2 := null;

gprErrCorInfo('6-M').total_no_of_data_cw := 108; gprErrCorInfo('6-M').ec_cw_per_block := 16; gprErrCorInfo('6-M').blocks_in_g1 := 4; gprErrCorInfo('6-M').cw_in_g1 := 27; gprErrCorInfo('6-M').blocks_in_g2 := null; gprErrCorInfo('6-M').cw_in_g2 := null;

gprErrCorInfo('6-Q').total_no_of_data_cw := 76; gprErrCorInfo('6-Q').ec_cw_per_block := 24; gprErrCorInfo('6-Q').blocks_in_g1 := 4; gprErrCorInfo('6-Q').cw_in_g1 := 19; gprErrCorInfo('6-Q').blocks_in_g2 := null; gprErrCorInfo('6-Q').cw_in_g2 := null;

gprErrCorInfo('6-H').total_no_of_data_cw := 60; gprErrCorInfo('6-H').ec_cw_per_block := 28; gprErrCorInfo('6-H').blocks_in_g1 := 4; gprErrCorInfo('6-H').cw_in_g1 := 15; gprErrCorInfo('6-H').blocks_in_g2 := null; gprErrCorInfo('6-H').cw_in_g2 := null;

gprErrCorInfo('7-L').total_no_of_data_cw := 156; gprErrCorInfo('7-L').ec_cw_per_block := 20; gprErrCorInfo('7-L').blocks_in_g1 := 2; gprErrCorInfo('7-L').cw_in_g1 := 78; gprErrCorInfo('7-L').blocks_in_g2 := null; gprErrCorInfo('7-L').cw_in_g2 := null;

gprErrCorInfo('7-M').total_no_of_data_cw := 124; gprErrCorInfo('7-M').ec_cw_per_block := 18; gprErrCorInfo('7-M').blocks_in_g1 := 4; gprErrCorInfo('7-M').cw_in_g1 := 31; gprErrCorInfo('7-M').blocks_in_g2 := null; gprErrCorInfo('7-M').cw_in_g2 := null;

gprErrCorInfo('7-Q').total_no_of_data_cw := 88; gprErrCorInfo('7-Q').ec_cw_per_block := 18; gprErrCorInfo('7-Q').blocks_in_g1 := 2; gprErrCorInfo('7-Q').cw_in_g1 := 14; gprErrCorInfo('7-Q').blocks_in_g2 := 4; gprErrCorInfo('7-Q').cw_in_g2 := 15;

gprErrCorInfo('7-H').total_no_of_data_cw := 66; gprErrCorInfo('7-H').ec_cw_per_block := 26; gprErrCorInfo('7-H').blocks_in_g1 := 4; gprErrCorInfo('7-H').cw_in_g1 := 13; gprErrCorInfo('7-H').blocks_in_g2 := 1; gprErrCorInfo('7-H').cw_in_g2 := 14;

gprErrCorInfo('8-L').total_no_of_data_cw := 194; gprErrCorInfo('8-L').ec_cw_per_block := 24; gprErrCorInfo('8-L').blocks_in_g1 := 2; gprErrCorInfo('8-L').cw_in_g1 := 97; gprErrCorInfo('8-L').blocks_in_g2 := null; gprErrCorInfo('8-L').cw_in_g2 := null;

gprErrCorInfo('8-M').total_no_of_data_cw := 154; gprErrCorInfo('8-M').ec_cw_per_block := 22; gprErrCorInfo('8-M').blocks_in_g1 := 2; gprErrCorInfo('8-M').cw_in_g1 := 38; gprErrCorInfo('8-M').blocks_in_g2 := 2; gprErrCorInfo('8-M').cw_in_g2 := 39;

gprErrCorInfo('8-Q').total_no_of_data_cw := 110; gprErrCorInfo('8-Q').ec_cw_per_block := 22; gprErrCorInfo('8-Q').blocks_in_g1 := 4; gprErrCorInfo('8-Q').cw_in_g1 := 18; gprErrCorInfo('8-Q').blocks_in_g2 := 2; gprErrCorInfo('8-Q').cw_in_g2 := 19;

gprErrCorInfo('8-H').total_no_of_data_cw := 86; gprErrCorInfo('8-H').ec_cw_per_block := 26; gprErrCorInfo('8-H').blocks_in_g1 := 4; gprErrCorInfo('8-H').cw_in_g1 := 14; gprErrCorInfo('8-H').blocks_in_g2 := 2; gprErrCorInfo('8-H').cw_in_g2 := 15;

gprErrCorInfo('9-L').total_no_of_data_cw := 232; gprErrCorInfo('9-L').ec_cw_per_block := 30; gprErrCorInfo('9-L').blocks_in_g1 := 2; gprErrCorInfo('9-L').cw_in_g1 := 116; gprErrCorInfo('9-L').blocks_in_g2 := null; gprErrCorInfo('9-L').cw_in_g2 := null;

gprErrCorInfo('9-M').total_no_of_data_cw := 182; gprErrCorInfo('9-M').ec_cw_per_block := 22; gprErrCorInfo('9-M').blocks_in_g1 := 3; gprErrCorInfo('9-M').cw_in_g1 := 36; gprErrCorInfo('9-M').blocks_in_g2 := 2; gprErrCorInfo('9-M').cw_in_g2 := 37;

gprErrCorInfo('9-Q').total_no_of_data_cw := 132; gprErrCorInfo('9-Q').ec_cw_per_block := 20; gprErrCorInfo('9-Q').blocks_in_g1 := 4; gprErrCorInfo('9-Q').cw_in_g1 := 16; gprErrCorInfo('9-Q').blocks_in_g2 := 4; gprErrCorInfo('9-Q').cw_in_g2 := 17;

gprErrCorInfo('9-H').total_no_of_data_cw := 100; gprErrCorInfo('9-H').ec_cw_per_block := 24; gprErrCorInfo('9-H').blocks_in_g1 := 4; gprErrCorInfo('9-H').cw_in_g1 := 12; gprErrCorInfo('9-H').blocks_in_g2 := 4; gprErrCorInfo('9-H').cw_in_g2 := 13;

gprErrCorInfo('10-L').total_no_of_data_cw := 274; gprErrCorInfo('10-L').ec_cw_per_block := 18; gprErrCorInfo('10-L').blocks_in_g1 := 2; gprErrCorInfo('10-L').cw_in_g1 := 68; gprErrCorInfo('10-L').blocks_in_g2 := 2; gprErrCorInfo('10-L').cw_in_g2 := 69;

gprErrCorInfo('10-M').total_no_of_data_cw := 216; gprErrCorInfo('10-M').ec_cw_per_block := 26; gprErrCorInfo('10-M').blocks_in_g1 := 4; gprErrCorInfo('10-M').cw_in_g1 := 43; gprErrCorInfo('10-M').blocks_in_g2 := 1; gprErrCorInfo('10-M').cw_in_g2 := 44;

gprErrCorInfo('10-Q').total_no_of_data_cw := 154; gprErrCorInfo('10-Q').ec_cw_per_block := 24; gprErrCorInfo('10-Q').blocks_in_g1 := 6; gprErrCorInfo('10-Q').cw_in_g1 := 19; gprErrCorInfo('10-Q').blocks_in_g2 := 2; gprErrCorInfo('10-Q').cw_in_g2 := 20;

gprErrCorInfo('10-H').total_no_of_data_cw := 122; gprErrCorInfo('10-H').ec_cw_per_block := 28; gprErrCorInfo('10-H').blocks_in_g1 := 6; gprErrCorInfo('10-H').cw_in_g1 := 15; gprErrCorInfo('10-H').blocks_in_g2 := 2; gprErrCorInfo('10-H').cw_in_g2 := 16;

gprErrCorInfo('11-L').total_no_of_data_cw := 324; gprErrCorInfo('11-L').ec_cw_per_block := 20; gprErrCorInfo('11-L').blocks_in_g1 := 4; gprErrCorInfo('11-L').cw_in_g1 := 81; gprErrCorInfo('11-L').blocks_in_g2 := null; gprErrCorInfo('11-L').cw_in_g2 := null;

gprErrCorInfo('11-M').total_no_of_data_cw := 254; gprErrCorInfo('11-M').ec_cw_per_block := 30; gprErrCorInfo('11-M').blocks_in_g1 := 1; gprErrCorInfo('11-M').cw_in_g1 := 50; gprErrCorInfo('11-M').blocks_in_g2 := 4; gprErrCorInfo('11-M').cw_in_g2 := 51;

gprErrCorInfo('11-Q').total_no_of_data_cw := 180; gprErrCorInfo('11-Q').ec_cw_per_block := 28; gprErrCorInfo('11-Q').blocks_in_g1 := 4; gprErrCorInfo('11-Q').cw_in_g1 := 22; gprErrCorInfo('11-Q').blocks_in_g2 := 4; gprErrCorInfo('11-Q').cw_in_g2 := 23;

gprErrCorInfo('11-H').total_no_of_data_cw := 140; gprErrCorInfo('11-H').ec_cw_per_block := 24; gprErrCorInfo('11-H').blocks_in_g1 := 3; gprErrCorInfo('11-H').cw_in_g1 := 12; gprErrCorInfo('11-H').blocks_in_g2 := 8; gprErrCorInfo('11-H').cw_in_g2 := 13;

gprErrCorInfo('12-L').total_no_of_data_cw := 370; gprErrCorInfo('12-L').ec_cw_per_block := 24; gprErrCorInfo('12-L').blocks_in_g1 := 2; gprErrCorInfo('12-L').cw_in_g1 := 92; gprErrCorInfo('12-L').blocks_in_g2 := 2; gprErrCorInfo('12-L').cw_in_g2 := 93;

gprErrCorInfo('12-M').total_no_of_data_cw := 290; gprErrCorInfo('12-M').ec_cw_per_block := 22; gprErrCorInfo('12-M').blocks_in_g1 := 6; gprErrCorInfo('12-M').cw_in_g1 := 36; gprErrCorInfo('12-M').blocks_in_g2 := 2; gprErrCorInfo('12-M').cw_in_g2 := 37;

gprErrCorInfo('12-Q').total_no_of_data_cw := 206; gprErrCorInfo('12-Q').ec_cw_per_block := 26; gprErrCorInfo('12-Q').blocks_in_g1 := 4; gprErrCorInfo('12-Q').cw_in_g1 := 20; gprErrCorInfo('12-Q').blocks_in_g2 := 6; gprErrCorInfo('12-Q').cw_in_g2 := 21;

gprErrCorInfo('12-H').total_no_of_data_cw := 158; gprErrCorInfo('12-H').ec_cw_per_block := 28; gprErrCorInfo('12-H').blocks_in_g1 := 7; gprErrCorInfo('12-H').cw_in_g1 := 14; gprErrCorInfo('12-H').blocks_in_g2 := 4; gprErrCorInfo('12-H').cw_in_g2 := 15;

gprErrCorInfo('13-L').total_no_of_data_cw := 428; gprErrCorInfo('13-L').ec_cw_per_block := 26; gprErrCorInfo('13-L').blocks_in_g1 := 4; gprErrCorInfo('13-L').cw_in_g1 := 107; gprErrCorInfo('13-L').blocks_in_g2 := null; gprErrCorInfo('13-L').cw_in_g2 := null;

gprErrCorInfo('13-M').total_no_of_data_cw := 334; gprErrCorInfo('13-M').ec_cw_per_block := 22; gprErrCorInfo('13-M').blocks_in_g1 := 8; gprErrCorInfo('13-M').cw_in_g1 := 37; gprErrCorInfo('13-M').blocks_in_g2 := 1; gprErrCorInfo('13-M').cw_in_g2 := 38;

gprErrCorInfo('13-Q').total_no_of_data_cw := 244; gprErrCorInfo('13-Q').ec_cw_per_block := 24; gprErrCorInfo('13-Q').blocks_in_g1 := 8; gprErrCorInfo('13-Q').cw_in_g1 := 20; gprErrCorInfo('13-Q').blocks_in_g2 := 4; gprErrCorInfo('13-Q').cw_in_g2 := 21;

gprErrCorInfo('13-H').total_no_of_data_cw := 180; gprErrCorInfo('13-H').ec_cw_per_block := 22; gprErrCorInfo('13-H').blocks_in_g1 := 12; gprErrCorInfo('13-H').cw_in_g1 := 11; gprErrCorInfo('13-H').blocks_in_g2 := 4; gprErrCorInfo('13-H').cw_in_g2 := 12;

gprErrCorInfo('14-L').total_no_of_data_cw := 461; gprErrCorInfo('14-L').ec_cw_per_block := 30; gprErrCorInfo('14-L').blocks_in_g1 := 3; gprErrCorInfo('14-L').cw_in_g1 := 115; gprErrCorInfo('14-L').blocks_in_g2 := 1; gprErrCorInfo('14-L').cw_in_g2 := 116;

gprErrCorInfo('14-M').total_no_of_data_cw := 365; gprErrCorInfo('14-M').ec_cw_per_block := 24; gprErrCorInfo('14-M').blocks_in_g1 := 4; gprErrCorInfo('14-M').cw_in_g1 := 40; gprErrCorInfo('14-M').blocks_in_g2 := 5; gprErrCorInfo('14-M').cw_in_g2 := 41;

gprErrCorInfo('14-Q').total_no_of_data_cw := 261; gprErrCorInfo('14-Q').ec_cw_per_block := 20; gprErrCorInfo('14-Q').blocks_in_g1 := 11; gprErrCorInfo('14-Q').cw_in_g1 := 16; gprErrCorInfo('14-Q').blocks_in_g2 := 5; gprErrCorInfo('14-Q').cw_in_g2 := 17;

gprErrCorInfo('14-H').total_no_of_data_cw := 197; gprErrCorInfo('14-H').ec_cw_per_block := 24; gprErrCorInfo('14-H').blocks_in_g1 := 11; gprErrCorInfo('14-H').cw_in_g1 := 12; gprErrCorInfo('14-H').blocks_in_g2 := 5; gprErrCorInfo('14-H').cw_in_g2 := 13;

gprErrCorInfo('15-L').total_no_of_data_cw := 523; gprErrCorInfo('15-L').ec_cw_per_block := 22; gprErrCorInfo('15-L').blocks_in_g1 := 5; gprErrCorInfo('15-L').cw_in_g1 := 87; gprErrCorInfo('15-L').blocks_in_g2 := 1; gprErrCorInfo('15-L').cw_in_g2 := 88;

gprErrCorInfo('15-M').total_no_of_data_cw := 415; gprErrCorInfo('15-M').ec_cw_per_block := 24; gprErrCorInfo('15-M').blocks_in_g1 := 5; gprErrCorInfo('15-M').cw_in_g1 := 41; gprErrCorInfo('15-M').blocks_in_g2 := 5; gprErrCorInfo('15-M').cw_in_g2 := 42;

gprErrCorInfo('15-Q').total_no_of_data_cw := 295; gprErrCorInfo('15-Q').ec_cw_per_block := 30; gprErrCorInfo('15-Q').blocks_in_g1 := 5; gprErrCorInfo('15-Q').cw_in_g1 := 24; gprErrCorInfo('15-Q').blocks_in_g2 := 7; gprErrCorInfo('15-Q').cw_in_g2 := 25;

gprErrCorInfo('15-H').total_no_of_data_cw := 223; gprErrCorInfo('15-H').ec_cw_per_block := 24; gprErrCorInfo('15-H').blocks_in_g1 := 11; gprErrCorInfo('15-H').cw_in_g1 := 12; gprErrCorInfo('15-H').blocks_in_g2 := 7; gprErrCorInfo('15-H').cw_in_g2 := 13;

gprErrCorInfo('16-L').total_no_of_data_cw := 589; gprErrCorInfo('16-L').ec_cw_per_block := 24; gprErrCorInfo('16-L').blocks_in_g1 := 5; gprErrCorInfo('16-L').cw_in_g1 := 98; gprErrCorInfo('16-L').blocks_in_g2 := 1; gprErrCorInfo('16-L').cw_in_g2 := 99;

gprErrCorInfo('16-M').total_no_of_data_cw := 453; gprErrCorInfo('16-M').ec_cw_per_block := 28; gprErrCorInfo('16-M').blocks_in_g1 := 7; gprErrCorInfo('16-M').cw_in_g1 := 45; gprErrCorInfo('16-M').blocks_in_g2 := 3; gprErrCorInfo('16-M').cw_in_g2 := 46;

gprErrCorInfo('16-Q').total_no_of_data_cw := 325; gprErrCorInfo('16-Q').ec_cw_per_block := 24; gprErrCorInfo('16-Q').blocks_in_g1 := 15; gprErrCorInfo('16-Q').cw_in_g1 := 19; gprErrCorInfo('16-Q').blocks_in_g2 := 2; gprErrCorInfo('16-Q').cw_in_g2 := 20;

gprErrCorInfo('16-H').total_no_of_data_cw := 253; gprErrCorInfo('16-H').ec_cw_per_block := 30; gprErrCorInfo('16-H').blocks_in_g1 := 3; gprErrCorInfo('16-H').cw_in_g1 := 15; gprErrCorInfo('16-H').blocks_in_g2 := 13; gprErrCorInfo('16-H').cw_in_g2 := 16;

gprErrCorInfo('17-L').total_no_of_data_cw := 647; gprErrCorInfo('17-L').ec_cw_per_block := 28; gprErrCorInfo('17-L').blocks_in_g1 := 1; gprErrCorInfo('17-L').cw_in_g1 := 107; gprErrCorInfo('17-L').blocks_in_g2 := 5; gprErrCorInfo('17-L').cw_in_g2 := 108;

gprErrCorInfo('17-M').total_no_of_data_cw := 507; gprErrCorInfo('17-M').ec_cw_per_block := 28; gprErrCorInfo('17-M').blocks_in_g1 := 10; gprErrCorInfo('17-M').cw_in_g1 := 46; gprErrCorInfo('17-M').blocks_in_g2 := 1; gprErrCorInfo('17-M').cw_in_g2 := 47;

gprErrCorInfo('17-Q').total_no_of_data_cw := 367; gprErrCorInfo('17-Q').ec_cw_per_block := 28; gprErrCorInfo('17-Q').blocks_in_g1 := 1; gprErrCorInfo('17-Q').cw_in_g1 := 22; gprErrCorInfo('17-Q').blocks_in_g2 := 15; gprErrCorInfo('17-Q').cw_in_g2 := 23;

gprErrCorInfo('17-H').total_no_of_data_cw := 283; gprErrCorInfo('17-H').ec_cw_per_block := 28; gprErrCorInfo('17-H').blocks_in_g1 := 2; gprErrCorInfo('17-H').cw_in_g1 := 14; gprErrCorInfo('17-H').blocks_in_g2 := 17; gprErrCorInfo('17-H').cw_in_g2 := 15;

gprErrCorInfo('18-L').total_no_of_data_cw := 721; gprErrCorInfo('18-L').ec_cw_per_block := 30; gprErrCorInfo('18-L').blocks_in_g1 := 5; gprErrCorInfo('18-L').cw_in_g1 := 120; gprErrCorInfo('18-L').blocks_in_g2 := 1; gprErrCorInfo('18-L').cw_in_g2 := 121;

gprErrCorInfo('18-M').total_no_of_data_cw := 563; gprErrCorInfo('18-M').ec_cw_per_block := 26; gprErrCorInfo('18-M').blocks_in_g1 := 9; gprErrCorInfo('18-M').cw_in_g1 := 43; gprErrCorInfo('18-M').blocks_in_g2 := 4; gprErrCorInfo('18-M').cw_in_g2 := 44;

gprErrCorInfo('18-Q').total_no_of_data_cw := 397; gprErrCorInfo('18-Q').ec_cw_per_block := 28; gprErrCorInfo('18-Q').blocks_in_g1 := 17; gprErrCorInfo('18-Q').cw_in_g1 := 22; gprErrCorInfo('18-Q').blocks_in_g2 := 1; gprErrCorInfo('18-Q').cw_in_g2 := 23;

gprErrCorInfo('18-H').total_no_of_data_cw := 313; gprErrCorInfo('18-H').ec_cw_per_block := 28; gprErrCorInfo('18-H').blocks_in_g1 := 2; gprErrCorInfo('18-H').cw_in_g1 := 14; gprErrCorInfo('18-H').blocks_in_g2 := 19; gprErrCorInfo('18-H').cw_in_g2 := 15;

gprErrCorInfo('19-L').total_no_of_data_cw := 795; gprErrCorInfo('19-L').ec_cw_per_block := 28; gprErrCorInfo('19-L').blocks_in_g1 := 3; gprErrCorInfo('19-L').cw_in_g1 := 113; gprErrCorInfo('19-L').blocks_in_g2 := 4; gprErrCorInfo('19-L').cw_in_g2 := 114;

gprErrCorInfo('19-M').total_no_of_data_cw := 627; gprErrCorInfo('19-M').ec_cw_per_block := 26; gprErrCorInfo('19-M').blocks_in_g1 := 3; gprErrCorInfo('19-M').cw_in_g1 := 44; gprErrCorInfo('19-M').blocks_in_g2 := 11; gprErrCorInfo('19-M').cw_in_g2 := 45;

gprErrCorInfo('19-Q').total_no_of_data_cw := 445; gprErrCorInfo('19-Q').ec_cw_per_block := 26; gprErrCorInfo('19-Q').blocks_in_g1 := 17; gprErrCorInfo('19-Q').cw_in_g1 := 21; gprErrCorInfo('19-Q').blocks_in_g2 := 4; gprErrCorInfo('19-Q').cw_in_g2 := 22;

gprErrCorInfo('19-H').total_no_of_data_cw := 341; gprErrCorInfo('19-H').ec_cw_per_block := 26; gprErrCorInfo('19-H').blocks_in_g1 := 9; gprErrCorInfo('19-H').cw_in_g1 := 13; gprErrCorInfo('19-H').blocks_in_g2 := 16; gprErrCorInfo('19-H').cw_in_g2 := 14;

gprErrCorInfo('20-L').total_no_of_data_cw := 861; gprErrCorInfo('20-L').ec_cw_per_block := 28; gprErrCorInfo('20-L').blocks_in_g1 := 3; gprErrCorInfo('20-L').cw_in_g1 := 107; gprErrCorInfo('20-L').blocks_in_g2 := 5; gprErrCorInfo('20-L').cw_in_g2 := 108;

gprErrCorInfo('20-M').total_no_of_data_cw := 669; gprErrCorInfo('20-M').ec_cw_per_block := 26; gprErrCorInfo('20-M').blocks_in_g1 := 3; gprErrCorInfo('20-M').cw_in_g1 := 41; gprErrCorInfo('20-M').blocks_in_g2 := 13; gprErrCorInfo('20-M').cw_in_g2 := 42;

gprErrCorInfo('20-Q').total_no_of_data_cw := 485; gprErrCorInfo('20-Q').ec_cw_per_block := 30; gprErrCorInfo('20-Q').blocks_in_g1 := 15; gprErrCorInfo('20-Q').cw_in_g1 := 24; gprErrCorInfo('20-Q').blocks_in_g2 := 5; gprErrCorInfo('20-Q').cw_in_g2 := 25;

gprErrCorInfo('20-H').total_no_of_data_cw := 385; gprErrCorInfo('20-H').ec_cw_per_block := 28; gprErrCorInfo('20-H').blocks_in_g1 := 15; gprErrCorInfo('20-H').cw_in_g1 := 15; gprErrCorInfo('20-H').blocks_in_g2 := 10; gprErrCorInfo('20-H').cw_in_g2 := 16;

gprErrCorInfo('21-L').total_no_of_data_cw := 932; gprErrCorInfo('21-L').ec_cw_per_block := 28; gprErrCorInfo('21-L').blocks_in_g1 := 4; gprErrCorInfo('21-L').cw_in_g1 := 116; gprErrCorInfo('21-L').blocks_in_g2 := 4; gprErrCorInfo('21-L').cw_in_g2 := 117;

gprErrCorInfo('21-M').total_no_of_data_cw := 714; gprErrCorInfo('21-M').ec_cw_per_block := 26; gprErrCorInfo('21-M').blocks_in_g1 := 17; gprErrCorInfo('21-M').cw_in_g1 := 42; gprErrCorInfo('21-M').blocks_in_g2 := null; gprErrCorInfo('21-M').cw_in_g2 := null;

gprErrCorInfo('21-Q').total_no_of_data_cw := 512; gprErrCorInfo('21-Q').ec_cw_per_block := 28; gprErrCorInfo('21-Q').blocks_in_g1 := 17; gprErrCorInfo('21-Q').cw_in_g1 := 22; gprErrCorInfo('21-Q').blocks_in_g2 := 6; gprErrCorInfo('21-Q').cw_in_g2 := 23;

gprErrCorInfo('21-H').total_no_of_data_cw := 406; gprErrCorInfo('21-H').ec_cw_per_block := 30; gprErrCorInfo('21-H').blocks_in_g1 := 19; gprErrCorInfo('21-H').cw_in_g1 := 16; gprErrCorInfo('21-H').blocks_in_g2 := 6; gprErrCorInfo('21-H').cw_in_g2 := 17;

gprErrCorInfo('22-L').total_no_of_data_cw := 1006; gprErrCorInfo('22-L').ec_cw_per_block := 28; gprErrCorInfo('22-L').blocks_in_g1 := 2; gprErrCorInfo('22-L').cw_in_g1 := 111; gprErrCorInfo('22-L').blocks_in_g2 := 7; gprErrCorInfo('22-L').cw_in_g2 := 112;

gprErrCorInfo('22-M').total_no_of_data_cw := 782; gprErrCorInfo('22-M').ec_cw_per_block := 28; gprErrCorInfo('22-M').blocks_in_g1 := 17; gprErrCorInfo('22-M').cw_in_g1 := 46; gprErrCorInfo('22-M').blocks_in_g2 := null; gprErrCorInfo('22-M').cw_in_g2 := null;

gprErrCorInfo('22-Q').total_no_of_data_cw := 568; gprErrCorInfo('22-Q').ec_cw_per_block := 30; gprErrCorInfo('22-Q').blocks_in_g1 := 7; gprErrCorInfo('22-Q').cw_in_g1 := 24; gprErrCorInfo('22-Q').blocks_in_g2 := 16; gprErrCorInfo('22-Q').cw_in_g2 := 25;

gprErrCorInfo('22-H').total_no_of_data_cw := 442; gprErrCorInfo('22-H').ec_cw_per_block := 24; gprErrCorInfo('22-H').blocks_in_g1 := 34; gprErrCorInfo('22-H').cw_in_g1 := 13; gprErrCorInfo('22-H').blocks_in_g2 := null; gprErrCorInfo('22-H').cw_in_g2 := null;

gprErrCorInfo('23-L').total_no_of_data_cw := 1094; gprErrCorInfo('23-L').ec_cw_per_block := 30; gprErrCorInfo('23-L').blocks_in_g1 := 4; gprErrCorInfo('23-L').cw_in_g1 := 121; gprErrCorInfo('23-L').blocks_in_g2 := 5; gprErrCorInfo('23-L').cw_in_g2 := 122;

gprErrCorInfo('23-M').total_no_of_data_cw := 860; gprErrCorInfo('23-M').ec_cw_per_block := 28; gprErrCorInfo('23-M').blocks_in_g1 := 4; gprErrCorInfo('23-M').cw_in_g1 := 47; gprErrCorInfo('23-M').blocks_in_g2 := 14; gprErrCorInfo('23-M').cw_in_g2 := 48;

gprErrCorInfo('23-Q').total_no_of_data_cw := 614; gprErrCorInfo('23-Q').ec_cw_per_block := 30; gprErrCorInfo('23-Q').blocks_in_g1 := 11; gprErrCorInfo('23-Q').cw_in_g1 := 24; gprErrCorInfo('23-Q').blocks_in_g2 := 14; gprErrCorInfo('23-Q').cw_in_g2 := 25;

gprErrCorInfo('23-H').total_no_of_data_cw := 464; gprErrCorInfo('23-H').ec_cw_per_block := 30; gprErrCorInfo('23-H').blocks_in_g1 := 16; gprErrCorInfo('23-H').cw_in_g1 := 15; gprErrCorInfo('23-H').blocks_in_g2 := 14; gprErrCorInfo('23-H').cw_in_g2 := 16;

gprErrCorInfo('24-L').total_no_of_data_cw := 1174; gprErrCorInfo('24-L').ec_cw_per_block := 30; gprErrCorInfo('24-L').blocks_in_g1 := 6; gprErrCorInfo('24-L').cw_in_g1 := 117; gprErrCorInfo('24-L').blocks_in_g2 := 4; gprErrCorInfo('24-L').cw_in_g2 := 118;

gprErrCorInfo('24-M').total_no_of_data_cw := 914; gprErrCorInfo('24-M').ec_cw_per_block := 28; gprErrCorInfo('24-M').blocks_in_g1 := 6; gprErrCorInfo('24-M').cw_in_g1 := 45; gprErrCorInfo('24-M').blocks_in_g2 := 14; gprErrCorInfo('24-M').cw_in_g2 := 46;

gprErrCorInfo('24-Q').total_no_of_data_cw := 664; gprErrCorInfo('24-Q').ec_cw_per_block := 30; gprErrCorInfo('24-Q').blocks_in_g1 := 11; gprErrCorInfo('24-Q').cw_in_g1 := 24; gprErrCorInfo('24-Q').blocks_in_g2 := 16; gprErrCorInfo('24-Q').cw_in_g2 := 25;

gprErrCorInfo('24-H').total_no_of_data_cw := 514; gprErrCorInfo('24-H').ec_cw_per_block := 30; gprErrCorInfo('24-H').blocks_in_g1 := 30; gprErrCorInfo('24-H').cw_in_g1 := 16; gprErrCorInfo('24-H').blocks_in_g2 := 2; gprErrCorInfo('24-H').cw_in_g2 := 17;

gprErrCorInfo('25-L').total_no_of_data_cw := 1276; gprErrCorInfo('25-L').ec_cw_per_block := 26; gprErrCorInfo('25-L').blocks_in_g1 := 8; gprErrCorInfo('25-L').cw_in_g1 := 106; gprErrCorInfo('25-L').blocks_in_g2 := 4; gprErrCorInfo('25-L').cw_in_g2 := 107;

gprErrCorInfo('25-M').total_no_of_data_cw := 1000; gprErrCorInfo('25-M').ec_cw_per_block := 28; gprErrCorInfo('25-M').blocks_in_g1 := 8; gprErrCorInfo('25-M').cw_in_g1 := 47; gprErrCorInfo('25-M').blocks_in_g2 := 13; gprErrCorInfo('25-M').cw_in_g2 := 48;

gprErrCorInfo('25-Q').total_no_of_data_cw := 718; gprErrCorInfo('25-Q').ec_cw_per_block := 30; gprErrCorInfo('25-Q').blocks_in_g1 := 7; gprErrCorInfo('25-Q').cw_in_g1 := 24; gprErrCorInfo('25-Q').blocks_in_g2 := 22; gprErrCorInfo('25-Q').cw_in_g2 := 25;

gprErrCorInfo('25-H').total_no_of_data_cw := 538; gprErrCorInfo('25-H').ec_cw_per_block := 30; gprErrCorInfo('25-H').blocks_in_g1 := 22; gprErrCorInfo('25-H').cw_in_g1 := 15; gprErrCorInfo('25-H').blocks_in_g2 := 13; gprErrCorInfo('25-H').cw_in_g2 := 16;

gprErrCorInfo('26-L').total_no_of_data_cw := 1370; gprErrCorInfo('26-L').ec_cw_per_block := 28; gprErrCorInfo('26-L').blocks_in_g1 := 10; gprErrCorInfo('26-L').cw_in_g1 := 114; gprErrCorInfo('26-L').blocks_in_g2 := 2; gprErrCorInfo('26-L').cw_in_g2 := 115;

gprErrCorInfo('26-M').total_no_of_data_cw := 1062; gprErrCorInfo('26-M').ec_cw_per_block := 28; gprErrCorInfo('26-M').blocks_in_g1 := 19; gprErrCorInfo('26-M').cw_in_g1 := 46; gprErrCorInfo('26-M').blocks_in_g2 := 4; gprErrCorInfo('26-M').cw_in_g2 := 47;

gprErrCorInfo('26-Q').total_no_of_data_cw := 754; gprErrCorInfo('26-Q').ec_cw_per_block := 28; gprErrCorInfo('26-Q').blocks_in_g1 := 28; gprErrCorInfo('26-Q').cw_in_g1 := 22; gprErrCorInfo('26-Q').blocks_in_g2 := 6; gprErrCorInfo('26-Q').cw_in_g2 := 23;

gprErrCorInfo('26-H').total_no_of_data_cw := 596; gprErrCorInfo('26-H').ec_cw_per_block := 30; gprErrCorInfo('26-H').blocks_in_g1 := 33; gprErrCorInfo('26-H').cw_in_g1 := 16; gprErrCorInfo('26-H').blocks_in_g2 := 4; gprErrCorInfo('26-H').cw_in_g2 := 17;

gprErrCorInfo('27-L').total_no_of_data_cw := 1468; gprErrCorInfo('27-L').ec_cw_per_block := 30; gprErrCorInfo('27-L').blocks_in_g1 := 8; gprErrCorInfo('27-L').cw_in_g1 := 122; gprErrCorInfo('27-L').blocks_in_g2 := 4; gprErrCorInfo('27-L').cw_in_g2 := 123;

gprErrCorInfo('27-M').total_no_of_data_cw := 1128; gprErrCorInfo('27-M').ec_cw_per_block := 28; gprErrCorInfo('27-M').blocks_in_g1 := 22; gprErrCorInfo('27-M').cw_in_g1 := 45; gprErrCorInfo('27-M').blocks_in_g2 := 3; gprErrCorInfo('27-M').cw_in_g2 := 46;

gprErrCorInfo('27-Q').total_no_of_data_cw := 808; gprErrCorInfo('27-Q').ec_cw_per_block := 30; gprErrCorInfo('27-Q').blocks_in_g1 := 8; gprErrCorInfo('27-Q').cw_in_g1 := 23; gprErrCorInfo('27-Q').blocks_in_g2 := 26; gprErrCorInfo('27-Q').cw_in_g2 := 24;

gprErrCorInfo('27-H').total_no_of_data_cw := 628; gprErrCorInfo('27-H').ec_cw_per_block := 30; gprErrCorInfo('27-H').blocks_in_g1 := 12; gprErrCorInfo('27-H').cw_in_g1 := 15; gprErrCorInfo('27-H').blocks_in_g2 := 28; gprErrCorInfo('27-H').cw_in_g2 := 16;

gprErrCorInfo('28-L').total_no_of_data_cw := 1531; gprErrCorInfo('28-L').ec_cw_per_block := 30; gprErrCorInfo('28-L').blocks_in_g1 := 3; gprErrCorInfo('28-L').cw_in_g1 := 117; gprErrCorInfo('28-L').blocks_in_g2 := 10; gprErrCorInfo('28-L').cw_in_g2 := 118;

gprErrCorInfo('28-M').total_no_of_data_cw := 1193; gprErrCorInfo('28-M').ec_cw_per_block := 28; gprErrCorInfo('28-M').blocks_in_g1 := 3; gprErrCorInfo('28-M').cw_in_g1 := 45; gprErrCorInfo('28-M').blocks_in_g2 := 23; gprErrCorInfo('28-M').cw_in_g2 := 46;

gprErrCorInfo('28-Q').total_no_of_data_cw := 871; gprErrCorInfo('28-Q').ec_cw_per_block := 30; gprErrCorInfo('28-Q').blocks_in_g1 := 4; gprErrCorInfo('28-Q').cw_in_g1 := 24; gprErrCorInfo('28-Q').blocks_in_g2 := 31; gprErrCorInfo('28-Q').cw_in_g2 := 25;

gprErrCorInfo('28-H').total_no_of_data_cw := 661; gprErrCorInfo('28-H').ec_cw_per_block := 30; gprErrCorInfo('28-H').blocks_in_g1 := 11; gprErrCorInfo('28-H').cw_in_g1 := 15; gprErrCorInfo('28-H').blocks_in_g2 := 31; gprErrCorInfo('28-H').cw_in_g2 := 16;

gprErrCorInfo('29-L').total_no_of_data_cw := 1631; gprErrCorInfo('29-L').ec_cw_per_block := 30; gprErrCorInfo('29-L').blocks_in_g1 := 7; gprErrCorInfo('29-L').cw_in_g1 := 116; gprErrCorInfo('29-L').blocks_in_g2 := 7; gprErrCorInfo('29-L').cw_in_g2 := 117;

gprErrCorInfo('29-M').total_no_of_data_cw := 1267; gprErrCorInfo('29-M').ec_cw_per_block := 28; gprErrCorInfo('29-M').blocks_in_g1 := 21; gprErrCorInfo('29-M').cw_in_g1 := 45; gprErrCorInfo('29-M').blocks_in_g2 := 7; gprErrCorInfo('29-M').cw_in_g2 := 46;

gprErrCorInfo('29-Q').total_no_of_data_cw := 911; gprErrCorInfo('29-Q').ec_cw_per_block := 30; gprErrCorInfo('29-Q').blocks_in_g1 := 1; gprErrCorInfo('29-Q').cw_in_g1 := 23; gprErrCorInfo('29-Q').blocks_in_g2 := 37; gprErrCorInfo('29-Q').cw_in_g2 := 24;

gprErrCorInfo('29-H').total_no_of_data_cw := 701; gprErrCorInfo('29-H').ec_cw_per_block := 30; gprErrCorInfo('29-H').blocks_in_g1 := 19; gprErrCorInfo('29-H').cw_in_g1 := 15; gprErrCorInfo('29-H').blocks_in_g2 := 26; gprErrCorInfo('29-H').cw_in_g2 := 16;

gprErrCorInfo('30-L').total_no_of_data_cw := 1735; gprErrCorInfo('30-L').ec_cw_per_block := 30; gprErrCorInfo('30-L').blocks_in_g1 := 5; gprErrCorInfo('30-L').cw_in_g1 := 115; gprErrCorInfo('30-L').blocks_in_g2 := 10; gprErrCorInfo('30-L').cw_in_g2 := 116;

gprErrCorInfo('30-M').total_no_of_data_cw := 1373; gprErrCorInfo('30-M').ec_cw_per_block := 28; gprErrCorInfo('30-M').blocks_in_g1 := 19; gprErrCorInfo('30-M').cw_in_g1 := 47; gprErrCorInfo('30-M').blocks_in_g2 := 10; gprErrCorInfo('30-M').cw_in_g2 := 48;

gprErrCorInfo('30-Q').total_no_of_data_cw := 985; gprErrCorInfo('30-Q').ec_cw_per_block := 30; gprErrCorInfo('30-Q').blocks_in_g1 := 15; gprErrCorInfo('30-Q').cw_in_g1 := 24; gprErrCorInfo('30-Q').blocks_in_g2 := 25; gprErrCorInfo('30-Q').cw_in_g2 := 25;

gprErrCorInfo('30-H').total_no_of_data_cw := 745; gprErrCorInfo('30-H').ec_cw_per_block := 30; gprErrCorInfo('30-H').blocks_in_g1 := 23; gprErrCorInfo('30-H').cw_in_g1 := 15; gprErrCorInfo('30-H').blocks_in_g2 := 25; gprErrCorInfo('30-H').cw_in_g2 := 16;

gprErrCorInfo('31-L').total_no_of_data_cw := 1843; gprErrCorInfo('31-L').ec_cw_per_block := 30; gprErrCorInfo('31-L').blocks_in_g1 := 13; gprErrCorInfo('31-L').cw_in_g1 := 115; gprErrCorInfo('31-L').blocks_in_g2 := 3; gprErrCorInfo('31-L').cw_in_g2 := 116;

gprErrCorInfo('31-M').total_no_of_data_cw := 1455; gprErrCorInfo('31-M').ec_cw_per_block := 28; gprErrCorInfo('31-M').blocks_in_g1 := 2; gprErrCorInfo('31-M').cw_in_g1 := 46; gprErrCorInfo('31-M').blocks_in_g2 := 29; gprErrCorInfo('31-M').cw_in_g2 := 47;

gprErrCorInfo('31-Q').total_no_of_data_cw := 1033; gprErrCorInfo('31-Q').ec_cw_per_block := 30; gprErrCorInfo('31-Q').blocks_in_g1 := 42; gprErrCorInfo('31-Q').cw_in_g1 := 24; gprErrCorInfo('31-Q').blocks_in_g2 := 1; gprErrCorInfo('31-Q').cw_in_g2 := 25;

gprErrCorInfo('31-H').total_no_of_data_cw := 793; gprErrCorInfo('31-H').ec_cw_per_block := 30; gprErrCorInfo('31-H').blocks_in_g1 := 23; gprErrCorInfo('31-H').cw_in_g1 := 15; gprErrCorInfo('31-H').blocks_in_g2 := 28; gprErrCorInfo('31-H').cw_in_g2 := 16;

gprErrCorInfo('32-L').total_no_of_data_cw := 1955; gprErrCorInfo('32-L').ec_cw_per_block := 30; gprErrCorInfo('32-L').blocks_in_g1 := 17; gprErrCorInfo('32-L').cw_in_g1 := 115; gprErrCorInfo('32-L').blocks_in_g2 := null; gprErrCorInfo('32-L').cw_in_g2 := null;

gprErrCorInfo('32-M').total_no_of_data_cw := 1541; gprErrCorInfo('32-M').ec_cw_per_block := 28; gprErrCorInfo('32-M').blocks_in_g1 := 10; gprErrCorInfo('32-M').cw_in_g1 := 46; gprErrCorInfo('32-M').blocks_in_g2 := 23; gprErrCorInfo('32-M').cw_in_g2 := 47;

gprErrCorInfo('32-Q').total_no_of_data_cw := 1115; gprErrCorInfo('32-Q').ec_cw_per_block := 30; gprErrCorInfo('32-Q').blocks_in_g1 := 10; gprErrCorInfo('32-Q').cw_in_g1 := 24; gprErrCorInfo('32-Q').blocks_in_g2 := 35; gprErrCorInfo('32-Q').cw_in_g2 := 25;

gprErrCorInfo('32-H').total_no_of_data_cw := 845; gprErrCorInfo('32-H').ec_cw_per_block := 30; gprErrCorInfo('32-H').blocks_in_g1 := 19; gprErrCorInfo('32-H').cw_in_g1 := 15; gprErrCorInfo('32-H').blocks_in_g2 := 35; gprErrCorInfo('32-H').cw_in_g2 := 16;

gprErrCorInfo('33-L').total_no_of_data_cw := 2071; gprErrCorInfo('33-L').ec_cw_per_block := 30; gprErrCorInfo('33-L').blocks_in_g1 := 17; gprErrCorInfo('33-L').cw_in_g1 := 115; gprErrCorInfo('33-L').blocks_in_g2 := 1; gprErrCorInfo('33-L').cw_in_g2 := 116;

gprErrCorInfo('33-M').total_no_of_data_cw := 1631; gprErrCorInfo('33-M').ec_cw_per_block := 28; gprErrCorInfo('33-M').blocks_in_g1 := 14; gprErrCorInfo('33-M').cw_in_g1 := 46; gprErrCorInfo('33-M').blocks_in_g2 := 21; gprErrCorInfo('33-M').cw_in_g2 := 47;

gprErrCorInfo('33-Q').total_no_of_data_cw := 1171; gprErrCorInfo('33-Q').ec_cw_per_block := 30; gprErrCorInfo('33-Q').blocks_in_g1 := 29; gprErrCorInfo('33-Q').cw_in_g1 := 24; gprErrCorInfo('33-Q').blocks_in_g2 := 19; gprErrCorInfo('33-Q').cw_in_g2 := 25;

gprErrCorInfo('33-H').total_no_of_data_cw := 901; gprErrCorInfo('33-H').ec_cw_per_block := 30; gprErrCorInfo('33-H').blocks_in_g1 := 11; gprErrCorInfo('33-H').cw_in_g1 := 15; gprErrCorInfo('33-H').blocks_in_g2 := 46; gprErrCorInfo('33-H').cw_in_g2 := 16;

gprErrCorInfo('34-L').total_no_of_data_cw := 2191; gprErrCorInfo('34-L').ec_cw_per_block := 30; gprErrCorInfo('34-L').blocks_in_g1 := 13; gprErrCorInfo('34-L').cw_in_g1 := 115; gprErrCorInfo('34-L').blocks_in_g2 := 6; gprErrCorInfo('34-L').cw_in_g2 := 116;

gprErrCorInfo('34-M').total_no_of_data_cw := 1725; gprErrCorInfo('34-M').ec_cw_per_block := 28; gprErrCorInfo('34-M').blocks_in_g1 := 14; gprErrCorInfo('34-M').cw_in_g1 := 46; gprErrCorInfo('34-M').blocks_in_g2 := 23; gprErrCorInfo('34-M').cw_in_g2 := 47;

gprErrCorInfo('34-Q').total_no_of_data_cw := 1231; gprErrCorInfo('34-Q').ec_cw_per_block := 30; gprErrCorInfo('34-Q').blocks_in_g1 := 44; gprErrCorInfo('34-Q').cw_in_g1 := 24; gprErrCorInfo('34-Q').blocks_in_g2 := 7; gprErrCorInfo('34-Q').cw_in_g2 := 25;

gprErrCorInfo('34-H').total_no_of_data_cw := 961; gprErrCorInfo('34-H').ec_cw_per_block := 30; gprErrCorInfo('34-H').blocks_in_g1 := 59; gprErrCorInfo('34-H').cw_in_g1 := 16; gprErrCorInfo('34-H').blocks_in_g2 := 1; gprErrCorInfo('34-H').cw_in_g2 := 17;

gprErrCorInfo('35-L').total_no_of_data_cw := 2306; gprErrCorInfo('35-L').ec_cw_per_block := 30; gprErrCorInfo('35-L').blocks_in_g1 := 12; gprErrCorInfo('35-L').cw_in_g1 := 121; gprErrCorInfo('35-L').blocks_in_g2 := 7; gprErrCorInfo('35-L').cw_in_g2 := 122;

gprErrCorInfo('35-M').total_no_of_data_cw := 1812; gprErrCorInfo('35-M').ec_cw_per_block := 28; gprErrCorInfo('35-M').blocks_in_g1 := 12; gprErrCorInfo('35-M').cw_in_g1 := 47; gprErrCorInfo('35-M').blocks_in_g2 := 26; gprErrCorInfo('35-M').cw_in_g2 := 48;

gprErrCorInfo('35-Q').total_no_of_data_cw := 1286; gprErrCorInfo('35-Q').ec_cw_per_block := 30; gprErrCorInfo('35-Q').blocks_in_g1 := 39; gprErrCorInfo('35-Q').cw_in_g1 := 24; gprErrCorInfo('35-Q').blocks_in_g2 := 14; gprErrCorInfo('35-Q').cw_in_g2 := 25;

gprErrCorInfo('35-H').total_no_of_data_cw := 986; gprErrCorInfo('35-H').ec_cw_per_block := 30; gprErrCorInfo('35-H').blocks_in_g1 := 22; gprErrCorInfo('35-H').cw_in_g1 := 15; gprErrCorInfo('35-H').blocks_in_g2 := 41; gprErrCorInfo('35-H').cw_in_g2 := 16;

gprErrCorInfo('36-L').total_no_of_data_cw := 2434; gprErrCorInfo('36-L').ec_cw_per_block := 30; gprErrCorInfo('36-L').blocks_in_g1 := 6; gprErrCorInfo('36-L').cw_in_g1 := 121; gprErrCorInfo('36-L').blocks_in_g2 := 14; gprErrCorInfo('36-L').cw_in_g2 := 122;

gprErrCorInfo('36-M').total_no_of_data_cw := 1914; gprErrCorInfo('36-M').ec_cw_per_block := 28; gprErrCorInfo('36-M').blocks_in_g1 := 6; gprErrCorInfo('36-M').cw_in_g1 := 47; gprErrCorInfo('36-M').blocks_in_g2 := 34; gprErrCorInfo('36-M').cw_in_g2 := 48;

gprErrCorInfo('36-Q').total_no_of_data_cw := 1354; gprErrCorInfo('36-Q').ec_cw_per_block := 30; gprErrCorInfo('36-Q').blocks_in_g1 := 46; gprErrCorInfo('36-Q').cw_in_g1 := 24; gprErrCorInfo('36-Q').blocks_in_g2 := 10; gprErrCorInfo('36-Q').cw_in_g2 := 25;

gprErrCorInfo('36-H').total_no_of_data_cw := 1054; gprErrCorInfo('36-H').ec_cw_per_block := 30; gprErrCorInfo('36-H').blocks_in_g1 := 2; gprErrCorInfo('36-H').cw_in_g1 := 15; gprErrCorInfo('36-H').blocks_in_g2 := 64; gprErrCorInfo('36-H').cw_in_g2 := 16;

gprErrCorInfo('37-L').total_no_of_data_cw := 2566; gprErrCorInfo('37-L').ec_cw_per_block := 30; gprErrCorInfo('37-L').blocks_in_g1 := 17; gprErrCorInfo('37-L').cw_in_g1 := 122; gprErrCorInfo('37-L').blocks_in_g2 := 4; gprErrCorInfo('37-L').cw_in_g2 := 123;

gprErrCorInfo('37-M').total_no_of_data_cw := 1992; gprErrCorInfo('37-M').ec_cw_per_block := 28; gprErrCorInfo('37-M').blocks_in_g1 := 29; gprErrCorInfo('37-M').cw_in_g1 := 46; gprErrCorInfo('37-M').blocks_in_g2 := 14; gprErrCorInfo('37-M').cw_in_g2 := 47;

gprErrCorInfo('37-Q').total_no_of_data_cw := 1426; gprErrCorInfo('37-Q').ec_cw_per_block := 30; gprErrCorInfo('37-Q').blocks_in_g1 := 49; gprErrCorInfo('37-Q').cw_in_g1 := 24; gprErrCorInfo('37-Q').blocks_in_g2 := 10; gprErrCorInfo('37-Q').cw_in_g2 := 25;

gprErrCorInfo('37-H').total_no_of_data_cw := 1096; gprErrCorInfo('37-H').ec_cw_per_block := 30; gprErrCorInfo('37-H').blocks_in_g1 := 24; gprErrCorInfo('37-H').cw_in_g1 := 15; gprErrCorInfo('37-H').blocks_in_g2 := 46; gprErrCorInfo('37-H').cw_in_g2 := 16;

gprErrCorInfo('38-L').total_no_of_data_cw := 2702; gprErrCorInfo('38-L').ec_cw_per_block := 30; gprErrCorInfo('38-L').blocks_in_g1 := 4; gprErrCorInfo('38-L').cw_in_g1 := 122; gprErrCorInfo('38-L').blocks_in_g2 := 18; gprErrCorInfo('38-L').cw_in_g2 := 123;

gprErrCorInfo('38-M').total_no_of_data_cw := 2102; gprErrCorInfo('38-M').ec_cw_per_block := 28; gprErrCorInfo('38-M').blocks_in_g1 := 13; gprErrCorInfo('38-M').cw_in_g1 := 46; gprErrCorInfo('38-M').blocks_in_g2 := 32; gprErrCorInfo('38-M').cw_in_g2 := 47;

gprErrCorInfo('38-Q').total_no_of_data_cw := 1502; gprErrCorInfo('38-Q').ec_cw_per_block := 30; gprErrCorInfo('38-Q').blocks_in_g1 := 48; gprErrCorInfo('38-Q').cw_in_g1 := 24; gprErrCorInfo('38-Q').blocks_in_g2 := 14; gprErrCorInfo('38-Q').cw_in_g2 := 25;

gprErrCorInfo('38-H').total_no_of_data_cw := 1142; gprErrCorInfo('38-H').ec_cw_per_block := 30; gprErrCorInfo('38-H').blocks_in_g1 := 42; gprErrCorInfo('38-H').cw_in_g1 := 15; gprErrCorInfo('38-H').blocks_in_g2 := 32; gprErrCorInfo('38-H').cw_in_g2 := 16;

gprErrCorInfo('39-L').total_no_of_data_cw := 2812; gprErrCorInfo('39-L').ec_cw_per_block := 30; gprErrCorInfo('39-L').blocks_in_g1 := 20; gprErrCorInfo('39-L').cw_in_g1 := 117; gprErrCorInfo('39-L').blocks_in_g2 := 4; gprErrCorInfo('39-L').cw_in_g2 := 118;

gprErrCorInfo('39-M').total_no_of_data_cw := 2216; gprErrCorInfo('39-M').ec_cw_per_block := 28; gprErrCorInfo('39-M').blocks_in_g1 := 40; gprErrCorInfo('39-M').cw_in_g1 := 47; gprErrCorInfo('39-M').blocks_in_g2 := 7; gprErrCorInfo('39-M').cw_in_g2 := 48;

gprErrCorInfo('39-Q').total_no_of_data_cw := 1582; gprErrCorInfo('39-Q').ec_cw_per_block := 30; gprErrCorInfo('39-Q').blocks_in_g1 := 43; gprErrCorInfo('39-Q').cw_in_g1 := 24; gprErrCorInfo('39-Q').blocks_in_g2 := 22; gprErrCorInfo('39-Q').cw_in_g2 := 25;

gprErrCorInfo('39-H').total_no_of_data_cw := 1222; gprErrCorInfo('39-H').ec_cw_per_block := 30; gprErrCorInfo('39-H').blocks_in_g1 := 10; gprErrCorInfo('39-H').cw_in_g1 := 15; gprErrCorInfo('39-H').blocks_in_g2 := 67; gprErrCorInfo('39-H').cw_in_g2 := 16;

gprErrCorInfo('40-L').total_no_of_data_cw := 2956; gprErrCorInfo('40-L').ec_cw_per_block := 30; gprErrCorInfo('40-L').blocks_in_g1 := 19; gprErrCorInfo('40-L').cw_in_g1 := 118; gprErrCorInfo('40-L').blocks_in_g2 := 6; gprErrCorInfo('40-L').cw_in_g2 := 119;

gprErrCorInfo('40-M').total_no_of_data_cw := 2334; gprErrCorInfo('40-M').ec_cw_per_block := 28; gprErrCorInfo('40-M').blocks_in_g1 := 18; gprErrCorInfo('40-M').cw_in_g1 := 47; gprErrCorInfo('40-M').blocks_in_g2 := 31; gprErrCorInfo('40-M').cw_in_g2 := 48;

gprErrCorInfo('40-Q').total_no_of_data_cw := 1666; gprErrCorInfo('40-Q').ec_cw_per_block := 30; gprErrCorInfo('40-Q').blocks_in_g1 := 34; gprErrCorInfo('40-Q').cw_in_g1 := 24; gprErrCorInfo('40-Q').blocks_in_g2 := 34; gprErrCorInfo('40-Q').cw_in_g2 := 25;

gprErrCorInfo('40-H').total_no_of_data_cw := 1276; gprErrCorInfo('40-H').ec_cw_per_block := 30; gprErrCorInfo('40-H').blocks_in_g1 := 20; gprErrCorInfo('40-H').cw_in_g1 := 15; gprErrCorInfo('40-H').blocks_in_g2 := 61; gprErrCorInfo('40-H').cw_in_g2 := 16;

END;

--CALCULATION FUNC AND PROC

FUNCTION f_mode_name(p_type pls_integer) RETURN varchar2 IS

lcMode varchar2(50);

BEGIN

lcMode :=

CASE p_type

WHEN cNumericMode THEN 'Numeric Mode'

WHEN cAlphanumericMode THEN 'Alphanumeric Mode'

WHEN cByteMode THEN 'Byte Mode'

WHEN cKanjiMode THEN 'Kanji mode'

ELSE null

END;

RETURN lcMode;

END;

function returns QR code mode depending of data going to be encoded:

1 - Numeric mode (for decimal digits 0 through 9)

2 - Alphanumeric mode (specific table encoded in this function)

3 - Byte mode (ISO-8859-1 character set or UTF-8)

4 - Double-byte mode (Kanji)

UTF-8 ascii values for kanji:

3000 - 303f: Japanese-style punctuation

3040 - 309f: Hiragana

30a0 - 30ff: Katakana

ff00 - ff9f: Full-width Roman characters and half-width Katakana

4e00 - 9faf: CJK unified ideographs - Common and uncommon Kanji

3400 - 4dbf: CJK unified ideographs Extension A - Rare Kanji

FUNCTION f_get_mode(p_data varchar2) RETURN pls_integer IS

lnType pls_integer := 0;

lcChar varchar2(1 char);

FUNCTION f_is_char_kanji(p_char varchar2) RETURN boolean IS

lnAscii number := ascii(p_char);

lbReturn boolean := false;

BEGIN

lnAscii between to_number('3000', 'xxxx') and to_number('30FF', 'xxxx') or

lnAscii between to_number('FF00', 'xxxx') and to_number('FF9F', 'xxxx') or

lnAscii between to_number('4E00', 'xxxx') and to_number('9FAF', 'xxxx') or

lnAscii between to_number('3400', 'xxxx') and to_number('4DBF', 'xxxx')

then

lbReturn := true;

end if;

RETURN lbReturn;

END;

BEGIN

FOR t IN 1 .. length(p_data) LOOP

lcChar := substr(p_data, t, 1);

if instr('0123456789', lcChar) > 0 then --numeric mode (1)

p_debug(f_mode_name(cNumericMode) || ': char ' || lcChar, 2);

lnType := greatest(lnType, cNumericMode);

elsif instr('ABCDEFGHIJKLMNOPQRSTUVWXYZ $%*+-./:', lcChar) > 0 then --alphanumeric mode (2)

p_debug(f_mode_name(cAlphanumericMode) || ': char ' || lcChar, 2);

lnType := greatest(lnType, cAlphanumericMode);

elsif not f_is_char_kanji(lcChar) then --Byte mode including UTF-8 except kanji (3)

p_debug(f_mode_name(cByteMode) || ': char ' || lcChar, 2);

lnType := greatest(lnType, cByteMode);

else --kanji mode (4)

lnType := cKanjiMode;

end if;

END LOOP;

--debug

p_debug('mode for qr code: ' || f_mode_name(lnType) );

RETURN lnType;

END;

FUNCTION f_err_cor_2_number(p_error_correction varchar2) RETURN number IS

lnNumber pls_integer;

BEGIN

--conversion to number

lnNumber := CASE p_error_correction

WHEN 'L' THEN 1

WHEN 'M' THEN 2

WHEN 'Q' THEN 3

WHEN 'H' THEN 4

ELSE 0 END;

--error if mode can not be determined

if lnNumber = 0 then

RAISE_APPLICATION_ERROR(-20000, 'unknown error correction mode!');

end if;

--return value

RETURN lnNumber;

END f_err_cor_2_number;

4 different indicators which are encoded into QR code

FUNCTION f_mode_indicator RETURN varchar2 IS

lcMode varchar2(4);

BEGIN

lcMode :=

CASE gpnMode

WHEN cNumericMode THEN '0001'

WHEN cAlphanumericMode THEN '0010'

WHEN cByteMode THEN '0100'

WHEN cKanjiMode THEN '1000'

ELSE null

END;

p_debug('Mode indicator: ' || lcMode, 2);

RETURN lcMode;

END;

character count indicator - final length in bits depends of mode and version

FUNCTION f_char_count_indicator(p_data varchar2) RETURN varchar2 IS

lnLength pls_integer;

lcIndicator varchar2(16);

lnCCILength pls_integer;

BEGIN

--length in bytes to binary; in case of UTF-8 one char can be more than 1 byte

--that's why lengthb function is used instead of length

lnLength := lengthb(p_data);

lcIndicator := f_integer_2_binary(lnLength);

p_debug('CCI Binary: ' || lcIndicator, 2);

--padding

if gpnVersion <= 9 then

lnCCILength :=

CASE gpnMode

WHEN cNumericMode THEN 10

WHEN cAlphanumericMode THEN 9

WHEN cByteMode THEN 8

WHEN cKanjiMode THEN 8

ELSE 0

END;

elsif gpnVersion between 10 and 26 then

lnCCILength :=

CASE gpnMode

WHEN cNumericMode THEN 12

WHEN cAlphanumericMode THEN 11

WHEN cByteMode THEN 16

WHEN cKanjiMode THEN 10

ELSE 0

END;

elsif gpnVersion >= 27 then

lnCCILength :=

CASE gpnMode

WHEN cNumericMode THEN 14

WHEN cAlphanumericMode THEN 13

WHEN cByteMode THEN 16

WHEN cKanjiMode THEN 12

ELSE 0

END;

end if;

p_debug('Character Count Indicator length: ' || lnCCILength, 2);

lcIndicator := lpad(lcIndicator, lnCCILength, '0');

p_debug('Character Count Indicator: ' || lcIndicator, 2);

RETURN lcIndicator;

END f_char_count_indicator;

function determins and returns a QR code version (size), which depends of 3 values:

- error correction level

- mode (numeric, alphanumeric, byte or double byte)

- length of data

Version is determined from a table, where 3 dimensions are values from previous list

We are searching for a smallest value, which can contain our data (error correction level and mode are fixed)

For example, for:

- correction level "M"

- data "HELLO TO ALL PEOPLE IN THE WORLD" (data length is 32, mode is alphanumeric)

a version is 2, because for given dimensions a version 2 can contain maximal of 38 characters and we have 32 characters

Version 1 can contain maximal 20 characters and it is not enough.

FUNCTION f_get_version(

p_data varchar2,

p_error_correction varchar2) RETURN pls_integer IS

TYPE t_values IS TABLE OF varchar2(1000) INDEX BY pls_integer;

lrValues t_values;

TYPE t_numbers IS TABLE OF pls_integer;

lrData t_numbers;

lnVersion pls_integer := 0;

lnLength pls_integer;

lnElements pls_integer;

lnPosition pls_integer;

FUNCTION f_explode(

p_text varchar2,

p_delimiter varchar2

) RETURN t_numbers IS

lrList t_numbers := t_numbers();

lnCounter pls_integer := 0;

lcText varchar2(32000) := p_text;

BEGIN

LOOP

lnCounter := instr(lcText, p_delimiter);

if lnCounter > 0 then

lrList.extend(1);

lrList(lrList.count) := substr(lcText, 1, lnCounter - 1);

lcText := substr(lcText, lnCounter + length(p_delimiter));

else

lrList.extend(1);

lrList(lrList.count) := lcText;

RETURN lrList;

end if;

END LOOP;

END f_explode;

BEGIN

--initial values to determine version

lnLength := lengthb(p_data);

values are separated in sets; each set has 4 values

first value in set is for numeric mode, second for alphanumeric, then byte and at the end for double-byte

first set is for error level "L", next set for "M", then "Q" then "H"

example for version 1 (values are maximal number of characters for error level correction and mode)

numeric alphanumeric byte double-byte

L 41 25 17 10

M 34 20 14 8

Q 27 16 11 7

H 17 10 7 4

index for variable lrValues is version

values are parsed in collection during runtime

lrValues(1) := '41,25,17,10,34,20,14,8,27,16,11,7,17,10,7,4';

lrValues(2) := '77,47,32,20,63,38,26,16,48,29,20,12,34,20,14,8';

lrValues(3) := '127,77,53,32,101,61,42,26,77,47,32,20,58,35,24,15';

lrValues(4) := '187,114,78,48,149,90,62,38,111,67,46,28,82,50,34,21';

lrValues(5) := '255,154,106,65,202,122,84,52,144,87,60,37,106,64,44,27';

lrValues(6) := '322,195,134,82,255,154,106,65,178,108,74,45,139,84,58,36';

lrValues(7) := '370,224,154,95,293,178,122,75,207,125,86,53,154,93,64,39';

lrValues(8) := '461,279,192,118,365,221,152,93,259,157,108,66,202,122,84,52';

lrValues(9) := '552,335,230,141,432,262,180,111,312,189,130,80,235,143,98,60';

lrValues(10) := '652,395,271,167,513,311,213,131,364,221,151,93,288,174,119,74';

lrValues(11) := '772,468,321,198,604,366,251,155,427,259,177,109,331,200,137,85';

lrValues(12) := '883,535,367,226,691,419,287,177,489,296,203,125,374,227,155,96';

lrValues(13) := '1022,619,425,262,796,483,331,204,580,352,241,149,427,259,177,109';

lrValues(14) := '1101,667,458,282,871,528,362,223,621,376,258,159,468,283,194,120';

lrValues(15) := '1250,758,520,320,991,600,412,254,703,426,292,180,530,321,220,136';

lrValues(16) := '1408,854,586,361,1082,656,450,277,775,470,322,198,602,365,250,154';

lrValues(17) := '1548,938,644,397,1212,734,504,310,876,531,364,224,674,408,280,173';

lrValues(18) := '1725,1046,718,442,1346,816,560,345,948,574,394,243,746,452,310,191';

lrValues(19) := '1903,1153,792,488,1500,909,624,384,1063,644,442,272,813,493,338,208';

lrValues(20) := '2061,1249,858,528,1600,970,666,410,1159,702,482,297,919,557,382,235';

lrValues(21) := '2232,1352,929,572,1708,1035,711,438,1224,742,509,314,969,587,403,248';

lrValues(22) := '2409,1460,1003,618,1872,1134,779,480,1358,823,565,348,1056,640,439,270';

lrValues(23) := '2620,1588,1091,672,2059,1248,857,528,1468,890,611,376,1108,672,461,284';

lrValues(24) := '2812,1704,1171,721,2188,1326,911,561,1588,963,661,407,1228,744,511,315';

lrValues(25) := '3057,1853,1273,784,2395,1451,997,614,1718,1041,715,440,1286,779,535,330';

lrValues(26) := '3283,1990,1367,842,2544,1542,1059,652,1804,1094,751,462,1425,864,593,365';

lrValues(27) := '3517,2132,1465,902,2701,1637,1125,692,1933,1172,805,496,1501,910,625,385';

lrValues(28) := '3669,2223,1528,940,2857,1732,1190,732,2085,1263,868,534,1581,958,658,405';

lrValues(29) := '3909,2369,1628,1002,3035,1839,1264,778,2181,1322,908,559,1677,1016,698,430';

lrValues(30) := '4158,2520,1732,1066,3289,1994,1370,843,2358,1429,982,604,1782,1080,742,457';

lrValues(31) := '4417,2677,1840,1132,3486,2113,1452,894,2473,1499,1030,634,1897,1150,790,486';

lrValues(32) := '4686,2840,1952,1201,3693,2238,1538,947,2670,1618,1112,684,2022,1226,842,518';

lrValues(33) := '4965,3009,2068,1273,3909,2369,1628,1002,2805,1700,1168,719,2157,1307,898,553';

lrValues(34) := '5253,3183,2188,1347,4134,2506,1722,1060,2949,1787,1228,756,2301,1394,958,590';

lrValues(35) := '5529,3351,2303,1417,4343,2632,1809,1113,3081,1867,1283,790,2361,1431,983,605';

lrValues(36) := '5836,3537,2431,1496,4588,2780,1911,1176,3244,1966,1351,832,2524,1530,1051,647';

lrValues(37) := '6153,3729,2563,1577,4775,2894,1989,1224,3417,2071,1423,876,2625,1591,1093,673';

lrValues(38) := '6479,3927,2699,1661,5039,3054,2099,1292,3599,2181,1499,923,2735,1658,1139,701';

lrValues(39) := '6743,4087,2809,1729,5313,3220,2213,1362,3791,2298,1579,972,2927,1774,1219,750';

lrValues(40) := '7089,4296,2953,1817,5596,3391,2331,1435,3993,2420,1663,1024,3057,1852,1273,784';

--a version depending of error correction method, mode and data length

lnPosition := (f_err_cor_2_number(p_error_correction) - 1) * 4 + gpnMode;

p_debug('length: ' || lnLength, 2);

FOR t IN 1 .. 40 LOOP

p_debug(lrValues(t), 4);

SELECT to_number(column_value) a

BULK COLLECT INTO lrData

FROM XMLTABLE(lrValues(t));

lrData := f_explode(

p_text => lrValues(t),

p_delimiter => ','

);

p_debug('Value on position ' || lnPosition || ': ' || lrData(lnPosition), 2);

if lrData(lnPosition) >= lnLength then

lnVersion := t;

EXIT;

end if;

END LOOP;

--if version can not be determined then throw error

if lnVersion = 0 then

RAISE_APPLICATION_ERROR(-20000, 'Data length is too big to be encoded in one QR code.');

end if;

--debug

p_debug('version: ' || lnVersion);

RETURN lnVersion;

END f_get_version;

FUNCTION f_encode_data(

p_data varchar2,

p_error_correction varchar2) RETURN varchar2 IS

lcData varchar2(32000);

lnCounter pls_integer := 1;

lcSub varchar2(3);

lnReqNumOfBits pls_integer;

lcChar varchar2(1 char);

--function returns value of character in alphanumeric mode

FUNCTION f_get_code(p_char varchar2) RETURN pls_integer IS

lnCode pls_integer;

BEGIN

--0 - 9

if instr('0123456789', p_char) > 0 then

lnCode := to_number(p_char);

elsif instr('ABCDEFGHIJKLMNOPQRSTUVWXYZ', p_char) > 0 then

lnCode := ascii(p_char) - 55;

elsif p_char = ' ' then

lnCode := 36;

elsif p_char = '$' then

lnCode := 37;

elsif p_char = '%' then

lnCode := 38;

elsif p_char = '*' then

lnCode := 39;

elsif p_char = '+' then

lnCode := 40;

elsif p_char = '-' then

lnCode := 41;

elsif p_char = '.' then

lnCode := 42;

elsif p_char = '/' then

lnCode := 43;

elsif p_char = ':' then

lnCode := 44;

end if;

RETURN lnCode;

END f_get_code;

BEGIN

--encoded data regardless of mode always start with mode indicator and character count indicator

lcData := f_mode_indicator || f_char_count_indicator(p_data);

--data encoding - different for different modes

if gpnMode = cNumericMode then

LOOP

lcSub := substr(p_data, lnCounter, 3);

p_debug(lcSub, 2);

if length(lcSub) = 3 then

lcData := lcData || lpad(f_integer_2_binary( to_number(lcSub) ), 10, '0');

elsif length(lcSub) = 2 then

lcData := lcData || lpad(f_integer_2_binary( to_number(lcSub) ), 7, '0');

elsif length(lcSub) = 1 then

lcData := lcData || lpad(f_integer_2_binary( to_number(lcSub) ), 4, '0');

end if;

EXIT WHEN lnCounter >= length(p_data);

lnCounter := lnCounter + 3;

END LOOP;

elsif gpnMode = cAlphanumericMode then

LOOP

lcSub := substr(p_data, lnCounter, 2);

p_debug(lcSub, 2);

if length(lcSub) = 2 then

lcData := lcData || lpad(f_integer_2_binary( f_get_code(substr(lcSub, 1, 1)) * 45 + f_get_code(substr(lcSub, 2, 1)) ), 11, '0');

elsif length(lcSub) = 1 then

lcData := lcData || lpad(f_integer_2_binary( f_get_code(lcSub) ), 6, '0');

end if;

EXIT WHEN lnCounter >= length(p_data);

lnCounter := lnCounter + 2;

END LOOP;

elsif gpnMode = cByteMode then

FOR t IN 1 .. length(p_data) LOOP

lcChar := substr(p_data, t, 1);

lcData := lcData || lpad(f_integer_2_binary( ascii(lcChar) ), 8 * lengthb(lcChar), '0');

END LOOP;

elsif gpnMode = cKanjiMode then

--TODO for Kanji mode

null;

end if;

p_debug('Data without right padding (number of bits ' || length(lcData) || '): ' || lcData, 2);

--terminator zeros

lnReqNumOfBits := gprErrCorInfo(gpnVersion || '-' || p_error_correction).total_no_of_data_cw * 8;

p_debug('Required number of bits: ' || lnReqNumOfBits, 2);

p_debug('Terminator zeros to add: ' || (lnReqNumOfBits - lengthb(lcData)), 2);

if lnReqNumOfBits - lengthb(lcData) >= 4 then

lcData := lcData || '0000';

else

lcData := rpad(lcData, lnReqNumOfBits, '0');

end if;

p_debug('Data with right padding (number of bits ' || length(lcData) || '): ' || lcData, 2);

--additional right padding with 0 to reach a string length multiple of 8

LOOP

EXIT WHEN length(lcData) mod 8 = 0;

lcData := lcData || '0';

p_debug('Additional right padding zeros: 0', 2);

END LOOP;

--final filling of data with 11101100 and 00010001 alternatively until full length is reached

LOOP

EXIT WHEN length(lcData) = lnReqNumOfBits;

lcData := lcData || '11101100';

p_debug('Additional padding with: 11101100', 2);

EXIT WHEN length(lcData) = lnReqNumOfBits;

lcData := lcData || '00010001';

p_debug('Additional padding with: 00010001', 2);

END LOOP;

--debug

p_debug('Data (number of bits ' || length(lcData) || '): ' || lcData);

RETURN lcData;

END f_encode_data;

FUNCTION f_final_data_with_ec(

p_encoded_data varchar2,

p_error_correction varchar2) RETURN varchar2 IS

TYPE t_cw IS TABLE OF pls_integer;

TYPE r_block IS RECORD (cw t_cw);

TYPE t_block IS TABLE OF r_block INDEX BY varchar2(10);

lrBlock t_block;

lcVersionEC varchar2(10);

lcBlock varchar2(10);

lnCounter pls_integer := 1;

lcCW varchar2(8);

lnCW pls_integer;

lnGroups pls_integer;

lcDebug varchar2(10000);

lnReminderBits pls_integer := 0;

lcResult varchar2(32000);

FUNCTION f_blocks_in_group(p_group pls_integer) RETURN pls_integer IS

BEGIN

RETURN

CASE

WHEN p_group = 1 THEN gprErrCorInfo(lcVersionEC).blocks_in_g1

ELSE nvl(gprErrCorInfo(lcVersionEC).blocks_in_g2, 0)

END;

FUNCTION f_cw_in_group(p_group pls_integer) RETURN pls_integer IS

BEGIN

RETURN

CASE

WHEN p_group = 1 THEN gprErrCorInfo(lcVersionEC).cw_in_g1

ELSE nvl(gprErrCorInfo(lcVersionEC).cw_in_g2, 0)

END;

PROCEDURE p_add_cw_to_block(p_gb varchar2, p_cw pls_integer) IS

BEGIN

lrBlock(p_gb).cw.extend;

lrBlock(p_gb).cw(lrBlock(p_gb).cw.count) := p_cw;

END;

PROCEDURE p_debug_collection(

p_description varchar2,

p_collection t_cw,

p_level pls_integer default 1) IS

BEGIN

lcDebug := p_description;

FOR t IN p_collection.first .. p_collection.last LOOP

lcDebug := lcDebug || p_collection(t) || ', ';

END LOOP;

p_debug(rtrim(lcDebug, ', '), p_level);

END;

FUNCTION f_poly_divide(p_mess_poly t_cw, p_gen_poly t_cw) RETURN t_cw IS

lrEC t_cw := t_cw();

lrDivider t_cw := t_cw();

lrResult t_cw := t_cw();

lnAnti pls_integer;

BEGIN

--copy message polynomial to lrEC

lrEC := lrEc MULTISET UNION ALL p_mess_poly;

--To make sure that the exponent of the lead term doesn't become too small during the division

--multiply the message polynomial by xn where n is the number of error correction codewords that are needed

--so, we extend the collection and fill those elements with 0

lrEC.extend(p_gen_poly.count - 1);

FOR t IN REVERSE lrEC.first .. lrEC.last LOOP

EXIT WHEN lrEC(t) is not null;

lrEC(t) := 0;

END LOOP;

FOR t IN 1 .. p_mess_poly.count LOOP

p_debug('Step ' || t || ':', 2);

if lrEC(t) > 0 then

--Lead Term of the Message Polynomial (in first cycle) or result from previous cycle

--antilog is needed for multipilcation with generator polynomial (next step)

lnAnti := gprAntiLog( lrEC(t) );

p_debug('Lead Term of the Message Polynomial: ' || lrEC(t) || ' (antiLog ' || lnAnti || ')', 2);

--copy generator polynomial to lrDivider

lrDivider.delete;

lrDivider := lrDivider MULTISET UNION ALL p_gen_poly;

--Multiply the Generator Polynomial by the Lead Term of the Message Polynomial

--everything is happening in antilog - generator polynomial is already in antilog

--basicly we add two antilogs

FOR p IN 1 .. lrDivider.count LOOP

lrDivider(p) := lrDivider(p) + lnAnti;

if lrDivider(p) >= 255 then

lrDivider(p) := lrDivider(p) - 255;

end if;

END LOOP;

p_debug_collection(

'Generator polynomial multiplied with Lead Term antiLog (in antiLog): ',

lrDivider,

2);

--XOR the result with the message polynomial (first cycle) or result from previous cycle

--Message or result from previous cycle is already in log, so we convert generated polynomial from previous step into log

--leading terms, which are already 0 are discarded (index is "p + t - 1")

FOR p IN 1 .. lrDivider.count LOOP

lrEC(p + t - 1) := bitxor( lrEC(p + t - 1), gprLog(lrDivider(p)) );

END LOOP;

p_debug_collection(

'XOR the result with the message polynomial or result from previous cycle (in Log): ',

lrEC,

2);

else

p_debug('skipping this step and discarding next lead term 0...', 2);

end if;

END LOOP;

--last remaining elements are error correction codewords

FOR t IN lrEC.count - (p_gen_poly.count - 2) .. lrEC.count LOOP

lrResult.extend;

lrResult(lrResult.count) := lrEC(t);

END LOOP;

RETURN lrResult;

END;

BEGIN

--Version and EC Level

lcVersionEC := gpnVersion || '-' || p_error_correction;

p_debug('Version and EC Level: ' || lcVersionEC, 2);

--generator polynomial - init for all 13 possible options

--generator polynomial has the same structure as message polynomial (block) and so the same type is used

lrBlock('7').cw := t_cw(0, 87, 229, 146, 149, 238, 102, 21);

lrBlock('10').cw := t_cw(0, 251, 67, 46, 61, 118, 70, 64, 94, 32, 45);

lrBlock('13').cw := t_cw(0, 74, 152, 176, 100, 86, 100, 106, 104, 130, 218, 206, 140, 78);

lrBlock('15').cw := t_cw(0, 8, 183, 61, 91, 202, 37, 51, 58, 58, 237, 140, 124, 5, 99, 105);

lrBlock('16').cw := t_cw(0, 120, 104, 107, 109, 102, 161, 76, 3, 91, 191, 147, 169, 182, 194, 225, 120);

lrBlock('17').cw := t_cw(0, 43, 139, 206, 78, 43, 239, 123, 206, 214, 147, 24, 99, 150, 39, 243, 163, 136);

lrBlock('18').cw := t_cw(0, 215, 234, 158, 94, 184, 97, 118, 170, 79, 187, 152, 148, 252, 179, 5, 98, 96, 153);

lrBlock('20').cw := t_cw(0, 17, 60, 79, 50, 61, 163, 26, 187, 202, 180, 221, 225, 83, 239, 156, 164, 212, 212, 188, 190);

lrBlock('22').cw := t_cw(0, 210, 171, 247, 242, 93, 230, 14, 109, 221, 53, 200, 74, 8, 172, 98, 80, 219, 134, 160, 105, 165, 231);

lrBlock('24').cw := t_cw(0, 229, 121, 135, 48, 211, 117, 251, 126, 159, 180, 169, 152, 192, 226, 228, 218, 111, 0, 117, 232, 87, 96, 227, 21);

lrBlock('26').cw := t_cw(0, 173, 125, 158, 2, 103, 182, 118, 17, 145, 201, 111, 28, 165, 53, 161, 21, 245, 142, 13, 102, 48, 227, 153, 145, 218, 70);

lrBlock('28').cw := t_cw(0, 168, 223, 200, 104, 224, 234, 108, 180, 110, 190, 195, 147, 205, 27, 232, 201, 21, 43, 245, 87, 42, 195, 212, 119, 242, 37, 9, 123);

lrBlock('30').cw := t_cw(0, 41, 173, 145, 152, 216, 31, 179, 182, 50, 48, 110, 86, 239, 96, 222, 125, 42, 173, 226, 193, 224, 130, 156, 37, 251, 216, 238, 40, 192, 180);

--debug - Generator Polynomial used

p_debug_collection(

'Generator Polynomial (' || gprErrCorInfo(lcVersionEC).ec_cw_per_block || '): ',

lrBlock(gprErrCorInfo(lcVersionEC).ec_cw_per_block).cw,

2);

--how many groups

lnGroups := (CASE WHEN gprErrCorInfo(lcVersionEC).blocks_in_g2 is null THEN 1 ELSE 2 END);

--debug - number of groups and blocks in each group, number of codewords for each block in group

p_debug('Number of groups: ' || lnGroups, 2);

FOR gr IN 1 .. lnGroups LOOP

p_debug('Group ' || gr || ' - number of blocks in group: ' || f_blocks_in_group(gr), 2);

p_debug('Group ' || gr || ' - number of codewords in each block: ' || f_cw_in_group(gr), 2);

END LOOP;

--prepare message polynomial for each group and block (G1B1, G1B2 ... G2B1, G2B2...)

FOR gr IN 1 .. lnGroups LOOP

FOR blk IN 1 .. f_blocks_in_group(gr) LOOP

--init block

lcBlock := 'G' || gr || 'B' || blk;

lrBlock(lcBlock).cw := t_cw();

p_debug('Group ' || gr || ', block ' || blk || ' - message polynomial:', 2);

--fill block with data codewords (codewords are converted to decimal)

FOR cw IN 1 .. f_cw_in_group(gr) LOOP

lcCW := substr(p_encoded_data, lnCounter, 8);

lnCW := bin2dec(lcCW);

p_add_cw_to_block(lcBlock, lnCW);

p_debug('Codeword ' || cw || ': ' || lcCW || ' (' || lnCW || ')', 2);

lnCounter := lnCounter + 8;

END LOOP;

--calculate error correction data for each group and block (G1B1EC, G1B2EC... G2B1EC, G2B2EC...)

FOR gr IN 1 .. lnGroups LOOP

FOR blk IN 1 .. f_blocks_in_group(gr) LOOP

lrBlock('G' || gr || 'B' || blk || 'EC').cw := f_poly_divide(

lrBlock('G' || gr || 'B' || blk).cw, --message polynomial

lrBlock(gprErrCorInfo(lcVersionEC).ec_cw_per_block).cw --generator polynomial

);

p_debug_collection(

'Final error correction codewords for group ' || gr || ' and block ' || blk || ': ',

lrBlock('G' || gr || 'B' || blk || 'EC').cw,

2);

END LOOP;

--structure final message (interleaving) - data codewords

lcDebug := 'Interleaved data codewords: ';

FOR cnt IN 1 .. greatest( f_cw_in_group(1), f_cw_in_group(2) ) LOOP

FOR gr IN 1 .. lnGroups LOOP

FOR blk IN 1 .. f_blocks_in_group(gr) LOOP

if lrBlock('G' || gr || 'B' || blk).cw.count >= cnt then

lcResult := lcResult || lpad(f_integer_2_binary( lrBlock('G' || gr || 'B' || blk).cw(cnt) ), 8, '0');

lcDebug := lcDebug || lrBlock('G' || gr || 'B' || blk).cw(cnt) || ', ';

end if;

END LOOP;

p_debug(rtrim(lcDebug, ', '), 2);

--structure final message (interleaving) - error correction codewords

lcDebug := 'Interleaved error correction codewords: ';

FOR cnt IN 1 .. gprErrCorInfo(lcVersionEC).ec_cw_per_block LOOP

FOR gr IN 1 .. lnGroups LOOP

FOR blk IN 1 .. f_blocks_in_group(gr) LOOP

lcResult := lcResult || lpad(f_integer_2_binary( lrBlock('G' || gr || 'B' || blk || 'EC').cw(cnt) ), 8, '0');

lcDebug := lcDebug || lrBlock('G' || gr || 'B' || blk || 'EC').cw(cnt) || ', ';

END LOOP;

p_debug(rtrim(lcDebug, ', '), 2);

--Add Remainder Bits for some QR versions, if necessary

lnReminderBits :=

CASE

WHEN gpnVersion between 2 and 6 THEN 7

WHEN gpnVersion between 21 and 27 THEN 4

WHEN gpnVersion between 14 and 20 or gpnVersion between 28 and 34 THEN 3

ELSE 0

END;

p_debug('Reminder bits: ' || lnReminderBits, 2);

if lnReminderBits > 0 then

lcResult := rpad(lcResult, length(lcResult) + lnReminderBits, '0');

end if;

p_debug('Final message (length ' || length(lcResult) || '): ' || lcResult);

RETURN lcResult;

END f_final_data_with_ec;

PROCEDURE p_place_fm_in_matrix(lcData varchar2) IS

lnColumn pls_integer;

lnRow pls_integer;

lnDirection pls_integer;

lnCounter pls_integer;

PROCEDURE p_set_module(p_column pls_integer, p_row pls_integer) IS

BEGIN

if gprMatrix(p_row)(p_column) is null then

gprMatrix(p_row)(p_column) := substr(lcData, lnCounter, 1);

lnCounter := lnCounter + 1;

end if;

END;

BEGIN

--staring values

lnColumn := f_matrix_size;

lnRow := f_matrix_size;

lnDirection := -1;

lnCounter := 1;

LOOP

EXIT WHEN lnColumn < 1;

--fill data in column

FOR t IN 1 .. f_matrix_size LOOP

p_set_module(lnColumn, lnRow);

p_set_module(lnColumn - 1, lnRow);

lnRow := lnRow + lnDirection;

END LOOP;

--change of direction

lnDirection := lnDirection * -1;

--first position for next column (because the last iteration of loop breached through matrix margine)

lnRow := lnRow + lnDirection;

--next column

lnColumn := lnColumn - 2;

--exception is vertical time pattern - if pattern is reached then column shifts to the first column on the left

if lnColumn = 7 then

lnColumn := 6;

end if;

END LOOP;

--debug filled matrix

p_debug('Matrix filled with final message (modules marked with dots are for format data; marked with stars are for version - those data will be filled in masking step):', 2);

p_dbms_output_matrix(gprMatrix, 2);

END;

PROCEDURE p_masking_format_version(p_error_correction varchar2) IS

TYPE t_format_version IS TABLE OF varchar2(20) INDEX BY varchar2(2);

lrFormat t_format_version;

lrVersion t_format_version;

lnR pls_integer;

lnC pls_integer;

PROCEDURE p_init_format_version IS

BEGIN

--init format

lrFormat('L0') := '111011111000100';

lrFormat('L1') := '111001011110011';

lrFormat('L2') := '111110110101010';

lrFormat('L3') := '111100010011101';

lrFormat('L4') := '110011000101111';

lrFormat('L5') := '110001100011000';

lrFormat('L6') := '110110001000001';

lrFormat('L7') := '110100101110110';

lrFormat('M0') := '101010000010010';

lrFormat('M1') := '101000100100101';

lrFormat('M2') := '101111001111100';

lrFormat('M3') := '101101101001011';

lrFormat('M4') := '100010111111001';

lrFormat('M5') := '100000011001110';

lrFormat('M6') := '100111110010111';

lrFormat('M7') := '100101010100000';

lrFormat('Q0') := '011010101011111';

lrFormat('Q1') := '011000001101000';

lrFormat('Q2') := '011111100110001';

lrFormat('Q3') := '011101000000110';

lrFormat('Q4') := '010010010110100';

lrFormat('Q5') := '010000110000011';

lrFormat('Q6') := '010111011011010';

lrFormat('Q7') := '010101111101101';

lrFormat('H0') := '001011010001001';

lrFormat('H1') := '001001110111110';

lrFormat('H2') := '001110011100111';

lrFormat('H3') := '001100111010000';

lrFormat('H4') := '000011101100010';

lrFormat('H5') := '000001001010101';

lrFormat('H6') := '000110100001100';

lrFormat('H7') := '000100000111011';

--init version

lrVersion('7') := '000111110010010100';

lrVersion('8') := '001000010110111100';

lrVersion('9') := '001001101010011001';

lrVersion('10') := '001010010011010011';

lrVersion('11') := '001011101111110110';

lrVersion('12') := '001100011101100010';

lrVersion('13') := '001101100001000111';

lrVersion('14') := '001110011000001101';

lrVersion('15') := '001111100100101000';

lrVersion('16') := '010000101101111000';

lrVersion('17') := '010001010001011101';

lrVersion('18') := '010010101000010111';

lrVersion('19') := '010011010100110010';

lrVersion('20') := '010100100110100110';

lrVersion('21') := '010101011010000011';

lrVersion('22') := '010110100011001001';

lrVersion('23') := '010111011111101100';

lrVersion('24') := '011000111011000100';

lrVersion('25') := '011001000111100001';

lrVersion('26') := '011010111110101011';

lrVersion('27') := '011011000010001110';

lrVersion('28') := '011100110000011010';

lrVersion('29') := '011101001100111111';

lrVersion('30') := '011110110101110101';

lrVersion('31') := '011111001001010000';

lrVersion('32') := '100000100111010101';

lrVersion('33') := '100001011011110000';

lrVersion('34') := '100010100010111010';

lrVersion('35') := '100011011110011111';

lrVersion('36') := '100100101100001011';

lrVersion('37') := '100101010000101110';

lrVersion('38') := '100110101001100100';

lrVersion('39') := '100111010101000001';

lrVersion('40') := '101000110001101001';

END p_init_format_version;

PROCEDURE p_format_version(p_mask pls_integer) IS

lcFormat varchar2(20);

lcVersion varchar2(20);

lnCounter pls_integer;

PROCEDURE p_set_module(

p_row pls_integer,

p_column pls_integer,

p_pos pls_integer,

p_format_version varchar2 --F for format and V for version

) IS

BEGIN

--modules are reserved and values 2 and 3 are set (not 0 and 1)

gprMasking(p_mask)(p_row)(p_column) :=

(CASE WHEN substr( (CASE WHEN p_format_version = 'F' THEN lcFormat ELSE lcVersion END), p_pos, 1) = '1' THEN '3' ELSE '2' END);

END;

BEGIN

--put format in matrix (for all 8 maskings)

lcFormat := lrFormat(p_error_correction || p_mask);

p_debug('Format for error correction ' || p_error_correction || ' and masking ' || p_mask || ': ' || lcFormat, 3);

--top left finder

p_set_module(9, 1, 1, 'F');

p_set_module(9, 2, 2, 'F');

p_set_module(9, 3, 3, 'F');

p_set_module(9, 4, 4, 'F');

p_set_module(9, 5, 5, 'F');

p_set_module(9, 6, 6, 'F');

p_set_module(9, 8, 7, 'F');

p_set_module(9, 9, 8, 'F');

p_set_module(8, 9, 9, 'F');

p_set_module(6, 9, 10, 'F');

p_set_module(5, 9, 11, 'F');

p_set_module(4, 9, 12, 'F');

p_set_module(3, 9, 13, 'F');

p_set_module(2, 9, 14, 'F');

p_set_module(1, 9, 15, 'F');

--lower left and top right finder

p_set_module(f_matrix_size, 9, 1, 'F');

p_set_module(f_matrix_size - 1, 9, 2, 'F');

p_set_module(f_matrix_size - 2, 9, 3, 'F');

p_set_module(f_matrix_size - 3, 9, 4, 'F');

p_set_module(f_matrix_size - 4, 9, 5, 'F');

p_set_module(f_matrix_size - 5, 9, 6, 'F');

p_set_module(f_matrix_size - 6, 9, 7, 'F');

p_set_module(9, f_matrix_size - 7, 8, 'F');

p_set_module(9, f_matrix_size - 6, 9, 'F');

p_set_module(9, f_matrix_size - 5, 10, 'F');

p_set_module(9, f_matrix_size - 4, 11, 'F');

p_set_module(9, f_matrix_size - 3, 12, 'F');

p_set_module(9, f_matrix_size - 2, 13, 'F');

p_set_module(9, f_matrix_size - 1, 14, 'F');

p_set_module(9, f_matrix_size, 15, 'F');

--put version in matrix (for 7 and higher)

if gpnVersion >= 7 then

lcVersion := lrVersion(gpnVersion);

p_debug('Version (' || gpnVersion || ') for matrix: ' || lcVersion, 3);

lnCounter := 1;

FOR c IN REVERSE 1 .. 6 LOOP

FOR r IN 8 .. 10 LOOP

--bottom left

p_set_module(f_matrix_size - r, c, lnCounter, 'V');

--top right

p_set_module(c, f_matrix_size - r, lnCounter, 'V');

lnCounter := lnCounter + 1;

END LOOP;

else

p_debug('Version (' || gpnVersion || ') is not needed for matrix', 3);

end if;

END p_format_version;

BEGIN

--init format and version collection

p_init_format_version;

--copy matrix for 8 different maskings

FOR t IN 0 .. 7 LOOP

gprMasking(t) := t_column();

gprMasking(t) := gprMasking(t) MULTISET UNION ALL gprMatrix;

END LOOP;

--mask every copy with different masking

FOR t IN 0 .. 7 LOOP

FOR r IN 1 .. f_matrix_size LOOP

FOR c IN 1 .. f_matrix_size LOOP

--matrix (collection) in Oracle begins with 1

lnR := r - 1;

lnC := c - 1;

--masking is done only on data and error correction modules (matrix values 0 or 1 - other values are fixed)

if gprMasking(t)(r)(c) in ('1', '0') then

--mask patterns

(t=0 and (lnR + lnC) mod 2 = 0) or

(t=1 and lnR mod 2 = 0) or

(t=2 and lnC mod 3 = 0) or

(t=3 and (lnR + lnC) mod 3 = 0) or

(t=4 and (floor(lnR / 2) + floor(lnC / 3)) mod 2 = 0) or

(t=5 and ((lnR * lnC) mod 2) + ((lnR * lnC) mod 3) = 0) or

(t=6 and (((lnR * lnC) mod 2) + ((lnR * lnC) mod 3)) mod 2 = 0) or

(t=7 and (((lnR + lnC) mod 2) + ((lnR * lnC) mod 3)) mod 2 = 0) then

--switch black and white module

if gprMasking(t)(r)(c) = '1' then

gprMasking(t)(r)(c) := '0';

else

gprMasking(t)(r)(c) := '1';

end if;

END LOOP;

p_format_version(t);

p_debug('Mask pattern ' || t || ':', 3);

p_dbms_output_matrix(gprMasking(t), 3);

p_debug('------------------------------------------------------------------------------------------', 3);

END LOOP;

--reserved fields marked with 2 and 3 are not necessary any more - change them to 0 and 1

FOR t IN 0 .. 7 LOOP

FOR r IN 1 .. f_matrix_size LOOP

FOR c IN 1 .. f_matrix_size LOOP

gprMasking(t)(r)(c) := CASE gprMasking(t)(r)(c) WHEN '3' THEN '1' WHEN '2' THEN '0' ELSE gprMasking(t)(r)(c) END;

END LOOP;

END p_masking_format_version;

PROCEDURE p_penalty_rules(p_masking_out pls_integer default null) IS

lnRule1 pls_integer;

lnRule2 pls_integer;

lnRule3 pls_integer;

lnRule4 pls_integer;

lnCounter pls_integer;

lcPattern varchar2(11);

lnPercent pls_integer;

lnLowestPenalty pls_integer;

lnChosenMasking pls_integer;

lnDebugTemp pls_integer;

BEGIN

--large initial values to be sure that first masking (0) is lower than those values

lnLowestPenalty := 100000000;

lnChosenMasking := 8;

--iterate through all 8 maskings, calculate penalty and find lowest penalty score

FOR t IN 0 .. 7 LOOP

--rule 1 - five or more same-colored modules in a row (or column)

lnRule1 := 0;

FOR r IN 1 .. f_matrix_size LOOP --horizontal direction

lnCounter := 1;

FOR c IN 2 .. f_matrix_size LOOP

if gprMasking(t)(r)(c) = gprMasking(t)(r)(c - 1) then

lnCounter := lnCounter + 1;

end if;

if gprMasking(t)(r)(c) <> gprMasking(t)(r)(c - 1) or c = f_matrix_size then

if lnCounter >= 5 then

lnRule1 := lnRule1 + 3 + (lnCounter - 5); --if 5 modules are the same color then penalty is 3 plus 1 for every additional module (4 for 6 modules...)

end if;

lnCounter := 1;

end if;

END LOOP;

lnDebugTemp := lnRule1;

p_debug('Masking ' || t || ', rule 1 - horizontal direction: ' || lnRule1, 2);

FOR c IN 1 .. f_matrix_size LOOP --vertical direction

lnCounter := 1;

FOR r IN 2 .. f_matrix_size LOOP

if gprMasking(t)(r)(c) = gprMasking(t)(r - 1)(c) then

lnCounter := lnCounter + 1;

end if;

if gprMasking(t)(r)(c) <> gprMasking(t)(r - 1)(c) or r = f_matrix_size then

if lnCounter >= 5 then

lnRule1 := lnRule1 + 3 + (lnCounter - 5); --if 5 modules are the same color then penalty is 3 plus 1 for every additional module (4 for 6 modules...)

end if;

lnCounter := 1;

end if;

END LOOP;

p_debug('Masking ' || t || ', rule 1 - vertical direction: ' || (lnRule1 - lnDebugTemp), 2);

p_debug('Masking ' || t || ', rule 1 - sum: ' || lnRule1, 2);

p_debug(' ', 2);

--rule 2 - areas of the same color that are 2x2 modules

lnRule2 := 0;

FOR r IN 1 .. f_matrix_size - 1 LOOP

FOR c IN 1 .. f_matrix_size - 1 LOOP

gprMasking(t)(r)(c) = gprMasking(t)(r + 1)(c) and

gprMasking(t)(r)(c) = gprMasking(t)(r)(c + 1) and

gprMasking(t)(r)(c) = gprMasking(t)(r + 1)(c + 1)

then

lnRule2 := lnRule2 + 3;

end if;

END LOOP;

p_debug('Masking ' || t || ', rule 2 - sum: ' || lnRule2, 2);

p_debug(' ', 2);

--rule 3 - patterns of dark-light-dark-dark-dark-light-dark that have four light modules on either side (10111010000 or 00001011101)

lnRule3 := 0;

FOR r IN 1 .. f_matrix_size LOOP --horizontal direction

FOR c IN 1 .. f_matrix_size - 10 LOOP

lcPattern := null;

FOR p IN 0 .. 10 LOOP

lcPattern := lcPattern || gprMasking(t)(r)(c + p);

END LOOP;

if lcPattern in ('10111010000', '00001011101') then

p_debug(lcPattern || ' (horizontal) found in row ' || r || ' and column ' || c, 3);

lnRule3 := lnRule3 + 40;

end if;

END LOOP;

lnDebugTemp := lnRule3;

p_debug('Masking ' || t || ', rule 3 - horizontal direction: ' || lnRule3, 2);

FOR c IN 1 .. f_matrix_size LOOP --horizontal direction

FOR r IN 1 .. f_matrix_size - 10 LOOP

lcPattern := null;

FOR p IN 0 .. 10 LOOP

lcPattern := lcPattern || gprMasking(t)(r + p)(c);

END LOOP;

if lcPattern in ('10111010000', '00001011101') then

p_debug(lcPattern || ' (vertical) found in row ' || r || ' and column ' || c, 3);

lnRule3 := lnRule3 + 40;

end if;

END LOOP;

p_debug('Masking ' || t || ', rule 3 - vertical direction: ' || (lnRule3 - lnDebugTemp), 2);

p_debug('Masking ' || t || ', rule 3 - sum: ' || lnRule3, 2);

p_debug(' ', 2);

--rule 4 - ratio of light modules to dark modules

lnCounter := 0; --count dark modules

FOR r IN 1 .. f_matrix_size LOOP

FOR c IN 1 .. f_matrix_size LOOP

if gprMasking(t)(r)(c) = '1' then

lnCounter := lnCounter + 1;

end if;

END LOOP;

lnPercent := trim(lnCounter * 100 / (f_matrix_size * f_matrix_size)); --calculate percent of dark modules

p_debug('Masking ' || t || ', rule 4 - total number of modules: ' || (f_matrix_size * f_matrix_size), 2);

p_debug('Masking ' || t || ', rule 4 - dark modules: ' || lnCounter, 2);

p_debug('Masking ' || t || ', rule 4 - % of dark modules: ' || lnPercent, 2);

LOOP --find lower multiple of 5

EXIT WHEN lnPercent mod 5 = 0;

lnPercent := lnPercent - 1;

END LOOP;

lnRule4 := least( --subtract 50 from lower and upper multiple of 5; take absolute value; use smallest value; multiply with 10

abs(lnPercent - 50) / 5,

abs(lnPercent + 5 - 50) / 5) * 10;

p_debug('Masking ' || t || ', rule 4 - value: ' || lnRule4, 2);

p_debug(' ', 2);

p_debug('Masking ' || t || ', final penalty value: ' || (lnRule1 + lnRule2 + lnRule3 + lnRule4), 2);

p_debug('-----------------------------------------', 2);

--check if penalty for current masking is lowest

if (lnRule1 + lnRule2 + lnRule3 + lnRule4) < lnLowestPenalty then

lnLowestPenalty := (lnRule1 + lnRule2 + lnRule3 + lnRule4);

lnChosenMasking := t;

end if;

END LOOP;

p_debug('Masking ' || lnChosenMasking || ' has lowest penalty of ' || lnLowestPenalty || ' and will be used for QR code matrix.', 2);

--copy the best masking into original matrix and use it as result of QR code calculation

--in case of debugging and selected masking output - use this value instead calculated and make an output

gprMatrix.delete;

gprMatrix := gprMatrix MULTISET UNION ALL gprMasking( nvl(p_masking_out, lnChosenMasking) );

END p_penalty_rules;

PROCEDURE p_generate_qr(

p_data varchar2,

p_error_correction varchar2,

p_debug boolean default false,

p_debug_level pls_integer default 1,

p_masking_out pls_integer default null

) IS

lcData varchar2(32000);

lcFinal varchar2(32000);

BEGIN

--global variables and tables, which has the same values during QR code generation

gpbDebug := p_debug;

gpnDebugLevel := p_debug_level;

gpnMode := f_get_mode(p_data);

gpnVersion := f_get_version(p_data, p_error_correction);

p_fill_err_cor;

p_fill_log_antilog;

--init matrix collection and fill static elements

--gpnVersion := 14; --only for debugging

p_init_matrix;

--OPERATIONAL PART

--encoded data with all parts (terminal zeros, padding bytes...)

lcData := f_encode_data(p_data, p_error_correction);

--final structured message (data plus error correction)

lcFinal := f_final_data_with_ec(lcData, p_error_correction);

--place final message in matrix

p_place_fm_in_matrix(lcFinal);

--masking; format and version info

p_masking_format_version(p_error_correction);

--Four Penalty Rules - choose which masking is the easiest to read and copy that masking in matrix variable

p_penalty_rules(p_masking_out);

END p_generate_qr;

FUNCTION f_matrix_2_vc2 RETURN varchar2 IS

lcQR varchar2(32727);

BEGIN

FOR t IN 1 .. gprMatrix.count LOOP

FOR p IN 1 .. gprMatrix.count LOOP

lcQR := lcQR || nvl(gprMatrix(t)(p), 'X');

END LOOP;

lcQR := lcQR || chr(10);

END LOOP;

RETURN lcQR;

END;

PROCEDURE p_generate_qr_data(

p_data varchar2, --data going to be encoded into QR code

p_error_correction varchar2, --L, M, Q or H (see bellow)

p_qr OUT NOCOPY varchar2, --generated QR code data in format row || newline (chr 10) || row || newline...; 1 for black module, 0 for white

p_matrix_size OUT pls_integer --matrix size in modules (21, 25, 29...)

) IS

BEGIN

--generate matrix

p_generate_qr(

p_data => p_data,

p_error_correction => p_error_correction,

p_debug => false,

p_debug_level => 1);

--convert matrix to vc2 (output)

p_qr := f_matrix_2_vc2;

--matrix size

p_matrix_size := f_matrix_size;

END p_generate_qr_data;

PROCEDURE p_qr_debug(

p_data varchar2, --data going to be encoded into QR code

p_error_correction varchar2, --L, M, Q or H (see bellow)

p_debug boolean default true, --should DBMS OUTPUT be printed

p_debug_level pls_integer default 1, --debug level (1, 2, 3...) - details to be printed in debug output

p_masking_out pls_integer default null,

p_qr OUT NOCOPY varchar2,

p_matrix_size OUT pls_integer

) IS

BEGIN

--generate matrix

p_generate_qr(

p_data => p_data,

p_error_correction => p_error_correction,

p_debug => p_debug,

p_debug_level => p_debug_level,

p_masking_out => p_masking_out);

--convert matrix to debug form

p_qr := f_matrix_2_vc2;

--matrix size

p_matrix_size := f_matrix_size;

END p_qr_debug;

FUNCTION f_qr_as_html_table(

p_data varchar2, --data going to be encoded into QR code

p_error_correction varchar2, --L, M, Q or H

p_module_size_in_px pls_integer default 8, --module size in pixels

p_margines boolean default false --margines around QR code (4 modules)

) RETURN clob IS

lcQR varchar2(32727);

lnMatrixSize pls_integer;

lcClob clob;

PROCEDURE p_add_clob(lcText varchar2) IS

BEGIN

lcClob := lcClob || lcText || chr(10);

END;

BEGIN

if p_data is null then

lcClob := 'no data to display.';

RETURN lcClob;

end if;

p_generate_qr_data(

p_data => p_data,

p_error_correction => p_error_correction,

p_qr => lcQR,

p_matrix_size => lnMatrixSize

);

p_add_clob('<table style="border-collapse: collapse;">');

--columns (for column width defined in style - inline on page)

FOR t IN 1 .. lnMatrixSize + (CASE WHEN p_margines THEN 8 ELSE 0 END) LOOP

p_add_clob('<col style="width: ' || p_module_size_in_px || 'px;">');

END LOOP;

--top margine - 4 module rows

if p_margines then

FOR t in 1 .. 4 LOOP

p_add_clob('<tr style="height: ' || p_module_size_in_px || 'px;"><td style="background-color: #FFFFFF; padding: 0px 0px;"></td></tr>');

END LOOP;

end if;

FOR t IN 1 .. lnMatrixSize LOOP

--new row

p_add_clob('<tr style="height: ' || p_module_size_in_px || 'px;">');

--left margine - 4 modules

if p_margines then

FOR z in 1 .. 4 LOOP

p_add_clob('<td style="background-color: #FFFFFF; padding: 0px 0px;"></td>');

END LOOP;

end if;

--modules in row

FOR p IN 1 .. lnMatrixSize LOOP

p_add_clob('<td style="background-color: #' ||

(CASE

substr(lcQR, (t - 1) * (lnMatrixSize + 1) + p, 1)

WHEN '0' THEN 'FFFFFF'

ELSE '000000' END) ||

'; padding: 0px 0px;"></td>');

END LOOP;

--right margine - 4 modules

if p_margines then

FOR z in 1 .. 4 LOOP

p_add_clob('<td style="background-color: #FFFFFF; padding: 0px 0px;"></td>');

END LOOP;

end if;

p_add_clob('</tr>');

END LOOP;

--bottom margine - 4 module rows

if p_margines then

FOR t in 1 .. 4 LOOP

p_add_clob('<tr style="height: ' || p_module_size_in_px || 'px;"><td style="background-color: #FFFFFF; padding: 0px 0px;"></td></tr>');

END LOOP;

end if;

p_add_clob('</table>');

RETURN lcClob;

END f_qr_as_html_table;

PROCEDURE p_print_clob_htp(

p_clob IN OUT NOCOPY clob

) IS

lnFrom pls_integer := 1;

lnTo pls_integer;

BEGIN

LOOP

lnTo := instr(p_clob, chr(10), lnFrom);

if lnTo = 0 then

lnTo := length(p_clob);

end if;

htp.p(substr(p_clob, lnFrom, lnTo - lnFrom));

lnFrom := lnTo + 1;

EXIT WHEN lnTo = length(p_clob);

END LOOP;

END p_print_clob_htp;

PROCEDURE p_print_clob_htp_dbms_lob(

p_clob IN OUT NOCOPY clob

) IS

L_POSITION NUMBER;

L_LENGTH NUMBER;

L_BUFFER VARCHAR(8000 CHAR);

BEGIN

L_LENGTH := DBMS_LOB.GETLENGTH(p_clob);

L_POSITION := 1;

LOOP

EXIT WHEN L_POSITION > L_LENGTH ;

L_BUFFER := DBMS_LOB.SUBSTR(p_clob, 8000, L_POSITION);

HTP.PRN(L_BUFFER);

L_POSITION := L_POSITION + 8000;

END LOOP;

END p_print_clob_htp_dbms_lob;

PROCEDURE p_qr_as_html_table(

p_data varchar2, --data going to be encoded into QR code

p_error_correction varchar2, --L, M, Q or H

p_module_size_in_px pls_integer default 8, --module size in pixels

p_margines boolean default false --margines around QR code (4 modules)

) IS

lcClob clob;

BEGIN

if p_data is null then

htp.p('no data to display.');

RETURN;

end if;

lcClob := f_qr_as_html_table(p_data, p_error_correction, p_module_size_in_px, p_margines);

p_print_clob_htp(lcClob);

LOOP

lnTo := instr(lcClob, chr(10), lnFrom);

if lnTo = 0 then

lnTo := length(lcClob);

end if;

htp.p(substr(lcClob, lnFrom, lnTo - lnFrom));

lnFrom := lnTo + 1;

EXIT WHEN lnTo = length(lcClob);

END LOOP;

END p_qr_as_html_table;

FUNCTION unsigned_short(s in pls_integer) RETURN raw IS

lrRet raw(4);

BEGIN

lrRet := UTL_RAW.reverse( UTL_RAW.cast_from_binary_integer(s) );

RETURN UTL_RAW.substr(lrRet, 1, 2);

END unsigned_short;

FUNCTION unsigned_int(i in pls_integer) RETURN raw IS

lrRet raw(4);

BEGIN

lrRet := UTL_RAW.reverse( UTL_RAW.cast_from_binary_integer(i) );

RETURN lrRet;

END unsigned_int;

FUNCTION f_qr_as_bmp(

p_data varchar2, --data going to be encoded into QR code

p_error_correction varchar2, --L, M, Q or H

p_margines varchar2 default 'N', --margines around QR code (4 modules) - values Y or N

p_foreground_color varchar2 default '000000', -- HEX representation of the RGB values of the foreground color

p_background_color varchar2 default 'FFFFFF'-- HEX representation of the RGB values of the background color

) RETURN blob IS

lcQR varchar2(32727);

lnMatrixSize pls_integer;

lnZeros pls_integer;

lnImageBytes pls_integer;

lnWidthHeight pls_integer;

lbBlob blob;

lrLine raw(500);

module_size CONSTANT PLS_INTEGER := 8; --BEFORE 8

module_size_2 CONSTANT PLS_INTEGER := 8; --BEFORE 8

BEGIN

--if no data passed then return null

if p_data is null then

return null;

end if;

p_generate_qr_data(

p_data => p_data,

p_error_correction => p_error_correction,

p_qr => lcQR,

p_matrix_size => lnMatrixSize

);

DBMS_OUTPUT.PUT_LINE('lnMatrixSize-'||lnMatrixSize); --AFZAL

--lnMatrixSize := 32;

DBMS_LOB.createTemporary(lbBlob, true);

--Header

lnWidthHeight := lnMatrixSize + (CASE WHEN p_margines = 'Y' THEN 8 ELSE 0 END);

lnImageBytes := lnWidthHeight * lnWidthHeight * module_size_2;

dbms_lob.append(lbBlob, utl_raw.cast_to_raw('BM')); -- Pos 0 - fixed

dbms_lob.append(lbBlob, unsigned_int(14 + 40 + module_size_2 + lnImageBytes)); -- Pos 2 - file size (62 as header size + data size + color pallete)

dbms_lob.append(lbBlob, unsigned_int(0)); -- Pos 6, unused / reserved, value 0

dbms_lob.append(lbBlob, unsigned_int(14 + 40 + module_size_2)); -- Pos 10, offset to image data - header size + information size + color pallete

-- Information

dbms_lob.append(lbBlob, unsigned_int(40)); -- Pos 14 - size of information header (always 40)

dbms_lob.append(lbBlob, unsigned_int(lnWidthHeight * module_size_2)); -- Pos 18 - width

dbms_lob.append(lbBlob, unsigned_int(lnWidthHeight * module_size_2)); -- Pos 22 - height

dbms_lob.append(lbBlob, unsigned_short(1)); -- Pos 26, planes

dbms_lob.append(lbBlob, unsigned_short(1)); -- Pos 28, bits per pixel

dbms_lob.append(lbBlob, unsigned_int(0)); -- Pos 30, no compression

dbms_lob.append(lbBlob, unsigned_int(lnImageBytes)); -- Pos 34 - image data size

dbms_lob.append(lbBlob, unsigned_int(0)); -- Pos 38, x pixels/meter

dbms_lob.append(lbBlob, unsigned_int(0)); -- Pos 42, y pixels/meter

dbms_lob.append(lbBlob, unsigned_int(0)); -- Pos 46, Number of colors

dbms_lob.append(lbBlob, unsigned_int(0)); -- Pos 50, Important colors

--Colors

dbms_lob.append(lbBlob, unsigned_int(to_number(p_background_color, 'xxxxxx')));

dbms_lob.append(lbBlob, unsigned_int(to_number(p_foreground_color, 'xxxxxx')));

--Data

--zeros at the end of the scan line (scan line in bytes must be mod 4)

lnZeros := 0;

LOOP

EXIT WHEN (lnWidthHeight + lnZeros) mod 4 = 0;

lnZeros := lnZeros + 1;

END LOOP;

--bottom margine

if p_margines = 'Y' then

lrLine := utl_raw.copies( utl_raw.cast_to_raw(chr(0)), lnWidthHeight + lnZeros);

FOR t IN 1 .. 32 LOOP

dbms_lob.append(lbBlob, utl_raw.substr(lrLine, 1, lnWidthHeight + lnZeros));

END LOOP;

end if;

--data for scan lines

FOR r IN REVERSE 1 .. lnMatrixSize LOOP

--first prepare scan line as raw data

if p_margines = 'Y' then

--left margine

lrLine := utl_raw.copies( utl_raw.cast_to_raw(chr(0)), 4);

else

--no margines

lrLine := null;

end if;

--data from matrix

FOR c IN 1 .. lnMatrixSize LOOP

lrLine := lrLine || utl_raw.cast_to_raw(chr(

CASE WHEN substr(lcQR, (r - 1) * (lnMatrixSize + 1) + c, 1) = '1' THEN 255 ELSE 0 END

));

END LOOP;

--right margine

if p_margines = 'Y' then

lrLine := lrLine || utl_raw.copies( utl_raw.cast_to_raw(chr(0)), 4);

end if;

--trailing zeroes (mod 4)

FOR c IN 1 .. lnZeros LOOP

lrLine := lrLine || utl_raw.cast_to_raw(chr(0));

END LOOP;

--8 scan lines in file because module is 8x8 pixels

--FOR t IN 1 .. 8 LOOP

FOR t IN 1 .. module_size LOOP --afzal

dbms_lob.append(lbBlob, utl_raw.substr(lrLine, 1, lnWidthHeight + lnZeros));

END LOOP;

--top margine (4 modules)

if p_margines = 'Y' then

lrLine := utl_raw.copies( utl_raw.cast_to_raw(chr(0)), lnWidthHeight + lnZeros);

FOR t IN 1 .. 32 LOOP

dbms_lob.append(lbBlob, utl_raw.substr(lrLine, 1, lnWidthHeight + lnZeros));

END LOOP;

end if;

RETURN lbBlob;

END f_qr_as_bmp;

FUNCTION f_qr_as_long_raw(

p_data varchar2, --data going to be encoded into QR code

p_error_correction varchar2, --L, M, Q or H

p_margines varchar2 default 'N' --margines around QR code (4 modules) - values Y or N

) RETURN long raw IS

lcQR varchar2(32727);

lnMatrixSize pls_integer;

lnZeros pls_integer;

lnImageBytes pls_integer;

lnWidthHeight pls_integer;

lbBlob long raw;

lrLine raw(500);

BEGIN

--if no data passed then return

if p_data is null then

return null;

end if;

p_generate_qr_data(

p_data => p_data,

p_error_correction => p_error_correction,

p_qr => lcQR,

p_matrix_size => lnMatrixSize

);

--Header

lnWidthHeight := lnMatrixSize + (CASE WHEN p_margines = 'Y' THEN 8 ELSE 0 END);

lnImageBytes := lnWidthHeight * lnWidthHeight * 8;

lbBlob := utl_raw.concat(lbBlob, utl_raw.cast_to_raw('BM')); -- Pos 0 - fixed

lbBlob := utl_raw.concat(lbBlob, unsigned_int(14 + 40 + 8 + lnImageBytes)); -- Pos 2 - file size (62 as header size + data size + color pallete)

lbBlob := utl_raw.concat(lbBlob, unsigned_int(0)); -- Pos 6, unused / reserved, value 0

lbBlob := utl_raw.concat(lbBlob, unsigned_int(14 + 40 + 8)); -- Pos 10, offset to image data - header size + information size + color pallete

-- Information

lbBlob := utl_raw.concat(lbBlob, unsigned_int(40)); -- Pos 14 - size of information header (always 40)

lbBlob := utl_raw.concat(lbBlob, unsigned_int(lnWidthHeight * 8)); -- Pos 18 - width

lbBlob := utl_raw.concat(lbBlob, unsigned_int(lnWidthHeight * 8)); -- Pos 22 - height

lbBlob := utl_raw.concat(lbBlob, unsigned_short(1)); -- Pos 26, planes

lbBlob := utl_raw.concat(lbBlob, unsigned_short(1)); -- Pos 28, bits per pixel

lbBlob := utl_raw.concat(lbBlob, unsigned_int(0)); -- Pos 30, no compression

lbBlob := utl_raw.concat(lbBlob, unsigned_int(lnImageBytes)); -- Pos 34 - image data size

lbBlob := utl_raw.concat(lbBlob, unsigned_int(0)); -- Pos 38, x pixels/meter

lbBlob := utl_raw.concat(lbBlob, unsigned_int(0)); -- Pos 42, y pixels/meter

lbBlob := utl_raw.concat(lbBlob, unsigned_int(0)); -- Pos 46, Number of colors

lbBlob := utl_raw.concat(lbBlob, unsigned_int(0)); -- Pos 50, Important colors

--Colors

lbBlob := utl_raw.concat(lbBlob, unsigned_int(16777215)); -- White (FF FF FF 00)

lbBlob := utl_raw.concat(lbBlob, unsigned_int(0)); -- Black (00 00 00 00)

--Data

--zeros at the end of the scan line (scan line in bytes must be mod 4)

lnZeros := 0;

LOOP

EXIT WHEN (lnWidthHeight + lnZeros) mod 4 = 0;

lnZeros := lnZeros + 1;

END LOOP;

--bottom margine

if p_margines = 'Y' then

lrLine := utl_raw.copies( utl_raw.cast_to_raw(chr(0)), lnWidthHeight + lnZeros);

FOR t IN 1 .. 32 LOOP

lbBlob := utl_raw.concat(lbBlob, utl_raw.substr(lrLine, 1, lnWidthHeight + lnZeros));

END LOOP;

end if;

--data for scan lines

FOR r IN REVERSE 1 .. lnMatrixSize LOOP

--first prepare scan line as raw data

if p_margines = 'Y' then

--left margine

lrLine := utl_raw.copies( utl_raw.cast_to_raw(chr(0)), 4);

else

--no margines

lrLine := null;

end if;

--data from matrix

FOR c IN 1 .. lnMatrixSize LOOP

lrLine := lrLine || utl_raw.cast_to_raw(chr(

CASE WHEN substr(lcQR, (r - 1) * (lnMatrixSize + 1) + c, 1) = '1' THEN 255 ELSE 0 END

));

END LOOP;

--right margine

if p_margines = 'Y' then

lrLine := lrLine || utl_raw.copies( utl_raw.cast_to_raw(chr(0)), 4);

end if;

--trailing zeroes (mod 4)

FOR c IN 1 .. lnZeros LOOP

lrLine := lrLine || utl_raw.cast_to_raw(chr(0));

END LOOP;

--8 scan lines in file because module is 8x8 pixels

FOR t IN 1 .. 8 LOOP

lbBlob := utl_raw.concat(lbBlob, utl_raw.substr(lrLine, 1, lnWidthHeight + lnZeros));

END LOOP;

--top margine (4 modules)

if p_margines = 'Y' then

lrLine := utl_raw.copies( utl_raw.cast_to_raw(chr(0)), lnWidthHeight + lnZeros);

FOR t IN 1 .. 32 LOOP

lbBlob := utl_raw.concat(lbBlob, utl_raw.substr(lrLine, 1, lnWidthHeight + lnZeros));

END LOOP;

end if;

RETURN lbBlob;

END f_qr_as_long_raw;

PROCEDURE p_qr_as_img_tag_base64(

p_data varchar2, --data going to be encoded into QR code

p_error_correction varchar2, --L, M, Q or H

p_image_size_px pls_integer,

p_margines varchar2 default 'N' --margines around QR code (4 modules) - values Y or N

) IS

lbBlob blob;

l_step PLS_INTEGER := 12000; -- make sure you set a multiple of 3 not higher than 24573

BEGIN

lbBlob := f_qr_as_bmp(p_data, p_error_correction, p_margines);

htp.prn('<img src="data:image/bmp;base64, ');

FOR i IN 0 .. TRUNC((DBMS_LOB.getlength(lbBlob) - 1 )/l_step) LOOP

htp.prn( UTL_RAW.cast_to_varchar2(UTL_ENCODE.base64_encode(DBMS_LOB.substr(lbBlob, l_step, i * l_step + 1))) );

END LOOP;

htp.prn('" alt="qr code" width="' || p_image_size_px || 'px" height = "' || p_image_size_px || 'px" />');

END;

FUNCTION f_qr_as_svg(

p_data varchar2, --data going to be encoded into QR code

p_error_correction varchar2, --L, M, Q or H

p_module_size_px pls_integer default 8, --modul size in pixels

p_margines_yn varchar2 default 'N', --margines around QR code (4 modules) - values Y or N

p_module_color varchar2 default 'black', --colors are defined as SVG named colors OR rgb (with # or rgb function)

p_background_color varchar2 default 'white',

p_module_rounded_px pls_integer default 0, --0 - sharp corners; > 0 - rounded in pixels

p_logo_yn varchar2 default 'N',

p_logo_size_percent number default 20,

p_logo_image clob default null,

p_logo_back_rect_yn varchar2 default 'Y',

p_logo_back_rect_color varchar2 default 'white',

p_logo_back_rect_round_px pls_integer default 0,

p_logo_margine_px number default 5

) RETURN clob IS

lcQR varchar2(32727);

lnMatrixSize pls_integer;

lnCanvasSize pls_integer;

lnX pls_integer;

lnY pls_integer;

lcClob clob;

PROCEDURE p_add_clob(lcText varchar2) IS

BEGIN

lcClob := lcClob || lcText || chr(10);

END;

BEGIN

if p_data is null then

lcClob := 'no data to display.';

RETURN lcClob;

end if;

p_generate_qr_data(

p_data => p_data,

p_error_correction => p_error_correction,

p_qr => lcQR,

p_matrix_size => lnMatrixSize

);

--canvas size and top left coordinate of first module (dependent of margins parameter)

lnCanvasSize := (lnMatrixSize + (CASE WHEN p_margines_yn = 'Y' THEN 8 ELSE 0 END) ) * p_module_size_px;

lnX := CASE WHEN p_margines_yn = 'Y' THEN 4 * p_module_size_px ELSE 0 END;

lnY := lnX;

--init SVG tag

p_add_clob('<svg width="' || lnCanvasSize || '" height="' || lnCanvasSize || '" style="background-color: ' || nvl(p_background_color, 'white') || ';" xmlns="http://www.w3.org/2000/svg">');

--draw black modules (background is already white)

FOR t IN 1 .. length(lcQR) LOOP

if substr(lcQR, t, 1) = '1' then

p_add_clob('<rect x="' || lnX || '" y="' || lnY || '" width="' || p_module_size_px || '" height="' || p_module_size_px || '" fill="' || nvl(p_module_color, 'black') || '" ' || CASE WHEN p_module_rounded_px > 0 THEN 'rx="' || p_module_rounded_px || '"' ELSE null END || '/>');

lnX := lnX + p_module_size_px;

elsif substr(lcQR, t, 1) = chr(10) then

lnX := CASE WHEN p_margines_yn = 'Y' THEN 4 * p_module_size_px ELSE 0 END;

lnY := lnY + p_module_size_px;

else

lnX := lnX + p_module_size_px;

end if;

END LOOP;

--add logo (optional)

if p_logo_yn = 'Y' then

DECLARE

lnLogoBckWidth number;

lnLogoBckPos number;

lnLogoWidth number;

lnLogoPos number;

BEGIN

lnLogoBckWidth := round(lnMatrixSize * p_module_size_px * p_logo_size_percent / 100, 2);

lnLogoBckPos := (lnCanvasSize / 2) - (lnLogoBckWidth / 2);

lnLogoWidth := lnLogoBckWidth - p_logo_margine_px * 2;

lnLogoPos := lnLogoBckPos + p_logo_margine_px;

if p_logo_back_rect_yn = 'Y' then

p_add_clob('<rect x="0" y="0" width="' || lnLogoBckWidth || '" height="' || lnLogoBckWidth || '" fill="' || p_logo_back_rect_color || '" rx="' || p_logo_back_rect_round_px || '" transform="translate(' || lnLogoBckPos || ', ' || lnLogoBckPos || ')" />');

end if;

p_add_clob('<image x="' || lnLogoPos || '" y="' || lnLogoPos || '" width="' || lnLogoWidth || '" height="' || lnLogoWidth || '" href="' || p_logo_image || '" />');

END;

end if;

--finish SVG

p_add_clob('</svg>');

RETURN lcClob;

END f_qr_as_svg;

PROCEDURE p_qr_as_svg(

p_data varchar2, --data going to be encoded into QR code

p_error_correction varchar2, --L, M, Q or H

p_module_size_px pls_integer default 8, --modul size in pixels

p_margines_yn varchar2 default 'N', --margines around QR code (4 modules) - values Y or N

p_module_color varchar2 default 'black', --colors are defined as SVG named colors OR rgb (with # or rgb function)

p_background_color varchar2 default 'white',

p_module_rounded_px pls_integer default 0, --0 - sharp corners; > 0 - rounded in pixels

p_logo_yn varchar2 default 'N',

p_logo_size_percent number default 20,

p_logo_image clob default null,

p_logo_back_rect_yn varchar2 default 'Y',

p_logo_back_rect_color varchar2 default 'white',

p_logo_back_rect_round_px pls_integer default 0,

p_logo_margine_px number default 5

) IS

lcClob clob;

BEGIN

lcClob := ZT_QR.f_qr_as_svg(

p_data => p_data,

p_error_correction => p_error_correction,

p_margines_yn => p_margines_yn,

p_module_size_px => p_module_size_px,

p_module_color => p_module_color,

p_background_color => p_background_color,

p_module_rounded_px => p_module_rounded_px,

p_logo_yn => p_logo_yn,

p_logo_size_percent => p_logo_size_percent,

p_logo_image => p_logo_image,

p_logo_back_rect_yn => p_logo_back_rect_yn,

p_logo_back_rect_color => p_logo_back_rect_color,

p_logo_back_rect_round_px => p_logo_back_rect_round_px,

p_logo_margine_px => p_logo_margine_px

);

p_print_clob_htp(lcClob);

END p_qr_as_svg;

PROCEDURE p_save_file(

p_document blob,

p_file_name varchar2,

p_folder varchar2

) IS

lfFile utl_file.file_type;

lnLen pls_integer := 32767;

BEGIN

lfFile := utl_file.fopen(p_folder, p_file_name, 'wb');

FOR i in 0 .. trunc( (dbms_lob.getlength(p_document) - 1 ) / lnLen ) LOOP

utl_file.put_raw(lfFile, dbms_lob.substr(p_document, lnLen, i * lnLen + 1));

END LOOP;

utl_file.fclose(lfFile);

END;

/* create this java class separately

-- Create a Java class to handle PNG conversion

CREATE OR REPLACE AND COMPILE JAVA SOURCE NAMED "QRCodePNGUtil" AS

import java.awt.*;

import java.awt.image.*;

import java.io.*;

import javax.imageio.*;

import oracle.sql.*;

public class QRCodePNGUtil {

public static BLOB convertBMPtoPNG(BLOB bmpBlob, int scaleFactor) throws Exception {

try {

// Convert Oracle BLOB to byte array

byte[] bmpBytes = bmpBlob.getBytes(1, (int)bmpBlob.length());

// Convert byte array to BufferedImage

ByteArrayInputStream bais = new ByteArrayInputStream(bmpBytes);

BufferedImage bmpImage = ImageIO.read(bais);

// Scale the image

int newWidth = bmpImage.getWidth() * scaleFactor;

int newHeight = bmpImage.getHeight() * scaleFactor;

BufferedImage scaledImage = new BufferedImage(newWidth, newHeight, BufferedImage.TYPE_INT_ARGB);

Graphics2D g = scaledImage.createGraphics();

g.setRenderingHint(RenderingHints.KEY_INTERPOLATION, RenderingHints.VALUE_INTERPOLATION_NEAREST_NEIGHBOR);

g.drawImage(bmpImage, 0, 0, newWidth, newHeight, null);

g.dispose();

// Convert to PNG

ByteArrayOutputStream baos = new ByteArrayOutputStream();

ImageIO.write(scaledImage, "PNG", baos);

byte[] pngBytes = baos.toByteArray();

// Convert back to Oracle BLOB

BLOB pngBlob = BLOB.createTemporary(bmpBlob.getConnection(), false, BLOB.DURATION_SESSION);

pngBlob.setBytes(1, pngBytes);

return pngBlob;

} catch (Exception e) {

throw new Exception("Error converting BMP to PNG: " + e.getMessage());

}

-- Create PL/SQL wrapper for the Java method

FUNCTION convert_bmp_to_png(

p_bmp_blob BLOB,

p_scale_factor NUMBER-- DEFAULT 1

) RETURN BLOB AS

LANGUAGE JAVA NAME 'QRCodePNGUtil.convertBMPtoPNG(oracle.sql.BLOB, int) return oracle.sql.BLOB';

--SELECT f_qr_as_png('https://google.com', 'H', 'N', '000000', 'FFFFFF', 10) FROM DUAL;

FUNCTION f_qr_as_png(

p_data VARCHAR2,

p_error_correction VARCHAR2, -- L, M, Q or H

p_margines VARCHAR2 DEFAULT 'N', -- Y or N

p_foreground_color VARCHAR2 DEFAULT '000000',

p_background_color VARCHAR2 DEFAULT 'FFFFFF',

p_scale_factor NUMBER DEFAULT 10 -- New parameter for scaling

) RETURN BLOB IS

lbBmp BLOB;

lbPng BLOB;

BEGIN

-- First generate the QR code as BMP (using original module size 8)

lbBmp := ZT_QR.f_qr_as_bmp(

p_data => p_data,

p_error_correction => p_error_correction,

p_margines => p_margines,

p_foreground_color => p_foreground_color,

p_background_color => p_background_color

);

-- Convert to PNG with scaling

lbPng := convert_bmp_to_png(lbBmp, p_scale_factor);

-- Free temporary BMP blob

DBMS_LOB.FREETEMPORARY(lbBmp);

RETURN lbPng;

EXCEPTION

WHEN OTHERS THEN

IF DBMS_LOB.ISTEMPORARY(lbBmp) = 1 THEN

DBMS_LOB.FREETEMPORARY(lbBmp);

END IF;

RAISE;

END f_qr_as_png;

END ZT_QR;

Knows issues:

if the QR code image is small, then the output pdf is blur/not readable format.

so added new function f_qr_as_png to get the image larger and fixed the issue.

Oracle Apps KT

Search This Blog

Thursday, May 22, 2025

QR Code in Oracle EBS R12 in XML Publisher Report

No comments:

Post a Comment