Notifications
Clear all
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
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
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,
"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 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,
"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 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
