Как выбрать размер упаковки если контрактов несколько : Oracle

SELECT TO_CHAR(P.PACKSIZE) AS PACKSIZE, 
                   TO_CHAR(D.CREATEDAT, 'DD.MM.YY') AS DOC_D, 
                   L.LOCATIONID 
                  FROM SUPERMAG.SMSPECCO P, 
                   SUPERMAG.SMDOCUMENTS D, 
                   SUPERMAG.SMCONTRACTLOCATIONS L 
                 WHERE P.DOCID = D.ID 
                   AND P.DOCTYPE = D.DOCTYPE 
                   AND D.ID = L.ID 
                   AND 'CQ' = L.DOCTYPE 
                   AND '1000115' = P.ARTICLE 
                   AND 1 = L.LOCATIONID
                   AND 3 = D.DOCSTATE 
                   AND L.ID = P.DOCID
                   ORDER BY D.CREATEDAT DESC

SELECT
    D.ID AS DOCID,
    D.CREATEDAT AS CREATEDAT,
    DT.DATEDAT AS DARTDAT,
    DT.DATEDAT2 AS DATEDAT2,
    P.PARAMVALUE AS COM,
    CL.NAME AS POSTAVSHIK,
    C.ARTICLE AS ARTICLE,
    SP.SUPPLIERARTICLE AS SUPPLIERARTICLE,
    SUPERMAG.barToStrcreate(S.ARTICLE) BARCODE,
    C.NAME AS NAME,
    S.QUANTITY AS QUANTITY
    
    
FROM SUPERMAG.SMDOCUMENTS D
    LEFT JOIN SUPERMAG.SMDATEDOCS DT ON DT.ID=D.ID AND DT.DOCTYPE=D.DOCTYPE 
    LEFT JOIN SUPERMAG.SMDOCPROPS P ON P.DOCID=D.ID AND P.DOCTYPE = D.DOCTYPE AND P.PARAMNAME='CustomLabels.DOPCOMMENT'
    LEFT JOIN SUPERMAG.SMSPEC S ON S.DOCID = D.ID AND D.DOCTYPE = S.DOCTYPE
    LEFT JOIN SUPERMAG.SMCARD C ON C.ARTICLE = S.ARTICLE
    LEFT JOIN SUPERMAG.SMCLIENTINFO CL ON CL.ID = D.CLIENTINDEX
    LEFT JOIN SUPERMAG.SMSUPPLYCASE SP ON SP.ARTICLE = S.ARTICLE AND SP.IDSUPPLIER = D.CLIENTINDEX
     

WHERE
    D.ID = 'ЗП1488798'
    AND D.DOCTYPE IN ('OR','SO')

select id,max(createdat) from supermag.smdocuments where id='НОМЕР' group by id;

CREATE OR REPLACE function SUPERMAG.pavpacksize  ( p_a in varchar2,p_mx in number )
    return varchar2
    is
        l_str  varchar2(2000) default null;
        
    begin
        for x in ( SELECT PACKSIZE FROM (
SELECT TO_CHAR(P.PACKSIZE) AS PACKSIZE, 
                   TO_CHAR(D.CREATEDAT, 'DD.MM.YY') AS DOC_D, 
                   L.LOCATIONID 
                  FROM SUPERMAG.SMSPECCQ P, 
                   SUPERMAG.SMDOCUMENTS D, 
                   SUPERMAG.SMCONTRACTLOCATIONS L 
                 WHERE P.DOCID = D.ID 
                   AND P.DOCTYPE = D.DOCTYPE 
                   AND D.ID = L.ID 
                   AND 'CQ' = L.DOCTYPE 
                   AND p_a = P.ARTICLE 
                   AND p_mx = L.LOCATIONID 
                   AND  D.DOCSTATE =2  
                   AND L.ID = P.DOCID
                   AND L.DOCTYPE = P.DOCTYPE
                   ORDER BY D.CREATEDAT DESC
                   ) WHERE ROWNUM = 1 ) loop
            l_str :=  x.PACKSIZE;
           
       end loop;
       return l_str;
   end;
/