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

Add Diagnosis to Orders

Trading Post

Last Post by Anonymous 1 second ago

13 Posts

7 Users

0 Reactions

102 Views

RSS

Anonymous

(@Anonymous)

Posts: 0

New Member Guest

Topic starter

I am trying to develop a form that will allow my providers to add orders, tie in Dx to said orders, anSign them w/o having to access the actual orders module.

I have the add ortders and sign orders part down of course. but am struggling to find away to associated active problems as Dx for the orders.

Any help would be greatly appreciated,

I tried to attach my latest dlg, but could not find a mechanism in the forum to do so

Posted : August 22, 2013 2:46 am

gibsonmi

(@gibsonmi)

Posts: 827

Prominent Member

I use this code in the watcher panel-

{!global plist}

/*Build problem list to choose from*/

{!if PROB_AFTER("LIST") <> "" then

plist = str(getfield(PROB_AFTER("LIST"),"\n",";,\r"))

else plist = "" endif}

/* Build diagnosis description string*/

{fn descr(dx){

local descri=""

local probarray = getfield(dx,",","")

local sprob = size(probarray)

if (sprob > 0) then descri = descri + sub(probarray[1],1,match(probarray[1]," (")-1) endif

if (sprob > 1) then descri = descri + "|" + sub(probarray[2],1,match(probarray[2]," (")-1) endif

if (sprob > 2) then descri = descri + "|" + sub(probarray[3],1,match(probarray[3]," (")-1) endif

if (sprob > 3) then descri = descri + "|" + sub(probarray[4],1,match(probarray[4]," (")-1) endif

if (sprob > 4) then descri = descri + "|" + sub(probarray[5],1,match(probarray[5]," (")-1) endif

if (sprob > 5) then descri = descri + "|" + sub(probarray[6],1,match(probarray[6]," (")-1) endif

if (sprob > 6) then descri = descri + "|" + sub(probarray[7],1,match(probarray[7]," (")-1) endif

if (sprob > 7) then descri = descri + "|" + sub(probarray[8],1,match(probarray[8]," (")-1) endif

return descri

}}

/* Build diagnosis code string*/

{fn icd_code(dx){

local pcode = ""

local probarray = getfield(dx,",","")

local sprob = size(probarray)

if (sprob > 0) then pcode = pcode + sub(probarray[1],match(probarray[1],"ICD"),size(probarray[1])-match(probarray[1],"ICD")) else "" endif

if (sprob > 1) then pcode = pcode + "|" + sub(probarray[2],match(probarray[2],"ICD"),size(probarray[2])-match(probarray[2],"ICD")) else "" endif

if (sprob > 2) then pcode = pcode + "|" + sub(probarray[3],match(probarray[3],"ICD"),size(probarray[3])-match(probarray[3],"ICD")) else "" endif

if (sprob > 3) then pcode = pcode + "|" + sub(probarray[4],match(probarray[4],"ICD"),size(probarray[4])-match(probarray[4],"ICD")) else "" endif

if (sprob > 4) then pcode = pcode + "|" + sub(probarray[5],match(probarray[5],"ICD"),size(probarray[5])-match(probarray[5],"ICD")) else "" endif

if (sprob > 5) then pcode = pcode + "|" + sub(probarray[6],match(probarray[6],"ICD"),size(probarray[6])-match(probarray[6],"ICD")) else "" endif

if (sprob > 6) then pcode = pcode + "|" + sub(probarray[7],match(probarray[7],"ICD"),size(probarray[7])-match(probarray[7],"ICD")) else "" endif

if (sprob > 7) then pcode = pcode + "|" + sub(probarray[8],match(probarray[8],"ICD"),size(probarray[8])-match(probarray[8],"ICD")) else "" endif

return pcode

}}

My diagnosis lists are in list boxes, choose dynamic options and write plist in the connection box. In the MEL add order use the second two functions with the problem listbox as the variable like icd_code(document.problemlist),descri(document.problemlist). You can add up to 8 diagnosis unless you adjust the function, I think max supported by GE is 12 but I doubt our users have ever added more than 3.

Posted : August 25, 2013 11:16 pm

Anonymous

(@Anonymous)

Posts: 0

New Member Guest

Topic starter

Michael,

thank you very much - really cant thank you enough. Works perfectly. Laugh

Posted : August 28, 2013 1:31 am

Anonymous

(@Anonymous)

Posts: 0

New Member Guest

I'm working on something along these lines as well. The only problem I seem to keep having is the ordering of the diagnosis when the order pushes through.

The only way I have found to modify the order is to open the problem screen, manually adjust the order and then go back and add the order.

This is a pain because the next order may have a different primary, secondary, etc...

I'm wondering if anyone has a working ordering of the dx's that I could incorporate??

Posted : September 6, 2013 1:50 am

gibsonmi

(@gibsonmi)

Posts: 827

Prominent Member

What I would do is use dropdowns designated as primary, secondary, and tertiary (use a limit of three?) Then use the below functions to combine them in the proper order when adding the diagnosis. In MEL_ADD_ORDER use -

icd_code(fnItemCombine(",",DOCUMENT.PRIMARY,DOCUMENT.SECONDARY,DOCUMENT.TERTIARY)

and

descr(fnItemCombine(",",DOCUMENT.PRIMARY,DOCUMENT.SECONDARY,DOCUMENT.TERTIARY)

/*Count the number of arguments present and delimits them with argument one*/
{fn fnItemCombine(){

if (getnargs() < 2) then
return ""
endif

local count = getnargs()
local delim = getarg(1)
local rtnstr = ""

for i = 2, i <= count, i = i + 1 do
rtnstr = fnItemCombineUtil(delim,rtnstr,getarg(i))
endfor

return rtnstr
}}

/*Quickly and easily combines two fields with a delim if they are both not blank, used by fnItemCombine*/
{fn fnItemCombineUtil(delim,one,two){

  if (one <> "") and (two <> "") then
   return (one + delim + two)
  else return (one + two) endif
}}

Posted : September 6, 2013 1:57 am

hyousef

(@hyousef)

Posts: 9

Active Member

Thank you Michael for posting this code. Unfortunalty I am having problems getting it to work. This What I have done on the form:

1. Created a Dynamic List box, and named Problems:, Connection Type: Document Variable, Variable Name: PROBLEMLIST. In the MEL expression I entered plist.

2. Created a button and labeled it OV, NEW PT, BRIEF, Connection Type: RUNPROCESS, with this code:

MEL_ADD_ORDER("S", "E&M Services (99201-99499)", "OV, NEW PT, BRIEF", DOCUMENT.MODIFIERS, icd_code(document.problemlist), descri(document.problemlist) , DOCUMENT.ORDCOMMENTS, "", "", "", "")

3. Copied the entire code above and place in the watcher panel.

Can you please tell me what I am doing wrong?

Thank you much in advance.

Posted : November 4, 2013 8:53 am

gibsonmi

(@gibsonmi)

Posts: 827

Prominent Member

Sounds okay to me, can you run a mel trace? It should give you an error code, either that or put userok() around the add order code in the button and an error code should pop-up. This is what they mean, thats where I would start -

0: It worked

-1 : Invalid Order Type

-2 : Invalid order category

-3 : Invalid Description

-4 : Order obsolete

-5 : Invalid Diagnosis Code

-6 : Comments field too long

-7 : Invalid Priority

-8 : Invalid or obsolete authorizing provider

-9 : Invalid order date

-10: Invalid Modifier

-11: Additional information is required for this order

-12: Unequal number of diagnosis codes and diagnosis code
descriptions

-13: Invalid quantity or units

Posted : November 4, 2013 10:54 pm

hyousef

(@hyousef)

Posts: 9

Active Member

Thank you so much Michael. Here the couple of issues I found with the form.

1. There was an error call descri() function, so I changed it to descr().

… call DESCRI("LABIAL ADHESIONS (ICD-752.49), INFLUENZA NOS (ICD-478.1)")
ERROR: 32847 FUNCTION DEFINITION IS NOT EXECUTABLE

2. Then, I found out that I was using invalid code (-5 : Invalid Diagnosis Code), so I removed the problem.

execute>call MEL_ADD_ORDER("S", "E&M Services (99201-99499)", "OV, NEW PT, BRIEF", "", "ICD-752.49|ICD-478.1|ICD-242.90", "LABIAL ADHESIONS| INFLUENZA NOS| HYPERTHYROIDISM", "", "", "", "", "")
results>"-5"
results>return "-5"

Lesson learned:

1. If you get stuck with a form not doing what it suppose to, run MEL trace (Michael's tip).

2. Always make sure the function you are calling is spelled correctly.

The form now works correctly.

Thanks again Michael.

Posted : November 6, 2013 4:53 am

kellyjean621

(@kellyjean621)

Posts: 37

Trusted Member

Surprised Help! With the 9.8 upgrade, this code does not work due to the 2 ICD codes being pushed....how do i fix this? Don't know where to start!

06/24/2014 11:43:09.201-execute> call MEL_ADD_ORDER("T", "LABS", "ELECTROCARDIOGRAM (ROUTINE ECG), COMPLETE", "", "ICD-424.1) (ICD10-I35.1", "AORTIC REGURGITATION", "test", "", "", "", "12/24/2014")

Posted : June 24, 2014 2:19 am

gibsonmi

(@gibsonmi)

Posts: 827

Prominent Member

Nope it doesn't, use these -

/* Build diagnosis description string*/
{fn DxLabel(dx){

local rslt = ""
local prob = getfield(dx,",","")
local count
if size(prob)>8 then count = 8 else count = size(prob) endif

for DxLj = 1, DxLj <= count, DxLj = DxLj + 1 do
rslt = fnItemCombine("|",rslt,sub(prob[DxLj],1,match(prob[DxLj]," (ICD") - 1))
endfor

return rslt
}}

/* Build diagnosis code string*/
{fn DxCode(dx){

//CPS 11 and 12 Ready
local rslt = ""
local prob = getfield(dx,",","")
local count
if size(prob)>8 then count = 8 else count = size(prob) endif

for DxCj = 1, DxCj <= count, DxCj = DxCj + 1 do
rslt = fnItemCombine("|",rslt,sub(prob[DxCj],match(prob[DxCj],"ICD"),/**/match(sub(prob[DxCj],match(prob[DxCj],"ICD"),size(prob[DxCj])-match(prob[DxCj],"ICD") + 1),")") - 1))
endfor

return rslt
}}

Posted : June 24, 2014 2:22 am

DavidShower

(@davidshower)

Posts: 1255

Noble Member

Michael, what are you passing for your dx parameter?

Posted : June 24, 2014 2:38 am

gibsonmi

(@gibsonmi)

Posts: 827

Prominent Member

A listbox that is populated by - {Diag_List_Box(PROB_AFTER("LIST"))}

/*Build problem list to choose from*/
{fn Diag_List_Box(firekey){
if PROB_AFTER("LIST") <> "" then
return str(getfield(PROB_AFTER("LIST"),"\n",";,\r"))
else "" endif
}}

Posted : June 24, 2014 3:28 am

gdmitchell

(@gdmitchell)

Posts: 15

Eminent Member

Has anyone gotten this to work with ICD-10?
Changing the [ICounter[[3] to [4] does not work.

I thought maybe it would look at a seperate field, but i am not sure the ICD-10 code is in an individual field.

Posted : May 6, 2015 7:46 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