Advertisement
Guest User

Untitled

a guest
Feb 12th, 2016
54
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.83 KB | None | 0 0
  1. SELECT DISTINCT pa.kas_pa, pa.auth_num FROM t_pa_path pa, t_pa_a_item ai
  2. WHERE (pa.kas_receipt = :kas_receipt OR
  3. pa.ID_receipt_KEYED = :id_receipt_keyed OR
  4. pa.kas_receipt IN (SELECT kas_rcp_purged FROM t_receipt_link_xref WHERE kas_receipt = :kas_receipt AND cde_status = 'Z') )
  5. AND pa.auth_num <> :auth_num
  6. AND pa.kas_pa = ai.kas_pa
  7. AND pa.kas_payer_one = :kas_payer_one
  8. AND pa.ind_special = :ind_special
  9. AND pa.ind_emerg = :ind_emerg
  10. AND pa.the_status IN ('A','B','C','D','E')
  11. AND pa.kas_prov_loc IN (SELECT kas_prov_loc FROM t_pr_identifier WHERE RTRIM(id_other_cust) = :id_prov_keyed)
  12. AND :cde_keyed IN (ai.cde_keyed, ai.cde_2_keyed, ai.cde_3_keyed, ai.cde_4_keyed)
  13. AND ai.cde_keyed IN (' ',:cde_keyed)
  14. AND ai.cde_2_keyed IN (' ',:cde_keyed)
  15. AND ai.cde_3_keyed IN (' ',:cde_keyed)
  16. AND ai.cde_4_keyed IN (' ',:cde_keyed)
  17. AND ai.the_STATUS IN ('A','C','E','G','W')
  18. AND ai.kas_proceding = :kas_proceding
  19. OR EXISTS (SELECT 1 FROM t_pa_a_item ai, t_dup_svc ds JOIN t_prog p ON ds.cde_proceding_2=rtrim(p.cde_proc)
  20. WHERE ds.cde_tax_1 = :cde_tax_1
  21. AND ds.cde_proceding_1 = :cde_proceding_1
  22. AND ds.cde_1 = :cde_1
  23. AND ds.cde_tax_2 = ai.cde_tax
  24. AND p.kas_proceding = ai.kas_proceding
  25. AND ds.cde_2 = ai.cde_keyed)
  26. OR EXISTS (SELECT 1 FROM t_pa_a_item ai, t_dup_svc ds JOIN t_prog p ON ds.cde_proceding_1=rtrim(p.cde_proc)
  27. WHERE ds.cde_tax_2 = :cde_tax_1
  28. AND ds.cde_proceding_2 = :cde_proceding_1
  29. AND ds.cde_2 = :cde_1
  30. AND ds.cde_tax_1 = ai.cde_tax
  31. AND p.kas_proceding = ai.kas_proceding
  32. AND ds.cde_1 = ai.cde_keyed)
  33. AND ( ai.dte_pa_req_eff = :dte_pa_req_eff OR
  34. ((:dte_pa_req_eff BETWEEN ai.DTE_PA_REQ_EFF AND ai.DTE_PA_REQ_END ) OR
  35. ( :dte_pa_req_end BETWEEN ai.DTE_PA_REQ_EFF AND ai.DTE_PA_REQ_END ) OR
  36. ( :dte_pa_req_eff < ai.DTE_PA_REQ_EFF AND :dte_pa_req_end > ai.DTE_PA_REQ_END ) ));
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement