proc AU_PORTAL_SENDJSON()

     portal_id = __params[1]
     mode      = __params[2]
     tname     = __params[3]
     id      = __params[4]
call trace("operation=","SENDJSON"," tname=",tname," id=",id)
{flag = AU_PORTAL_OPERATIONINC(portal_id,"GETALLTBLRECS",tname) } {...check for inclusion in portal operation}
{if (flag = 0) then}
{ return}
{endif}

     dq = Escape(34,-1)

     if (mode = "INSERT_REC") then
        if (tname = "PERSON") then
         start_sql "*" "KOSMOS"
         SELECT PERSON, AU_CONTACT FROM PERSON
         WHERE (PERSON = :P)
         end_sql
         q = QueryByName()
         call TSetParam(q,"P",id)
         pack_mode = "UPDATE_REC"
         call TExecute(q)
         call PackRecordsToJSON ( portal_id, pack_mode, tname, q )
         call FreeEmbSQL(q)
        endif
        if (tname = "e_COUPLE") then
         start_sql "*" "KOSMOS"
         SELECT COUPLE, AU_BUSINESS FROM e_COUPLE
         WHERE (COUPLE = :C)
         end_sql
         q = QueryByName()
         call TSetParam(q,"C",id)
         pack_mode = "UPDATE_REC"
         call TExecute(q)
         call PackRecordsToJSON ( portal_id, pack_mode, tname, q )
         call FreeEmbSQL(q)
        endif
        if (tname = "e_TRY") then

         call bpm_startcoordinator("ÄÉÁÄÉÊÁÓÉÁ_WEB_O_EXPORT", id)

         start_sql "*" "KOSMOS"
         SELECT * FROM e_TRY
         WHERE (TRY = :T)
         end_sql
         q = QueryByName()
         call TSetParam(q,"T",id)
         pack_mode = "UPDATE_REC"
         call TExecute(q)

         call message("{ ",dq,"e_TRY",dq," : ")
         call PackRecordsToJSON ( portal_id, pack_mode, tname, q )
         call message(",")
         call FreeEmbSQL(q)

         proc_id = SelectFrom("SELECT AU_PROCESS FROM e_TRY WHERE (TRY=",id,")")

         start_sql "*" "KOSMOS"
         SELECT * FROM AU_PROCESS
         WHERE (AU_PROCESS = :P)
         end_sql
         q = QueryByName()
         call TSetParam(q,"P",proc_id)
         pack_mode = "REPLACE_REC"
         call TExecute(q)
         call message(dq,"AU_PROCESS",dq," : ")
         call PackRecordsToJSON ( portal_id, pack_mode, "AU_PROCESS", q )
         call message(",")
         call FreeEmbSQL(q)

         start_sql "*" "KOSMOS"
         SELECT * FROM AU_STEP
         WHERE (AU_PROCESS = :P)
         end_sql
         q = QueryByName()
         call TSetParam(q,"P",proc_id)
         pack_mode = "REPLACE_REC"
         call TExecute(q)
         call message(dq,"AU_STEP",dq," : ")
         call PackRecordsToJSON ( portal_id, pack_mode, "AU_STEP", q )
         call message(",")
         call FreeEmbSQL(q)

         start_sql "*" "KOSMOS"
         SELECT * FROM AU_PROC_CLIST
         WHERE (AU_PROCESS = :P)
         end_sql
         q = QueryByName()
         call TSetParam(q,"P",proc_id)
         pack_mode = "REPLACE_REC"
         call TExecute(q)
         call message(dq,"AU_PROC_CLIST",dq," : ")
         call PackRecordsToJSON ( portal_id, pack_mode, "AU_PROC_CLIST", q )
         call message(",")
         call FreeEmbSQL(q)

         procc_id = SelectFrom("SELECT AU_PROC_CLIST FROM AU_PROC_CLIST WHERE (AU_PROCESS=",proc_id,")")

         start_sql "*" "KOSMOS"
         SELECT * FROM AU_PROC_CLIST_LST
         WHERE (AU_PROC_CLIST = :P)
         end_sql
         q = QueryByName()
         call TSetParam(q,"P",procc_id)
         pack_mode = "REPLACE_REC"
         call TExecute(q)
         call message(dq,"AU_PROC_CLIST_LST",dq," : ")
         call PackRecordsToJSON ( portal_id, pack_mode, "AU_PROC_CLIST_LST", q )
         call message("}")
         call FreeEmbSQL(q)

        endif
     endif

     if (mode = "FORWARD_REC") then

        proc_id = SelectFrom("SELECT AU_PROCESS FROM AU_STEP WHERE (AU_STEP=",id,")")
        try_id = SelectFrom("SELECT TRY FROM e_TRY WHERE (AU_PROCESS=",proc_id,")")

        start_sql "*" "KOSMOS"
         SELECT * FROM e_TRY
         WHERE (TRY = :T)
        end_sql
        q = QueryByName()
        call TSetParam(q,"T",try_id)
        pack_mode = "UPDATE_REC"
        call TExecute(q)

        call message("{ ",dq,"e_TRY",dq," : ")
        call PackRecordsToJSON ( portal_id, pack_mode, "e_TRY", q )
        call message(",")
        call FreeEmbSQL(q)

        start_sql "*" "KOSMOS"
         SELECT * FROM AU_PROCESS
         WHERE (AU_PROCESS = :P)
        end_sql
        q = QueryByName()
        call TSetParam(q,"P",proc_id)
        pack_mode = "REPLACE_REC"
        call TExecute(q)
        call message(dq,"AU_PROCESS",dq," : ")
        call PackRecordsToJSON ( portal_id, pack_mode, "AU_PROCESS", q )
        call message(",")
        call FreeEmbSQL(q)

        start_sql "*" "KOSMOS"
         SELECT * FROM AU_STEP
         WHERE (AU_PROCESS = :P)
        end_sql
        q = QueryByName()
        call TSetParam(q,"P",proc_id)
        pack_mode = "REPLACE_REC"
        call TExecute(q)
        call message(dq,"AU_STEP",dq," : ")
        call PackRecordsToJSON ( portal_id, pack_mode, "AU_STEP", q )
        call message(",")
        call FreeEmbSQL(q)

        start_sql "*" "KOSMOS"
         SELECT * FROM AU_PROC_CLIST
         WHERE (AU_PROCESS = :P)
        end_sql
        q = QueryByName()
        call TSetParam(q,"P",proc_id)
        pack_mode = "REPLACE_REC"
        call TExecute(q)
        call message(dq,"AU_PROC_CLIST",dq," : ")
        call PackRecordsToJSON ( portal_id, pack_mode, "AU_PROC_CLIST", q )
        call message(",")
        call FreeEmbSQL(q)

        procc_id = SelectFrom("SELECT AU_PROC_CLIST FROM AU_PROC_CLIST WHERE (AU_PROCESS=",proc_id,")")

        start_sql "*" "KOSMOS"
         SELECT * FROM AU_PROC_CLIST_LST
         WHERE (AU_PROC_CLIST = :P)
        end_sql
        q = QueryByName()
        call TSetParam(q,"P",procc_id)
        pack_mode = "REPLACE_REC"
        call TExecute(q)
        call message(dq,"AU_PROC_CLIST_LST",dq," : ")
        call PackRecordsToJSON ( portal_id, pack_mode, "AU_PROC_CLIST_LST", q )
        call message("}")
        call FreeEmbSQL(q)

     endif

end