We have a couple of our providers that use a VFE billing form that has a listbox of the patient's current problems that allows the provider to choose problems for billing. It is currently only showing the ICD 9 code in the text, but the billing does pull both the ICD 9 and ICD 10 codes so it is not causing billing issues.
Our providers that use this form are unhappy that they are only seeing the ICD 9 codes in the listbox. This is not a VFE form that I built and I am not sure how to show both the ICD 9 and ICD 10 codes. Any help would be appreciated.
I THINK this is the language that is controlling the problem list now:
!fn fnProblemLists(strList)
{
local lCounter
local lProbArray
local lStart
local lBuffer
local lFormattedList = ""
/* Create array of problems */
lProbArray = getfield(strList, "|", "")
for lCounter = 1, lCounter 1) then
lFormattedList = remove(lFormattedList, size(lFormattedList))
endif
/* Return comma separated list */
return (lFormattedList)
}
fn fnGetProblemDescriptions()
{
local lCounter
local lSize
local lResult = str("")
local lProblemList = getfield(DOCUMENT.PROBLEMS, ",", "") /* Get selected problems and separate into array by commas */
lSize = size(lProblemList) /* Determine size of array */
for lCounter = 1, lCounter <= lSize, lCounter = lCounter + 1 do /* Loop through all rows of the array */
lProblemList[lCounter] = getfield(lProblemList[lCounter], "^", "") /* Separate problem description and code */
lResult = lResult + lProblemList[lCounter][1] + "|" /* Join descriptions into a string separated by pipes */
endfor
if (lResult "") then
lResult = remove(lResult, size(lResult)) /* Remove trailing pipe (|) */
endif
}
fn fnGetProblemCodes()
{
local lCounter
local lSize
local lResult = str("")
local lProblemList = getfield(DOCUMENT.PROBLEMS, ",", "") /* Get selected problems and separate into array by commas */
lSize = size(lProblemList) /* Determine size of array */
for lCounter = 1, lCounter <= lSize, lCounter = lCounter + 1 do /* Loop through all rows of the array */
lProblemList[lCounter] = getfield(lProblemList[lCounter], "^", "") /* Separate problem description and code */
lResult = lResult + lProblemList[lCounter][2] + "|" /* Join codes into a string separated by pipes */
endfor
if (lResult "") then
lResult = remove(lResult, size(lResult)) /* Remove trailing pipe (|) */
endif
}
Posted : November 3, 2015 4:11 am
