河南南阳医专部署接口

/// w ##class(PISService.API.DHCPISReport).GetReportInfoByAdmNoToEMR("145111")
/// Desc: 2023-02-10 yangshun 标板提供的获取病历报告的方法
/// Debug: w ##class(DHCEPRFS.BL.HISInfo.BLPISInfo).GetPISPDFPath("145111")
ClassMethod GetPISPDFPath(AEpisodeID) As %String
{
	s retStr = ##class(PISService.API.DHCPISReport).GetReportInfoByAdmNoToEMR(AEpisodeID)
	s len = $L(retStr,"^")
	s ret = ""
	for i=1:1:len
	{
		s str = $P(retStr,"^",i)
		if (str'="")
		{
			if (ret="")
			{
				s ret = str
			}
			else
			{
				s ret = ret_"^"_str
			}
		}
	}
	q ret
}

提供的 w ##class(PISService.API.DHCPISReport).GetReportInfoByAdmNoToEMR("145111")

iris2021
河南南阳医专一附院_SYSTEM/XodmKy&8Z