HL7 добавить сегмент

#hl7-v2 #intersystems-ensemble

#hl7-v2 #intersystems-ансамбль

Вопрос:

Чтобы избежать использования 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)
 }
 

Ответ №1:

Я обнаружил, что проблема была вызвана проблемой окружающей среды, которая была решена, и теперь код работает нормально. Спасибо всем за вашу помощь.