APP
PROJECTS
PROJ_ID
FROM (SELECT PROJ.PROJ_ID
, PROJ.PROJ_TYPE
, TO_CHAR(PROJ.PROJ_YEAR, 'FM0000') PROJ_YEAR
, PROJ.STM_CODE
, FTYP.RFC_CODE FLOW_TYPE
, FTYP.RFC_DESC FLOW_TYPE_DESC
, PROJ.PJM_CODE, BUD.GET_PROJECT(PROJ.PJM_CODE) PROJ_NAME
, PROJ.ACM_CODE, BUD.GET_ACTIVITY(PROJ.ACM_CODE) ACM_NAME
, FTYP.RFC_ORDER PROJ_SEQ
FROM REFER_CODE FTYP
INNER JOIN REFER_CODE PTYPE ON PTYPE.RFG_GRP = 'PROJ-TYPE' AND PTYPE.RFC_FLAG = FTYP.RFC_CODE
INNER JOIN PROJECTS PROJ ON PROJ.PROJ_TYPE = PTYPE.RFC_CODE
WHERE FTYP.RFG_GRP = 'FLOW-TYPE' AND FTYP.RFC_CODE != 'GENERAL' AND PROJ.PROJ_YEAR = :PROJ_YEAR AND PROJ.STM_CODE = :STM_CODE
UNION ALL
SELECT :PROJ_YEAR || 'xGENERALx' || :STM_CODE PROJ_ID
, 'GENERAL' PROJ_TYPE
, :PROJ_YEAR PROJ_YEAR
, :STM_CODE STM_CODE
, FTYP.RFC_CODE FLOW_TYPE
, FTYP.RFC_DESC FLOW_TYPE_DESC
, 'GENERAL' PJM_CODE, FTYP.RFC_DESC PROJ_NAME
, 'GENERAL' ACM_CODE, FTYP.RFC_DESC ACM_NAME
, FTYP.RFC_ORDER PROJ_SEQ
FROM REFER_CODE FTYP
WHERE FTYP.RFC_CODE = 'GENERAL'
) PROJ
ORDER BY PROJ_SEQ, PROJ_ID