CREATE OR REPLACE PACKAGE BODY "KXD"."PKG_WHREP_MATE_AUTHEN_STAT" AS
PROCEDURE GET_WHREP_MATE_AUTHEN_STAT( p_DTBegin DATE , P_DTEnd DATE ,
p_RCTYPE OUT RCTYPE_WHREP_MATE_AUTHEN_STAT)
IS
str varchar2(1000);
BEGIN
str:='select ROWNUM 序号 ,
A.LINE_NAME 线路名称,
A.START_SWITCH 起始开关编号,
A.END_SWITCH 终止开关编号,
A.LINE_VOL_LEVEL 电压等级,
A.LINE_LENGTH 线路长度,
decode(
(select count(*) from MATE_BUG_REC B
where trim(B.LINE_NAME)=trim(A.MATE_LINE_CODE)
AND B.BUG_LEVENT=''Ⅲ'') ,1, ''Ⅲ'',
decode(
(select count(*) from MATE_BUG_REC B
where trim(B.LINE_NAME)=trim(A.MATE_LINE_CODE)
AND B.BUG_LEVENT=''Ⅱ'') ,1,''Ⅱ'',''Ⅰ'')) 评定等级
FROM MATE_LINE A ';
OPEN p_RCTYPE FOR str;
END;
END pkg_WHREP_MATE_AUTHEN_STAT;
PROCEDURE GET_WHREP_MATE_AUTHEN_STAT( p_DTBegin DATE , P_DTEnd DATE ,
p_RCTYPE OUT RCTYPE_WHREP_MATE_AUTHEN_STAT)
IS
str varchar2(1000);
BEGIN
str:='select ROWNUM 序号 ,
A.LINE_NAME 线路名称,
A.START_SWITCH 起始开关编号,
A.END_SWITCH 终止开关编号,
A.LINE_VOL_LEVEL 电压等级,
A.LINE_LENGTH 线路长度,
decode(
(select count(*) from MATE_BUG_REC B
where trim(B.LINE_NAME)=trim(A.MATE_LINE_CODE)
AND B.BUG_LEVENT=''Ⅲ'') ,1, ''Ⅲ'',
decode(
(select count(*) from MATE_BUG_REC B
where trim(B.LINE_NAME)=trim(A.MATE_LINE_CODE)
AND B.BUG_LEVENT=''Ⅱ'') ,1,''Ⅱ'',''Ⅰ'')) 评定等级
FROM MATE_LINE A ';
OPEN p_RCTYPE FOR str;
END;
END pkg_WHREP_MATE_AUTHEN_STAT;
to_date(Mon_StartDate,'yyyy-mm-dd hh24:mi')