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

Blood Pressures in PT Instructions

CPS, C-EMR, PM

Last Post by Anonymous 1 second ago

2 Posts

2 Users

0 Reactions

77 Views

RSS

gtr9675

(@gtr9675)

Posts: 34

Trusted Member

Topic starter

Has any one been able to successfully added a second and third blood pressure? i have tried to do it myself but just cant get it to work right. i am also trying to make sure it pulls the most recent results. Here is what i have been using:

Most recent Vitals observed:
{/* vits = GET_FLOWSHEET_VALUES('Enterprise\Printing\Chart_Summary\Current-Vitals')
if vits <> "" then
vitlist = getfield(vits , "\n", "")
sz = size(vitlist)
list = ""
for i = 1, i <= sz, i = i + 1 do
dt = ""
tody = str(._todaysdate)
vit = vitlist[i]
if size(vit) > 0 then
dtbegin = match( vit,"/") -2
dt = sub(vit, dtbegin, 10)
dur = durationdays(dt, tody)
if dur < 4 then
list = list + vit + "\n\r"
else
list = list
endif
else
list = list
endif
endfor
if list <> "" then list else "No results." endif
else
"No results."
endif */}
{if obsany("height") <> "" then "Height: "+obsany("height")+" inches \n\r" else "" endif}{
if obsany("weight") <> "" then "Weight: "+obsany("weight")+" pounds \n\r" else "" endif}{
if obsany("temperature") <> "" then "Temperature: "+obsany("temperature")+" degrees F \n\r" else "" endif}{
if obsany("temp site") <> "" then "Site for temperature: "+obsany("temp site")+ "\n\r" else "" endif}{
if obsany("pulse rate") <> "" then "Pulse Rate: "+obsany("pulse rate")+" beats/minute \n\r" else "" endif}{
if obsany("pulse rhythm") <> "" then "Pulse Rhythm: "+obsany("pulse rhythm")+" \n\r" else "" endif}{
if obsany("resp rate") <> "" then "Respiration Rate: "+obsany("resp rate")+" breaths/minute \n\r" else "" endif}{
if obsany("bp systolic") <> "" and obsany("bp diastolic") <> ""then "Blood Pressure #1: "+obsany("bp systolic")+" / "+obsany("bp diastolic")+" Hg \n\r" else "" endif}{
if obsnow("BP SYS #2") <> "" and obsnow("BP DIA #2") <> ""then "Blood Pressure #2: "+obsnow("BP SYS #2")+" / "+obsnow("BP DIA #2")+" Hg \n\r" else "" endif}{
if obsany("BP SYS #3") <> "" and obsany("BP DIA #3") <> ""then "Blood Pressure #3: "+obsany("BP SYS #3")+" / "+obsany("BP DIA #3")+" Hg \n\r" else "" endif}{
if obsnow("BG FINGER") <> "" then "Blood Glucose Result: "+obsnow("BG FINGER")+" \n\r" else "" endif}

Posted : March 6, 2020 7:35 am

amaskey

(@amaskey)

Posts: 88

Estimable Member

below is what I use to get all previous obs value. You can limit it to 2 or 3

fn getObsValue( obsTermStr )
{
local obsTermArray = getfield(list_obs(obsTermStr, status, "delimited", "valuedate"),"|","")
local obsTermArraySize = size(obsTermArray)
local Title = "Flowsheet view for prior "+ description +" values" + "\t" + hret + hret
Title = Title + " " + "Date" + "\t\tValue" + hret
local returnData = ""
local i=""
for i = 1, i <= obsTermArraySize , i = i + 1
do
local eachObs = getfield(obsTermArray[i],"^","")
local obsDate = sub(eachObs[1], match(eachObs[1], "(")+1 , 10)
if obsDate == Null
then obsDate = " - "
else ""
endif

local obsValue = SUB(eachObs[1], 1, match(eachObs[1], " (") )
returnData = returnData + " " + obsDate + "\t" + obsValue + hret
endfor
local BodyMessage = Title + returnData
if returnData <> "" then
userok(BodyMessage)
else
userok("No data found for " + description)
endif
}

Posted : March 16, 2020 11:24 am

Share:

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