Notifications
Clear all
Topic starter
I currently have a quick text in place to drop in the Problem list anywhere within an office note/Form/Text View. We are looking for this quick text to only show the Problem Naming Convention and omitting the ICD-10 code from the list. Current Quick Text is:
.prob: {PROB_AFTER("list")}
.probnew: {PROB_NEW("List")}
Please advise if anyone has a solution to just display the Problem List with names only and no codes.
Thank you,
Sirna
Posted : September 14, 2015 4:31 am
You will need to delimite the list- I can't remember if the help guide in CPS breaks this down for you or not-- I am sure someone else on the forum has delimted this already and will post
Posted : September 14, 2015 4:46 am
Yes- it is broken down for you in the help area of CPS:
Fields returned by PROB_AFTER("delimited"): problem type, problem code (ICD-9), problem comment, onset date, stop date, stop reason, problem code (ICD-10), problem identifier (PRID), last modified date.
Hope that helps- Amy
Posted : September 14, 2015 4:52 am
This in a data display, dropdown, etc works:
{!fn fnProbFormat() {
local hold = getfield(PROB_AFTER("delimited"), "|", "")
local temp
local rslt = ""
for i = 1, i <= size(hold), i = i + 1 do
temp = getfield(hold[i], "^", "")
if (rslt <> "") then
rslt = rslt
endif
rslt = rslt + temp[2] + "
"
endfor
return rslt
}}
But i've never had luck with it in quicktext. If you find the answer please post.
Posted : September 14, 2015 5:10 am
I created a quicktext --> .probtext
Defined as -->
{global prbl = getfield(PROB_AFTER("list"),"\r","")
global probsize = size(prbl)
global probicd = ""
for cnt = 1, cnt < probsize, cnt = cnt + 1
do
icddlm =match(prbl[cnt],"(")
if icddlm > 0 then
prb_d = sub(prbl[cnt],1,icddlm - 2)
probicd = probicd + prb_d
endif
endfor
probicd
}
Posted : September 14, 2015 5:33 am
Topic starter
@joeg1962 This is PERFECT!! Thank you very much!!!!!
Posted : September 14, 2015 8:28 am
