---手动新增医嘱时的跟踪-- SELECT *FROM ( SELECT A.* FROM VW_ZS_YPSRF0 A WHERE ((yfbmbh=497 and lbbh00 in('0','1'))) AND (PYSM00 like '%bsb%' OR bmpysm like '%bsb%' ) AND YLBH00 like'%' AND (LBBH00='0' OR LBBH00= '1' OR LBBH00='3') and a.kssjb0<1 and a.YPNM00 not in (select YPNM00 from VW_YS_TSXZYP) ORDER BY a.PYSM00,a.YPMC00 asc,a.ykkcsl desc) WHERE ROWNUM<=100 ---医保病人的跟踪 SELECT *FROM ( SELECT A.* FROM VW_ZS_YPSRF0 A WHERE ((yfbmbh=497 and lbbh00 in('0','1'))) AND (PYSM00 like '%bsb%' OR bmpysm like '%bsb%' ) AND YLBH00 like'%' AND (LBBH00='0' OR LBBH00= '1' OR LBBH00='3') and a.kssjb0<1 ORDER BY a.PYSM00,a.YPMC00 asc,a.ykkcsl desc) WHERE ROWNUM<=100 --保健病人的跟踪 -------引用历史医嘱时的跟踪---- 20200817 10:29:25 SP_ZS_YPYZFZ_ZYDZBL /* */ 20200817 10:29:25 parameters p_yzid00=23139393 p_qyrq00=20200817 p_qysj00=10:29:23 p_pxsj00=10:29:23 p_lrrxm0=测试库 p_zyh000=2004450 V_ERROR0=0 V_KCBZYP= p_czy000=1913 p_clbz00= p_ypczfl= P_YEXM00= /* */ 20200817 10:29:25 SELECT qyyshs ,a.* FROM VW_ZS_YZLL00_ZYDZBL a where 1=1 and zyid00=:zyid00 and (yzzt00 in ('0','1','2','7','9') or (zxrq00 >= to_char(sysdate, 'YYYYMMDD') and yzzt00=3 and clbz00=1)) order by Clbz00 desc, CZPC00,QYRQ00,QYSJ00 ,PXSJ00,YZID00,YZMXID /* */ ----SP_ZS_YPYZFZ_ZYDZBL过程中----未对药品限制进行判断----应该增加a.YPNM00 not in (select YPNM00 from VW_YS_TSXZYP) --插入药品医嘱明细表 FOR REC IN CUR_ZS_YPYZMX LOOP V_YPNM00 := null; if P_YPCZFL is not null then begin --根据ypmc00复制 select A.YPNM00,A.YPGG00,A.JLDW00,A.ZYFYDW,A.Z2J000,1,ZJZYCF into V_YPNM00,V_YPGG00,V_JLDW00,V_ZYFYDW,V_Z2J000,V_J2J000,V_ZJZYCF from BM_YD0000 A,YF_YPKCXX B where A.YPMC00=REC.YPMC00 and A.YPCZFL=P_YPCZFL and A.YPNM00=B.YPNM00 and B.YFBMBH=V_YFBMBH and YKKCSL>0 and rownum=1;