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

Data Display - Show Future Scheduled Appointments

General Discussion

Last Post by rdibella 9 years ago

7 Posts

2 Users

0 Reactions

64 Views

RSS

rdibella

(@rdibella)

Posts: 26

Trusted Member

Topic starter

Hello,

I am trying to show in a Data Display all of a patient's future appointments that are pending. Does anyone have the code for this?

Thanks,
Rachel

Posted : April 14, 2016 4:12 am

mjharunk

(@mjharunk)

Posts: 191

Reputable Member

{fnfutureappt(){
napptz="" today=str(._todaysdate) retstr="" b="" apps=""
apps=appts_by_Status("scheduled","FULL")
napptz=getfield(apps,"\r","\n") sz=size(napptz) if apps="" then sz=0 else "" endif
for i=1, i<sz, i = i+1
do
napptz[i] = getfield(napptz[i],",","\r")
dur=durationdays(today,napptz[i][1]) If dur>0 then retstr=retstr+ napptz[i][1] +" "+ napptz[i][4] +" "+ napptz[i][2] + HRET else "" endif
if dur<>0 then "" else if napptz[i][4]<>"" then retstr=retstr+fmt("Today ","B,I")+" "+napptz[i][4]+" "+ napptz[i][2] + HRET else "" endif endif
endfor
if retstr="" then retstr=" None" endif
if napptz[1][1]="<" then retstr=" None " endif
return retstr
}}

Posted : April 14, 2016 4:24 am

rdibella

(@rdibella)

Posts: 26

Trusted Member

Topic starter

Thank you. I am getting this Build Error:

ERROR: Possible syntax error in function definitions. Either function definition without preceding "fn " or MEL expression without opening "{". Expression beginning

No appointments are showing in the Data Display when importing form into EMR. Any thoughts as to how to fix this?

Thanks,
Rachel

Posted : April 14, 2016 5:45 am

mjharunk

(@mjharunk)

Posts: 191

Reputable Member

Sorry, I should have been more specific. Define the function in the functions window of VFE like this:

fn futureappt()
{
napptz="" today=str(._todaysdate) retstr="" b="" apps=""
apps=appts_by_Status("scheduled","FULL")
napptz=getfield(apps,"\r","\n") sz=size(napptz) if apps="" then sz=0 else "" endif
for i=1, i<sz, i = i+1
do
napptz[i] = getfield(napptz[i],",","\r")
dur=durationdays(today,napptz[i][1]) If dur>0 then retstr=retstr+ napptz[i][1] +" "+ napptz[i][4] +" "+ napptz[i][2] + HRET else "" endif
if dur<>0 then "" else if napptz[i][4]<>"" then retstr=retstr+fmt("Today ","B,I")+" "+napptz[i][4]+" "+ napptz[i][2] + HRET else "" endif endif
endfor
if retstr="" then retstr=" None" endif
if napptz[1][1]="<" then retstr=" None " endif
return retstr
}

Call the function in the data display like this:

{futureappt()}

Posted : April 14, 2016 6:19 am

rdibella

(@rdibella)

Posts: 26

Trusted Member

Topic starter

I am getting this in the note:

fn futureappt()
{
napptz="" today=str(._todaysdate) retstr="" b="" apps=""
apps=appts_by_Status("scheduled","FULL")
napptz=getfield(apps," "," ") sz=size(napptz) if apps="" then sz=0 else "" endif
for i=1, i
do <-COMPILER ERROR NEARBY: Expect COMMA. Instead had DO KEYWORD after IDENTIFIER

Posted : April 14, 2016 6:58 am

mjharunk

(@mjharunk)

Posts: 191

Reputable Member

You didn't copy and paste all the code. Make sure to paste into notepad first to remove any formatting.

Posted : April 14, 2016 7:02 am

rdibella

(@rdibella)

Posts: 26

Trusted Member

Topic starter

That worked.....Do you know how to bring in the name of the appointment book?

Posted : April 14, 2016 7:07 am

Share:

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

Powered by wpForo Powered by wpForo version 2.4.0