dbo.MG_DATA_INTERFACE_MODULE_CHECK_MEMBER_PUSH

SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO
create procedure dbo.MG_DATA_INTERFACE_MODULE_CHECK_MEMBER_PUSH
@PARAMETER xml='' 
with encryption
as


declare @XmlSts xml
declare @raw xml
declare @xStsnoheader varchar(2),
  @xStsno varchar(2),
  @xStsdes varchar(2000)
  
set @xStsnoheader='06'
set @xStsno='00';
set @xStsdes='success'

 --
 -- SET NOCOUNT ON
 --exec MG_CHECK_CREATE_PERIODE @xStsno output,@xStsdes output;
 --if not(
 --@xStsno ='00'
 -- )
 --begin
 -- set @XmlSts=(select @xStsnoheader + @xStsno as 'no', @xStsdes as 'des' for xml path('sts'))
 -- goto g
 -- end
 --SET NOCOUNT OFF

BEGIN TRY
BEGIN TRANSACTION;
SET NOCOUNT ON
DECLARE @NOW datetime
set @NOW =GETDATE()
 
 
 declare @data_by varchar(20) 
   ,@key varchar(1000)
     ,@aktivasi varchar(255) 
     ,@bc_type_id int
    ,@edinum varchar(255) 
 
 set @data_by=-1;
   ------ ,local_path varchar(255)

 SELECT
     @aktivasi= tempTable.item.value('aktivasi[1]', 'varchar(255)') ,
    @edinum= tempTable.item.value('edinum[1]', 'varchar(255)') ,
    @bc_type_id= tempTable.item.value('bc_type_id[1]', 'int') ,
    @key= tempTable.item.value('key[1]', 'varchar(255)')   
   FROM @PARAMETER.nodes('param/field')  tempTable(item)
   
  set @aktivasi=ltrim(rtrim(isnull(@aktivasi,'')));
   
 
  
  if @key<>'adiTioPriambodoCumi02ti0K0s0ng' COLLATE SQL_Latin1_General_CP1250_CS_AS
  begin 
   set @xStsno='01';
  set @xStsdes='Invalid Access';
  goto f
 end
  
   
 if @aktivasi =''
 begin 
   set @xStsno='03';
  set @xStsdes='Gagal, Kode Aktivasi tidak boleh kosong';
  goto f
 end
  
   
  declare @motherboard_id varchar(255)

   declare @XMLValidString varchar(max)
 SELECT     
 TOP (1)
  @XMLValidString=isnull(CONVERT(varchar(MAX),DecryptByPassphrase('Ap4TanyaT4nya MauT4uAj4 4h'    , set_30)),'')   ,
 @motherboard_id=isnull(CONVERT(varchar(MAX),DecryptByPassphrase('Ap4TanyaT4nya MauT4uAj4 4h'    , set_23)),'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX')   
  FROM         dt_app_set
 
 
 if @XMLValidString =''
 begin
   set @xStsno='04';
  set @xStsdes='Gagal, Module Module Interface Belum di definisikan, lakukan get interface module terlebih dahulu';
   goto f
 end
 
   set @XMLValidString =isnull(substring(@XMLValidString,len(@motherboard_id)+1,LEN(@XMLValidString)-LEN(@motherboard_id)+1) ,'')
 declare  @XMLString xml 
 set @XMLString=@XMLValidString
 
 declare @tmpInterface table ( aktivasi varchar(255), 
        edinum  varchar(255), 
        is_palapa bit,
        bc_type_id int)
 insert into @tmpInterface
 
 SELECT
    isnull(tempTable.item.value('@akt', 'varchar(255)'),0) ,
   isnull(tempTable.item.value('@num', 'varchar(255)'),0) ,
   isnull(tempTable.item.value('@m', 'bit'),0) ,
   isnull(tempTable.item.value('@t', 'int'),0) 
 FROM @XMLString.nodes('module/interface/r')  tempTable(item)
 
  
 declare @is_palapa bit
 declare @is_registered bit

 --CHECK APAKAH PALAPA?
  select top (1) @is_palapa=is_palapa from @tmpInterface where (aktivasi=@aktivasi) and (edinum=@edinum) and (bc_type_id=@bc_type_id)
   
 if @is_palapa is null
 begin
  set @is_registered=0
  set @is_palapa=0
 end
  else
 begin
  set @is_registered=1
 end
 declare @interface_module_bc_id bigint
 SELECT   top 1   @interface_module_bc_id=  interface_module_bc_id
 FROM            vw_interface_module
 WHERE        (edinum = @edinum) AND (bc_type_id = @bc_type_id) AND (aktivasi = @aktivasi)



  set @raw =(select 
  case when @is_palapa=1 then 'Member Palapa' else 'Non Member Palapa' end as rID,
  case when @is_registered=1 then 'Registered' else 'Unregistered' end as r1,
  @is_registered as r2,
  @is_palapa as r3,
  isnull(@interface_module_bc_id,-1) as r4
  for xml path ('xrow'))
f:

 
COMMIT TRANSACTION;
set nocount off

END TRY  
BEGIN CATCH
 IF (@@TRANCOUNT > 0) 
 ROLLBACK TRANSACTION;
 
 set @xStsno='88'
 set @xStsdes= ERROR_MESSAGE() 
END CATCH

g:
set @XmlSts=(select @xStsnoheader + @xStsno as 'no', @xStsdes as 'des' for xml path('sts'))
 select  CAST( (select @XmlSts,isnull(@raw ,'')   for xml path ('result')
)  as XML)  as dt;

GO