Message

Value MUST be part of code list 'Currency codes (ISO 4217)'.

Context
/ubl:OrderChange/cbc:DocumentCurrencyCode
Test
(some $code in $clISO4217 satisfies $code = normalize-space(text()))
Code lists
Currency codes (ISO 4217)
Usage
/ ubl:OrderChange / cbc:DocumentCurrencyCode