Чтобы избежать использования EVNgrp из-за проблем со схемой, у меня есть этот код, предназначенный для добавления сегмента PID и PD1 к ADR^A19. Почему-то этого не делается. Любая помощь, пожалуйста?
If $Length(source.Primary.PID) {
Set oSeg=##class(EnsLib.HL7.Segment).ImportFromString(source.Primary.PID)
Do target.AppendSegment(oSeg)
}
If $Length(source.Primary.PD1) {
Set oSeg=##class(EnsLib.HL7.Segment).ImportFromString(source.Primary.PD1)
Do target.AppendSegment(oSeg)
}