Welcome to the NEW CHUG— your ultimate destination for cutting-edge insights and discussions at the intersection of healthcare and technology.

Our platform is dedicated to exploring the dynamic landscape of healthcare technology, empowering professionals, enthusiasts, and innovators alike with the knowledge and resources to navigate the rapidly evolving field.

From telemedicine revolutionizing patient care to the transformative potential of artificial intelligence in diagnostics, we delve into a myriad of topics shaping the future of healthcare delivery. Whether you’re a seasoned healthcare IT professional, an aspiring entrepreneur in the digital health space, or simply curious about the latest innovations, our curated content, expert interviews, and thought-provoking articles provide a comprehensive exploration of healthcare technology’s most pressing issues.

Join us as we navigate the forefront of innovation, driving forward the transformation of healthcare for a healthier, more connected world.

Have questions or suggestions? Please use the contact button below.

Notifications

Clear all

Last assessment

MEL, SQL, Oracle

Last Post by Anonymous 1 second ago

6 Posts

3 Users

0 Reactions

80 Views

RSS

ErnieT

(@erniet)

Posts: 479

Honorable Member

Topic starter

Okay all. I need to pull the last assessment recorded on a problem being picked from a dropdown list.

I have the following and it pulls what I want except that it pulls all assessments. I need to have it only pull the last assessment. Anyone have an idea?

!fn fnImpPlanGetAssessments2(strProblemName)
{
local lCounter
local lIndex
local lSize
local lRowID
local lAssessmentList = ""
local lProblemType = ""
local lBuffer

if (strProblemName == "") then
return ("")
endif

/* Generate problem list array */
local lProblemArray = getfield(PROB_AFTER("delimited"), "|", "")
lSize = size(lProblemArray)

for lIndex = 1, lIndex <= lSize, lIndex = lIndex + 1 do
lProblemArray[lIndex] = getfield(lProblemArray[lIndex], "^", "")

/* Verify that problem name is same as list box */
lBuffer = lProblemArray[lIndex][2]

/* Convert problem type to appropriate format */
lProblemType = fnConvertProblemTypeToString2(lProblemArray[lIndex][1], FALSE)

/* Add prefix */
lBuffer = lProblemType + lBuffer

/* If they do not match go to next entry */
if (match(strProblemName, lBuffer) == 0) then
continue
endif

/* Problem is found. Get assessments */
lRowID = fnGetProblemRowID2(lProblemArray[lIndex][5], lProblemArray[lIndex][1], lProblemArray[lIndex][2])
lAssessmentList = fnGetProblemAssessments3(lRowID)
return (lAssessmentList)
endfor

return ("")
}

Posted : November 1, 2015 7:10 pm

DavidShower

(@davidshower)

Posts: 1255

Noble Member

Ernie, here is a function I have for getting the last assessment:

{fn get_last_assessments() { local aPD,cPD,ePD ePD = 0 local iPD = getRowCount('Assessments') while iPD > 0 do iPD = iPD-1 aPD = getRow('Assessments',iPD,'SDID') cPD=aPD if cPD > ePD then ePD =cPD else "" endif endwhile

local aP,cP cP = fmt("Problems discussed at your last visit:","B") + HRET local iP = getRowCount('Assessments') while iP > 0 do iP = iP-1 aP = getRow('Assessments',iP,'SDID','ANNOTATE','SPRID') if aP[1] = ePD then cP=cP + get_prob_from_sprid(aP[3]) + HRET + "Assessment: " + aP[2] + HRET else "" endif endwhile if cP=="" then return "None entered" else "" endif return str(cP) }} {get_last_assessments()}{fn get_prob_from_sprid(passedsprid) { passedsprid = replacestr(passedsprid,".00","") local aSP, cSP local iSP = getRowCount('_MasterProb') while iSP > 0 do iSP = iSP-1 aSP = getRow('_MasterProb',iSP,'SPRID','DESCRIPTION') if aSP[1] = passedsprid then cSP=aSP[2] else "" endif endwhile return cSP }}

Posted : November 2, 2015 8:05 am

ErnieT

(@erniet)

Posts: 479

Honorable Member

Topic starter

I have that one also david and it works great to pull all of the last assessments, but I am looking for it to pull the assessment based off a drop down list to be able to populate a edit box.

I have tried to adept this function to work but either it pulls all of them or nothing. Thanks for the function anyway.

Posted : November 2, 2015 9:48 am

DavidShower

(@davidshower)

Posts: 1255

Noble Member

This combo does get the last visit assessment - you should be able to modify it to narrow it down to a passed
{fn get_last_assessments() { local aPD,cPD,ePD ePD = 0 local iPD = getRowCount('Assessments') while iPD > 0 do iPD = iPD-1 aPD = getRow('Assessments',iPD,'SDID') cPD=aPD if cPD > ePD then ePD =cPD else "" endif endwhile


	local aP,cP

	cP = "Assessed Problems from last visit:" + HRET

	local iP = getRowCount('Assessments')

    while iP > 0 do

        iP = iP-1

        aP = getRow('Assessments',iP,'SDID','ANNOTATE','SPRID')

			if aP[1] = ePD then

			cP=cP + get_prob_from_sprid(aP[3]) + HRET + "Assessment: " + aP[2] + HRET

			else

			""

			endif

   endwhile

if cP=="" then return "None entered" else "" endif

return str(cP)

}}

{get_last_assessments()}

{fn get_prob_from_sprid(passedsprid) { passedsprid = replacestr(passedsprid,".00","") local aSP, cSP local iSP = getRowCount('_MasterProb') while iSP > 0 do iSP = iSP-1 aSP = getRow('_MasterProb',iSP,'SPRID','DESCRIPTION') if aSP[1] = passedsprid then cSP=aSP[2] else "" endif endwhile return cSP }}

Posted : November 2, 2015 10:50 am

cmahon

(@cmahon)

Posts: 111

Estimable Member

Hi David,

I copied that exact text into my MEL worksheet and left a data display with the MEL expression { get_last_assessments } inside of the data display. Somehow, it still isn't working. Do you know what I am doing wrong?

Thanks much!

Posted : July 6, 2016 5:40 am

DavidShower

(@davidshower)

Posts: 1255

Noble Member

I whipped up this little form. At the top is a drop down that lists PROB_AFTER(). I rewrote get_last_assessments to take a parameter. The top data display is the get_last_assessments() function with no parameters. The bottom data display will use the problem selected in the drop down and show the assessment for that problem from the last visit (if it exists). Hope this helps.

LastAssessmentDemo

Posted : July 6, 2016 10:47 am

24 Forums
9,940 Topics
39.9 K Posts
1 Online
6,470 Members

Forum Icons: Forum contains no unread posts Forum contains unread posts

Topic Icons: Not Replied Replied Active Hot Sticky Unapproved Solved Private Closed