zIndexAkaCheckUnique(id="",pValue...) [ SQLCODE,id,pValue ] public { New %ROWCOUNT,%ROWID,%msg,SQLCODE 
	if ($Get(pValue(1))'="")&&($Get(pValue(2))'="")&&($Get(pValue(3))'="") {
		 ;---&sql(SELECT 1 as _PassFail FROM zTRAK_SSH.UniqueTest WHERE tradingNetwork = :pValue(1) AND goodsGroup = :pValue(2) AND aka = :pValue(3) AND %ID <> :id)
 		 ;--- ** SQL PUBLIC Variables: %ROWCOUNT, %ROWID, %msg, SQLCODE, id, pValue
		do %0Ro
		Quit SQLCODE=100
	} else { quit 1 } }
 q

Class zTRAK.SSH.UniqueTest Extends %Persistent
{

Index IndexAka On (tradingNetwork, goodsGroupIndexed, aka) [ Data = aka, Unique ];

Property aka As %String(MAXLEN = 300, TRUNCATE = 1);

Index goodsGroupIndex On goodsGroup;

Property tradingNetwork As %Numeric;

Property goodsGroup As %Numeric;

Property goodsGroupIndexed As %Numeric [ SqlComputeCode = {set {*}=+{goodsGroup}}, SqlComputed ];

Property goodsGroupList As list Of %String(MAXLEN = 300);

ClassMethod Run()
{
	do ..%KillExtent()
	set accountId=1,goodsName="g1",groupId="",groupList=""
	&SQL(INSERT OR UPDATE INTO zTRAK_SSH.UniqueTest (tradingNetwork,aka,goodsGroup,goodsGroupList)
		VALUES (:accountId,:goodsName,:groupId,:groupList))
	write "run 1: ",SQLCODE,!
	set accountId=1,goodsName="g1",groupId="",groupList=""
	&SQL(INSERT OR UPDATE INTO zTRAK_SSH.UniqueTest (tradingNetwork,aka,goodsGroup,goodsGroupList)
		VALUES (:accountId,:goodsName,:groupId,:groupList))
	write "run 2: ",SQLCODE,!
	quit $$$OK
}


}

DEV>w ##class(zTRAK.SSH.UniqueTest).Run()                         
run 1: 0
run 2: 0
1
DEV>zw ^zTRAK.SSH.UniqueTestI                                     
^zTRAK.SSH.UniqueTestI("IndexAka",1,0," G1",1)=$lb("","g1")
^zTRAK.SSH.UniqueTestI("goodsGroupIndex",-100000000000000,1)=""

DEV>zw ^zTRAK.SSH.UniqueTestD
^zTRAK.SSH.UniqueTestD=1
^zTRAK.SSH.UniqueTestD(1)=$lb("","g1",1,"","",,0)