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

Time Format

Trading Post

Last Post by Anonymous 1 second ago

7 Posts

2 Users

0 Reactions

77 Views

RSS

[email protected]

(@stevedsalemgastro-com)

Posts: 7

Active Member

Topic starter

I am looking for a method to format time via timestamp() in 24 hr or military format. VFE default appears to be HH:MM AM/PM. I am not finding anything that suggests there are options...

Thanks in advance.

Posted : March 26, 2013 8:55 am

DavidShower

(@davidshower)

Posts: 1255

Noble Member

I wrote this a while ago to get "military time"

	/* Military Time */
	DOCUMENT.TIMESIZE = size(TIMESTAMP())
	DOCUMENT.AM_PM = sub(str(TIMESTAMP()),DOCUMENT.TIMESIZE - 1)
	DOCUMENT.TIME = sub(str(TIMESTAMP()),1,DOCUMENT.TIMESIZE - 3)
	
	COND
		CASE DOCUMENT.AM_PM = "AM" AND SUB(DOCUMENT.TIME,1,2) = 12
		DOCUMENT.MILTIME = replacestr(DOCUMENT.TIME,"12:","00")
		CASE DOCUMENT.AM_PM = "AM"
		DOCUMENT.MILTIME = replacestr(DOCUMENT.TIME,":","")
		CASE DOCUMENT.AM_PM = "PM" AND SUB(DOCUMENT.TIME,1,2) = 12
		DOCUMENT.MILTIME = replacestr(DOCUMENT.TIME,":","")
		CASE DOCUMENT.AM_PM = "PM"
		DOCUMENT.MILTIME = replacestr(DOCUMENT.TIME,":","")
		DOCUMENT.MILTIME = val(DOCUMENT.MILTIME) + val("1200")
	ENDCOND

	if (size(str(DOCUMENT.MILTIME))= 3) then
		DOCUMENT.FORMATTED_MILTIME = "0" + str(DOCUMENT.MILTIME)
	else
		DOCUMENT.FORMATTED_MILTIME = str(DOCUMENT.MILTIME)
	endif

David Shower

OU Tulsa School of Community Medicine

Posted : March 26, 2013 11:41 pm

[email protected]

(@stevedsalemgastro-com)

Posts: 7

Active Member

Topic starter

Excellent! I'll try this out.
Thank you.

Posted : March 27, 2013 12:10 am

[email protected]

(@stevedsalemgastro-com)

Posts: 7

Active Member

Topic starter

As a follow up to this question, I've run into another hurdle.

The OBS term field I am wanting to store the results of the military time conversion is a number field.

I have been digging around for a few hours now looking for a method to convert the string to a number so it will accept it. My arrangement of code works with OBS terms that are text fields, but not with this OBS term (N), so I assume that's my issue.

Thanks in advance - again.

Posted : April 1, 2013 10:06 am

DavidShower

(@davidshower)

Posts: 1255

Noble Member

Try the val(string) function. Turns a string of characters into a value. The problem doing that is if your time is 0400 for example, it is going to drop the leading zero. I you ever need to use the value stored in the obs term you may have to do a length test and prepend a zero if the length is 3.

David Shower

OU Tulsa School of Community Medicine

Posted : April 1, 2013 11:19 pm

[email protected]

(@stevedsalemgastro-com)

Posts: 7

Active Member

Topic starter

OK. Thank you again.

Posted : April 2, 2013 1:44 am

[email protected]

(@stevedsalemgastro-com)

Posts: 7

Active Member

Topic starter

This fairly simple project is kicking my butt.

If I point the button at a document variable it works perfect.

If I point the button at a random text OBS it seems to work fine.

If I point it at any of the OBS terms that I need to populate it doesn't work (examples below).

I added a datadisplay to check the variable as it goes through the process and sometimes that doesn't even get populated when using the troublesome OBS term. In that case the button doesn't do anything at all. In my test form it works using a different OBS term or a document variable.

Here's the Code as I am using it (I've added a couple minor things).

{
DOCUMENT.TIMESIZE = size(TIMESTAMP())
DOCUMENT.AM_PM = sub(str(TIMESTAMP()),DOCUMENT.TIMESIZE - 1)
DOCUMENT.TIME = sub(str(TIMESTAMP()),1,DOCUMENT.TIMESIZE - 3)
DOCUMENT.TIMEHOLD = ""

COND
CASE DOCUMENT.AM_PM = "AM" AND SUB(DOCUMENT.TIME,1,2) = 12
DOCUMENT.MILTIME = replacestr(DOCUMENT.TIME,"12:","00")
CASE DOCUMENT.AM_PM = "AM"
DOCUMENT.MILTIME = replacestr(DOCUMENT.TIME,":","")
CASE DOCUMENT.AM_PM = "PM" AND SUB(DOCUMENT.TIME,1,2) = 12
DOCUMENT.MILTIME = replacestr(DOCUMENT.TIME,":","")
CASE DOCUMENT.AM_PM = "PM"
DOCUMENT.MILTIME = replacestr(DOCUMENT.TIME,":","")
DOCUMENT.MILTIME = val(DOCUMENT.MILTIME) + val("1200")
ENDCOND

if (size(str(DOCUMENT.MILTIME))= 3) then
DOCUMENT.FORMATTED_MILTIME = "0" + str(DOCUMENT.MILTIME)
else
DOCUMENT.FORMATTED_MILTIME = str(DOCUMENT.MILTIME)
endif

DOCUMENT.timehold= (DOCUMENT.FORMATTED_MILTIME)

OBSNOW("FENTIV1TIME",document.timehold)

}

Also tested using PROCSTARTTI1 (no workie)

For testing I've used OBS Deathage DAD and it worked. Its like the fields meant for holding time won't take the military time format. Could that be? When they manually enter data now they use Military...

Thanks,

Posted : April 4, 2013 6:28 am

Share:

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

Powered by wpForo Powered by wpForo version 2.4.0