门诊发药明细

 select b.姓名 患者名,
        d.编码 药品代码,
        d.名称 药品名称,
        (select 住院号
           from 病案主页
          where 病人id = h.病人ID
            and 主页id = h.主页Id) 病案号,
        a.审核日期 发药日期,
        a.已发数量 数量,
        a.零售价 销售单价,
        a.零售金额 收费金额,
        d.住院单位 计价单位,
        （select 名称
   from 部门表
  where id = a.对方部门ID) 领药科室, d.规格, d.产地 生产商, '' as 管制分类, 
  decode(h.收费类别, 5, '西药', 6, '成药', 7, '草药') 药品大类, a.no 处方号, '' as 招标药否, 
  a.批次 药批次号 from (SELECT A.NO,                                                                                                                                A.药品ID,
        A.费用ID,
        A.零售价,
        max(a.审核日期) 审核日期,
        SUM(NVL(A.付数,1) * A.实际数量) 已发数量,
        sum(a.零售金额) 零售金额,
        A.对方部门ID,
        a.批次
   FROM 药品收发记录 A
  WHERE nvl(a.发药方式, -999) <> -1
    and A.审核人 IS NOT NULL --AND (A.记录状态 = 1 OR MOD(A.记录状态,  3) = 0)
    And A.审核日期 Between /*B0*/
        TO_DATE('2018-10-31 00:00:00',
                'YYYY-MM-DD HH24:MI:SS') /*E0*/
        and /*B1*/
        TO_DATE('2023-10-31 23:59:59',
                'YYYY-MM-DD HH24:MI:SS') /*E1*/
    And A.单据 In (9,10)
  group by A.NO,
           A.药品ID,
           A.费用ID,
           A.零售价,
           A.对方部门ID,
           a.批次
  having SUM(NVL(A.付数, 1) * A.实际数量) <> 0) a, 住院费用记录 H, 病人信息 B, 部门表 c, 药品目录 d
  WHERE a.药品id = d.药品id
    AND H.病人ID = B.病人ID(+)
    AND A.费用ID = H.ID
    and a.对方部门id = c.id
    and h.收费类别 in ('5', '6', '7')