Notifications
Clear all
Topic starter
Can someone please help me make a quick text to add a non coded problem list to a note. I would like to use the same code in a text component ass well.
ie
{PROB_PRIOR("LIST")}
returns something like this:
TYPE II DIABETES MELLITUS (ICD-250.00) (ICD10-E11.9) HYPERCHOLESTEROLEMIA (ICD-272.0) (ICD10-E78.0) THYROTOXICOSIS NOS (ICD-242.9) TUBERCULOUS, PRIMARY COMPLEX (ICD-010.0) UPPER RESPIRATORY INFECTION (ICD-478.9) (ICD10-J39.9) TEMPOROMANDIBULAR JOINT DISORDER (ICD-524.6) BACK PAIN (ICD-724.5) (ICD10-M54.9)
i would like descriptions only such as
TYPE II DIABETES MELLITUS HYPERCHOLESTEROLEMIA THYROTOXICOSIS NOS TUBERCULOUS, PRIMARY COMPLEX UPPER RESPIRATORY INFECTION TEMPOROMANDIBULAR JOINT DISORDER BACK PAIN
Thanks in advance for any help.
Posted : December 28, 2014 11:16 am
Something like this?
{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 : January 8, 2015 9:22 am
Topic starter
I really appreciate the help. I created a quick text with the above code. The result is as follows:
{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
<-COMPILER ERROR NEARBY: Expect EXPRESSION. Instead had NON-TERMINATED STRING after LEFT PAREN
Further instruction is greatly appreciated.
Thanks,
JJC
Posted : January 11, 2015 10:47 am
