SELECT efct periodfrom, 
                    expy periodto,
                    adjs effectivefrom,EXPY Expiry,COD_PSTS.CD01TX  Status, 
                    yoayr yearofaccount,
                    namenm || longnm clientname,
                    plcya1 || plcya2 || plcya3 || plcya4 || plcya5 riskaddress,
                    busncd || CASE  
                        WHEN busntx = NULL THEN 
                         (SELECT cod_busn.cd04tx 
                            FROM cod_busn, 
                                 pol_plcy 
                           WHERE cod_busn.cd04pr = pol_plcy.clascd AND 
                                 cod_busn.cd04yr = pol_plcy.yoayr AND 
                                 cod_busn.cd04cd = pol_plcy.busncd) 
                        Else 
                         busntx 
                    END business, 
                     moverf || movdat || movetm last_change, 
                     uwrfsw uw_refer, 
                     ipsw offer_installments, 
                     pol_plcy.emplbn employees, 
                     mbrsbn members, 
                     offcbn officals, 
                     ltayr || ltae lta_years, 
                     
                     strSQl = strSQl 
                     rcrdpc record_discount,
                     CASE 
                         WHEN specpc > 0 THEN 
                          (specpc) 
                         Else 
                          NULL 
                     END special_discount, 
                     CASE 
                         WHEN specpc < 0 THEN 
                          specpc 
                         Else 
                          NULL 
                     END policy_loading, 
                     adjdes statement_desc, 
                     premam gross_premium, 
                     '' membership, 
                     ltaam lta, 
                     rcrdam RECORD, 
                     specam special, 
                     nettam premium, 
                     iptcli tax, 
                     vatamt uat, 
                     totdue total_due, 
                      strSQl = strSQl 
                     CASE 
                         WHEN adjsam >= 0 THEN 
                          adjsam 
                         Else 
                          NULL 
                     END ap, 
                     CASE 
                         WHEN adjsam < 0 THEN 
                          adjsam 
                         Else 
                          NULL 
                     END rp 
                From pol_plcy,cod_psts 
                              
                     WHERE 
                      COD_PSTS.CD01ST = POL_PLCY.PLCYST and 
                      ACCTRF = P_ACCTRF
                      AND CLASCD =P_CLASCD
                      AND PLCYRF =P_PLCYRF
                      AND PLCYST=P_PLCYST