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

How to get Orders & Comments to translate to the note

Trading Post

Last Post by Anonymous 1 second ago

11 Posts

4 Users

0 Reactions

75 Views

RSS

Teresa

(@teresa)

Posts: 27

Eminent Member

Topic starter

I am using Orders_New, which gives me the order name. However, I need the instructions/comments applied to the order to also translate. I would think that ORD_Comments should work but I don't Know how to pull them together to make it work. Please advise.

Posted : April 27, 2012 5:19 am

ErnieT

(@erniet)

Posts: 479

Honorable Member

This will pull in the orders with comments along with the diagnosis and the date it the order is due.

!fn fnGetOrders(strList)
{
local lCounter
local strOrderList
local nStart
local strBuf
local strFormattedList = ""
strOrderList = getfield(strList, "|", "")

for lCounter = 1, lCounter <= size(strOrderList), lCounter = lCounter + 1 do
strOrderList[lCounter] = getfield(strOrderList[lCounter], "^", "")
strFormattedList = strFormattedList + str(lCounter) + "."

/* Need to remove commas from problem name */
strBuf = strOrderList[lCounter][1] + " " + "(" +strOrderList[lCounter][3] + ") " + " - " + strOrderList[lCounter][6] + " " + "(" + strOrderList[lCounter][7] + ")" + " " + strOrderList[lCounter][4] + HRET + "Order Comments: " + strOrderList[lCounter][8]
strBuf = ReplaceStr(strBuf, ",", "\,")
strFormattedList = strFormattedList + strBuf + HRET
endfor

if (lCounter > 1) then
strFormattedList = remove(strFormattedList, size(strFormattedList))
endif

return strFormattedList
}

And call it with this to print.

{cfmt(fnGetOrders(ORDERS_AFTER("DELIMITED")),"","Orders with comments:
", "b","
")}

Let me know if you have any questions.

Posted : April 27, 2012 7:01 am

Teresa

(@teresa)

Posts: 27

Eminent Member

Topic starter

Will try this next week, Will it work for handouts?

Posted : April 27, 2012 8:02 am

Teresa

(@teresa)

Posts: 27

Eminent Member

Topic starter

Tests and Referrals ordered:

{if ORDERS_NEW("List","T") <> "" then ORDERS_NEW('list','T') else if ORDERS_NEW("List","R") <> "" then ORDERS_NEW('list','R') else "<None>" endif endif}

{if ORDERS_NEW('list','R') <> "" and ORDERS_NEW('list','T') <> "" then ORDERS_NEW('list','R') else "" endif}

This is what I have, but need to get the comments that are written on the order to translate to the handout too.

Posted : April 27, 2012 8:05 am

ErnieT

(@erniet)

Posts: 479

Honorable Member

Will try this next week, Will it work for handouts?

Yes it should. Put the function first and then put the call in and it should work.

Or you could put the function intonyour usrlib.txt file and just call the function in the handout.

Posted : April 27, 2012 1:11 pm

jhuckaby45

(@jhuckaby45)

Posts: 65

Estimable Member

I need this in a handout as well. The code works great in a form but I can't get it to work in a handout. Were you able to?

Posted : May 22, 2012 12:07 pm

ErnieT

(@erniet)

Posts: 479

Honorable Member

jhuckaby45 said:

I need this in a handout as well. The code works great in a form but I can't get it to work in a handout. Were you able to?

How do you have it setup? What is in your handout?

Posted : May 22, 2012 11:24 pm

jjordet

(@jjordet)

Posts: 545

Honorable Member

remember that ORDERS_NEW only works for the current update. once signed, it won't work.

Posted : May 22, 2012 11:39 pm

Teresa

(@teresa)

Posts: 27

Eminent Member

Topic starter

I've not gotten around to trying this yet, but I need it to work within the Clinical Visit Summary (CVS) handout which must be generated when the office note is in progress; not signed.

Posted : May 23, 2012 12:08 am

jhuckaby45

(@jhuckaby45)

Posts: 65

Estimable Member

ErnieT said:

jhuckaby45 said:

I need this in a handout as well. The code works great in a form but I can't get it to work in a handout. Were you able to?

How do you have it setup? What is in your handout?

PLEASE PRESENT TO SCHEDULING AND CHECK OUT STAFF

Patient Information:

Patient: {PATIENT.LASTNAME}, {PATIENT.FIRSTNAME} DOB:
{PATIENT.DATEOFBIRTH}

Primary Ins: {INS_NAME()}

Patient ID: {PATIENT.PATIENTID}

Provider: {DOCUMENT.PROVIDER}

_____________________________________________________________________________________________________________

Orders:

?

!fn fnGetOrders(strList)
{
local lCounter
local strOrderList
local nStart
local strBuf
local strFormattedList = ""
strOrderList = getfield(strList, "|", "")

for lCounter = 1, lCounter <= size(strOrderList), lCounter = lCounter + 1 do
strOrderList[lCounter] = getfield(strOrderList[lCounter], "^", "")
strFormattedList = strFormattedList + str(lCounter) + "."

/* Need to remove commas from problem name */
strBuf = strOrderList[lCounter][1] + " " + "(" +strOrderList[lCounter][3] + ") " + " – " + strOrderList[lCounter][6] + " " + "(" + strOrderList[lCounter][7] + ")" + " " + strOrderList[lCounter][4] + HRET + "Order Comments: " + strOrderList[lCounter][8]
strBuf = ReplaceStr(strBuf, ",", "\,")
strFormattedList = strFormattedList + strBuf + HRET
endfor

if (lCounter > 1) then
strFormattedList = remove(strFormattedList, size(strFormattedList))
endif

}

{cfmt(fnGetOrders(ORDERS_AFTER("DELIMITED")),"","Orders with comments:
", "b","
")}

I've never tried to put a function in a handout so I was unsure where to place it.

Posted : May 29, 2012 11:05 pm

ErnieT

(@erniet)

Posts: 479

Honorable Member

Put the Function portion at the very top of your handout and then put the call portion wherever you want it to show up in your handout.

Posted : May 29, 2012 11:28 pm

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