Error with Mel_Add_Assessment

DanaH

(@dhamildog)

Posts: 61

Estimable Member

Topic starter

Hello....please help me!

I am getting an error with Mel_add_assessment that I understand what it says, but don't know how to fix. I create an assessment with the problem, assoc. meds/orders, and the instructions. I then want to commit that assessment. It returns -4, which is an error, "The assessment is N (new), but the problem is not a new problem." Okay...and so....what??? First thing I do know is that the problem has never been added to the patient's list - it's added at this episode. I started with Lee Cooper's AP form....did not remove any code or fields. What am I missing? Please help me!!!

Thank you,

dh Embarassed

Meltrace:

DXSTATUS = "NEW"
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"NEW"
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>"FATIGUE (ICD-780.79)" == ""
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>if FALSE
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] results>return "NEW"
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>call PRBSTATUSXLAT("Comment Only", "NEW")
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>"NEW" == "NEW"
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] results>TRUE
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>if TRUE
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] results>TRUE
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>A = ""
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] results>""
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>"" == ""
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] results>TRUE
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>"NEW" == "NEW"
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] results>TRUE
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>TRUE AND TRUE
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] results>TRUE
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>case TRUE
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] results>TRUE
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>C = "N"
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"N"
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] results>return "N"
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>Document.A_3891_585_1392846734
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"fatigue"
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>Document.A_3891_586_1392846734
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"Let's check a routine autoimmune panel which would show us lupus. We'll let you know about your results."
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>Document.R_3891_591_1392846734
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] results>""
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>Document.R_3891_592_1392846734
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"TSH w/ Free T4 Rflx [IPL], Vit D 25-OH [IPL], CBC w/Absolutes [IPL], Lipid Panel [IPL], Urinalysis [IPL], CPK; Total [IPL], Sed Rate [ESR] [IPL], ANA [IPL], dsDNA Antibody, Cardiolipin ABs;IgG / IgM, Anti-ENA, Ofc Vst Est Level III [99213]"
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>call FNADDASSESSMENT_LC("IMPRESSION", "FATIGUE (ICD-780.79)", "N", "fatigue", "Let's check a routine autoimmune panel which would show us lupus. We'll let you know about your results.", "", "TSH w/ Free T4 Rflx [IPL], Vit D 25-OH [IPL], CBC w/Absolutes [IPL], Lipid Panel [IPL], Urinalysis [IPL], CPK; Total [IPL], Sed Rate [ESR] [IPL], ANA [IPL], dsDNA Antibody, Cardiolipin ABs;IgG / IgM, Anti-ENA, Ofc Vst Est Level III [99213]")
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>BPROBLEMFOUND = FALSE
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>NSTART = 1
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] results>1
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>STRFORMATTEDASSESSMENT = ""
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] results>""
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>STRPROBLEMTYPE = ""
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] results>""
02/19/2014 16:40:51.600 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>call PROB_AFTER("delimited")
02/19/2014 16:40:51.605 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"Dx of^FATIGUE^ICD-780.79^^02/18/2014^^|Dx of^GRANULOMA ANNULARE^ICD-695.89^^12/11/2013^^|Dx of^CANDIDIASIS, SKIN^ICD-112.3^^10/14/2013^^|Dx of^CHRONIC PAIN SYNDROME^ICD-338.4^^07/17/2013^^|Dx of^ARNOLD-CHIARI MALFORMATION^ICD-741.00^^07/17/2013^^|Dx of^ASTHMA, PERSISTENT, MODERATE^ICD-493.90^^07/17/2013^^|Dx of^POLYDIPSIA^ICD-783.5^^12/06/2012^^|Dx of^IRRITABLE BOWEL SYNDROME^ICD-564.1^^06/21/2012^^|Dx of^HYPOTHYROIDISM^ICD-244.9^^03/28/2012^^|Dx of^MOTION SICKNESS^ICD-994.6^^03/28/2012^^|Dx of^DYSLIPIDEMIA^ICD-272.4^^02/27/2012^^|Dx of^GASTROESOPHAGEAL REFLUX DISEASE^ICD-530.81^^02/27/2012^^|Dx of^CORONARY ARTERY DISEASE, PREMATURE, FAMILY HX^ICD-V17.3^^02/27/2012^^"
02/19/2014 16:40:51.605 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>call GETFIELD("Dx of^FATIGUE^ICD-780.79^^02/18/2014^^|Dx of^GRANULOMA ANNULARE^ICD-695.89^^12/11/2013^^|Dx of^CANDIDIASIS, SKIN^ICD-112.3^^10/14/2013^^|Dx of^CHRONIC PAIN SYNDROME^ICD-338.4^^07/17/2013^^|Dx of^ARNOLD-CHIARI MALFORMATION^ICD-741.00^^07/17/2013^^|Dx of^ASTHMA, PERSISTENT, MODERATE^ICD-493.90^^07/17/2013^^|Dx of^POLYDIPSIA^ICD-783.5^^12/06/2012^^|Dx of^IRRITABLE BOWEL SYNDROME^ICD-564.1^^06/21/2012^^|Dx of^HYPOTHYROIDISM^ICD-244.9^^03/28/2012^^|Dx of^MOTION SICKNESS^ICD-994.6^^03/28/2012^^|Dx of^DYSLIPIDEMIA^ICD-272.4^^02/27/2012^^|Dx of^GASTROESOPHAGEAL REFLUX DISEASE^ICD-530.81^^02/27/2012^^|Dx of^CORONARY ARTERY DISEASE, PREMATURE, FAMILY HX^ICD-V17.3^^02/27/2012^^", "|", "")
02/19/2014 16:40:51.605 INFO Process Id #7332 Thread Id #1 [MelTrace] results>Array
02/19/2014 16:40:51.605 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>PROBLEMARRAY = Array
02/19/2014 16:40:51.605 INFO Process Id #7332 Thread Id #1 [MelTrace] results>Array
02/19/2014 16:40:51.605 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>NINDEX = 1
02/19/2014 16:40:51.605 INFO Process Id #7332 Thread Id #1 [MelTrace] results>1
02/19/2014 16:40:51.605 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>call SIZE(Array)
02/19/2014 16:40:51.605 INFO Process Id #7332 Thread Id #1 [MelTrace] results>13
02/19/2014 16:40:51.605 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>1 <= 13
02/19/2014 16:40:51.605 INFO Process Id #7332 Thread Id #1 [MelTrace] results>TRUE
02/19/2014 16:40:51.605 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>for TRUE
02/19/2014 16:40:51.605 INFO Process Id #7332 Thread Id #1 [MelTrace] results>TRUE
02/19/2014 16:40:51.605 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>Array[1]
02/19/2014 16:40:51.605 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"Dx of^FATIGUE^ICD-780.79^^02/18/2014^^"
02/19/2014 16:40:51.605 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>call GETFIELD("Dx of^FATIGUE^ICD-780.79^^02/18/2014^^", "^", "")
02/19/2014 16:40:51.605 INFO Process Id #7332 Thread Id #1 [MelTrace] results>Array
02/19/2014 16:40:51.605 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>Array[1] = Array
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>Array
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>Array[1]
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>Array
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>Array[2]
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"FATIGUE"
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>STRBUF = "FATIGUE"
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"FATIGUE"
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>call REPLACESTR("FATIGUE", ",", " -")
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>call MATCH("FATIGUE", ",")
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>0
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>NMATCH = 0
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>0
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>0 > 0
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>while FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>return "FATIGUE"
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>STRBUF = "FATIGUE"
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"FATIGUE"
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>NULL[1]
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>NULL
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>NULL[1]
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>NULL
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>call FNCONVERTPROBLEMTYPETOSTRING(NULL, FALSE)
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>call TOLOWER(NULL)
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>NULL
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>STRTYPE = NULL
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>NULL
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>NULL == "dx of"
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>case FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>NULL == "mdxof"
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>case FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>NULL == "h/f"
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>case FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>NULL == "hx of"
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>case FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>NULL == "s/p"
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>case FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>NULL == "r/o"
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>case FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>NULL == "? of"
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>case FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>NULL == "sx of"
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>case FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>NULL == "rs of"
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>case FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>NULL == "note:"
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>case FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>NULL == "fh of"
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>case FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.606 INFO Process Id #7332 Thread Id #1 [MelTrace] results>return ""
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>STRPROBLEMTYPE = ""
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>""
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>"" + "FATIGUE"
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"FATIGUE"
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>STRBUF = "FATIGUE"
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"FATIGUE"
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>call MATCH("FATIGUE (ICD-780.79)", "FATIGUE")
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>1
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>1 == 0
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>if FALSE
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>BPROBLEMFOUND = TRUE
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>TRUE
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>break
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>if TRUE
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>TRUE
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>Array[1]
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>Array
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>Array[2]
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"FATIGUE"
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>call TOLOWER("FATIGUE")
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"fatigue"
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>"" + "fatigue"
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"fatigue"
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>STRFORMATTEDASSESSMENT = "fatigue"
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"fatigue"
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>Array[1]
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>Array
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>Array[4]
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>""
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>"" <> ""
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>if FALSE
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>if TRUE
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>TRUE
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>call GET("fatigue", 1)
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"f"
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>call TOUPPER("f")
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"F"
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>call SET("fatigue", 1, "F")
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"Fatigue"
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>"\r\n" + "Fatigue"
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"\r\nFatigue"
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>STRFORMATTEDASSESSMENT = "\r\nFatigue"
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"\r\nFatigue"
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>"N" <> ""
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>TRUE
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>TRUE AND TRUE
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>TRUE
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>if TRUE
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>TRUE
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>"\r\nFatigue" + " - "
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"\r\nFatigue - "
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>"\r\nFatigue - " + "N"
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"\r\nFatigue - N"
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>STRFORMATTEDASSESSMENT = "\r\nFatigue - N"
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"\r\nFatigue - N"
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>if TRUE
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>TRUE
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>"\r\nFatigue - N" + ". "
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"\r\nFatigue - N. "
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>"\r\nFatigue - N. " + "\r\n"
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"\r\nFatigue - N. \r\n"
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>STRFORMATTEDASSESSMENT = "\r\nFatigue - N. \r\n"
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"\r\nFatigue - N. \r\n"
02/19/2014 16:40:51.607 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>"fatigue" <> ""
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>TRUE
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>TRUE AND TRUE
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>TRUE
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>if TRUE
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>TRUE
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>"\r\nFatigue - N. \r\n" + "fatigue"
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"\r\nFatigue - N. \r\nfatigue"
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>STRFORMATTEDASSESSMENT = "\r\nFatigue - N. \r\nfatigue"
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"\r\nFatigue - N. \r\nfatigue"
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>"Let's check a routine autoimmune panel which would show us lupus. We'll let you know about your results." <> ""
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>TRUE
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>TRUE AND TRUE
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>TRUE
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>if TRUE
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>TRUE
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>"\r\nFatigue - N. \r\nfatigue" + "\r\n"
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"\r\nFatigue - N. \r\nfatigue\r\n"
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>"\r\nFatigue - N. \r\nfatigue\r\n" + "Instructions: "
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"\r\nFatigue - N. \r\nfatigue\r\nInstructions: "
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>"\r\nFatigue - N. \r\nfatigue\r\nInstructions: " + "Let's check a routine autoimmune panel which would show us lupus. We'll let you know about your results."
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"\r\nFatigue - N. \r\nfatigue\r\nInstructions: Let's check a routine autoimmune panel which would show us lupus. We'll let you know about your results."
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>STRFORMATTEDASSESSMENT = "\r\nFatigue - N. \r\nfatigue\r\nInstructions: Let's check a routine autoimmune panel which would show us lupus. We'll let you know about your results."
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"\r\nFatigue - N. \r\nfatigue\r\nInstructions: Let's check a routine autoimmune panel which would show us lupus. We'll let you know about your results."
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>"" <> ""
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>TRUE AND FALSE
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>if FALSE
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>FALSE
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>"TSH w/ Free T4 Rflx [IPL], Vit D 25-OH [IPL], CBC w/Absolutes [IPL], Lipid Panel [IPL], Urinalysis [IPL], CPK; Total [IPL], Sed Rate [ESR] [IPL], ANA [IPL], dsDNA Antibody, Cardiolipin ABs;IgG / IgM, Anti-ENA, Ofc Vst Est Level III [99213]" <> ""
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>TRUE
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>TRUE AND TRUE
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>TRUE
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>if TRUE
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>TRUE
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>"\r\nFatigue - N. \r\nfatigue\r\nInstructions: Let's check a routine autoimmune panel which would show us lupus. We'll let you know about your results." + "\r\n"
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"\r\nFatigue - N. \r\nfatigue\r\nInstructions: Let's check a routine autoimmune panel which would show us lupus. We'll let you know about your results.\r\n"
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>"\r\nFatigue - N. \r\nfatigue\r\nInstructions: Let's check a routine autoimmune panel which would show us lupus. We'll let you know about your results.\r\n" + "Orders: "
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"\r\nFatigue - N. \r\nfatigue\r\nInstructions: Let's check a routine autoimmune panel which would show us lupus. We'll let you know about your results.\r\nOrders: "
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>"\r\nFatigue - N. \r\nfatigue\r\nInstructions: Let's check a routine autoimmune panel which would show us lupus. We'll let you know about your results.\r\nOrders: " + "TSH w/ Free T4 Rflx [IPL], Vit D 25-OH [IPL], CBC w/Absolutes [IPL], Lipid Panel [IPL], Urinalysis [IPL], CPK; Total [IPL], Sed Rate [ESR] [IPL], ANA [IPL], dsDNA Antibody, Cardiolipin ABs;IgG / IgM, Anti-ENA, Ofc Vst Est Level III [99213]"
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"\r\nFatigue - N. \r\nfatigue\r\nInstructions: Let's check a routine autoimmune panel which would show us lupus. We'll let you know about your results.\r\nOrders: TSH w/ Free T4 Rflx [IPL], Vit D 25-OH [IPL], CBC w/Absolutes [IPL], Lipid Panel [IPL], Urinalysis [IPL], CPK; Total [IPL], Sed Rate [ESR] [IPL], ANA [IPL], dsDNA Antibody, Cardiolipin ABs;IgG / IgM, Anti-ENA, Ofc Vst Est Level III [99213]"
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>STRFORMATTEDASSESSMENT = "\r\nFatigue - N. \r\nfatigue\r\nInstructions: Let's check a routine autoimmune panel which would show us lupus. We'll let you know about your results.\r\nOrders: TSH w/ Free T4 Rflx [IPL], Vit D 25-OH [IPL], CBC w/Absolutes [IPL], Lipid Panel [IPL], Urinalysis [IPL], CPK; Total [IPL], Sed Rate [ESR] [IPL], ANA [IPL], dsDNA Antibody, Cardiolipin ABs;IgG / IgM, Anti-ENA, Ofc Vst Est Level III [99213]"
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"\r\nFatigue - N. \r\nfatigue\r\nInstructions: Let's check a routine autoimmune panel which would show us lupus. We'll let you know about your results.\r\nOrders: TSH w/ Free T4 Rflx [IPL], Vit D 25-OH [IPL], CBC w/Absolutes [IPL], Lipid Panel [IPL], Urinalysis [IPL], CPK; Total [IPL], Sed Rate [ESR] [IPL], ANA [IPL], dsDNA Antibody, Cardiolipin ABs;IgG / IgM, Anti-ENA, Ofc Vst Est Level III [99213]"
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>TRUE AND TRUE
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>TRUE
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>if TRUE
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>TRUE
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>Array[1]
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>Array
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>Array[1]
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"Dx of"
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>Array[1]
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>Array
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>Array[2]
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"FATIGUE"
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>Array[1]
02/19/2014 16:40:51.608 INFO Process Id #7332 Thread Id #1 [MelTrace] results>Array
02/19/2014 16:40:51.609 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>Array[3]
02/19/2014 16:40:51.609 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"ICD-780.79"
02/19/2014 16:40:51.609 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>call MEL_ADD_ASSESSMENT("Dx of", "FATIGUE", "ICD-780.79", "N", "\r\nFatigue - N. \r\nfatigue\r\nInstructions: Let's check a routine autoimmune panel which would show us lupus. We'll let you know about your results.\r\nOrders: TSH w/ Free T4 Rflx [IPL], Vit D 25-OH [IPL], CBC w/Absolutes [IPL], Lipid Panel [IPL], Urinalysis [IPL], CPK; Total [IPL], Sed Rate [ESR] [IPL], ANA [IPL], dsDNA Antibody, Cardiolipin ABs;IgG / IgM, Anti-ENA, Ofc Vst Est Level III [99213]")
02/19/2014 16:40:51.642 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"-4"
02/19/2014 16:40:51.642 INFO Process Id #7332 Thread Id #1 [MelTrace] results>return "-4"
02/19/2014 16:40:51.642 INFO Process Id #7332 Thread Id #1 [MelTrace] execute>Document.PRB_1_LC = "RECORDED"
02/19/2014 16:40:51.642 INFO Process Id #7332 Thread Id #1 [MelTrace] results>"RECORDED"

Posted : February 19, 2014 8:44 am

gibsonmi

(@gibsonmi)

Posts: 827

Prominent Member

Hello,

I believe N is to be used only in the MEL_ADD_PROBLEM() function, the last two fields are for assessment. The other four can be used with MEL_ADD_ASSESSMENT()

Improved or I

Unchanged or U

Deteriorated or D

Comment only or C

The way my form is set up I only made those four options available to the users, but I'm not familiar with the specific form you mention

Posted : February 19, 2014 10:47 pm

DanaH

(@dhamildog)

Posts: 61

Estimable Member

Topic starter

We upgraded to CPSv11 this weekend. Mel_add_assessment does included new problems. I don't understand why the error is -4 The assessment is N (new), but the problem is not a new problem. It is a new problem....never coded on the chart before. Really starting to be a problem, as I cannot get the assessment to add on problems and providers are irritated!

Posted : March 12, 2014 5:42 am

gibsonmi

(@gibsonmi)

Posts: 827

Prominent Member

Can you post the code you are using or a sample of it?

Posted : March 12, 2014 5:47 am

DanaH

(@dhamildog)

Posts: 61

Estimable Member

Topic starter

{!fn fnAddAssessment_LC(strTermName, strProblemName, strProblemStatus, strProblemAssessment, strProblemInstructions,strProblemMeds,strProblemOrders)

{

local lCounter

local bProblemFound = FALSE

local nIndex

local nStart = 1

local strFormattedAssessment = ""

local strProblemType = ""

ProblemArray = getfield(PROB_AFTER("delimited"), "|", "")

for nIndex = 1, nIndex <= size(ProblemArray), nIndex = nIndex + 1 do

ProblemArray[nIndex] = getfield(ProblemArray[nIndex], "^", "")

strBuf = ProblemArray[nIndex][2]

strBuf = ReplaceStr(strBuf, ",", " -")

strProblemType = fnConvertProblemTypeToString(strProblemList[nIndex][1], FALSE)

strBuf = strProblemType + strBuf

if (match(strProblemName, strBuf) == 0) then

continue

endif

bProblemFound = TRUE

break

endfor

if (bProblemFound) then

strFormattedAssessment = strProblemType + tolower(ProblemArray[nIndex][2])

if (ProblemArray[nIndex][4] <> "") then

strFormattedAssessment = strFormattedAssessment + " (" + ProblemArray[nIndex][4] + ")"

endif

else

strFormattedAssessment = strProblemName

endif

if (bProblemFound) then

strFormattedAssessment = HRET + set(strFormattedAssessment, 1, toupper(get(strFormattedAssessment, 1)))

endif

if (bProblemFound and strProblemStatus <> "") then

strFormattedAssessment = strFormattedAssessment + " - " + strProblemStatus

endif

if (bProblemFound) then

strFormattedAssessment = strFormattedAssessment + ". " + HRET

endif

if (bProblemFound and strProblemAssessment <> "") then

strFormattedAssessment = strFormattedAssessment + strProblemAssessment

endif

if (bProblemFound and strProblemInstructions <> "") then

strFormattedAssessment = strFormattedAssessment + HRET + "Instructions: " + strProblemInstructions

endif

if (bProblemFound and strProblemMeds <> "") then

strFormattedAssessment = strFormattedAssessment + HRET + "Medications: " + strProblemMeds

endif

if (bProblemFound and strProblemOrders <> "") then

strFormattedAssessment = strFormattedAssessment + HRET + "Orders: " + strProblemOrders

endif

if (bProblemFound AND gUtilityUse56Functions) then

MEL_ADD_ASSESSMENT(ProblemArray[nIndex][1], ProblemArray[nIndex][2], ProblemArray[nIndex][3], strProblemStatus, strFormattedAssessment)

endif

}}

Posted : March 12, 2014 5:49 am

gibsonmi

(@gibsonmi)

Posts: 827

Prominent Member

That helps a bit, I added 'New' to a test version of the form i mentioned above a learned a few things. It appears New only works for problems added during the encounter and still unsigned. Once the problem is signed, you can't assess it as new anymore, I got the -4 too. I tested putting the document on hold without signing clinical list changes and then opening it again and adding an assessment with type new, and that worked too. (Yay no bug!)

So it looks like strProblemStatus probably comes from a form field, Prob_after() doesnt include information about whether or not the problem is already signed, but prob_list_changes() does. You could either hide the New option if the selected problem is signed (basically if the problem is not on Prob_list_changes() or if it is if field [14] is unsigned) or just add logic to your function to check any N assessment to see if it is a new unsigned problem and switch it to C if already signed

Hope that makes sense and is helpful

Posted : March 12, 2014 6:14 am

DanaH

(@dhamildog)

Posts: 61

Estimable Member

Topic starter

Oh geez....so here is the code with the form...... it sure seems like it should be recognizing that a diagnosis has been signed and count it as "current" now instead of "new" and I just don't see....

{! fn checkDxStatus(strProblemName)

{

local lCounter

local dxStatus = ""

local bProblemFound = FALSE

local nIndex

local nStart = 1

local strProblemType = ""

ProblemArray = getfield(PROB_PRIOR("delimited"), "|", "")

for nIndex = 1, nIndex <= size(ProblemArray), nIndex = nIndex + 1 do

ProblemArray[nIndex] = getfield(ProblemArray[nIndex], "^", "")

strBuf = ProblemArray[nIndex][2]

strBuf = ReplaceStr(strBuf, ",", " -")

strProblemType = fnConvertProblemTypeToString(strProblemList[nIndex][1], FALSE)

strBuf = strProblemType + strBuf

if (match(strProblemName, strBuf) == 0) then

continue

endif

bProblemFound = TRUE

break

endfor

if (bProblemFound) then

dxStatus="Current"

else

dxStatus="NEW"

endif

if strProblemName == "" then

dxStatus = ""

endif

return dxStatus

}}

{! fn prbStatusXlat(a,b)

{

local c

if b == "NEW" then a = "" else "" endif

cond

case (a == "" and b == "NEW") c = "N"

case (a == "Improved" and b <> "NEW") c = "I"

case (a == "Unchanged" and b <> "NEW") c = "U"

case (a == "Deteriorated" and b <> "NEW") c = "D"

case (a == "Comment Only" and b <> "NEW") c = "C"

else c = "C"

endcond

return c

}}

{! fn bulletAssess(a,b)

{

local c

if b == "NEW" then

c = "New Problem"

else

c = a

endif

if c <> "" then

c = " - " + c

return c

else ""

endif

}}

Posted : March 14, 2014 12:33 am

gibsonmi

(@gibsonmi)

Posts: 827

Prominent Member

No, you are checking prob_prior(), which includes only problems prior to the current chart update. These current update but signed changes seem to fit in a gray area in between the two that are not really accounted for. Seems like a flaw in MEL's logic...

Posted : March 14, 2014 3:23 am

Welcome to the NEW Community Healthcare User Group ( the new CHUG)— your ultimate destination for insights and discussions at the intersection of healthcare and technology.

Please scroll to the bottom for “Centricity” related topics from the previous forum.