AutoScript
proc AU_PORTAL_GETALLTBLRECS()
portal_id = __params[1]
tname = __params[2]
call trace("operation=","GETALLTBLRECS"," tname=",tname)
{flag = AU_PORTAL_OPERATIONINC(portal_id,"GETALLTBLRECS",tname) } {...check for inclusion in portal operation}
{if (flag = 0) then}
{ return}
{endif}
if (tname = "e_BODY_TYPE") then
start_sql "*" "KOSMOS"
SELECT * FROM e_BODY_TYPE
end_sql
q = QueryByName()
endif
if (tname = "e_TYPE_TRY") then
start_sql "*" "KOSMOS"
SELECT * FROM e_TYPE_TRY
end_sql
q = QueryByName()
endif
if (tname = "e_EXPORT_TYPE") then
start_sql "*" "KOSMOS"
SELECT * FROM e_EXPORT_TYPE
end_sql
q = QueryByName()
endif
if (tname = "e_MATIA") then
start_sql "*" "KOSMOS"
SELECT * FROM e_MATIA
end_sql
q = QueryByName()
endif
if (tname = "e_FYLO") then
start_sql "*" "KOSMOS"
SELECT * FROM e_FYLO
end_sql
q = QueryByName()
endif
if (tname = "e_MALLIA") then
start_sql "*" "KOSMOS"
SELECT * FROM e_MALLIA
end_sql
q = QueryByName()
endif
if (tname = "e_MALLIA_TYPE") then
start_sql "*" "KOSMOS"
SELECT * FROM e_MALLIA_TYPE
end_sql
q = QueryByName()
endif
if (tname = "e_DERMA") then
start_sql "*" "KOSMOS"
SELECT * FROM e_DERMA
end_sql
q = QueryByName()
endif
if (tname = "e_BLOOD_TYPE") then
start_sql "*" "KOSMOS"
SELECT * FROM e_BLOOD_TYPE
end_sql
q = QueryByName()
endif
if (tname = "e_COLOUR") then
start_sql "*" "KOSMOS"
SELECT * FROM e_COLOUR
end_sql
q = QueryByName()
endif
if (tname = "e_COLOUR_PA") then
start_sql "*" "KOSMOS"
SELECT * FROM e_COLOUR_PA
end_sql
q = QueryByName()
endif
if (tname = "e_COLOUR_CA") then
start_sql "*" "KOSMOS"
SELECT * FROM e_COLOUR_CA
end_sql
q = QueryByName()
endif
if (tname = "e_COLOUR_PAS") then
start_sql "*" "KOSMOS"
SELECT * FROM e_COLOUR_PAS
end_sql
q = QueryByName()
endif
if (tname = "e_CLINICS") then
start_sql "*" "KOSMOS"
SELECT * FROM e_CLINICS
end_sql
q = QueryByName()
endif
if (tname = "AU_POS") then
start_sql "*" "KOSMOS"
SELECT * FROM AU_POS
end_sql
q = QueryByName()
endif
if (tname = "e_COUPLE") then
start_sql "*" "KOSMOS"
SELECT * FROM e_COUPLE
WHERE (COUPLE IN (
SELECT e_COUPLE.COUPLE
FROM e_TRY, PERSON AS P_MAN, PERSON AS P_WOMAN, E_COUPLE, e_CLINICS
WHERE (E_TRY.CLINICS > 0 )
AND (P_MAN.PERSON = e_TRY.PERSON_M)
AND (P_WOMAN.PERSON = E_TRY.PERSON_W)
AND (E_TRY.COUPLE = E_COUPLE.COUPLE)
AND (E_TRY.CLINICS = e_CLINICS.CLINICS) ))
end_sql
q = QueryByName()
endif
if (tname = "e_TRY") then
start_sql "*" "KOSMOS"
SELECT e_TRY.*
FROM e_TRY, PERSON AS P_MAN, PERSON AS P_WOMAN, E_COUPLE, e_CLINICS
WHERE (E_TRY.CLINICS > 0 )
AND (E_TRY.TYPE_TRY = 31)
AND (P_MAN.PERSON = e_TRY.PERSON_M)
AND (P_WOMAN.PERSON = E_TRY.PERSON_W)
AND (E_TRY.COUPLE = E_COUPLE.COUPLE)
AND (E_TRY.CLINICS = e_CLINICS.CLINICS)
end_sql
q = QueryByName()
endif
if (tname = "PERSON") then
start_sql "*" "KOSMOS"
SELECT * FROM PERSON
WHERE (PERSON IN (
SELECT P_MAN.PERSON
FROM e_TRY, PERSON AS P_MAN, PERSON AS P_WOMAN, E_COUPLE, e_CLINICS
WHERE (E_TRY.CLINICS > 0 )
AND (P_MAN.PERSON = e_TRY.PERSON_M)
AND (P_WOMAN.PERSON = E_TRY.PERSON_W)
AND (E_TRY.COUPLE = E_COUPLE.COUPLE)
AND (E_TRY.CLINICS = e_CLINICS.CLINICS) ))
OR
(PERSON IN (
SELECT P_WOMAN.PERSON
FROM e_TRY, PERSON AS P_MAN, PERSON AS P_WOMAN, E_COUPLE, e_CLINICS
WHERE (E_TRY.CLINICS > 0 )
AND (P_MAN.PERSON = e_TRY.PERSON_M)
AND (P_WOMAN.PERSON = E_TRY.PERSON_W)
AND (E_TRY.COUPLE = E_COUPLE.COUPLE)
AND (E_TRY.CLINICS = e_CLINICS.CLINICS) ))
end_sql
q = QueryByName()
endif
if (tname = "AU_PROCESS") then
start_sql "*" "KOSMOS"
SELECT * FROM AU_PROCESS
WHERE (AU_PROCESS IN (
SELECT e_TRY.AU_PROCESS
FROM e_TRY, PERSON AS P_MAN, PERSON AS P_WOMAN, E_COUPLE, e_CLINICS
WHERE (E_TRY.CLINICS > 0 )
AND (E_TRY.TYPE_TRY = 31)
AND (P_MAN.PERSON = e_TRY.PERSON_M)
AND (P_WOMAN.PERSON = E_TRY.PERSON_W)
AND (E_TRY.COUPLE = E_COUPLE.COUPLE)
AND (E_TRY.CLINICS = e_CLINICS.CLINICS) ))
end_sql
q = QueryByName()
endif
if (tname = "AU_STEP") then
start_sql "*" "KOSMOS"
SELECT * FROM AU_STEP
WHERE (AU_PROCESS IN (
SELECT e_TRY.AU_PROCESS
FROM e_TRY, PERSON AS P_MAN, PERSON AS P_WOMAN, E_COUPLE, e_CLINICS
WHERE (E_TRY.CLINICS > 0 )
AND (E_TRY.TYPE_TRY = 31)
AND (P_MAN.PERSON = e_TRY.PERSON_M)
AND (P_WOMAN.PERSON = E_TRY.PERSON_W)
AND (E_TRY.COUPLE = E_COUPLE.COUPLE)
AND (E_TRY.CLINICS = e_CLINICS.CLINICS) ))
end_sql
q = QueryByName()
endif
if (tname = "AU_PROC_CLIST") then
start_sql "*" "KOSMOS"
SELECT * FROM AU_PROC_CLIST
WHERE (AU_PROCESS IN (
SELECT e_TRY.AU_PROCESS
FROM e_TRY, PERSON AS P_MAN, PERSON AS P_WOMAN, E_COUPLE, e_CLINICS
WHERE (E_TRY.CLINICS > 0 )
AND (E_TRY.TYPE_TRY = 31)
AND (P_MAN.PERSON = e_TRY.PERSON_M)
AND (P_WOMAN.PERSON = E_TRY.PERSON_W)
AND (E_TRY.COUPLE = E_COUPLE.COUPLE)
AND (E_TRY.CLINICS = e_CLINICS.CLINICS) ))
end_sql
q = QueryByName()
endif
if (tname = "AU_PROC_CLIST_LST") then
start_sql "*" "KOSMOS"
SELECT * FROM AU_PROC_CLIST_LST
WHERE (AU_PROC_CLIST IN (
SELECT AU_PROC_CLIST.AU_PROC_CLIST
FROM e_TRY, PERSON AS P_MAN, PERSON AS P_WOMAN, E_COUPLE, e_CLINICS, AU_PROC_CLIST
WHERE (E_TRY.CLINICS > 0 )
AND (E_TRY.TYPE_TRY = 31)
AND (P_MAN.PERSON = e_TRY.PERSON_M)
AND (AU_PROC_CLIST.AU_PROCESS = e_TRY.AU_PROCESS)
AND (P_WOMAN.PERSON = E_TRY.PERSON_W)
AND (E_TRY.COUPLE = E_COUPLE.COUPLE)
AND (E_TRY.CLINICS = e_CLINICS.CLINICS) ))
end_sql
q = QueryByName()
endif
call TExecute(q)
call PackRecordsToJSON ( portal_id, "GETALLTBLRECS", tname, q )
call FreeEmbSQL(q)
end
