/****************************************************************************/
/* SYSTEM_ID : GF                                                           */
/* GF19199A ( PROCEDURE )                                                   */
/* Created : 2021/06/23 16:36:06                                            */
/****************************************************************************/

CREATE 
PROCEDURE GF19199A(
	 PO_KEKKA		OUT	NUMBER													-- 蜃ｦ逅�邨先棡(0:豁｣蟶ｸ 1:隴ｦ蜻�2:逡ｰ蟶ｸ)
	,PO_ERRMSGS		OUT	ERR_MSG_ARRAY											-- �ｽｴ�ｾ暦ｽｰ�ｾ抵ｽｯ�ｽｾ�ｽｰ�ｽｼ�ｾ樣�榊�
	,PI_NAMES		IN	VARCHAR2												-- 鬆�逶ｮ蜷�
	,PI_SYSARGS		IN	SYSARG_ARRAY											-- �ｽｼ�ｽｽ�ｾ�ｾ托ｾ�ｾ橸ｽｰ�ｾ�
	,PI_GF9100ARG	IN	GF9100ARG_ARRAY											-- 逋ｻ骭ｲ�ｾ�ｾ橸ｽｰ�ｾ�驟榊�
)
IS
/*******************************************************************************
*	螟画焚螳｣險�
*******************************************************************************/
	--螳壽焚螳夂ｾｩ
	CON_PGID		CONSTANT	VARCHAR2(10)	:= 'GFP19100A';					-- �ｾ鯉ｾ滂ｾ幢ｽｸ�ｾ橸ｾ暦ｾ選D
	CON_PGPID		CONSTANT	VARCHAR2(10)	:= PI_SYSARGS(1).PGID;			-- 逕ｻ髱｢ID
	CON_SYSDATE		CONSTANT	VARCHAR2(14)	:= PI_SYSARGS(1).CDATE;			-- �ｽｼ�ｽｽ�ｾ�ｾ第律莉�
	CON_USER		CONSTANT	VARCHAR2(10)	:= PI_SYSARGS(1).USERID;		-- �ｾ幢ｽｸ�ｾ橸ｽｲ�ｾ晢ｾ包ｽｰ�ｽｻ�ｾ橸ｽｰ

	--螟画焚螳夂ｾｩ
	G_I				NUMBER;														-- 陦檎分蜿ｷ
	G_RTN			BOOLEAN;													-- �ｾ假ｾ��ｽｰ�ｾ晏�､
	G_ERRSTP		VARCHAR2(1000)	:= NULL;									-- �ｽｴ�ｾ暦ｽｰ逋ｺ逕溽ｮ�園(�ｽｽ�ｾ�ｽｯ�ｾ鯉ｾ�
	G_DISP_KEY		VARCHAR2(1000)	:= NULL;									-- �ｽｷ�ｽｰ鬆�逶ｮ

	--EXCEPTION螳夂ｾｩ
	UNMATCH_CDKH	EXCEPTION;

	--�ｽｻ�ｾ鯉ｾ橸ｾ鯉ｾ滂ｾ幢ｽｸ�ｾ橸ｾ暦ｾ�
	FUNCTION	ERROR_CHECK	RETURN BOOLEAN;
	FUNCTION	INSERT_RTN	RETURN BOOLEAN;
	FUNCTION	UPDATE_RTN	RETURN BOOLEAN;
	FUNCTION	DELETE_RTN	RETURN BOOLEAN;
/*******************************************************************************
*	ERROR_CHECK 蜈･蜉幢ｽｴ�ｾ暦ｽｰ�ｾ�ｽｪ�ｽｯ�ｽｸ
*******************************************************************************/
FUNCTION ERROR_CHECK
RETURN BOOLEAN
IS
	L_COUNT	NUMBER	:= 0;
BEGIN
	G_ERRSTP:='ERR_CHARCK';

	IF PI_SYSARGS(G_I).CDKH = 'A' THEN
		G_ERRSTP:='ERR_CHARCK_EXIST_A';
		--蟄伜惠�ｾ�ｽｪ�ｽｯ�ｽｸ
		SELECT	COUNT(*)
		INTO	L_COUNT
		FROM	GF41
		WHERE	SYSTEM_ID	=	PI_GF9100ARG(G_I).SYSTEM_ID						-- �ｽｼ�ｽｽ�ｾ�ｾ選D �ｼ�逕ｻ髱｢縲具ｽｼ�ｽｽ�ｾ�ｾ選D
		AND		LANG		=	PI_GF9100ARG(G_I).LANG							-- 險�隱�  �ｼ�逕ｻ髱｢縲玖ｨ�隱�
		AND		CLM			=	PI_GF9100ARG(G_I).CLM							-- 鬆�逶ｮ   �ｼ�逕ｻ髱｢縲矩��逶ｮ
		AND		FGJ			IN	('0','1');										-- 迥ｶ諷祈  IN ('0','1')

		IF NVL(L_COUNT,0) > 0 THEN
			--縲梧里縺ｫ�ｾ�ｾ橸ｽｰ�ｾ�縺悟ｭ伜惠縺励∪縺吶��0} {1}縲�
			HYBS.SET_ERRMSGS(PO_ERRMSGS											-- �ｽｴ�ｾ暦ｽｰ�ｾ抵ｽｯ�ｽｾ�ｽｰ�ｽｼ�ｾ樣�榊�
							,PI_SYSARGS(G_I).NO									-- 陦檎分蜿ｷ
							,2													-- �ｽｴ�ｾ暦ｽｰ邨先棡(0:豁｣蟶ｸ 1:隴ｦ蜻�2:逡ｰ蟶ｸ)
							,'GFE0002'											-- �ｽｴ�ｾ暦ｽｰ�ｾ抵ｽｯ�ｽｾ�ｽｰ�ｽｼ�ｾ曵D
							,'{#GF41}'											-- �ｾ抵ｽｯ�ｽｾ�ｽｰ�ｽｼ�ｾ橸ｾ奇ｾ滂ｾ暦ｾ抵ｽｰ�ｾ�{0}
							,G_DISP_KEY											-- �ｾ抵ｽｯ�ｽｾ�ｽｰ�ｽｼ�ｾ橸ｾ奇ｾ滂ｾ暦ｾ抵ｽｰ�ｾ�{1}
							);
		END IF;
	ELSE
		G_ERRSTP:='ERR_CHARCK_EXIST_UD';
		--蟄伜惠�ｾ�ｽｪ�ｽｯ�ｽｸ
		SELECT	COUNT(*)
		INTO	L_COUNT
		FROM	GF41
		WHERE	SYSTEM_ID	=	PI_GF9100ARG(G_I).SYSTEM_ID						-- �ｽｼ�ｽｽ�ｾ�ｾ選D �ｼ�逕ｻ髱｢縲具ｽｼ�ｽｽ�ｾ�ｾ選D
		AND		LANG		=	PI_GF9100ARG(G_I).LANG							-- 險�隱�  �ｼ�逕ｻ髱｢縲玖ｨ�隱�
		AND		CLM			=	PI_GF9100ARG(G_I).CLM							-- 鬆�逶ｮ   �ｼ�逕ｻ髱｢縲矩��逶ｮ
		AND		FGJ			IN	('0','1');										-- 迥ｶ諷祈  IN ('0','1')

		IF NVL(L_COUNT,0) <= 0 THEN
			--縲鯉ｾ�ｾ橸ｽｰ�ｾ�縺悟ｭ伜惠縺励∪縺帙ｓ縲�0} {1}縲�
			HYBS.SET_ERRMSGS(PO_ERRMSGS											-- �ｽｴ�ｾ暦ｽｰ�ｾ抵ｽｯ�ｽｾ�ｽｰ�ｽｼ�ｾ樣�榊�
							,PI_SYSARGS(G_I).NO									-- 陦檎分蜿ｷ
							,2													-- �ｽｴ�ｾ暦ｽｰ邨先棡(0:豁｣蟶ｸ 1:隴ｦ蜻�2:逡ｰ蟶ｸ)
							,'GFE0003'											-- �ｽｴ�ｾ暦ｽｰ�ｾ抵ｽｯ�ｽｾ�ｽｰ�ｽｼ�ｾ曵D
							,'{#GF41}'											-- �ｾ抵ｽｯ�ｽｾ�ｽｰ�ｽｼ�ｾ橸ｾ奇ｾ滂ｾ暦ｾ抵ｽｰ�ｾ�{0}
							,G_DISP_KEY											-- �ｾ抵ｽｯ�ｽｾ�ｽｰ�ｽｼ�ｾ橸ｾ奇ｾ滂ｾ暦ｾ抵ｽｰ�ｾ�{1}
							);
		END IF;
	END IF;

	RETURN TRUE;
END ERROR_CHECK;
/*******************************************************************************
*	INSERT_RTN 霑ｽ蜉�
*******************************************************************************/
FUNCTION INSERT_RTN
RETURN BOOLEAN
IS
	L_STATUS	NUMBER(1) := 0;
BEGIN
	G_ERRSTP:='INSERT_RTN';

/*
	G_ERRSTP		:= 'GF41_INSERT_RTN_INS';
	INSERT INTO GF41 (
		 SYSTEM_ID																-- �ｽｼ�ｽｽ�ｾ�ｾ選D
		,LANG																	-- 險�隱�
		,CLM																	-- 鬆�逶ｮ
		,NAME_JA																-- 蜷咲ｧｰ�ｼ域ｼ｢蟄暦ｼ�
		,LABEL_NAME																-- 陦ｨ遉ｺ蜷咲ｧｰ
		,KBSAKU																	-- 菴懈�蛹ｺ蛻�
		,CDTAN																	-- 諡�蠖楢��
		,FGJ																	-- 迥ｶ諷祈
		,DYSET																	-- 菴懈�譌･譎�
		,PGSET																	-- 菴懈�PG
		,PGPSET																	-- 菴懈�蜻ｼ蜃ｺPG
		,USRSET																	-- 菴懈��ｾ包ｽｰ�ｽｻ�ｾ橸ｽｰ
		,DYUPD																	-- 譖ｴ譁ｰ譌･譎�
		,PGUPD																	-- 譖ｴ譁ｰPG
		,PGPUPD																	-- 譖ｴ譁ｰ蜻ｼ蜃ｺPG
		,USRUPD																	-- 譖ｴ譁ｰ�ｾ包ｽｰ�ｽｻ�ｾ橸ｽｰ
	)
	VALUES (
		 PI_GF9100ARG(G_I).SYSTEM_ID											-- �ｽｼ�ｽｽ�ｾ�ｾ選D
		,PI_GF9100ARG(G_I).LANG													-- 險�隱�
		,PI_GF9100ARG(G_I).CLM													-- 鬆�逶ｮ
		,PI_GF9100ARG(G_I).NAME_JA												-- 蜷咲ｧｰ�ｼ域ｼ｢蟄暦ｼ�
		,PI_GF9100ARG(G_I).LABEL_NAME											-- 陦ｨ遉ｺ蜷咲ｧｰ
		,PI_GF9100ARG(G_I).KBSAKU												-- 菴懈�蛹ｺ蛻�
		,PI_GF9100ARG(G_I).CDTAN												-- 諡�蠖楢��
		,'1'																	-- 迥ｶ諷祈
		,CON_SYSDATE															-- 菴懈�譌･譎�
		,CON_PGID																-- 菴懈�PG
		,CON_PGPID																-- 菴懈�蜻ｼ蜃ｺPG
		,CON_USER																-- 菴懈��ｾ包ｽｰ�ｽｻ�ｾ橸ｽｰ
		,CON_SYSDATE															-- 譖ｴ譁ｰ譌･譎�
		,CON_PGID																-- 譖ｴ譁ｰPG
		,CON_PGPID																-- 譖ｴ譁ｰ蜻ｼ蜃ｺPG
		,CON_USER																-- 譖ｴ譁ｰ�ｾ包ｽｰ�ｽｻ�ｾ橸ｽｰ
	);
*/
	G_ERRSTP		:= 'GF41_INSERT_RTN_GFP00001';
	--蜈ｱ騾售P�ｽｻ�ｾ晢ｾ鯉ｾ滂ｾ�GFP00001)
	GFP00001.GF00001(
					 L_STATUS													-- �ｽｽ�ｾ�ｽｰ�ｾ��ｽｽ
					,PO_ERRMSGS													-- �ｽｴ�ｾ暦ｽｰ�ｾ抵ｽｯ�ｽｾ�ｽｰ�ｽｼ�ｾ樣�榊�
					,CON_PGPID													-- 逕ｻ髱｢ID
					,PI_SYSARGS(G_I).NO											-- 陦檎分蜿ｷ
					,PI_GF9100ARG(G_I).SYSTEM_ID								-- �ｽｼ�ｽｽ�ｾ�ｾ選D
					,PI_GF9100ARG(G_I).LANG										-- 險�隱�
					,PI_GF9100ARG(G_I).CLM										-- 鬆�逶ｮ
					,PI_GF9100ARG(G_I).NAME_JA									-- 蜷咲ｧｰ�ｼ域ｼ｢蟄暦ｼ�
					,PI_GF9100ARG(G_I).LABEL_NAME								-- 陦ｨ遉ｺ蜷咲ｧｰ
					,PI_GF9100ARG(G_I).KBSAKU									-- 菴懈�蛹ｺ蛻�
					,PI_GF9100ARG(G_I).CDTAN									-- 諡�蠖楢��
					,CON_USER													-- �ｾ幢ｽｸ�ｾ橸ｽｲ�ｾ晢ｾ包ｽｰ�ｽｻ�ｾ橸ｽｰ
					);

	--�ｽｽ�ｾ�ｽｰ�ｾ��ｽｽ縺��ｼ茨ｽｵ�ｾ暦ｽｸ�ｾ呻ｽｴ�ｾ暦ｽｰ逋ｺ逕滂ｼ峨′霑斐▲縺ｦ縺阪◆蝣ｴ蜷医�蠢�縺唏YBS.COMMONSP_ERROR繧坦AISE縺励∪縺吶��
	IF	L_STATUS = 9 THEN
		RAISE HYBS.COMMONSP_ERROR;
	--�ｽｽ�ｾ�ｽｰ�ｾ��ｽｽ縺��ｼ育焚蟶ｸ�ｼ峨�蝣ｴ蜷医�蜃ｦ逅�縺ｯ莉ｻ諢上〒縺�
	ELSIF	L_STATUS = 1 THEN
	--陦後＞縺溘＞蜃ｦ逅��ｼ井ｾ九∴縺ｰRETURN FALSE�ｼ峨↓譖ｸ縺肴鋤縺医※荳九＆縺���
		NULL;
	END IF;

	RETURN TRUE;
END INSERT_RTN;
/*******************************************************************************
*	UPDATE_RTN 譖ｴ譁ｰ
*******************************************************************************/
FUNCTION UPDATE_RTN
RETURN BOOLEAN
IS
BEGIN
	G_ERRSTP:='UPDATE_RTN';

	UPDATE	GF41	SET
			 NAME_JA		=	PI_GF9100ARG(G_I).NAME_JA						-- 蜷咲ｧｰ�ｼ域ｼ｢蟄暦ｼ�
			,LABEL_NAME		=	PI_GF9100ARG(G_I).LABEL_NAME					-- 陦ｨ遉ｺ蜷咲ｧｰ
			,KBSAKU			=	PI_GF9100ARG(G_I).KBSAKU						-- 菴懈�蛹ｺ蛻�
			,CDTAN			=	PI_GF9100ARG(G_I).CDTAN							-- 諡�蠖楢��
			,DYUPD			=	CON_SYSDATE										-- 譖ｴ譁ｰ譌･譎�
			,PGUPD			=	CON_PGID										-- 譖ｴ譁ｰPG
			,PGPUPD			=	CON_PGPID										-- 譖ｴ譁ｰ蜻ｼ蜃ｺPG
			,USRUPD			=	CON_USER										-- 譖ｴ譁ｰ�ｾ包ｽｰ�ｽｻ�ｾ橸ｽｰ
	WHERE	UNIQ			=	PI_GF9100ARG(G_I).UNIQ;							-- �ｾ包ｾ��ｽｰ�ｽｸ �ｼ�逕ｻ髱｢縲具ｾ包ｾ��ｽｰ�ｽｸ

	RETURN TRUE;
END UPDATE_RTN;
/*******************************************************************************
*	DELETE_RTN 蜑企勁
*******************************************************************************/
FUNCTION DELETE_RTN
RETURN BOOLEAN
IS
BEGIN
	G_ERRSTP:='DELETE_RTN';

	UPDATE	GF41	SET
			 FGJ			=	'9'												-- 迥ｶ諷祈
			,DYUPD			=	CON_SYSDATE										-- 譖ｴ譁ｰ譌･譎�
			,PGUPD			=	CON_PGID										-- 譖ｴ譁ｰPG
			,PGPUPD			=	CON_PGPID										-- 譖ｴ譁ｰ蜻ｼ蜃ｺPG
			,USRUPD			=	CON_USER										-- 譖ｴ譁ｰ�ｾ包ｽｰ�ｽｻ�ｾ橸ｽｰ
	WHERE	UNIQ			=	PI_GF9100ARG(G_I).UNIQ;							-- �ｾ包ｾ��ｽｰ�ｽｸ �ｼ�逕ｻ髱｢縲具ｾ包ｾ��ｽｰ�ｽｸ

--	DELETE	GF41
--	WHERE	UNIQ			=	PI_GF9100ARG(G_I).UNIQ;							-- �ｾ包ｾ��ｽｰ�ｽｸ �ｼ�逕ｻ髱｢縲具ｾ包ｾ��ｽｰ�ｽｸ

	RETURN TRUE;
END DELETE_RTN;
/*******************************************************************************
*	�ｾ抵ｽｲ�ｾ晏�逅�
*******************************************************************************/
BEGIN
	G_ERRSTP:='MAIN_S';
	--蜃ｦ逅�邨先棡(2:逡ｰ蟶ｸ)
	PO_KEKKA := 2;

	G_ERRSTP:='MAIN_ERR_LOOP';
	-- 逋ｻ骭ｲ�ｾ�ｾ橸ｽｰ�ｾ��ｾ�ｽｪ�ｽｯ�ｽｸ蜃ｦ逅��ｾ呻ｽｰ�ｾ鯉ｾ�
	FOR I IN 1..PI_SYSARGS.COUNT LOOP
		G_I	:=	I;
		G_DISP_KEY := ' SYSTEM_ID='|| PI_GF9100ARG(G_I).SYSTEM_ID||
					  ' LANG='|| PI_GF9100ARG(G_I).LANG||
					  ' CLM='|| PI_GF9100ARG(G_I).CLM||
					  ' UNIQ='|| PI_GF9100ARG(G_I).UNIQ;
		--�ｽｴ�ｾ暦ｽｰ�ｾ�ｽｪ�ｽｯ�ｽｸ
		G_RTN := ERROR_CHECK;
	END LOOP;
	-- 蜃ｦ逅�邨先棡(�ｽｴ�ｾ暦ｽｰ�ｾ抵ｽｯ�ｽｾ�ｽｰ�ｽｼ�ｾ樣�榊�縺ｮ�ｽｴ�ｾ暦ｽｰ邨先棡縺ｮ譛�螟ｧ)
	PO_KEKKA	:= HYBS.GET_MAX_KEKKA(PO_ERRMSGS);

	-- 蜃ｦ逅�邨先棡蛻､螳�
	IF PO_KEKKA < 2 THEN
		G_ERRSTP:='MAIN_LOOP';
		-- �ｾ�ｾ橸ｽｰ�ｾ�逋ｻ骭ｲ蜃ｦ逅��ｾ呻ｽｰ�ｾ鯉ｾ�
		FOR I IN 1..PI_SYSARGS.COUNT LOOP
			G_I	:=	I;
			--�ｽｷ�ｽｰ鬆�逶ｮ�ｽｾ�ｽｯ�ｾ�
			G_DISP_KEY := ' SYSTEM_ID='|| PI_GF9100ARG(G_I).SYSTEM_ID||
						  ' LANG='|| PI_GF9100ARG(G_I).LANG||
						  ' CLM='|| PI_GF9100ARG(G_I).CLM||
						  ' UNIQ='|| PI_GF9100ARG(G_I).UNIQ;
			-- 謾ｹ蟒�ｽｺ�ｽｰ�ｾ�ｾ槫愛螳�霑ｽ蜉��ｼ剰､���
			IF PI_SYSARGS(G_I).CDKH = 'A' THEN
				-- 霑ｽ蜉��ｼ剰､��吝�逅�
				G_RTN := INSERT_RTN;
			-- 謾ｹ蟒�ｽｺ�ｽｰ�ｾ�ｾ槫愛螳�螟画峩)
			ELSIF PI_SYSARGS(G_I).CDKH = 'C' THEN
				-- 螟画峩蜃ｦ逅�
				G_RTN := UPDATE_RTN;
			-- 謾ｹ蟒�ｽｺ�ｽｰ�ｾ�ｾ槫愛螳�蜑企勁)
			ELSIF PI_SYSARGS(G_I).CDKH = 'D' THEN
				-- 蜑企勁蜃ｦ逅�
				G_RTN := DELETE_RTN;
			ELSE
				-- 謾ｹ蟒�ｽｺ�ｽｰ�ｾ�ｾ橸ｽｴ�ｾ暦ｽｰ
				RAISE UNMATCH_CDKH;
			END IF;
		END LOOP;
	END IF;

	G_ERRSTP:='MAIN_E';
	-- 蜃ｦ逅�邨先棡(�ｽｴ�ｾ暦ｽｰ�ｾ抵ｽｯ�ｽｾ�ｽｰ�ｽｼ�ｾ樣�榊�縺ｮ�ｽｴ�ｾ暦ｽｰ邨先棡縺ｮ譛�螟ｧ)
	PO_KEKKA	:= HYBS.GET_MAX_KEKKA(PO_ERRMSGS);

/*******************************************************************************
*	萓句､門�逅�
*******************************************************************************/
EXCEPTION
	-- 縲梧隼蟒�ｽｺ�ｽｰ�ｾ�ｾ橸ｽｴ�ｾ暦ｽｰ 謾ｹ蟒�ｽｺ�ｽｰ�ｾ�ｾ�{0}縲�
	WHEN UNMATCH_CDKH THEN
		HYBS.SET_ERRMSGS(PO_ERRMSGS												-- �ｽｴ�ｾ暦ｽｰ�ｾ抵ｽｯ�ｽｾ�ｽｰ�ｽｼ�ｾ樣�榊�
						,PI_SYSARGS(G_I).NO										-- 陦檎分蜿ｷ
						,2														-- �ｽｴ�ｾ暦ｽｰ邨先棡(0:豁｣蟶ｸ 1:隴ｦ蜻�2:逡ｰ蟶ｸ)
						,'GFE0004'												-- �ｽｴ�ｾ暦ｽｰ�ｾ抵ｽｯ�ｽｾ�ｽｰ�ｽｼ�ｾ曵D
						,PI_SYSARGS(G_I).CDKH									-- �ｾ抵ｽｯ�ｽｾ�ｽｰ�ｽｼ�ｾ橸ｾ奇ｾ滂ｾ暦ｾ抵ｽｰ�ｾ�{0}
						);
		PO_KEKKA := 2;

	-- 蜈ｱ騾售P�ｽｴ�ｾ暦ｽｰ
	WHEN HYBS.COMMONSP_ERROR THEN
		HYBS.SET_ERRMSGS2(PO_ERRMSGS											-- �ｽｴ�ｾ暦ｽｰ�ｾ抵ｽｯ�ｽｾ�ｽｰ�ｽｼ�ｾ樣�榊�
						,PI_SYSARGS(G_I).NO										-- 陦檎分蜿ｷ
						,2														-- �ｽｴ�ｾ暦ｽｰ邨先棡(0:豁｣蟶ｸ 1:隴ｦ蜻�2:逡ｰ蟶ｸ)
						,CON_PGID												-- �ｾ鯉ｾ滂ｾ幢ｽｸ�ｾ橸ｾ暦ｾ選D
						,G_ERRSTP												-- �ｽｴ�ｾ暦ｽｰ逋ｺ逕溽ｮ�園(�ｽｽ�ｾ�ｽｯ�ｾ鯉ｾ�
						,'GFE0005'												-- 蜈ｱ騾售P�ｽｴ�ｾ暦ｽｰ逋ｺ逕�
						,G_DISP_KEY												-- �ｽｷ�ｽｰ鬆�逶ｮ
						);
		PO_KEKKA := 2;

	--	�ｽｵ�ｾ暦ｽｸ�ｾ呻ｽｴ�ｾ暦ｽｰ
	WHEN OTHERS THEN
		HYBS.SET_ERRMSGS2(PO_ERRMSGS											-- �ｽｴ�ｾ暦ｽｰ�ｾ抵ｽｯ�ｽｾ�ｽｰ�ｽｼ�ｾ樣�榊�
						,PI_SYSARGS(G_I).NO										-- 陦檎分蜿ｷ
						,2														-- �ｽｴ�ｾ暦ｽｰ邨先棡(0:豁｣蟶ｸ 1:隴ｦ蜻�2:逡ｰ蟶ｸ)
						,CON_PGID												-- �ｾ鯉ｾ滂ｾ幢ｽｸ�ｾ橸ｾ暦ｾ選D
						,G_ERRSTP												-- �ｽｴ�ｾ暦ｽｰ逋ｺ逕溽ｮ�園(�ｽｽ�ｾ�ｽｯ�ｾ鯉ｾ�
						,TO_CHAR(SQLCODE)										-- �ｽｵ�ｾ暦ｽｸ�ｾ呻ｽｴ�ｾ暦ｽｰ�ｽｺ�ｽｰ�ｾ�ｾ�
						,SUBSTRB(SQLERRM,1,1000)								-- �ｽｵ�ｾ暦ｽｸ�ｾ呻ｽｴ�ｾ暦ｽｰ�ｾ抵ｽｯ�ｽｾ�ｽｰ�ｽｼ�ｾ�
						,G_DISP_KEY												-- �ｽｷ�ｽｰ鬆�逶ｮ
						);
		PO_KEKKA := 2;

END GF19199A;
;
