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

creating a narrative

Trading Post

Last Post by Anonymous 1 second ago

3 Posts

2 Users

0 Reactions

74 Views

RSS

Scott Forest

(@sforest)

Posts: 527

Honorable Member

Topic starter

I've been staring at this form for a bit and looking over the forums but for the life of me have no idea how to make the data entered into a narrative.

Is there a walk though that I could read or something?

Thanks in advance.

Posted : April 30, 2014 4:19 am

joeg1962

(@joeg1962)

Posts: 843

Noble Member

I created a Data-Display element, based on some choices made on the left side of the screen. As parts are completed, it creates the text for a person to say/discuss with a patient. Five questions cause txtln1 thru txtln5 to be created, and then near the bottom, the five are combined into something that can be displayed on-screen and/or written into the encounter. Thus, five completed boxes creates several sentences of text.

global txtln1=""
global txtln2=""
global txtln3=""
global txtln4=""
global txtln5=""

if (match(OBSNOW("APPT NO SHOW"),"No-Show") > 0) then
txtln1="We noticed that you missed your recent appt and wanted to make sure you are doing ok. Was there a particular reason why you were unable to make it in?"
else
txtln1="We noticed that you do not have a follow-up appt scheduled after your last appt was cancelled. Was there a particular reason why you were unable to make it in?"
endif

txtln2="Was this a routine visit or was it an urgent care appt?"

if (obsnow("APPT NO SHOW")=="First No-Show") then
   txtln3="Also, if you are ever not able to make your appt, we ask that you call to cancel at least 24 hours in advance or at least 2 hours in advance if you made a same day appt. "
else
   if (obsnow("APPT NO SHOW")=="2nd/3rd No-Show") then
       txtln3="Also, I see that you have not made several of your appts in the last year and a half without cancelling. In the future if you cannot make your appt please call us at least 24 hours in advance or at least 2 hours for same-day appts. We have a lot of patients who wait for these appts."
   else
       if (obsnow("APPT NO SHOW")=="4th No-Show") then
           txtln3="Also, I see that you have not made several of your appts in the last year and a half without cancelling. We have a policy at GMA that if this happens one more time we will have to suggest you find another doctor in the area. In the future if you cannot make your appt please call us at least 24 hours in advance or at least 2 hours for same-day appts. We have a lot of patients who wait for these appts."
       else
           txtln3=""
       endif
   endif

endif

if (obsnow("APPT CAN RSN")<>"") then
   if (obsnow("APPT CAN RSN")=="Urgent") then
                           txtln4 = "Would you like to re-schedule another urgent care visit then?"
                else
                            txtln4 = "Well, Dr. ___ would like me to reschedule your appt. When can you come in to be seen?"
                endif
else
endif

if (obsnow("PH NOTE PURP")<>"") then
   if (obsnow("PH NOTE PURP")=="New Appt made") then
                           txtln5 = "Great. Please try to arrive 15 minutes beforehand to allow time to check-in."
                else
                          if (obsnow("PH NOTE PURP")=="Patient to call-back and schedule") then
                             txtln5 = "Dr. ___ really would like for you to be seen, so please call us back to reschedule as soon as possible."
                          else
                             txtln5 = "Well, please give us a call if you need to schedule another appt."
                          endif

endif
else
endif

txtln1 + HRET +HRET + txtln2 + HRET +HRET + txtln3 + HRET + HRET + txtln4 + HRET + HRET + txtln5

Posted : April 30, 2014 5:00 am

Scott Forest

(@sforest)

Posts: 527

Honorable Member

Topic starter

here is an example of what I am looking at as a sample form.

I don't understand where the a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,a1,b1,c1,d1 come from

{fn shouldertest2(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,a1,b1,c1,d1)

{shouldtest=

rtestneg=

rtestpos=

rtestneg=negtest(array(a,

"Neer's'",c,"Impingement test",e,"Drop Arm",g,"Apprehension test anterior",y,"Apprehension test posterior",i,"Hawkin's test",k,"Yergason's test",m,"Lift off test",o,"Relocation test anterior",a1,"Relocation test posterior",q,"Empty can",s,"Speeds",u,"Sulcus",w,"Cross Arm",c1,"O'Brien's test"))

if rtestneg<>

"" then shouldtest=shouldtest+" On the right, "+ rtestneg +if size(getfield(rtestneg,",",""))>1 then "are" else "is" endif+ " negative." else "" endif

rtestpos=postest(array(a,

if rtestpos<>

"" then shouldtest=shouldtest+" On the right, "+ rtestpos +if size(getfield(rtestpos,",",""))>1 then "are" else "is" endif+ " positive." else "" endif

ltestneg=

ltestpos=

ltestneg=negtest(array(b,

"Neer's'",d,"Impingement test",f,"Drop Arm",h,"Apprehension test anterior",z,"Apprehension test posterior",j,"Hawkin's test",l,"Yergason's test",n,"Lift off test",p,"Relocation test anterior",b1,"Relocation test posterior",r,"Empty can",t,"Speeds",v,"Sulcus",x,"Cross Arm",d1,"O'Brien's test"))

if ltestneg<>

"" then shouldtest=shouldtest+" On the left, "+ ltestneg + if size(getfield(ltestneg,",",""))>1 then " are " else " is " endif+" negative." else "" endif

ltestpos=postest(array(b,

if ltestpos<>

"" then shouldtest=shouldtest+" On the left, "+ ltestpos + if size(getfield(ltestpos,",",""))>1 then " are " else " is " endif+" positive." else "" endif

return shouldtest

}}

Posted : April 30, 2014 6:55 am

24 Forums
9,942 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