Could you resend your message as plain text, please. You will need to
identify the code  without using colors as they do not show up. I would
suggest using a line saying "Code 1 starts" and Code 1 Ends", etc with blank
lines or rows of hyphens in between. Unfortunately even plain text can get
garbled in transmission.

UD1_Account_list_1 = HS.Account.List("", "ud1lst") = My understanding is
that this code  brings values of Account List "ud1lst"
UD1_Account_list_2 = HS.Account.List("", "ud1lst") = My understanding is
that this code brings values of Account List "ud1lst"

********How Line 1 is different from line 2?

For A = LBound(UD1_Account_list_1) To UBound(UD1_Account_list_1)


If Len(HS.Account.UD1(UD1_Account_list_1(A))) = 2

*********Then 'what is the purpose of
"HS.Account.UD1(UD1_Account_list_1(A))"

strCustID = Trim(HS.Account.UD1(UD1_Account_list_1(A)) &
"100")

If (Trim(HS.Account.UD1(UD1_Account_list_1(A))) <> "CF" or _

Trim(HS.Account.UD1(UD1_Account_list_1(A))) <> "FF")
Then



If (pov_year > "2008") and (pov_value = "<Entity
Currency>") then
'In the first period
If HS.Period.Number = 1 Then

if (UD1_Account_list_1(A) =
"12110190000") Then

'pulls TOTC1 from prior year
HS.Exp "A#" & UD1_Account_list_1(A) & ".I#[ICP None].C1#" &
strCustID & _

".C2#[None].C3#[None].C4#[None].V#<Entity Currency> =A#12110191000.I#[ICP
Top].C1#TOTC1.C2#TOTC2.C3#[None].C4#TOTC4.Y#PRIOR.P#LAST" & source_value





'pulls TOTC1 from prior year LocalGAAPADJ

HS.Exp "A#" & UD1_Account_list_1(A) & ".I#[ICP None].C1#" &
strCustID & _

".C2#[None].C3#LocalGAAPADJ.C4#[None].V#<Entity Currency>
=A#12110191000.I#[ICP
Top].C1#TOTC1.C2#TOTC2.C3#LocalGAAPADJ.C4#TOTC4.Y#PRIOR.P#LAST" &
source_value



HS.Exp "A#" & UD1_Account_list_1(A) & ".I#[ICP None].C1#" &
strCustID & _

".C2#[None].C3#IFRSUSADJ.C4#[None].V#<Entity Currency> =A#12110191000.I#[ICP
Top].C1#TOTC1.C2#TOTC2.C3#IFRSUSADJ.C4#TOTC4.Y#PRIOR.P#LAST" & source_value





HS.Exp "A#" & UD1_Account_list_1(A) & ".I#[ICP None].C1#" &
strCustID & _

".C2#[None].C3#IFRSUKADJ.C4#[None].V#<Entity Currency> =A#12110191000.I#[ICP
Top].C1#TOTC1.C2#TOTC2.C3#IFRSUKADJ.C4#TOTC4.Y#PRIOR.P#LAST" & source_value

Else
'pulls TOTC1 from prior year

HS.Exp "A#" & UD1_Account_list_1(A) & ".I#[ICP None].C1#" &
strCustID & _

".C2#[None].C3#[None].C4#[None].V#<Entity Currency> =A#" &
UD1_Account_list_1(A) & ".I#[ICP
Top].C1#TOTC1.C2#TOTC2.C3#[None].C4#TOTC4.Y#PRIOR.P#LAST" & source_value





HS.Exp "A#" & UD1_Account_list_1(A) & ".I#[ICP None].C1#" &
strCustID & _

".C2#[None].C3#LocalGAAPADJ.C4#[None].V#<Entity Currency> =A#" &
UD1_Account_list_1(A) & ".I#[ICP
Top].C1#TOTC1.C2#TOTC2.C3#LocalGAAPADJ.C4#TOTC4.Y#PRIOR.P#LAST" &
source_value



HS.Exp "A#" & UD1_Account_list_1(A) & ".I#[ICP None].C1#" &
strCustID & _

".C2#[None].C3#IFRSUSADJ.C4#[None].V#<Entity Currency> =A#" &
UD1_Account_list_1(A) & ".I#[ICP
Top].C1#TOTC1.C2#TOTC2.C3#IFRSUSADJ.C4#TOTC4.Y#PRIOR.P#LAST" & source_value





HS.Exp "A#" & UD1_Account_list_1(A) & ".I#[ICP None].C1#" &
strCustID & _

".C2#[None].C3#IFRSUKADJ.C4#[None].V#<Entity Currency> =A#" &
UD1_Account_list_1(A) & ".I#[ICP
Top].C1#TOTC1.C2#TOTC2.C3#IFRSUKADJ.C4#TOTC4.Y#PRIOR.P#LAST" & source_value

End if