read item
read msds
at this point we have 10 hs and 10 ps codes
 wrk.HS_CODE_1_DESC$ =_obj'GetHSDesc( wrk.HS_CODE_1$)
repate 10 times
wrk.PS_CODE_1_DESC$ =_obj'GetPSDesc( wrk.PS_CODE_1$)


GetHSDesc
enter hscode
open table
read hscode
close table
return desc$


                 DIM hs_codes$[1:10]
                 hs_codes$[1] = wrk.HS_CODE_1$
                 hs_codes$[2] = wrk.HS_CODE_2$
                 hs_codes$[3] = wrk.HS_CODE_3$
                 hs_codes$[4] = wrk.HS_CODE_4$
                 hs_codes$[5] = wrk.HS_CODE_5$
                 hs_codes$[6] = wrk.HS_CODE_6$
                 hs_codes$[7] = wrk.HS_CODE_7$
                 hs_codes$[8] = wrk.HS_CODE_8$
                 hs_codes$[9] = wrk.HS_CODE_9$
                 hs_codes$[10] = wrk.HS_CODE_10$

                 DIM ps_codes$[1:10]
                 ps_codes$[1] = wrk.PS_CODE_1$
                 ps_codes$[2] = wrk.PS_CODE_2$
                 ps_codes$[3] = wrk.PS_CODE_3$
                 ps_codes$[4] = wrk.PS_CODE_4$
                 ps_codes$[5] = wrk.PS_CODE_5$
                 ps_codes$[6] = wrk.PS_CODE_6$
                 ps_codes$[7] = wrk.PS_CODE_7$
                 ps_codes$[8] = wrk.PS_CODE_8$
                 ps_codes$[9] = wrk.PS_CODE_9$
                 ps_codes$[10] = wrk.PS_CODE_10$

                 DIM hs_code_desc$[1:10]
                 DIM ps_code_desc$[1:10]

                 hs_code_udt = _OBJ'OpenTable( "IM_UDT_HAZARDOUS_STATEMENTS", "COMPANY" )
                 ps_code_udt = _OBJ'OpenTable( "IM_UDT_PRECAUTIONARY_STATEMENT", "COMPANY" )

                 FOR i=1 TO 10
                    found = 0
                    found2 = 0
                    READ (hs_code_udt, REC=hs$, KEY=hs_codes$[i],DOM=*NEXT); found = 1
                    if found {
                        hs_code_desc$[i] = hs.UDF_HS_DESC$
                    }
                    READ (ps_code_udt, REC=ps$, KEY=ps_codes$[i],DOM=*NEXT); found2 = 1
                    if found {
                        ps_code_desc$[i] = ps.UDF_PS_DESC$
                    }

                 NEXT i

                 wrk.HS_CODE_1_DESC$ = hs_code_desc$[1]
                 wrk.HS_CODE_2_DESC$ = hs_code_desc$[2]
                 wrk.HS_CODE_3_DESC$ = hs_code_desc$[3]
                 wrk.HS_CODE_4_DESC$ = hs_code_desc$[4]
                 wrk.HS_CODE_5_DESC$ = hs_code_desc$[5]
                 wrk.HS_CODE_6_DESC$ = hs_code_desc$[6]
                 wrk.HS_CODE_7_DESC$ = hs_code_desc$[7]
                 wrk.HS_CODE_8_DESC$ = hs_code_desc$[8]
                 wrk.HS_CODE_9_DESC$ = hs_code_desc$[9]
                 wrk.HS_CODE_10_DESC$ = hs_code_desc$[10]

                 wrk.PS_CODE_1_DESC$ = ps_code_desc$[1]
                 wrk.PS_CODE_2_DESC$ = ps_code_desc$[2]
                 wrk.PS_CODE_3_DESC$ = ps_code_desc$[3]
                 wrk.PS_CODE_4_DESC$ = ps_code_desc$[4]
                 wrk.PS_CODE_5_DESC$ = ps_code_desc$[5]
                 wrk.PS_CODE_6_DESC$ = ps_code_desc$[6]
                 wrk.PS_CODE_7_DESC$ = ps_code_desc$[7]
                 wrk.PS_CODE_8_DESC$ = ps_code_desc$[8]
                 wrk.PS_CODE_9_DESC$ = ps_code_desc$[9]
                 wrk.PS_CODE_10_DESC$ = ps_code_desc$[10]