DEVICE_ID List

DEFINE_CONSTANT //UI TYPES (Unknown=1, KP=2, R4=3, G3=4, G4=5) 

#DEFINE UI_TYPE_CONSTANTS

UI_TYPE_UNKNOWN                = 1 ;
UI_TYPE_KP		= 2 ;
UI_TYPE_R4		= 3 ;
UI_TYPE_G3		= 4 ;
UI_TYPE_G4		= 5 ;
                        
CHAR UI_TYPE[][9] = 

     {
     'Unknown',		//1
     'Keypad',		//2
     'R4 Remote',		//3
     'G3 Panel',		//4
     'G4 Panel' 		//5
     } ;   

DEFINE_CONSTANT //DEVICE ID's 

#DEFINE DEV_ID_CONSTANTS     

/////////////////////////////////KEYPADS 

DEV_ID_KP_BEGIN		= 169 ;
DEV_ID_MET6N  		= 169 ;
DEV_ID_MET7   		= 170 ;
DEV_ID_MET13  		= 171 ;
DEV_ID_KP_END		= 171 ;

/////////////////////////////////R4 

DEV_ID_R4		= 322 ;

/////////////////////////////////G3 PANELS 

DEV_ID_G3_END		= 256 ;

DEFINE_EVENT //dvUI_ARRAY DATA EVENT

DATA_EVENT   [dvUI_Arry]
     
     {
     ONLINE:
	  {
	  STACK_VAR INTEGER nUI_Indx ;
	  STACK_VAR INTEGER nDeviceID ;
	  STACK_VAR INTEGER nValue ; //UI TYPES Unknown=1, KP=2, R4=3, G3=4, G4=5, 
	    
	  nUI_Indx = GET_LAST(dvUI_Arry) ;
	  nDeviceID = DEVICE_ID(dvUI_Arry[nUI_Indx]) ;
	  if(!nUI_TypeArry[nUI_Indx])//only run if value hasn't been set already!
	       {
	       SELECT
		    {
		    ACTIVE(nDeviceID == 0)://?? No Number 
			 {
			 nValue = 0 ; //DON'T SET LET IT TRY AGAIN NEXT TIME
			 }
		    ACTIVE(nDeviceID >= 169 && nDeviceID <= 171)://Metreau Keypads
			 {
			 nValue = UI_TYPE_KP ;
			 }
		    ACTIVE(nDeviceID == 322)://R4
			 {
			 nValue = UI_TYPE_R4 ;
			 }
		    ACTIVE(nDeviceID < 256)://G3 panel
			 {
			 nValue = UI_TYPE_G3 ;
			 }
		   // ACTIVE(1)://?? No Number 
//			 {
//			 nValue = UI_TYPE_UNKNOWN ;
//			 }
		    ACTIVE(1)://G4  //FIGURE OUT NUMBERS FOR THIS
			 {
			 nValue = UI_TYPE_G4 ;
			 }
		    }
	       nUI_TypeArry[nUI_Indx] = nValue ;
	       fnUI_DeBug("'UI Device: ',fnDEV_TO_STRING(dvUI_Arry[nUI_Indx]),' is a ',nUI_TypeArry[nValue],
					     '. ** UI Type #',itoa(nValue),' **. >-Line-<',itoa(__LINE__),'>'") ;
	       }
	  }
     }

DEFINE_FUNCTION fnTP_Send_VText (INTEGER iUI_Indx,nCHAN,CHAR strMSG[]) 
     
     {
     if(iUI_Indx)//if iUI_Indx has value then send only to it, just came online, on page or needs refreshing
	  {
	  SWITCH(nUI_TypeArry[iUI_Indx])
	       {
	       CASE UI_TYPE_G4:
	       CASE UI_TYPE_R4:
		    {
		    STACK_VAR WIDECHAR strSTRING1[100] ;
		    STACK_VAR CHAR strSTRING2[100] ;
		    
		    strSTRING1 = WC_DECODE(strMSG,WC_FORMAT_UTF8,1) ; // Used to Decode 
		    strSTRING2 = WC_ENCODE(strSTRING1,WC_FORMAT_TP,1) ;//WC_TP_ENCODE (strSTRING1) should be the same
		    SEND_COMMAND dvSB_UIArry[iUI_Indx], "'^UNI-',ITOA(nCHAN),',0,',strSTRING2"   
		    }
	       CASE UI_TYPE_G3:
		    {
		    SEND_COMMAND dvSB_UIArry[iUI_Indx], "'TEXT',ITOA(nCHAN),'-',strMSG" ; 
		    }
	       CASE UI_TYPE_KP:
	       CASE UI_TYPE_UNKNOWN:
		    {
		    //DO NOTHING
		    }
	       }
	  }
     else  //general feedback so send to all that are actively on this page for this instance of the device
	  {
	  STACK_VAR INTEGER nNumUI ;
	  STACK_VAR INTEGER n ;
	       
	  nNumUI = LENGTH_ARRAY(nSB_ActiveTPArry)
	  for(n = 1 ; n <= nNumUI ; n++)
	       {
	       if(nSB_ActiveTPArry[n] == nSB_ThisSB)//means it on this SB & Active on page
		    {
		    SWITCH(nUI_TypeArry[n])
			 {
			 CASE UI_TYPE_G4:
			 CASE UI_TYPE_R4:
			      {
			      STACK_VAR WIDECHAR strSTRING1[100] ;
			      STACK_VAR CHAR strSTRING2[100] ;
			      
			      strSTRING1 = WC_DECODE(strMSG,WC_FORMAT_UTF8,1) ; // Used to Decode 
			      strSTRING2 = WC_ENCODE(strSTRING1,WC_FORMAT_TP,1) ;//WC_TP_ENCODE (strSTRING1) should be the same
			      SEND_COMMAND dvSB_UIArry[n], "'^UNI-',ITOA(nCHAN),',0,',strSTRING2"   
			      }
			 CASE UI_TYPE_G3:
			      {
			      SEND_COMMAND dvSB_UIArry[n], "'TEXT',ITOA(nCHAN),'-',strMSG" ; 
			      }
			 CASE UI_TYPE_KP:
			 CASE UI_TYPE_UNKNOWN:
			      {
			      //DO NOTHING
			      }
			 }
		    }
	       }
	  }
	  
     RETURN ;
     }

Per the online version of AMX-PI