Power Builder - Datos en Treeview para el 3º nivel

Un saludo cordial, deseo agregar un treview de una base relacional, es decir:
pais, dpto, prov, distrito. he agregado hasta dpto.. por medio Data Store, pero no se como hacer el 3º nivel por medio de Data Store.
les alcanzo el codigo para una mejor explicacion:

-----------EVENTO OPEN DE WINDOW
treeviewitem ltvi_data
datastore lds_dept
int i, li_numdepts

lds_dept = CREATE datastore
lds_dept.dataobject = "dw_x1"
lds_dept.SetTransObject(SQLCA)

li_numdepts = lds_dept.Retrieve()

For i=1 to li_numdepts
ltvi_data.label = lds_dept.GetItemString( i, "cod_pais") + " - " +lds_dept.GetItemString( i, "des_pais")
ltvi_data.data = lds_dept.GetItemString( i, "cod_pais")
ltvi_data.pictureindex = i
ltvi_data.selectedpictureindex = 7
ltvi_data.children = True
tv_1.InsertItemLast(0, ltvi_data)
Next

Destroy lds_dept

//ENLAZO POR DPTO
ids_Source = Create DataStore
ids_Source.DataObject = "dw_x2"
ids_Source.SetTransObject(sqlca)

--------EVENTO ITEMPOPULATE
int li_numrows, i, li_numrows1, i1
treeviewitem ltvi_dept, ltvi_emp, ltvi_dept1, ltvi_emp1

If this.GetItem( handle, ltvi_dept) = -1 Then Return

ids_source.Reset()

li_numrows = ids_source.Retrieve(ltvi_dept.data)

ltvi_emp.pictureindex = 6
ltvi_emp.selectedpictureindex = 6
ltvi_emp.children = false

For i=1 To li_numrows
ltvi_emp.label = ids_Source.GetItemString( i, "cod_dpto") + " - " + ids_Source.GetItemString( i, "des_DPTO")
ltvi_emp.data = ids_Source.GetItemString( i, "cod_dpto")
this.InsertItemSort( handle, ltvi_emp)

Next

lo que me faltaria es como CARGAR EL TERCER NIVEL, EJEM:
+AAA
+RRR
+CCC
+NNN
+TTT
+ MMM
+RRR

ESPERO SU AYUDA ...