...
Package DemoLoopFunctions
imports
iso_21090_datatypes,
HL7_v2_VMR_V1
GetCDDisplayNamesFromSequenceObsAsString_Internal(i:Integer, accum: String, obs: Sequence(Observation)): String =
If i <= obs.size() then
Let intermediate: String
= GetCDDisplayNamesFromSequenceObsAsString_Internal(i+1,
accum + ' ' + obs[i].observationCodevalue.oclAsType(CD).displayName.value + ',' ,
obs
)
Let result: String = intermediate.rtrim(',')
in in
result
else
accum
endif
GetCDDisplayNamesFromSequenceObsAsString(obs: Sequence(Observation)): String =
GetCDDisplayNamesFromSequenceObsAsString_Internal(1, '', obs)
EndPackage
...