고지서 출력 여부 check .txt

 ----------------------------------------------------------------------------------------
      -- 입원인 경우 고지서 출력여부를 Check하여 'N'인 경우에만 입원접수내역에 퇴원관련컬럼을 Update
      ---------------------------------------------------------------------------------------- 
      if (IN_MED_PACT_TP_CD = 'I') then
            -------------------------------------------------------------------------------------
         -- 퇴원지시나 퇴원취소가 가능한지 심사완료여부 및 고지서출력여부를 조회한다.
         -------------------------------------------------------------------------------------     
      	begin
            begin
				SELECT A.BSCR_TP_CD         --사전심사구분코드
				     , A.PRNT_TP_YN         --출력구분여부
				     , TRIM(A.ANDR_STF_NO)  --주치의직원번호 
				  INTO V_BSCR_TP_CD
				  	 , V_PRNT_TP_YN
				  	 , V_ANDR_STF_NO
				  FROM ACPPRAAM A
				 WHERE A.PT_NO = IN_PT_NO
				   AND A.PACT_ID = IN_MED_PACT_ID
				   AND A.HSP_TP_CD = IN_HIS_HSP_TP_CD ;

                EXCEPTION
                    WHEN NO_DATA_FOUND THEN
                        IO_MESG := '입원접수내역이 존재하지 않습니다!';
                        RETURN ;
                    WHEN OTHERS THEN
                        RAISE_APPLICATION_ERROR(-20990, 'PROC_SELPRECHECKYN : AN ERROR OCCURRED' || SQLCODE || SQLERRM );
            END;

            ----------------------------------------------------------------------------------
            -- 심사가 완료 되었으면 Return한다.
            ----------------------------------------------------------------------------------
            IF V_BSCR_TP_CD = 'P' THEN
               IO_MESG := '이미 사전심사가 완료되어 퇴원지시 및 취소가 불가능합니다!';
               RETURN ;
            END IF ;

            ----------------------------------------------------------------------------------
            -- 고지서가 출력되었으면 RETURN한다.
            ----------------------------------------------------------------------------------
            IF V_PRNT_TP_YN = 'Y' THEN
               IO_MESG := '이미 고지서가 출력되어 퇴원지시 및 취소가 불가능합니다!';
               RETURN ;
            END IF ;

             ------------------------------------------------------------------------------------------
             -- 지정의와 주치의가 둘 다 등록이 안 된 경우가 있는지 확인한다.
             -- 2003-07-04, APPENDED BY BAE, BYUNG HEON
             ------------------------------------------------------------------------------------------
            IF V_ANDR_STF_NO IS NULL THEN
                 IO_MESG := '주치의가 등록되어 있지 않습니다 !'||CHR(13)||'퇴원지시 및 취소가 불가능합니다.';
                 RETURN;
            END IF;
         END ;      
      end if;