<%
file_reference=orequest.form('file_reference')
if isnull(file_reference)
    file_reference=orequest.querystring('fref')
endif
if isnull(file_reference) or empty(file_reference)
    theresponse='{"status":"success","message":"No need","fref":"'+file_reference+'","rref":"","eno":""}'
    return theresponse
endif
record_number=orequest.form('record_number')
if isnull(record_number)
    record_number=allt(transform(nvl(orequest.querystring('rref'),'')))
endif
new_enumber=orequest.form('new_enumber')
if isnull(new_enumber)
    new_enumber=allt(transform(nvl(orequest.querystring('eno'),'')))
endif
file_reference=allt(transform(file_reference))
record_number=allt(transform(record_number))
new_enumber=allt(transform(new_enumber))
tfilename=dbclocation+[fileref]
tcmd=[select ptn from (']+tfilename+[') where allt(reffid)==']+file_reference+[' into cursor ex ]

tfile=addbs(oprop.appstartpath)+[temp\error.err]
erase (tfile)
Strtofile(tcmd,tfile)

&tcmd
if _tally=0 or not empty(ptn)
    theresponse='{"status":"success","message":"No need","fref":"'+file_reference+'","rref":"'+record_number+'","eno":"'+new_enumber+'"}'
    return theresponse
endif

if not empty(new_enumber) and not empty(record_number) 
        tcmd=[update (']+tfilename+[') set ptn=']+new_enumber+[', perdate=date() where allt(reffid)==']+file_reference+[' and empty(ptn) ]
        *tfile=addbs(oprop.appstartpath)+[temp\new_enumber.err]
        *erase (tfile)
        *Strtofile(tcmd,tfile)
        &tcmd
        theresponse='{"status":"success","message":"ptn saved successfully","fref":"'+file_reference+'","rref":"'+record_number+'","eno":"'+new_enumber+'"}'
        tfile=addbs(oprop.appstartpath)+[temp\new_ptn.json]
        erase (tfile)
        Strtofile(theresponse,tfile)
    else
    theresponse='{"status":"success","message":"No need","fref":"'+file_reference+'","rref":"'+record_number+'","eno":"'+new_enumber+'"}'
endif
return theresponse
%>