/******************************************************************************************************************************਀⨀⨀ 伀戀樀攀挀琀一愀洀攀㨀 嬀倀开䤀䴀倀开䤀匀吀䔀倀匀开䘀䄀䌀崀
**਀⨀⨀ 䄀甀琀栀漀爀㨀 䈀爀攀琀 匀洀椀琀栀
**਀⨀⨀ 䌀漀洀瀀愀渀礀 一愀洀攀㨀 圀椀渀搀猀漀爀 匀漀氀甀琀椀漀渀猀Ⰰ 䤀渀挀
**਀⨀⨀ 䐀攀猀挀爀椀瀀琀椀漀渀㨀  䰀漀愀搀 椀匀吀䔀倀匀 昀愀挀椀氀椀琀礀 搀愀琀愀 琀漀 愀 匀䰀䔀䤀匀 愀最攀渀挀礀 爀攀瀀漀爀琀
**਀⨀⨀
** Revision History:਀⨀⨀ ⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀ
**  Date		Name        Description਀⨀⨀ ⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀ
** 09/01/2011	BSmith      Original.਀⨀⨀ 　㄀⼀㌀㄀⼀㈀　㄀㄀ऀ䈀匀洀椀琀栀ऀऀ䌀漀渀瘀攀爀琀 唀吀䴀 挀漀漀爀搀椀渀愀琀攀猀 昀爀漀洀 欀椀氀漀洀攀琀攀爀猀 琀漀 洀攀琀攀爀猀 搀甀爀椀渀最 洀椀最爀愀琀椀漀渀⸀
** 02/09/2012	BSmith		Added zipcode conversion for 9 digits zips to include "-". Add INTERNET for emission contact਀⨀⨀ऀऀऀऀऀऀऀ⠀搀漀攀猀 渀漀琀 愀瀀瀀氀礀 琀漀 愀氀氀 猀琀愀琀攀 愀最攀渀挀椀攀猀⸀
** 02/24/2012	BSmith		Changed DE COMMT retrieval logic. Needs to be uncommented before DE migration run. Changed DE਀⨀⨀ऀऀऀऀऀऀऀ洀愀椀氀椀渀最 愀搀搀爀攀猀猀 昀椀攀氀搀猀 甀猀攀搀⸀
**਀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⼀
ALTER PROCEDURE [dbo].[P_IMP_ISTEPS_FAC]਀ऀ䀀瀀开愀最渀开爀瀀琀开椀搀ऀऀऀऀऀ䤀一吀Ⰰ
	@p_isteps_idplant				DECIMAL(20,0),਀ऀ䀀瀀开椀猀琀攀瀀猀开猀琀愀琀攀开挀搀ऀऀऀऀ䌀䠀䄀刀⠀㈀⤀Ⰰ
	@p_new_fac_site_id				INT OUTPUT਀䄀匀
	SET NOCOUNT ON;਀䈀䔀䜀䤀一
	DECLARE @v_err_code				INT;਀ऀ䐀䔀䌀䰀䄀刀䔀 䀀瘀开挀渀琀挀琀开椀搀ऀऀऀऀ䤀一吀㬀
	਀ऀ匀䔀吀 䀀瀀开渀攀眀开昀愀挀开猀椀琀攀开椀搀 㴀 一唀䰀䰀㬀
	਀ऀ匀䔀䰀䔀䌀吀 䀀瘀开攀爀爀开挀漀搀攀 㴀 䀀䀀䔀爀爀漀爀㬀
	਀ऀ䤀昀 䀀瘀开攀爀爀开挀漀搀攀 㴀 　
	BEGIN਀ऀऀ䤀一匀䔀刀吀 䤀一吀伀 䴀开䘀䄀䌀开匀䤀吀䔀
		(਀ऀऀऀ 䘀䄀䌀开匀䤀吀䔀开䴀匀吀刀开䤀一䐀
			,AGN_RPT_ID਀ऀऀऀⰀ䘀䄀䌀开匀䤀吀䔀开䤀䐀䔀一
			,FAC_SITE_NAME਀ऀऀऀⰀ倀䄀刀䔀一吀开伀刀䜀开一䄀䴀䔀
			,E_FAC_CATG_CD਀ऀऀऀⰀ倀刀䤀䴀䄀刀夀开匀䤀䌀开䌀䐀
			,FAC_SITE_DESC਀ऀऀऀⰀ䔀开䘀䄀䌀开匀䤀吀䔀开匀吀䄀吀开䌀䐀
			,FAC_SITE_STAT_CD_DATE਀ऀऀऀⰀ䰀䄀吀开䴀䔀䄀匀
			,LONG_MEAS਀ऀऀऀⰀ唀吀䴀开䔀䄀匀吀䤀一䜀
			,UTM_NORTHING਀ऀऀऀⰀ唀吀䴀开娀伀一䔀
			,E_HORZ_COLL_MTHD_CD਀ऀऀऀⰀ䔀开䠀伀刀娀开刀䔀䘀开䐀䄀吀唀䴀开䌀䐀
			,E_GEO_REF_PT_CD਀ऀऀऀⰀ䐀䄀吀䄀开䌀伀䰀䰀开䐀䄀吀䔀
			,FAC_SITE_CMNT਀ऀऀऀⰀ䰀䄀匀吀开唀倀䐀䄀吀䔀䐀开䐀䄀吀䔀
			,LAST_UPDATED_BY_USER_ID਀ऀऀ⤀
		(਀ऀऀऀ匀䔀䰀䔀䌀吀
				0,਀ऀऀऀऀ䀀瀀开愀最渀开爀瀀琀开椀搀Ⰰ
				CASE਀ऀऀऀऀऀ圀䠀䔀一 䀀瀀开椀猀琀攀瀀猀开猀琀愀琀攀开挀搀 䤀一 ⠀✀䄀刀✀⤀ 吀䠀䔀一 瀀⸀匀吀䄀吀䔀开䌀伀䐀䔀 ⬀ 瀀⸀䌀一吀夀开䌀伀䐀䔀 ⬀ ✀ⴀ✀ ⬀ 瀀⸀倀䰀䄀一吀开䤀䐀
					WHEN @p_isteps_state_cd IN ('DE') THEN p.STATE_CODE + p.CNTY_CODE + p.PLANT_ID਀ऀऀऀऀऀ䔀䰀匀䔀 瀀⸀匀吀䄀吀䔀开䌀伀䐀䔀 ⬀ ✀ⴀ✀ ⬀ 瀀⸀䌀一吀夀开䌀伀䐀䔀 ⬀ ✀ⴀ✀ ⬀ 瀀⸀倀䰀䄀一吀开䤀䐀
				END,਀ऀऀऀऀ䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀瀀⸀一䄀䴀䔀⤀⤀Ⰰ
				NULL,਀ऀऀऀऀ✀唀一䬀✀Ⰰ
				CASE਀ऀऀऀऀऀ圀䠀䔀一 瀀⸀匀䤀䌀㄀ 䤀匀 一唀䰀䰀 伀刀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀瀀⸀匀䤀䌀㄀⤀⤀ 㴀 ✀✀ 吀䠀䔀一 一唀䰀䰀
					ELSE LTRIM(RTRIM(p.SIC1))਀ऀऀऀऀ䔀一䐀Ⰰ
				LTRIM(LTRIM(p.PLANT_DESC)),਀ऀऀऀऀ✀伀倀✀Ⰰ
				NULL,਀ऀऀऀऀ搀戀漀⸀䘀开䌀伀一嘀䔀刀吀开䰀䄀吀开吀伀开䐀䔀䌀
				(਀ऀऀऀऀऀ匀唀䈀匀吀刀䤀一䜀⠀䌀䄀匀吀⠀瀀⸀䰀䄀吀 䄀匀 嘀䄀刀䌀䠀䄀刀⠀㈀㔀㔀⤀⤀Ⰰ㄀Ⰰ㈀⤀Ⰰ
					SUBSTRING(CAST(p.LAT AS VARCHAR(255)),3,2),਀ऀऀऀऀऀ匀唀䈀匀吀刀䤀一䜀⠀䌀䄀匀吀⠀瀀⸀䰀䄀吀 䄀匀 嘀䄀刀䌀䠀䄀刀⠀㈀㔀㔀⤀⤀Ⰰ㔀Ⰰ䰀䔀一⠀䌀䄀匀吀⠀瀀⸀䰀䄀吀 䄀匀 嘀䄀刀䌀䠀䄀刀⠀㈀㔀㔀⤀⤀⤀ ⴀ 㔀 ⬀ ㄀⤀
				) AS LAT_DECIMAL,਀ऀऀऀऀ搀戀漀⸀䘀开䌀伀一嘀䔀刀吀开䰀伀一䜀开吀伀开䐀䔀䌀
				(਀ऀऀऀऀऀ匀唀䈀匀吀刀䤀一䜀⠀䌀䄀匀吀⠀瀀⸀䰀伀一䜀䤀吀 䄀匀 嘀䄀刀䌀䠀䄀刀⠀㈀㔀㔀⤀⤀Ⰰ㄀Ⰰ㈀⤀Ⰰ
					SUBSTRING(CAST(p.LONGIT AS VARCHAR(255)),3,2), --4,2 for some other states਀ऀऀऀऀऀ匀唀䈀匀吀刀䤀一䜀⠀䌀䄀匀吀⠀瀀⸀䰀伀一䜀䤀吀 䄀匀 嘀䄀刀䌀䠀䄀刀⠀㈀㔀㔀⤀⤀Ⰰ㔀Ⰰ䰀䔀一⠀䌀䄀匀吀⠀瀀⸀䰀䄀吀 䄀匀 嘀䄀刀䌀䠀䄀刀⠀㈀㔀㔀⤀⤀⤀ ⴀ 㔀 ⬀ ㄀⤀  ⴀⴀ㘀Ⰰ䰀䔀一 ⴀ㘀 ⬀㄀ 昀漀爀 猀漀洀攀 漀琀栀攀爀 猀琀愀琀攀猀
				) AS LONG_DECIMAL,਀ऀऀऀऀ䌀䄀匀䔀
					WHEN p.UTM_HORZ IS NOT NULL THEN p.UTM_HORZ * 1000਀ऀऀऀऀऀ䔀䰀匀䔀 一唀䰀䰀
				END,਀ऀऀऀऀ䌀䄀匀䔀
					WHEN p.UTM_VERT IS NOT NULL THEN p.UTM_VERT * 1000਀ऀऀऀऀऀ䔀䰀匀䔀 一唀䰀䰀
				END,਀ऀऀऀऀ瀀⸀唀吀䴀开娀伀一䔀Ⰰ
				NULL,਀ऀऀऀऀ一唀䰀䰀Ⰰ
				NULL,਀ऀऀऀऀ一唀䰀䰀Ⰰ
				(਀ऀऀऀऀऀ匀䔀䰀䔀䌀吀ऀऀऀऀऀऀ
						c.COMMT਀ऀऀऀऀऀ䘀刀伀䴀
						I_COMMT c਀ऀऀऀऀऀऀ䤀一一䔀刀 䨀伀䤀一 䤀开倀䰀䄀一吀 瀀㈀ 伀一 挀⸀䤀䐀倀䄀刀䔀一吀 㴀 瀀㈀⸀䤀䐀倀䰀䄀一吀
					WHERE਀ऀऀऀऀऀऀ挀⸀䤀䐀倀䄀刀䔀一吀 㴀 瀀⸀䤀䐀倀䰀䄀一吀
						AND p2.IDPLANT = p.IDPLANT਀ऀऀऀऀऀऀ䄀一䐀 刀吀刀䤀䴀⠀䰀吀刀䤀䴀⠀䌀伀䴀䴀吀夀倀䔀⤀⤀ 㴀 ✀䌀伀䴀䴀䔀一吀✀
				) AS FAC_SITE_CMNT,਀ऀऀऀऀ⼀⨀ 唀一䌀伀䴀䴀䔀一吀 䘀伀刀 䐀䔀
				(਀ऀऀऀऀ匀䔀䰀䔀䌀吀
					c.COMMT਀ऀऀऀऀ䘀刀伀䴀
					I_COMMT c਀ऀऀऀऀऀ䤀一一䔀刀 䨀伀䤀一 䤀开倀䰀䄀一吀 瀀㈀ 伀一 挀⸀䤀䐀倀䄀刀䔀一吀 㴀 瀀㈀⸀䤀䐀倀䰀䄀一吀
				WHERE਀ऀऀऀऀऀ挀⸀䤀䐀倀䄀刀䔀一吀 㴀 瀀⸀䤀䐀倀䰀䄀一吀
					AND p2.IDPLANT = p.IDPLANT਀ऀऀऀऀऀ䄀一䐀 刀吀刀䤀䴀⠀䰀吀刀䤀䴀⠀挀⸀䌀伀䴀䴀吀夀倀䔀⤀⤀ 㴀 ✀娀堀开䘀䄀䌀开䌀伀䴀✀
				) AS FAC_SITE_CMNT,਀ऀऀऀऀ⨀⼀
				GETDATE(),਀ऀऀऀऀ㄀
			FROM਀ऀऀऀऀ䤀开倀䰀䄀一吀 瀀
			WHERE਀ऀऀऀऀ瀀⸀䤀䐀倀䰀䄀一吀 㴀 䀀瀀开椀猀琀攀瀀猀开椀搀瀀氀愀渀琀
		);਀ऀ
		SELECT @v_err_code = @@Error;਀ऀऀ匀䔀䰀䔀䌀吀 䀀瀀开渀攀眀开昀愀挀开猀椀琀攀开椀搀 㴀 匀䌀伀倀䔀开䤀䐀䔀一吀䤀吀夀⠀⤀㬀
	END;਀ऀऀ
	਀ऀⴀⴀ䤀渀猀攀爀琀 洀愀猀琀攀爀 䴀开䘀䄀䌀开一䄀䤀䌀匀
	If @v_err_code = 0਀ऀ䈀䔀䜀䤀一
		--NAICS1 (PRIMARY)਀ऀऀ䤀一匀䔀刀吀 䤀一吀伀 䴀开䘀䄀䌀开一䄀䤀䌀匀
		(਀ऀऀऀ䘀䄀䌀开匀䤀吀䔀开䤀䐀
		   ,E_NAICS_CD਀ऀऀ   Ⰰ倀刀䤀䴀䄀刀夀开䌀䐀开䤀一䐀
		)਀ऀऀ⠀
			SELECT਀ऀऀऀऀ䀀瀀开渀攀眀开昀愀挀开猀椀琀攀开椀搀Ⰰ
				dbo.F_GET_XREF_VAL਀ऀऀऀऀ⠀
					@p_isteps_state_cd,਀ऀऀऀऀऀ✀一䄀䤀䌀匀✀Ⰰ
					p.NAICS1਀ऀऀऀऀ⤀Ⰰ
				1਀ऀऀऀ䘀刀伀䴀
				I_PLANT p਀ऀऀऀ圀䠀䔀刀䔀
				p.IDPLANT = @p_isteps_idplant਀ऀऀऀऀ䄀一䐀
				dbo.F_GET_XREF_VAL਀ऀऀऀऀ⠀
					@p_isteps_state_cd,਀ऀऀऀऀऀ✀一䄀䤀䌀匀✀Ⰰ
					p.NAICS1਀ऀऀऀऀ⤀ 䤀匀 一伀吀 一唀䰀䰀
		);਀ऀऀ
		SELECT @v_err_code = @@Error;਀ऀऀ
		--NAICS 2਀ऀऀ䤀昀 䀀瘀开攀爀爀开挀漀搀攀 㴀 　
		BEGIN	਀ऀऀऀ䤀一匀䔀刀吀 䤀一吀伀 䴀开䘀䄀䌀开一䄀䤀䌀匀
			(਀ऀऀऀऀ䘀䄀䌀开匀䤀吀䔀开䤀䐀
			   ,E_NAICS_CD਀ऀऀऀ   Ⰰ倀刀䤀䴀䄀刀夀开䌀䐀开䤀一䐀
			)਀ऀऀऀ⠀
				SELECT਀ऀऀऀऀऀ䀀瀀开渀攀眀开昀愀挀开猀椀琀攀开椀搀Ⰰ
					dbo.F_GET_XREF_VAL਀ऀऀऀऀऀ⠀
						@p_isteps_state_cd,਀ऀऀऀऀऀऀ✀一䄀䤀䌀匀✀Ⰰ
						p.NAICS2਀ऀऀऀऀऀ⤀Ⰰ
					0਀ऀऀऀऀ䘀刀伀䴀
					I_PLANT p਀ऀऀऀऀ圀䠀䔀刀䔀
					p.IDPLANT = @p_isteps_idplant਀ऀऀऀऀऀ䄀一䐀
					dbo.F_GET_XREF_VAL਀ऀऀऀऀऀ⠀
						@p_isteps_state_cd,਀ऀऀऀऀऀऀ✀一䄀䤀䌀匀✀Ⰰ
						p.NAICS2਀ऀऀऀऀऀ⤀ 䤀匀 一伀吀 一唀䰀䰀
			);਀ऀऀऀ
			SELECT @v_err_code = @@Error;਀ऀऀ䔀一䐀㬀
		਀ऀऀ
		--NAICS 3਀ऀऀ䤀昀 䀀瘀开攀爀爀开挀漀搀攀 㴀 　
		BEGIN	਀ऀऀऀ䤀一匀䔀刀吀 䤀一吀伀 䴀开䘀䄀䌀开一䄀䤀䌀匀
			(਀ऀऀऀऀ䘀䄀䌀开匀䤀吀䔀开䤀䐀
			   ,E_NAICS_CD਀ऀऀऀ   Ⰰ倀刀䤀䴀䄀刀夀开䌀䐀开䤀一䐀
			)਀ऀऀऀ⠀
				SELECT਀ऀऀऀऀऀ䀀瀀开渀攀眀开昀愀挀开猀椀琀攀开椀搀Ⰰ
					dbo.F_GET_XREF_VAL਀ऀऀऀऀऀ⠀
						@p_isteps_state_cd,਀ऀऀऀऀऀऀ✀一䄀䤀䌀匀✀Ⰰ
						p.NAICS3਀ऀऀऀऀऀ⤀Ⰰ
					0਀ऀऀऀऀ䘀刀伀䴀
					I_PLANT p਀ऀऀऀऀ圀䠀䔀刀䔀
					p.IDPLANT = @p_isteps_idplant਀ऀऀऀऀऀ䄀一䐀
					dbo.F_GET_XREF_VAL਀ऀऀऀऀऀ⠀
						@p_isteps_state_cd,਀ऀऀऀऀऀऀ✀一䄀䤀䌀匀✀Ⰰ
						p.NAICS3਀ऀऀऀऀऀ⤀ 䤀匀 一伀吀 一唀䰀䰀
			);਀ऀऀऀ
			SELECT @v_err_code = @@Error;਀ऀऀ䔀一䐀㬀
	END;਀ऀ
	਀ऀⴀⴀ䤀渀猀攀爀琀 䴀开䘀䄀䌀开匀䤀吀䔀开䄀䐀䐀刀ऀऀ
	If @v_err_code = 0਀ऀ䈀䔀䜀䤀一
		INSERT INTO M_FAC_SITE_ADDR਀ऀऀ⠀
			FAC_SITE_ID਀ऀऀ   Ⰰ䰀伀䌀开䄀䐀䐀刀开吀堀吀
		   ,LOC_SUPP_ADDR_TXT਀ऀऀ   Ⰰ䰀伀䌀䄀䰀䤀吀夀开一䄀䴀䔀
		   ,LOC_ADDR_ST_CD਀ऀऀ   Ⰰ䰀伀䌀开䄀䐀䐀刀开倀伀匀吀开䌀䐀
		)਀ऀऀ⠀
			SELECT਀ऀऀऀऀ䀀瀀开渀攀眀开昀愀挀开猀椀琀攀开椀搀Ⰰ
				LTRIM(RTRIM(p.STREET)),਀ऀऀऀऀ一唀䰀䰀Ⰰ
				LTRIM(RTRIM(p.CITY_NAME)),਀ऀऀऀऀ䀀瀀开椀猀琀攀瀀猀开猀琀愀琀攀开挀搀Ⰰ
				dbo.F_FORMAT_ZIPCODE(p.ZIP)਀ऀऀऀ䘀刀伀䴀
				I_PLANT p਀ऀऀऀ圀䠀䔀刀䔀
				p.IDPLANT = @p_isteps_idplant਀ऀऀऀऀ䄀一䐀
				(਀ऀऀऀऀऀ瀀⸀匀吀刀䔀䔀吀 䤀匀 一伀吀 一唀䰀䰀
					AND LTRIM(RTRIM(p.STREET)) <> ''਀ऀऀऀऀ⤀
				AND਀ऀऀऀऀ⠀
					p.CITY_NAME IS NOT NULL਀ऀऀऀऀऀ䄀一䐀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀瀀⸀䌀䤀吀夀开一䄀䴀䔀⤀⤀ 㰀㸀 ✀✀
				)਀ऀऀऀऀ䄀一䐀
				(਀ऀऀऀऀऀ瀀⸀娀䤀倀 䤀匀 一伀吀 一唀䰀䰀
					AND LTRIM(RTRIM(p.ZIP)) <> ''਀ऀऀऀऀ⤀
		);਀ऀऀ
		SELECT @v_err_code = @@Error;਀ऀ䔀一䐀㬀
	਀ऀ
	--Insert M_FAC_MAIL_ADDR਀ऀ䤀昀 䀀瘀开攀爀爀开挀漀搀攀 㴀 　
	BEGIN		਀ऀऀ䤀一匀䔀刀吀 䤀一吀伀 䴀开䘀䄀䌀开䴀䄀䤀䰀开䄀䐀䐀刀
		(਀ऀऀऀ䘀䄀䌀开匀䤀吀䔀开䤀䐀
		   ,MAIL_ADDR_TXT਀ऀऀ   Ⰰ䴀䄀䤀䰀开匀唀倀倀开䄀䐀䐀刀开吀堀吀
		   ,CITY_NAME਀ऀऀ   Ⰰ䴀䄀䤀䰀开䄀䐀䐀刀开匀吀开䌀䐀
		   ,MAIL_ADDR_POST_CD਀ऀऀ⤀
		(਀ऀऀऀ匀䔀䰀䔀䌀吀
				@p_new_fac_site_id,਀ऀऀऀऀ䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀瀀⸀䴀䄀开匀吀刀䔀䔀吀⤀⤀Ⰰ
				NULL,਀ऀऀऀऀ䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀瀀⸀䴀䄀开䌀䤀吀夀⤀⤀Ⰰ
				LTRIM(RTRIM(p.MA_STATE)),਀ऀऀऀऀ搀戀漀⸀䘀开䘀伀刀䴀䄀吀开娀䤀倀䌀伀䐀䔀⠀瀀⸀䴀䄀开娀䤀倀⤀
			FROM਀ऀऀऀऀ䤀开倀䰀䄀一吀 瀀
			WHERE਀ऀऀऀऀ瀀⸀䤀䐀倀䰀䄀一吀 㴀 䀀瀀开椀猀琀攀瀀猀开椀搀瀀氀愀渀琀
				AND਀ऀऀऀऀ⠀
					p.MA_STREET IS NOT NULL਀ऀऀऀऀऀ䄀一䐀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀瀀⸀䴀䄀开匀吀刀䔀䔀吀⤀⤀ 㰀㸀 ✀✀
				)਀ऀऀऀऀ䄀一䐀
				(਀ऀऀऀऀऀ瀀⸀䴀䄀开䌀䤀吀夀 䤀匀 一伀吀 一唀䰀䰀
					AND LTRIM(RTRIM(p.MA_CITY)) <> ''਀ऀऀऀऀ⤀
				AND਀ऀऀऀऀ⠀
					p.MA_STATE IS NOT NULL਀ऀऀऀऀऀ䄀一䐀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀瀀⸀䴀䄀开匀吀䄀吀䔀⤀⤀ 㰀㸀 ✀✀
				)਀ऀऀ⤀㬀
		਀ऀऀ匀䔀䰀䔀䌀吀 䀀瘀开攀爀爀开挀漀搀攀 㴀 䀀䀀䔀爀爀漀爀㬀
	END;਀ऀ
	਀ऀ⼀⨀
	--Insert M_FAC_MAIL_ADDR (DE)਀ऀ䤀昀 䀀瘀开攀爀爀开挀漀搀攀 㴀 　
	BEGIN		਀ऀऀ䤀一匀䔀刀吀 䤀一吀伀 䴀开䘀䄀䌀开䴀䄀䤀䰀开䄀䐀䐀刀
		(਀ऀऀऀ䘀䄀䌀开匀䤀吀䔀开䤀䐀
		   ,MAIL_ADDR_TXT਀ऀऀ   Ⰰ䴀䄀䤀䰀开匀唀倀倀开䄀䐀䐀刀开吀堀吀
		   ,CITY_NAME਀ऀऀ   Ⰰ䴀䄀䤀䰀开䄀䐀䐀刀开匀吀开䌀䐀
		   ,MAIL_ADDR_POST_CD਀ऀऀ⤀
		(਀ऀऀऀ匀䔀䰀䔀䌀吀
				@p_new_fac_site_id,਀ऀऀऀऀ䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀瀀⸀䴀䄀䤀䰀开䄀䐀䐀刀⤀⤀Ⰰ
				NULL,਀ऀऀऀऀ䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀瀀⸀䴀䄀䤀䰀䌀䤀吀夀一䴀⤀⤀Ⰰ
				LTRIM(RTRIM(p.MAIL_STATE)),਀ऀऀऀऀ搀戀漀⸀䘀开䘀伀刀䴀䄀吀开娀䤀倀䌀伀䐀䔀⠀瀀⸀䴀䄀䤀䰀开娀䤀倀⤀
			FROM਀ऀऀऀऀ䤀开倀䰀䄀一吀 瀀
			WHERE਀ऀऀऀऀ瀀⸀䤀䐀倀䰀䄀一吀 㴀 䀀瀀开椀猀琀攀瀀猀开椀搀瀀氀愀渀琀
				AND਀ऀऀऀऀ⠀
					p.MAIL_ADDR IS NOT NULL਀ऀऀऀऀऀ䄀一䐀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀瀀⸀䴀䄀䤀䰀开䄀䐀䐀刀⤀⤀ 㰀㸀 ✀✀
				)਀ऀऀऀऀ䄀一䐀
				(਀ऀऀऀऀऀ瀀⸀䴀䄀䤀䰀䌀䤀吀夀一䴀 䤀匀 一伀吀 一唀䰀䰀
					AND LTRIM(RTRIM(p.MAILCITYNM)) <> ''਀ऀऀऀऀ⤀
				AND਀ऀऀऀऀ⠀
					p.MAIL_STATE IS NOT NULL਀ऀऀऀऀऀ䄀一䐀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀瀀⸀䴀䄀䤀䰀开匀吀䄀吀䔀⤀⤀ 㰀㸀 ✀✀
				)਀ऀऀ⤀㬀
		਀ऀऀ匀䔀䰀䔀䌀吀 䀀瘀开攀爀爀开挀漀搀攀 㴀 䀀䀀䔀爀爀漀爀㬀
	END;਀ऀ⨀⼀
	਀ऀ
	--Insert Emissions contact਀ऀ䤀昀 䀀瘀开攀爀爀开挀漀搀攀 㴀 　
	BEGIN਀ऀऀ䤀一匀䔀刀吀 䤀一吀伀 䴀开䘀䄀䌀开䌀一吀䌀吀
		(਀ऀऀऀ䘀䄀䌀开匀䤀吀䔀开䤀䐀
		   ,CNTCT_TYPE਀ऀऀ   Ⰰ䌀一吀䌀吀开䘀唀䰀䰀开一䄀䴀䔀
		   ,SEQ_NUM਀ऀऀ⤀
		(਀ऀऀऀ匀䔀䰀䔀䌀吀
				@p_new_fac_site_id,਀ऀऀऀऀ✀䔀洀椀猀猀椀漀渀猀✀Ⰰ
				CASE਀ऀऀऀऀऀ圀䠀䔀一 ⠀瀀⸀䌀一吀䌀吀开吀䤀吀䰀 䤀匀 一伀吀 一唀䰀䰀 䄀一䐀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀瀀⸀䌀一吀䌀吀开吀䤀吀䰀⤀⤀ 㰀㸀 ✀✀⤀ 吀䠀䔀一 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀瀀⸀䌀伀一吀䌀吀开䔀䴀⤀⤀ ⬀ ✀ ⠀✀ ⬀ 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀瀀⸀䌀一吀䌀吀开吀䤀吀䰀⤀⤀ ⬀ ✀⤀✀
					ELSE LTRIM(RTRIM(p.CONTCT_EM))਀ऀऀऀऀ䔀一䐀Ⰰ
				1਀ऀऀऀ䘀刀伀䴀
				I_PLANT p਀ऀऀऀ圀䠀䔀刀䔀
				p.IDPLANT = @p_isteps_idplant਀ऀऀऀऀ䄀一䐀
				(਀ऀऀऀऀऀ瀀⸀䌀伀一吀䌀吀开䔀䴀 䤀匀 一伀吀 一唀䰀䰀
					AND LTRIM(RTRIM(p.CONTCT_EM)) <> ''਀ऀऀऀऀ⤀
		);਀ऀऀ
		SELECT @v_err_code = @@Error;਀ऀऀ匀䔀䰀䔀䌀吀 䀀瘀开挀渀琀挀琀开椀搀 㴀 匀䌀伀倀䔀开䤀䐀䔀一吀䤀吀夀⠀⤀㬀
		਀ऀऀ
		--Insert Emissions phone contact਀ऀऀ䤀昀 䀀瘀开攀爀爀开挀漀搀攀 㴀 　
		BEGIN਀ऀऀऀ䤀一匀䔀刀吀 䤀一吀伀 䴀开䌀一吀䌀吀开䴀吀䠀䐀
			(਀ऀऀऀऀ䘀䄀䌀开䌀一吀䌀吀开䤀䐀Ⰰ
				CNTCT_MTHD_TYPE,਀ऀऀऀऀ䌀一吀䌀吀开䴀吀䠀䐀开嘀䄀䰀Ⰰ
				SEQ_NUM,਀ऀऀऀऀ䔀一䐀开䐀䄀吀䔀
			)਀ऀऀऀ⠀
				SELECT਀ऀऀऀऀऀ䀀瘀开挀渀琀挀琀开椀搀Ⰰ
					'Phone',਀ऀऀऀऀऀ搀戀漀⸀䘀开䘀伀刀䴀䄀吀开倀䠀伀一䔀⠀瀀⸀吀䔀䰀开䔀䴀䤀匀匀⤀Ⰰ
					1,਀ऀऀऀऀऀ一唀䰀䰀
				FROM਀ऀऀऀऀऀ䤀开倀䰀䄀一吀 瀀
				WHERE਀ऀऀऀऀऀ瀀⸀䤀䐀倀䰀䄀一吀 㴀 䀀瀀开椀猀琀攀瀀猀开椀搀瀀氀愀渀琀
					AND਀ऀऀऀऀऀ⠀
						p.TEL_EMISS IS NOT NULL਀ऀऀऀऀऀऀ䄀一䐀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀瀀⸀吀䔀䰀开䔀䴀䤀匀匀⤀⤀ 㰀㸀 ✀✀
					)਀ऀऀऀऀऀ䄀一䐀
					(਀ऀऀऀऀऀऀ瀀⸀䌀伀一吀䌀吀开䔀䴀 䤀匀 一伀吀 一唀䰀䰀
						AND LTRIM(RTRIM(p.CONTCT_EM)) <> ''਀ऀऀऀऀऀ⤀
			);਀ऀऀऀ
			SELECT @v_err_code = @@Error;਀ऀऀ䔀一䐀㬀
		਀ऀऀ
		--Insert Emissions fax contact (AR)਀ऀऀ䤀昀 䀀瘀开攀爀爀开挀漀搀攀 㴀 　
		BEGIN਀ऀऀऀ䤀一匀䔀刀吀 䤀一吀伀 䴀开䌀一吀䌀吀开䴀吀䠀䐀
			(਀ऀऀऀऀ䘀䄀䌀开䌀一吀䌀吀开䤀䐀Ⰰ
				CNTCT_MTHD_TYPE,਀ऀऀऀऀ䌀一吀䌀吀开䴀吀䠀䐀开嘀䄀䰀Ⰰ
				SEQ_NUM,਀ऀऀऀऀ䔀一䐀开䐀䄀吀䔀
			)਀ऀऀऀ⠀
				SELECT਀ऀऀऀऀऀ䀀瘀开挀渀琀挀琀开椀搀Ⰰ
					'Fax',਀ऀऀऀऀऀ搀戀漀⸀䘀开䘀伀刀䴀䄀吀开倀䠀伀一䔀⠀瀀⸀䘀䄀䌀开䔀䴀䤀匀匀⤀Ⰰ
					2,਀ऀऀऀऀऀ一唀䰀䰀
				FROM਀ऀऀऀऀऀ䤀开倀䰀䄀一吀 瀀
				WHERE਀ऀऀऀऀऀ瀀⸀䤀䐀倀䰀䄀一吀 㴀 䀀瀀开椀猀琀攀瀀猀开椀搀瀀氀愀渀琀
					AND਀ऀऀऀऀऀ⠀
						p.FAC_EMISS IS NOT NULL਀ऀऀऀऀऀऀ䄀一䐀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀瀀⸀䘀䄀䌀开䔀䴀䤀匀匀⤀⤀ 㰀㸀 ✀✀
					)਀ऀऀऀऀऀ䄀一䐀
					(਀ऀऀऀऀऀऀ瀀⸀䌀伀一吀䌀吀开䔀䴀 䤀匀 一伀吀 一唀䰀䰀
						AND LTRIM(RTRIM(p.CONTCT_EM)) <> ''਀ऀऀऀऀऀ⤀
			);਀ऀऀऀ
			SELECT @v_err_code = @@Error;਀ऀऀ䔀一䐀㬀
		਀ऀऀ
		--Insert Emissions fax contact (DE)਀ऀऀ⼀⨀
		If @v_err_code = 0਀ऀऀ䈀䔀䜀䤀一
			INSERT INTO M_CNTCT_MTHD਀ऀऀऀ⠀
				FAC_CNTCT_ID,਀ऀऀऀऀ䌀一吀䌀吀开䴀吀䠀䐀开吀夀倀䔀Ⰰ
				CNTCT_MTHD_VAL,਀ऀऀऀऀ匀䔀儀开一唀䴀Ⰰ
				END_DATE਀ऀऀऀ⤀
			(਀ऀऀऀऀ匀䔀䰀䔀䌀吀
					@v_cntct_id,਀ऀऀऀऀऀ✀䘀愀砀✀Ⰰ
					dbo.F_FORMAT_PHONE(p.FAX)਀ऀऀऀऀऀ㌀Ⰰ
					NULL਀ऀऀऀऀ䘀刀伀䴀
					I_PLANT p਀ऀऀऀऀ圀䠀䔀刀䔀
					p.IDPLANT = @p_isteps_idplant਀ऀऀऀऀऀ䄀一䐀
					(਀ऀऀऀऀऀऀ瀀⸀䘀䄀堀 䤀匀 一伀吀 一唀䰀䰀
						AND LTRIM(RTRIM(p.FAX)) <> ''਀ऀऀऀऀऀ⤀
					AND਀ऀऀऀऀऀ⠀
						p.CONTCT_EM IS NOT NULL਀ऀऀऀऀऀऀ䄀一䐀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀瀀⸀䌀伀一吀䌀吀开䔀䴀⤀⤀ 㰀㸀 ✀✀
					)਀ऀऀऀ⤀㬀
			਀ऀऀऀ匀䔀䰀䔀䌀吀 䀀瘀开攀爀爀开挀漀搀攀 㴀 䀀䀀䔀爀爀漀爀㬀
		END;਀ऀऀ⨀⼀
		਀ऀऀ
		--Insert Emissions email contact (DE)਀ऀऀ⼀⨀
		If @v_err_code = 0਀ऀऀ䈀䔀䜀䤀一
			INSERT INTO M_CNTCT_MTHD਀ऀऀऀ⠀
				FAC_CNTCT_ID,਀ऀऀऀऀ䌀一吀䌀吀开䴀吀䠀䐀开吀夀倀䔀Ⰰ
				CNTCT_MTHD_VAL,਀ऀऀऀऀ匀䔀儀开一唀䴀Ⰰ
				END_DATE਀ऀऀऀ⤀
			(਀ऀऀऀऀ匀䔀䰀䔀䌀吀
					@v_cntct_id,਀ऀऀऀऀऀ✀䔀洀愀椀氀✀Ⰰ
					p.INTERNET,਀ऀऀऀऀऀ㌀Ⰰ
					NULL਀ऀऀऀऀ䘀刀伀䴀
					I_PLANT p਀ऀऀऀऀ圀䠀䔀刀䔀
					p.IDPLANT = @p_isteps_idplant਀ऀऀऀऀऀ䄀一䐀
					(਀ऀऀऀऀऀऀ瀀⸀䤀一吀䔀刀一䔀吀 䤀匀 一伀吀 一唀䰀䰀
						AND LTRIM(RTRIM(p.INTERNET)) <> ''਀ऀऀऀऀऀ⤀
					AND਀ऀऀऀऀऀ⠀
						p.CONTCT_EM IS NOT NULL਀ऀऀऀऀऀऀ䄀一䐀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀瀀⸀䌀伀一吀䌀吀开䔀䴀⤀⤀ 㰀㸀 ✀✀
					)਀ऀऀऀ⤀㬀
			਀ऀऀऀ匀䔀䰀䔀䌀吀 䀀瘀开攀爀爀开挀漀搀攀 㴀 䀀䀀䔀爀爀漀爀㬀
		END;਀ऀऀ⨀⼀
	END;਀ऀ
	਀ऀⴀⴀ䤀渀猀攀爀琀 䌀漀洀瀀氀椀愀渀挀攀 挀漀渀琀愀挀琀
	If @v_err_code = 0਀ऀ䈀䔀䜀䤀一
		IF @p_isteps_state_cd NOT IN ('DE')਀ऀऀ䈀䔀䜀䤀一
			INSERT INTO M_FAC_CNTCT਀ऀऀऀ⠀
				FAC_SITE_ID਀ऀऀऀ   Ⰰ䌀一吀䌀吀开吀夀倀䔀
			   ,CNTCT_FULL_NAME਀ऀऀऀ   Ⰰ匀䔀儀开一唀䴀
			)਀ऀऀऀ⠀
				SELECT਀ऀऀऀऀऀ䀀瀀开渀攀眀开昀愀挀开猀椀琀攀开椀搀Ⰰ
					'Compliance',਀ऀऀऀऀऀ䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀瀀⸀䌀伀䴀倀开䌀一吀䌀吀⤀⤀Ⰰ
					2਀ऀऀऀऀ䘀刀伀䴀
					I_PLANT p਀ऀऀऀऀ圀䠀䔀刀䔀
					p.IDPLANT = @p_isteps_idplant਀ऀऀऀऀऀ䄀一䐀
					(਀ऀऀऀऀऀऀ瀀⸀䌀伀䴀倀开䌀一吀䌀吀 䤀匀 一伀吀 一唀䰀䰀
						AND LTRIM(RTRIM(p.COMP_CNTCT)) <> ''਀ऀऀऀऀऀ⤀
			);਀ऀऀऀ
			SELECT @v_err_code = @@Error;਀ऀऀऀ匀䔀䰀䔀䌀吀 䀀瘀开挀渀琀挀琀开椀搀 㴀 匀䌀伀倀䔀开䤀䐀䔀一吀䤀吀夀⠀⤀㬀
			਀ऀऀऀ
			--Insert Compliance phone contact਀ऀऀऀ䤀昀 䀀瘀开攀爀爀开挀漀搀攀 㴀 　
			BEGIN਀ऀऀऀऀ䤀一匀䔀刀吀 䤀一吀伀 䴀开䌀一吀䌀吀开䴀吀䠀䐀
				(਀ऀऀऀऀऀ䘀䄀䌀开䌀一吀䌀吀开䤀䐀Ⰰ
					CNTCT_MTHD_TYPE,਀ऀऀऀऀऀ䌀一吀䌀吀开䴀吀䠀䐀开嘀䄀䰀Ⰰ
					SEQ_NUM,਀ऀऀऀऀऀ䔀一䐀开䐀䄀吀䔀
				)਀ऀऀऀऀ⠀
					SELECT਀ऀऀऀऀऀऀ䀀瘀开挀渀琀挀琀开椀搀Ⰰ
						'Phone',਀ऀऀऀऀऀऀ搀戀漀⸀䘀开䘀伀刀䴀䄀吀开倀䠀伀一䔀⠀瀀⸀吀䔀䰀开䌀伀䴀倀⤀Ⰰ
						1,਀ऀऀऀऀऀऀ一唀䰀䰀
					FROM਀ऀऀऀऀऀऀ䤀开倀䰀䄀一吀 瀀
					WHERE਀ऀऀऀऀऀऀ瀀⸀䤀䐀倀䰀䄀一吀 㴀 䀀瀀开椀猀琀攀瀀猀开椀搀瀀氀愀渀琀
						AND਀ऀऀऀऀऀऀ⠀
							p.TEL_COMP IS NOT NULL਀ऀऀऀऀऀऀऀ䄀一䐀 䰀吀刀䤀䴀⠀刀吀刀䤀䴀⠀瀀⸀吀䔀䰀开䌀伀䴀倀⤀⤀ 㰀㸀 ✀✀
						)਀ऀऀऀऀऀऀ䄀一䐀
						(਀ऀऀऀऀऀऀऀ瀀⸀䌀伀䴀倀开䌀一吀䌀吀 䤀匀 一伀吀 一唀䰀䰀
							AND LTRIM(RTRIM(p.COMP_CNTCT)) <> ''਀ऀऀऀऀऀऀ⤀
				);਀ऀऀऀऀ
				SELECT @v_err_code = @@Error;਀ऀऀऀ䔀一䐀㬀
		END;਀ऀ䔀一䐀㬀
	਀ऀ
	--TODO: Looks like permit contact is located in AIRPERM table਀ऀ
	਀ऀⴀⴀ䤀渀猀攀爀琀 䴀开䘀䄀䌀开䌀匀吀䴀开䘀䰀䐀开嘀䄀䰀
	If @v_err_code = 0਀ऀ䈀䔀䜀䤀一
		--Employees਀ऀऀ䤀一匀䔀刀吀 䤀一吀伀 䴀开䘀䄀䌀开䌀匀吀䴀开䘀䰀䐀开嘀䄀䰀
		(਀ऀऀऀ䘀䄀䌀开匀䤀吀䔀开䤀䐀
		   ,A_CSTM_FLD_ID਀ऀऀ   Ⰰ䌀匀吀䴀开䘀䰀䐀开嘀䄀䰀
		)਀ऀऀ⠀
			SELECT਀ऀऀऀऀ䀀瀀开渀攀眀开昀愀挀开猀椀琀攀开椀搀Ⰰ
				(SELECT A_CSTM_FLD_ID FROM A_CSTM_FLD WHERE FLD_NAME = 'FacilityEmployees' AND FLD_ENT_TYPE = 'Facility'),਀ऀऀऀऀ瀀⸀䔀䴀倀䰀伀夀䔀䔀匀
			FROM਀ऀऀऀऀ䤀开倀䰀䄀一吀 瀀
			WHERE਀ऀऀऀऀ瀀⸀䤀䐀倀䰀䄀一吀 㴀 䀀瀀开椀猀琀攀瀀猀开椀搀瀀氀愀渀琀
				AND p.EMPLOYEES IS NOT NULL਀ऀऀ⤀㬀
		਀ऀऀ匀䔀䰀䔀䌀吀 䀀瘀开攀爀爀开挀漀搀攀 㴀 䀀䀀䔀爀爀漀爀㬀
			਀ऀऀऀ
		--Plant Area਀ऀऀ䤀昀 䀀瘀开攀爀爀开挀漀搀攀 㴀 　
		BEGIN	਀ऀऀऀ䤀一匀䔀刀吀 䤀一吀伀 䴀开䘀䄀䌀开䌀匀吀䴀开䘀䰀䐀开嘀䄀䰀
			(਀ऀऀऀऀ䘀䄀䌀开匀䤀吀䔀开䤀䐀
			   ,A_CSTM_FLD_ID਀ऀऀऀ   Ⰰ䌀匀吀䴀开䘀䰀䐀开嘀䄀䰀
			)਀ऀऀऀ⠀
				SELECT਀ऀऀऀऀऀ䀀瀀开渀攀眀开昀愀挀开猀椀琀攀开椀搀Ⰰ
					(SELECT A_CSTM_FLD_ID FROM A_CSTM_FLD WHERE FLD_NAME = 'FacilityArea' AND FLD_ENT_TYPE = 'Facility'),਀ऀऀऀऀऀ瀀⸀倀䰀䄀一吀䄀刀䔀䄀
				FROM਀ऀऀऀऀऀ䤀开倀䰀䄀一吀 瀀
				WHERE਀ऀऀऀऀऀ瀀⸀䤀䐀倀䰀䄀一吀 㴀 䀀瀀开椀猀琀攀瀀猀开椀搀瀀氀愀渀琀
					AND p.PLANTAREA IS NOT NULL਀ऀऀऀ⤀㬀
			਀ऀऀऀ匀䔀䰀䔀䌀吀 䀀瘀开攀爀爀开挀漀搀攀 㴀 䀀䀀䔀爀爀漀爀㬀
		END;਀ऀऀ
		਀ऀऀⴀⴀ倀爀漀搀甀挀琀
		If @v_err_code = 0਀ऀऀ䈀䔀䜀䤀一ऀ
			INSERT INTO M_FAC_CSTM_FLD_VAL਀ऀऀऀ⠀
				FAC_SITE_ID਀ऀऀऀ   Ⰰ䄀开䌀匀吀䴀开䘀䰀䐀开䤀䐀
			   ,CSTM_FLD_VAL਀ऀऀऀ⤀
			(਀ऀऀऀऀ匀䔀䰀䔀䌀吀
					@p_new_fac_site_id,਀ऀऀऀऀऀ⠀匀䔀䰀䔀䌀吀 䄀开䌀匀吀䴀开䘀䰀䐀开䤀䐀 䘀刀伀䴀 䄀开䌀匀吀䴀开䘀䰀䐀 圀䠀䔀刀䔀 䘀䰀䐀开一䄀䴀䔀 㴀 ✀䘀愀挀椀氀椀琀礀倀爀漀搀甀挀琀✀ 䄀一䐀 䘀䰀䐀开䔀一吀开吀夀倀䔀 㴀 ✀䘀愀挀椀氀椀琀礀✀⤀Ⰰ
					LTRIM(RTRIM(p.PRODUCT))਀ऀऀऀऀ䘀刀伀䴀
					I_PLANT p਀ऀऀऀऀ圀䠀䔀刀䔀
					p.IDPLANT = @p_isteps_idplant਀ऀऀऀऀऀ䄀一䐀
					(਀ऀऀऀऀऀऀ倀刀伀䐀唀䌀吀 䤀匀 一伀吀 一唀䰀䰀
						AND LTRIM(RTRIM(PRODUCT)) <> ''਀ऀऀऀऀऀ⤀
			);਀ऀऀऀ
			SELECT @v_err_code = @@Error;਀ऀऀ䔀一䐀㬀
	END;਀ऀऀऀऀ
	RETURN @v_err_code;਀䔀一䐀