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

Function to retrieve Patient Contacts

Trading Post

Last Post by Anonymous 1 second ago

9 Posts

5 Users

0 Reactions

76 Views

RSS

jfitzmd

(@jfitzmd)

Posts: 419

Reputable Member

Topic starter

Looking for a function to pull in patient's contact list. I have looked at a variety of objects in mldefs8.txt, e.g. Contact, PersonalRelation, ProviderRelation without success. Clearly I am missing a concept. Has anybody solved this? Code example as follows:

/*retrieve Contacts*/

{fn Get_Contacts()

{

local strMDs=""

local i=0

local iMax=1

iMax=getRowCount("Contact")

userok(str(iMax))

for i=1,i<=iMax,i=i+1 do

strMDs=strMDs+HRET+getRow("Contact",i,"Name")

endfor

return strMDs

}

Posted : October 1, 2012 8:58 am

cfrank

(@cfrank)

Posts: 16

Active Member

Just make a call to REGRELATIVE() in the code. You should get a return then.

Posted : October 2, 2012 1:47 am

jfitzmd

(@jfitzmd)

Posts: 419

Reputable Member

Topic starter

Closer. This retrieves providers with relationship of type "Other". What I want is relationship type "Referring Provider". Any thoughts.

Posted : October 2, 2012 3:24 am

cfrank

(@cfrank)

Posts: 16

Active Member

You'll need to pull in another object (PersonalRelation), this should get your result:

{fn Get_Contacts(){
REGRELATIVE()

local strMDs=""
local strRelation = ""
local strPID = ""
local i=0

local iMax=1

iMax=getRowCount("Contact")

for i=1,i<=iMax,i=i+1 do

strPID = str(getrow("Contact",i, "PID"))
strRelation = find("PersonalRelation","RelationName","PERID",strPID)

if strRelation == "Referring Physician" then
strMDs=strMDs+HRET+getRow("Contact",i,"Name")
else ""
endif
endfor

return strMDs

}}

Posted : October 2, 2012 4:05 am

jfitzmd

(@jfitzmd)

Posts: 419

Reputable Member

Topic starter

The "PID" field does not return a value. "PID" is not one of the field names listed in the Contact object. The PatientContacts table is joined to the PatientRelationship table. There is a hidden field "PatientRelationship.PID" is listed, but I cannot access it.

Is there some other function call beside REGRELATIVE() that will filter the table?

Understand if you can't provide any additional help, this is very arcane.

Posted : October 2, 2012 5:10 am

gibsonmi

(@gibsonmi)

Posts: 827

Prominent Member

Here are two functions I use to call Providers from patient contacts and pharmacy from patient contacts. I didn't update the comments for the provider one (it is modified from the pharmacy one) so if they don't make sense thats why, but they work for me on CPS 10.1.1.189

{fn fnProvLists(){
   local lCounter
   local lPharArray
   local lStart
   local lBuffer
   local lFormattedList = ""
   local l_FormattedList = ""
local StrList
local Resarray

StrList = str(PATIENT.CONTACTS)

/* Create array of Phar */
lPharArray = getfield(strList, "|", "")

   for lCounter = 1, lCounter <= size(lPharArray), lCounter = lCounter + 1 do
      /* Create array for each Phar */
      lPharArray[lCounter] = getfield(lPharArray[lCounter],"^","")

      /* Need to remove commas from Med name */
      /*lBuffer = ReplaceStr(lPharArray[lCounter][2], ",", " ")*/
      /* Append Med and ICD-9 code to formatted list */
      if (match(lPharArray[lCounter],"Provider")>0) then
      lFormattedList = lFormattedList + lPharArray[lCounter][1] + ","/* + hret + lPharArray[lCounter][5] + hret + lPharArray[lCounter][7] + ", " + lPharArray[lCounter][8] + " " + lPharArray[lCounter][9]*/
      else "" endif
   endfor

   /* Remove trailing comma */
if (lCounter > 1) then
  lFormattedList = remove(lFormattedList, size(lFormattedList))
endif

Resarray = getfield(lFormattedList,",","")

for j = 1, j <= size(Resarray), j = j+2 do
  l_FormattedList = l_FormattedList + Resarray[j + 1] + " " + Resarray[j] + ","
endfor

/* Remove trailing comma */
if (lCounter > 1) then
  l_FormattedList = remove(l_FormattedList, size(l_FormattedList))
endif

/* Return comma separated list */
return (l_FormattedList)
}}

{fn fnPharLists(){
   local lCounter
   local lPharArray
   local lStart
   local lBuffer
   local lFormattedList = ""
local StrList

StrList = str(PATIENT.CONTACTS)

/* Create array of Phar */
lPharArray = getfield(strList, "|", "")

   for lCounter = 1, lCounter <= size(lPharArray), lCounter = lCounter + 1 do
      /* Create array for each Phar */
      lPharArray[lCounter] = getfield(lPharArray[lCounter],"^","")

      /* Need to remove commas from Med name */
      /*lBuffer = ReplaceStr(lPharArray[lCounter][2], ",", " ")*/
      /* Append Med and ICD-9 code to formatted list */
      if (match(lPharArray[lCounter],"Pharmacy")>0) then
      lFormattedList = lFormattedList + lPharArray[lCounter][1] + hret + lPharArray[lCounter][5] + hret + lPharArray[lCounter][7] + ", " + lPharArray[lCounter][8] + " " + lPharArray[lCounter][9]
      else "" endif
   endfor

/* Remove trailing comma */
if (lCounter > 1) then
lFormattedList = remove(lFormattedList, size(lFormattedList))
endif

/* Return comma separated list */
return (lFormattedList)
}}

Posted : October 2, 2012 5:28 am

cfrank

(@cfrank)

Posts: 16

Active Member

Adjust your counter (i) to start at zero rather than 1; it think it is zero based.

Posted : October 2, 2012 6:40 am

Anonymous

(@Anonymous)

Posts: 0

New Member Guest

Running CPS 11, this code (along with any other use of patient.contacts) seems to lock up the system.

I've asked our GE reps and implementation support staff repeatedly about this but have never gotten a response.

Any help would be appreciated.

Rob

Posted : August 10, 2013 11:51 am

schinn

(@schinn)

Posts: 23

Eminent Member

Same issue here, had numerous GE & VAR reps look into it, and they can't seem to figure out what causes the delay (we're talking like a full min and half for it to return info!). GE first told us move JBOSS to a new server; when that didn't work they said it was a SQL login that "some plugin" uses to run that was the issue. We deleted the sql login and re-configured pretty much everything under the sun to no avail.

Finally I gave up and figured out another way for us to get the info we needed. Lots of time wasted and still nothing helpful. Surprising, I know...

Posted : August 12, 2013 9:26 am

24 Forums
9,940 Topics
39.9 K Posts
0 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