为了避免由于架构问题而使用 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)
}