DECLARE

    -- Chart Parameters and Attributes

    v_CHTNUM        VARCHAR2(800)       := '101';

    v_CHTYPE        NUMBER              := 0; -- 0 OR 1

    v_CTDATE        DATE                := TO_DATE('31/12/2008', 'DD/MM/YYYY');

    v_USRNAM        VARCHAR2(1000)      := NULL;

    v_CHTCOM        VARCHAR2(800)       := 'This is an API Created Chart.';

    v_CTITL1        VARCHAR2(800)       := 'API Created Chart';

    v_CTITL2        VARCHAR2(800)       := 'API Created Chart';

    v_EDDATE        DATE                := TO_DATE('31/12/2008', 'DD/MM/YYYY');

    v_EDNUMB        NUMBER              := 1;

    v_INTNUM        NUMBER              := 2;

    v_LTSTNM        VARCHAR2(800)       := '3';

    v_NREGN1        VARCHAR2(800)       := 'Region 01';

    v_NREGN2        VARCHAR2(800)       := 'Region 02';

    v_PARCON        VARCHAR2(800)       := 'New Zealand';

    v_PUBCON        VARCHAR2(800)       := 'Canada';

    v_SAREA1        VARCHAR2(800)       := 'Sea Name 01';

    v_SAREA2        VARCHAR2(800)       := 'Sea Name 02';

    v_PUBDAT        DATE                := TO_DATE('31/12/2008', 'DD/MM/YYYY');

    v_SEANUM        NUMBER              := 1;

    v_CHPRID        VARCHAR2(20)        := NULL;

    v_productgroup  VARCHAR2(800)       := NULL;

    -- Sheet Parameters and Attributes

    v_LAYOUT        NUMBER              := 1; -- 0, PORTRAIT 1, LANDSCAPE

    v_MARGNB        NUMBER              := 5.0;

    v_MARGNL        NUMBER              := 10.0;

    v_MARGNR        NUMBER              := 5.0;

    v_MARGNT        NUMBER              := 10.0;

    v_PHEIGH        NUMBER              := 841.0;

    v_PPSIZE        NUMBER              := 17; -- ISO A0

    v_PWIDTH        NUMBER              := 1189.0;

    v_TSHEET        NUMBER              := 0; -- 0 CHART INSETS, 1 HARBOUR PLANS

    v_SHEET1        VARCHAR2(800)       := 'API Created Sheet';

    v_SHEET2        VARCHAR2(800)       := 'API Created Sheet';

    v_CMMNTS        VARCHAR2(800)       := 'API Created Sheet';

    -- Panel Parameters and Attributes

    v_CAHDAT        NUMBER              := 3;

    v_PANNAM        VARCHAR2(800)       := 'API Created Panel';

    v_PANNUM        NUMBER              := 15;

    v_PANPOS        VARCHAR2(10)        :='10,10';

    v_PSCALE        NUMBER              := 345000;

    v_BDRTYP        VARCHAR2(20)        := NULL;

    v_DEPDAT        VARCHAR2(20)        := NULL;

    v_DEPUNT        VARCHAR2(20)        := NULL;

    v_HGHTDA        VARCHAR2(20)        := NULL;

    v_HGHTUN        VARCHAR2(20)        := NULL;

    v_PANTIT        VARCHAR2(20)        := NULL;

    v_PANTYP        NUMBER              := 3; -- Inset

    v_PARUSD        VARCHAR2(20)        := NULL;

    v_PRJCTN        VARCHAR2(800)       := 'MERCATOR,0,0,0,53.75,0,0';

    v_PRONAM        VARCHAR2(20)        := NULL;

    v_SHFTNS        NUMBER              := NULL;

    v_SHFTWW        NUMBER              := NULL;

    v_SRCHDP        VARCHAR2(800)       := NULL;

    v_SRCHDT        VARCHAR2(800)       := NULL;

    v_SYMLIB        VARCHAR2(800)       := NULL;

    v_ANNOID        VARCHAR2(20)        := NULL;

    v_PRESID        VARCHAR2(20)        := NULL;

    v_SDGFC         VARCHAR2(20)        := NULL;

    v_SDGSZ         NUMBER              := NULL;

    v_DATUMNAME     VARCHAR2(16)        := 'WG84';

    v_PROFILE_ID    NUMBER              := 7; -- Paper Chart Profile.

    v_HELMERT       HELMERT_TYPE        := HELMERT_TYPE(6378137, 6356752.314, 0, 0, 0, 0, 0, 0, 1);

    -- Note: Only one of these parameters (shiftLatLong and ShiftXY) can be set,

    --       the other MUST be NULL.

    v_SHIFTLATLONG  SHIFTLATLONG_TYPE   := SHIFTLATLONG_TYPE(6.7, 2.5);

    v_SHIFTXY       SHIFTXY_TYPE        := NULL;

    v_ROTATE        NUMBER              := 0; -- 0, 90 and 270 are valid rotations

    v_PANORD        NUMBER              := 1;

    v_SNDRND        VARCHAR2(100 CHAR)  := 'Default';

    v_FRCDSP        VARCHAR2(1 CHAR)    := 'N';

    v_GRTINT        NUMBER              := 10;

    v_GEOM_WGS94     SDO_GEOMETRY  :=

                      SDO_GEOMETRY(2003, NULL, NULL,

                        SDO_ELEM_INFO_ARRAY(1, 1003, 1),

                        SDO_ORDINATE_ARRAY(-41.7143242, 40.4763209,

                          -39.68763209, 40.4643090, -39.6876436, 41.57026710,

                          -41.7143242, 41.57026710, -41.7143242, 40.47632090));

    v_chartver_id   NUMBER;

    v_sheetver_id   NUMBER;

    v_panelver_id   NUMBER;

BEGIN

    -- get the current user.

    SELECT USERNAME INTO v_USRNAM

    FROM hpd_user

    WHERE UPPER(USERNAME) = UPPER(USER);

    -- Create a new Chart.

    v_chartver_id := P_PPRAPI.ADDCHART(

    v_CHTNUM, v_CHTYPE, v_CTDATE, v_USRNAM, v_CHTCOM, v_CTITL1, v_CTITL2,

    v_EDDATE, v_EDNUMB, v_INTNUM, v_LTSTNM, v_NREGN1, v_NREGN2, v_PARCON,

    v_PUBCON, v_PUBDAT, v_SAREA1, v_SAREA2, v_SEANUM, v_CHPRID, v_productgroup);

    -- Display the new Chart Version ID.

    DBMS_OUTPUT.PUT_LINE('--*-- Created Paper Chart Version ID: '||v_CHARTVER_ID);

    -- Create a new Sheet, add sheet to the chart.

    v_sheetver_id := P_PPRAPI.ADDSHEET(

    v_CHARTVER_ID, v_LAYOUT, v_MARGNB, v_MARGNL, v_MARGNR, v_MARGNT,

    v_PHEIGH, v_PPSIZE, v_PWIDTH, v_TSHEET, v_SHEET1, v_SHEET2, v_CMMNTS);

    -- Display the new Sheet Version ID.

    DBMS_OUTPUT.PUT_LINE('--*-- Created Sheet Version ID: '||v_SHEETVER_ID);

    -- Create a new Panel, add panel to the sheet.

    v_panelver_id := P_PPRAPI.ADDPANEL(

    v_SHEETVER_ID, v_PROFILE_ID, v_GEOM_WGS84, v_PANNAM, v_PANNUM, v_PANPOS,

    v_PSCALE, NULL, v_DATUMNAME, v_HELMERT, v_SHIFTXY, v_SHIFTLATLONG,

    v_BDRTYP, v_DEPDAT, v_DEPUNT, v_HGHTDA, v_HGHTUN, v_PANTIT, v_PANTYP,

    v_PARUSD, v_PRJCTN, v_PRONAM, v_SHFTNS, v_SHFTWW, v_SRCHDP, v_SRCHDT,

    v_SYMLIB, v_ANNOID, v_PRESID, v_sdgfc, v_sdgsz, v_ROTATE, v_PANORD,

    v_SNDRND, v_FRCDSP, v_GRTINT);

    -- Display the new Panel Version ID.

    DBMS_OUTPUT.PUT_LINE('--*-- Created Panel Version ID: '|| v_PANELVER_ID);

END;

/