/******************************************************************************************************************************਀⨀⨀ 伀戀樀攀挀琀一愀洀攀㨀 嬀倀开䤀䴀倀开䤀匀吀䔀倀匀开刀倀吀开倀刀䐀崀
**਀⨀⨀ 䄀甀琀栀漀爀㨀 䈀爀攀琀 匀洀椀琀栀
**਀⨀⨀ 䌀漀洀瀀愀渀礀 一愀洀攀㨀圀椀渀搀猀漀爀 匀漀氀甀琀椀漀渀猀Ⰰ 䤀渀挀
**਀⨀⨀ 䐀攀猀挀爀椀瀀琀椀漀渀㨀ऀ䤀渀猀攀爀琀 愀 猀椀渀最氀攀 瀀爀漀挀攀猀猀 攀洀椀猀猀椀漀渀 ⠀爀瀀琀开瀀爀搀⤀ 愀渀搀 爀攀琀甀爀渀 渀攀眀 椀搀 琀漀
**				calling procedure.਀⨀⨀ऀऀऀऀ䄀氀猀漀 椀渀猀攀爀琀 挀栀椀氀搀 爀攀挀漀爀搀猀 眀栀攀爀攀 渀漀琀 愀猀猀漀挀椀愀琀椀瘀攀 攀渀琀椀琀礀 ⠀爀攀氀愀琀椀渀最 
**				another entity type).਀⨀⨀
**਀⨀⨀ 刀攀瘀椀猀椀漀渀 䠀椀猀琀漀爀礀㨀
** ----------------------------------------------------------------------------------------------------------------------------਀⨀⨀  䐀愀琀攀ऀऀ一愀洀攀        䐀攀猀挀爀椀瀀琀椀漀渀
** ----------------------------------------------------------------------------------------------------------------------------਀⨀⨀ ㄀　⼀　㄀⼀㈀　㄀㄀ऀ䈀匀洀椀琀栀      伀爀椀最椀渀愀氀⸀
** 02/23/2012	BSmith		Changed DE COMMT retrieval logic. Needs to be uncommented before DE migration run.਀⨀⨀ 　㌀⼀㈀㜀⼀㈀　㄀㈀ऀ䈀匀洀椀琀栀ऀऀ䤀昀 䄀猀栀Ⰰ 匀甀氀昀甀爀Ⰰ 漀爀 䠀攀愀琀 愀爀攀 　 琀栀攀渀 猀攀琀 琀漀 一唀䰀䰀
**਀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⼀
ALTER PROCEDURE [dbo].[P_IMP_ISTEPS_RPT_PRD]਀ऀ䀀瀀开椀猀琀攀瀀猀开猀琀愀琀攀开挀搀ऀऀऀ䌀䠀䄀刀⠀㈀⤀Ⰰ
	@p_isteps_idsegment			INT,਀ऀ䀀瀀开渀攀眀开甀渀椀琀开瀀爀漀挀开椀搀ऀऀऀ䤀一吀
AS਀ऀ匀䔀吀 一伀䌀伀唀一吀 伀一㬀
BEGIN਀ऀ䐀䔀䌀䰀䄀刀䔀 䀀瘀开攀爀爀开挀漀搀攀ऀऀऀ䤀一吀㬀
	DECLARE @v_new_rpt_prd_id	INT;਀ऀ
	SELECT @v_err_code = @@Error;਀ऀ
	--Insert RPT_PRD record based on POINT and SEGMENT records਀ऀ䤀䘀 䀀瘀开攀爀爀开挀漀搀攀 㴀 　
	BEGIN਀ऀऀ䤀一匀䔀刀吀 䤀一吀伀 䴀开刀倀吀开倀刀䐀
		(਀ऀऀऀ 唀一䤀吀开倀刀伀䌀开䤀䐀
			,E_RPT_PRD_TYPE_CD਀ऀऀऀⰀ䔀开䔀䴀䤀匀开伀倀䔀刀开吀夀倀䔀开䌀䐀
			,UNIT_PROC_REPORTED_IND਀ऀऀऀⰀ唀一䤀吀开倀刀伀䌀开䌀䈀䤀开䤀一䐀
			,START_DATE਀ऀऀऀⰀ䔀一䐀开䐀䄀吀䔀
			,E_CALC_PARM_TYPE_CD਀ऀऀऀⰀ䌀䄀䰀䌀开倀䄀刀䴀开嘀䄀䰀
			,E_CALC_PARM_UOM_CD਀ऀऀऀⰀ䔀开䌀䄀䰀䌀开䴀吀刀䰀开吀夀倀䔀开䌀䐀
			,CALC_PARM_JAN_VAL਀ऀऀऀⰀ䌀䄀䰀䌀开倀䄀刀䴀开䘀䔀䈀开嘀䄀䰀
			,CALC_PARM_MAR_VAL਀ऀऀऀⰀ䌀䄀䰀䌀开倀䄀刀䴀开䄀倀刀开嘀䄀䰀
			,CALC_PARM_MAY_VAL਀ऀऀऀⰀ䌀䄀䰀䌀开倀䄀刀䴀开䨀唀一开嘀䄀䰀
			,CALC_PARM_JUL_VAL਀ऀऀऀⰀ䌀䄀䰀䌀开倀䄀刀䴀开䄀唀䜀开嘀䄀䰀
			,CALC_PARM_SEP_VAL਀ऀऀऀⰀ䌀䄀䰀䌀开倀䄀刀䴀开伀䌀吀开嘀䄀䰀
			,CALC_PARM_NOV_VAL਀ऀऀऀⰀ䌀䄀䰀䌀开倀䄀刀䴀开䐀䔀䌀开嘀䄀䰀
			,ACTL_HOURS_PER_PRD਀ऀऀऀⰀ䄀嘀䜀开䐀䄀夀匀开倀䔀刀开圀䔀䔀䬀
			,AVG_HOURS_PER_DAY਀ऀऀऀⰀ䄀嘀䜀开圀䔀䔀䬀匀开倀䔀刀开倀刀䐀
			,PCT_WINTER_ACT਀ऀऀऀⰀ倀䌀吀开匀倀刀䤀一䜀开䄀䌀吀
			,PCT_SUMMER_ACT਀ऀऀऀⰀ倀䌀吀开䘀䄀䰀䰀开䄀䌀吀
			,ACTL_OZONE_SEAS_DAYS਀ऀऀऀⰀ䄀䌀吀䰀开匀唀䴀䴀䔀刀开匀䔀䄀匀开䐀䄀夀匀
			,ACTL_CO_SEAS_DAYS਀ऀऀऀⰀ倀䌀吀开䄀匀䠀开䌀伀一吀
			,PCT_SULFUR_CONT਀ऀऀऀⰀ䠀䔀䄀吀开䌀伀一吀
			,RPT_PRD_CMNT਀ऀऀऀⰀ䰀䄀匀吀开唀倀䐀䄀吀䔀䐀开䐀䄀吀䔀
			,LAST_UPDATED_BY_USER_ID਀ऀऀ⤀
		(਀ऀऀऀ匀䔀䰀䔀䌀吀
				@p_new_unit_proc_id,਀ऀऀऀऀ✀䄀✀Ⰰ
				'R',਀ऀऀऀऀ㄀Ⰰ
				0,਀ऀऀऀऀ一唀䰀䰀Ⰰ
				NULL,਀ऀऀऀऀ猀洀⸀䌀䄀䰀䌀开倀䄀刀䴀开吀夀倀䔀开䌀䐀Ⰰ
				CASE ਀ऀऀऀऀऀ圀䠀䔀一 猀⸀䘀唀䔀䰀开倀刀伀䌀 䤀匀 一唀䰀䰀 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀䘀唀䔀䰀开倀刀伀䌀⤀⤀ 㴀 ✀✀  伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀䘀唀䔀䰀开倀刀伀䌀⤀⤀ 㴀 ✀⸀✀ 吀䠀䔀一 一唀䰀䰀
					ELSE CAST(s.FUEL_PROC AS FLOAT)਀ऀऀऀऀ䔀一䐀Ⰰ
				sm.CALC_PARM_UOM_CD,਀ऀऀऀऀ猀洀⸀䌀䄀䰀䌀开䴀吀刀䰀开吀夀倀䔀开䌀䐀Ⰰ
				CASE ਀ऀऀऀऀऀ圀䠀䔀一 猀⸀倀刀伀䌀刀䄀吀䔀　㄀ 䤀匀 一唀䰀䰀 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀倀刀伀䌀刀䄀吀䔀　㄀⤀⤀ 㴀 ✀✀ 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀倀刀伀䌀刀䄀吀䔀　㄀⤀⤀ 㴀 ✀⸀✀ 吀䠀䔀一 一唀䰀䰀
					ELSE CAST(s.PROCRATE01 AS FLOAT)਀ऀऀऀऀ䔀一䐀Ⰰ
				CASE ਀ऀऀऀऀऀ圀䠀䔀一 猀⸀倀刀伀䌀刀䄀吀䔀　㈀ 䤀匀 一唀䰀䰀 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀倀刀伀䌀刀䄀吀䔀　㈀⤀⤀ 㴀 ✀✀ 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀倀刀伀䌀刀䄀吀䔀　㈀⤀⤀ 㴀 ✀⸀✀ 吀䠀䔀一 一唀䰀䰀
					ELSE CAST(s.PROCRATE02 AS FLOAT)਀ऀऀऀऀ䔀一䐀Ⰰ
				CASE ਀ऀऀऀऀऀ圀䠀䔀一 猀⸀倀刀伀䌀刀䄀吀䔀　㌀ 䤀匀 一唀䰀䰀 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀倀刀伀䌀刀䄀吀䔀　㌀⤀⤀ 㴀 ✀✀ 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀倀刀伀䌀刀䄀吀䔀　㌀⤀⤀ 㴀 ✀⸀✀ 吀䠀䔀一 一唀䰀䰀
					ELSE CAST(s.PROCRATE03 AS FLOAT)਀ऀऀऀऀ䔀一䐀Ⰰ
				CASE ਀ऀऀऀऀऀ圀䠀䔀一 猀⸀倀刀伀䌀刀䄀吀䔀　㐀 䤀匀 一唀䰀䰀 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀倀刀伀䌀刀䄀吀䔀　㐀⤀⤀ 㴀 ✀✀ 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀倀刀伀䌀刀䄀吀䔀　㐀⤀⤀ 㴀 ✀⸀✀ 吀䠀䔀一 一唀䰀䰀
					ELSE CAST(s.PROCRATE04 AS FLOAT)਀ऀऀऀऀ䔀一䐀Ⰰ
				CASE ਀ऀऀऀऀऀ圀䠀䔀一 猀⸀倀刀伀䌀刀䄀吀䔀　㔀 䤀匀 一唀䰀䰀 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀倀刀伀䌀刀䄀吀䔀　㔀⤀⤀ 㴀 ✀✀ 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀倀刀伀䌀刀䄀吀䔀　㔀⤀⤀ 㴀 ✀⸀✀ 吀䠀䔀一 一唀䰀䰀
					ELSE CAST(s.PROCRATE05 AS FLOAT)਀ऀऀऀऀ䔀一䐀Ⰰ
				CASE ਀ऀऀऀऀऀ圀䠀䔀一 猀⸀倀刀伀䌀刀䄀吀䔀　㘀 䤀匀 一唀䰀䰀 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀倀刀伀䌀刀䄀吀䔀　㘀⤀⤀ 㴀 ✀✀ 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀倀刀伀䌀刀䄀吀䔀　㘀⤀⤀ 㴀 ✀⸀✀ 吀䠀䔀一 一唀䰀䰀
					ELSE CAST(s.PROCRATE06 AS FLOAT)਀ऀऀऀऀ䔀一䐀Ⰰ
				CASE ਀ऀऀऀऀऀ圀䠀䔀一 猀⸀倀刀伀䌀刀䄀吀䔀　㜀 䤀匀 一唀䰀䰀 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀倀刀伀䌀刀䄀吀䔀　㜀⤀⤀ 㴀 ✀✀ 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀倀刀伀䌀刀䄀吀䔀　㜀⤀⤀ 㴀 ✀⸀✀ 吀䠀䔀一 一唀䰀䰀
					ELSE CAST(s.PROCRATE07 AS FLOAT)਀ऀऀऀऀ䔀一䐀Ⰰ
				CASE ਀ऀऀऀऀऀ圀䠀䔀一 猀⸀倀刀伀䌀刀䄀吀䔀　㠀 䤀匀 一唀䰀䰀 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀倀刀伀䌀刀䄀吀䔀　㠀⤀⤀ 㴀 ✀✀ 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀倀刀伀䌀刀䄀吀䔀　㠀⤀⤀ 㴀 ✀⸀✀ 吀䠀䔀一 一唀䰀䰀
					ELSE CAST(s.PROCRATE08 AS FLOAT)਀ऀऀऀऀ䔀一䐀Ⰰ
				CASE ਀ऀऀऀऀऀ圀䠀䔀一 猀⸀倀刀伀䌀刀䄀吀䔀　㤀 䤀匀 一唀䰀䰀 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀倀刀伀䌀刀䄀吀䔀　㤀⤀⤀ 㴀 ✀✀ 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀倀刀伀䌀刀䄀吀䔀　㤀⤀⤀ 㴀 ✀⸀✀ 吀䠀䔀一 一唀䰀䰀
					ELSE CAST(s.PROCRATE09 AS FLOAT)਀ऀऀऀऀ䔀一䐀Ⰰ
				CASE ਀ऀऀऀऀऀ圀䠀䔀一 猀⸀倀刀伀䌀刀䄀吀䔀㄀　 䤀匀 一唀䰀䰀 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀倀刀伀䌀刀䄀吀䔀㄀　⤀⤀ 㴀 ✀✀ 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀倀刀伀䌀刀䄀吀䔀㄀　⤀⤀ 㴀 ✀⸀✀ 吀䠀䔀一 一唀䰀䰀
					ELSE CAST(s.PROCRATE10 AS FLOAT)਀ऀऀऀऀ䔀一䐀Ⰰ
				CASE ਀ऀऀऀऀऀ圀䠀䔀一 猀⸀倀刀伀䌀刀䄀吀䔀㄀㄀ 䤀匀 一唀䰀䰀 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀倀刀伀䌀刀䄀吀䔀㄀㄀⤀⤀ 㴀 ✀✀ 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀倀刀伀䌀刀䄀吀䔀㄀㄀⤀⤀ 㴀 ✀⸀✀ 吀䠀䔀一 一唀䰀䰀
					ELSE CAST(s.PROCRATE11 AS FLOAT)਀ऀऀऀऀ䔀一䐀Ⰰ
				CASE ਀ऀऀऀऀऀ圀䠀䔀一 猀⸀倀刀伀䌀刀䄀吀䔀㄀㈀ 䤀匀 一唀䰀䰀 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀倀刀伀䌀刀䄀吀䔀㄀㈀⤀⤀ 㴀 ✀✀ 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀倀刀伀䌀刀䄀吀䔀㄀㈀⤀⤀ 㴀 ✀⸀✀ 吀䠀䔀一 一唀䰀䰀
					ELSE CAST(s.PROCRATE12 AS FLOAT)਀ऀऀऀऀ䔀一䐀Ⰰ
				CAST(pt.HRSPERYR AS NUMERIC(5,1)),਀ऀऀऀऀ䌀䄀匀吀⠀瀀琀⸀䐀䄀夀匀倀䔀刀圀䬀 䄀匀 一唀䴀䔀刀䤀䌀⠀㈀Ⰰ㄀⤀⤀Ⰰ
				CAST(pt.HRSPERDAY AS NUMERIC(3,1)),਀ऀऀऀऀ䌀䄀匀吀⠀瀀琀⸀圀䔀䔀䬀匀夀䔀䄀刀 䄀匀 一唀䴀䔀刀䤀䌀⠀㌀Ⰰ㄀⤀⤀Ⰰ
				CAST(pt.DEC_FEB AS NUMERIC(4,1)),਀ऀऀऀऀ䌀䄀匀吀⠀瀀琀⸀䴀䄀刀开䴀䄀夀 䄀匀 一唀䴀䔀刀䤀䌀⠀㐀Ⰰ㄀⤀⤀Ⰰ
				CAST(pt.JUN_AUG AS NUMERIC(4,1)),਀ऀऀऀऀ䌀䄀匀吀⠀瀀琀⸀匀䔀倀开一伀嘀 䄀匀 一唀䴀䔀刀䤀䌀⠀㐀Ⰰ㄀⤀⤀Ⰰ
				NULL AS ACTL_OZONE_SEAS_DAYS,਀ऀऀऀऀ䌀䄀匀䔀
					WHEN CAST(pt.O3DAYS AS NUMERIC) > 99 THEN NULL਀ऀऀऀऀऀ䔀䰀匀䔀 䌀䄀匀吀⠀瀀琀⸀伀㌀䐀䄀夀匀 䄀匀 一唀䴀䔀刀䤀䌀⠀㈀Ⰰ　⤀⤀
				END,਀ऀऀऀऀ䌀䄀匀䔀
					WHEN CAST(pt.CODAYS AS NUMERIC) > 99 THEN NULL਀ऀऀऀऀऀ䔀䰀匀䔀 䌀䄀匀吀⠀瀀琀⸀䌀伀䐀䄀夀匀 䄀匀 一唀䴀䔀刀䤀䌀⠀㈀Ⰰ　⤀⤀
				END,਀ऀऀऀऀ䌀䄀匀䔀
					WHEN s.ASH IS NULL OR s.ASH = 0 THEN NULL਀ऀऀऀऀऀ䔀䰀匀䔀 䌀䄀匀吀⠀猀⸀䄀匀䠀 䄀匀 一唀䴀䔀刀䤀䌀⠀㠀Ⰰ㔀⤀⤀
				END,਀ऀऀऀऀ䌀䄀匀䔀
					WHEN s.SULFUR IS NULL OR s.SULFUR = 0 THEN NULL਀ऀऀऀऀऀ䔀䰀匀䔀 䌀䄀匀吀⠀猀⸀匀唀䰀䘀唀刀 䄀匀 一唀䴀䔀刀䤀䌀⠀㠀Ⰰ㔀⤀⤀
				END,਀ऀऀऀऀ䌀䄀匀䔀 
					WHEN s.HEAT IS NOT NULL AND LTRIM(RTRIM(s.HEAT)) <> '' AND LTRIM(RTRIM(s.HEAT)) <> '.' AND CAST(s.HEAT AS NUMERIC(15,5)) <> 0 THEN CAST(s.HEAT AS NUMERIC(15,5))਀ऀऀऀऀऀ䔀䰀匀䔀 一唀䰀䰀
				END,਀ऀऀऀऀ⼀⨀ 唀一䌀伀䴀䴀䔀一吀 䘀伀刀 䐀䔀Ⰰ 愀渀搀 挀漀洀洀攀渀琀 漀甀琀 猀⸀䠀䔀䄀吀 䌀䄀匀䔀 猀琀愀琀攀洀攀渀琀 愀戀漀瘀攀
				CASE ਀ऀऀऀऀऀ圀䠀䔀一 猀⸀吀䔀䴀倀开䠀䔀䄀吀 䤀匀 一伀吀 一唀䰀䰀 䄀一䐀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀吀䔀䴀倀开䠀䔀䄀吀⤀⤀ 㰀㸀 ✀✀ 䄀一䐀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀⸀吀䔀䴀倀开䠀䔀䄀吀⤀⤀ 㰀㸀 ✀⸀✀ 䄀一䐀 䌀䄀匀吀⠀猀⸀吀䔀䴀倀开䠀䔀䄀吀 䄀匀 一唀䴀䔀刀䤀䌀⠀㄀㔀Ⰰ㔀⤀⤀ 㰀㸀 　 吀䠀䔀一 䌀䄀匀吀⠀猀⸀吀䔀䴀倀开䠀䔀䄀吀 䄀匀 一唀䴀䔀刀䤀䌀⠀㄀㔀Ⰰ㔀⤀⤀
					ELSE NULL਀ऀऀऀऀ䔀一䐀Ⰰ
				*/਀ऀऀऀऀ⠀
				SELECT						਀ऀऀऀऀऀ挀⸀䌀伀䴀䴀吀
				FROM਀ऀऀऀऀऀ䤀开䌀伀䴀䴀吀 挀
					INNER JOIN I_SEGMENT s2 ON c.IDPARENT = s2.IDSEGMENT਀ऀऀऀऀ圀䠀䔀刀䔀
					c.IDPARENT = s.IDSEGMENT਀ऀऀऀऀऀ䄀一䐀 猀㈀⸀䤀䐀匀䔀䜀䴀䔀一吀 㴀 猀⸀䤀䐀匀䔀䜀䴀䔀一吀
					AND LTRIM(RTRIM(c.COMMTYPE)) = 'COMMENT'਀ऀऀऀऀ⤀ 䄀匀 刀倀吀开倀刀䐀开䌀䴀一吀Ⰰ
				/* UNCOMMENT FOR DE਀ऀऀऀऀ⠀
				SELECT਀ऀऀऀऀऀ挀⸀䌀伀䴀䴀吀
				FROM਀ऀऀऀऀऀ䤀开䌀伀䴀䴀吀 挀
					INNER JOIN I_SEGMENT s2 ON c.IDPARENT = s2.IDSEGMENT਀ऀऀऀऀ圀䠀䔀刀䔀
					c.IDPARENT = s.IDSEGMENT਀ऀऀऀऀऀ䄀一䐀 猀㈀⸀䤀䐀匀䔀䜀䴀䔀一吀 㴀 猀⸀䤀䐀匀䔀䜀䴀䔀一吀
					AND LTRIM(RTRIM(c.COMMTYPE)) = 'ZX_SEGDOC'਀ऀऀऀऀ⤀ 䄀匀 刀倀吀开倀刀䐀开䌀䴀一吀Ⰰ
				*/਀ऀऀऀऀ䜀䔀吀䐀䄀吀䔀⠀⤀Ⰰ
				1਀ऀऀऀ䘀刀伀䴀
				I_SEGMENT s਀ऀऀऀऀ䤀一一䔀刀 䨀伀䤀一 䤀开倀伀䤀一吀 瀀琀 伀一 猀⸀䤀䐀倀伀䤀一吀 㴀 瀀琀⸀䤀䐀倀伀䤀一吀
				LEFT JOIN A_SRC_CLASS_MAP sm ON dbo.F_GET_XREF_VAL(@p_isteps_state_cd,'SCC',s.SCC) = LTRIM(RTRIM(sm.A_SRC_CLASS_CD))਀ऀऀऀ圀䠀䔀刀䔀
				s.IDSEGMENT = @p_isteps_idsegment਀ऀऀ⤀㬀
਀ऀऀ匀䔀䰀䔀䌀吀 䀀瘀开攀爀爀开挀漀搀攀 㴀 䀀䀀䔀爀爀漀爀㬀
		SELECT @v_new_rpt_prd_id = SCOPE_IDENTITY();਀ऀ䔀一䐀㬀
				਀
	--Insert M_RPT_PRD_EMIS਀ऀ䤀昀 䀀瘀开攀爀爀开挀漀搀攀 㴀 　
	BEGIN਀ऀऀ䤀一匀䔀刀吀 䤀一吀伀 䴀开刀倀吀开倀刀䐀开䔀䴀䤀匀
		(਀ऀऀऀ 刀倀吀开倀刀䐀开䤀䐀
			,E_POLLUTANT_CD਀ऀऀऀⰀ吀伀吀䄀䰀开䔀䴀䤀匀
			,E_EMIS_UOM_CD਀ऀऀऀⰀ䔀䴀䤀匀开䘀䌀吀刀
			,E_EMIS_FCTR_NM_UOM_CD਀ऀऀऀⰀ䔀开䔀䴀䤀匀开䘀䌀吀刀开䐀一开唀伀䴀开䌀䐀
			,E_EMIS_CALC_MTHD_CD਀ऀऀऀⰀ刀倀吀开倀刀䐀开䔀䴀䤀匀开䌀䴀一吀
		)਀ऀऀ⠀
			SELECT਀ऀऀऀऀ䀀瘀开渀攀眀开爀瀀琀开瀀爀搀开椀搀Ⰰ
				dbo.F_GET_XREF_VAL਀ऀऀऀऀ⠀
					@p_isteps_state_cd,਀ऀऀऀऀऀ✀倀伀䰀䰀唀吀䄀一吀✀Ⰰ
					sp.POLLUTANT਀ऀऀऀऀ⤀Ⰰ
				CASE ਀ऀऀऀऀऀ圀䠀䔀一 猀瀀⸀䔀匀吀开䔀䴀 䤀匀 一唀䰀䰀 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀瀀⸀䔀匀吀开䔀䴀⤀⤀ 㴀 ✀✀ 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀猀瀀⸀䔀匀吀开䔀䴀⤀⤀ 㴀 ✀⸀✀ 吀䠀䔀一 一唀䰀䰀
					ELSE CAST(sp.EST_EM AS FLOAT)਀ऀऀऀऀ䔀一䐀Ⰰ
				'TON',਀ऀऀऀऀ䌀䄀匀䔀 
					WHEN sp.EM_FACTOR IS NULL OR LTRIM(RTRIM(sp.EM_FACTOR)) = '' OR LTRIM(RTRIM(sp.EM_FACTOR)) = '.' THEN NULL਀ऀऀऀऀऀ圀䠀䔀一 䀀瀀开椀猀琀攀瀀猀开猀琀愀琀攀开挀搀 㴀 ✀䐀䔀✀ 䄀一䐀 搀戀漀⸀䘀开䜀䔀吀开堀刀䔀䘀开嘀䄀䰀⠀䀀瀀开椀猀琀攀瀀猀开猀琀愀琀攀开挀搀Ⰰ✀䔀匀吀开䔀䴀开䴀吀䠀✀Ⰰ 猀瀀⸀䔀匀吀开䔀䴀开䴀吀䠀⤀ 䤀一 ⠀✀㌀✀Ⰰ✀㔀✀⤀ 吀䠀䔀一 一唀䰀䰀
					ELSE CAST(sp.EM_FACTOR AS FLOAT)਀ऀऀऀऀ䔀一䐀Ⰰ
				'LB',਀ऀऀऀऀ猀洀⸀䌀䄀䰀䌀开倀䄀刀䴀开唀伀䴀开䌀䐀Ⰰ
				dbo.F_GET_XREF_VAL਀ऀऀऀऀ⠀
					@p_isteps_state_cd,਀ऀऀऀऀऀ✀䔀匀吀开䔀䴀开䴀吀䠀✀Ⰰ
					sp.EST_EM_MTH਀ऀऀऀऀ⤀Ⰰ
				(਀ऀऀऀऀऀ匀䔀䰀䔀䌀吀 ⴀⴀ吀伀倀 ㄀ऀऀऀऀऀ
						c.COMMT਀ऀऀऀऀऀ䘀刀伀䴀
						I_COMMT c਀ऀऀऀऀऀऀ䤀一一䔀刀 䨀伀䤀一 䤀开匀䔀䜀倀伀䰀䰀 猀瀀㈀ 伀一 挀⸀䤀䐀倀䄀刀䔀一吀 㴀 猀瀀㈀⸀䤀䐀匀䔀䜀倀伀䰀䰀
					WHERE਀ऀऀऀऀऀऀ䤀䐀倀䄀刀䔀一吀 㴀 猀瀀⸀䤀䐀匀䔀䜀倀伀䰀䰀
						AND sp2.IDSEGPOLL = sp.IDSEGPOLL਀ऀऀऀऀऀऀ䄀一䐀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀挀⸀䌀伀䴀䴀吀夀倀䔀⤀⤀ 㴀 ✀䌀伀䴀䴀䔀一吀✀
					--ORDER BY IDPARENT DESC਀ऀऀऀऀ⤀ 䄀匀 刀倀吀开倀刀䐀开䔀䴀䤀匀开䌀䴀一吀
				/* UNCOMMENT FOR DE਀ऀऀऀऀ⠀
				SELECT਀ऀऀऀऀऀ挀⸀䌀伀䴀䴀吀
				FROM਀ऀऀऀऀऀ䤀开䌀伀䴀䴀吀 挀
					INNER JOIN I_SEGPOLL sp2 ON c.IDPARENT = sp2.IDSEGPOLL਀ऀऀऀऀ圀䠀䔀刀䔀
					c.IDPARENT = sp.IDSEGPOLL਀ऀऀऀऀऀ䄀一䐀 猀瀀㈀⸀䤀䐀匀䔀䜀倀伀䰀䰀 㴀 猀瀀⸀䤀䐀匀䔀䜀倀伀䰀䰀
					AND LTRIM(RTRIM(c.COMMTYPE)) = 'ZX_POLLDOC'਀ऀऀऀऀ⤀ 䄀匀 刀倀吀开倀刀䐀开䔀䴀䤀匀开䌀䴀一吀
				*/਀ऀऀऀ䘀刀伀䴀
				I_SEGPOLL sp਀ऀऀऀऀ䤀一一䔀刀 䨀伀䤀一 䤀开匀䔀䜀䴀䔀一吀 猀 伀一 猀瀀⸀䤀䐀匀䔀䜀䴀䔀一吀 㴀 猀⸀䤀䐀匀䔀䜀䴀䔀一吀
				LEFT JOIN A_SRC_CLASS_MAP sm ON dbo.F_GET_XREF_VAL(@p_isteps_state_cd,'SCC',s.SCC) = sm.A_SRC_CLASS_CD਀ऀऀऀ圀䠀䔀刀䔀
				s.IDSEGMENT = @p_isteps_idsegment਀ऀऀ⤀㬀
		਀ऀऀ匀䔀䰀䔀䌀吀 䀀瘀开攀爀爀开挀漀搀攀 㴀 䀀䀀䔀爀爀漀爀㬀
	END;				਀ऀऀ
	RETURN @v_err_code;਀䔀一䐀㬀