Notifications
Clear all
Topic starter
Hi there! I was wondering if anyone has created a handout option that mimics the superbill?
I want to build a VFE form that includes a button that will generate the superbill. This is not something that can be done unless we get the superbill formatted in the form of a handout as far as I know.
Was just wondering if anyone else had already looking into something like this?
CEMR 9.8.9 (we have a separate PM system)
Posted : February 29, 2016 8:39 am
I have part of one in a handout. It will list Tests and Services.
Patient: {PATIENT.FIRSTNAME} {PATIENT.MIDDLENAME} {PATIENT.LASTNAME}
DOB: {PATIENT.DATEOFBIRTH} Sex: {PATIENT.SEX} SSN: {PATIENT.SSN}
{PATIENT.LABELADDRESS}
PHONE: {PATIENT.ALTPHONE} CELL: {PATIENT.CELLPHONE}
Primary Insurance: {INS_NAME("P")} Group ID: {INS_GRP("P")} Insured ID: {INS_ID("P")}
Phone: {INS_PHONE("P")}
Secondary Insurance: {INS_NAME("S")} Group ID: {INS_GRP("S")} Insured ID: {INS_ID("S")}
Phone: {INS_PHONE("S")}
Test Orders
{fn fnListOrders()
{
string = ""
MaxString = ""
local Count
orderslist = ORDERS_ALL('DELIMITED','T')
ordersaray = getfield(orderslist,"|","")
ordersaraysize = size(ordersaray)
for Count = 1, Count <= ordersaraysize, Count = Count + 1 do
ordersrow = getfield(ordersaray[Count],"^","")
If str(ordersrow[4]) = _TODAYSDATE then
string = ordersrow[1] + " [" + ordersrow[3] + "]"+" Date Ordered: "+ ordersrow[4] +HRET + " Diagnosis: " + ordersrow[6] + " (" + ordersrow[26] + ")" + HRET + " Authorized by: " + ordersrow[21]
Else
Endif
if string "" then
MaxString = MaxString + HRET + HRET + string
else
endif
endfor
Return MaxString
}
}
{fnListOrders()}
Service Orders
{fn fnListOrders2()
{
string2 = ""
MaxString2 = ""
local Count
orderslist = ORDERS_ALL('DELIMITED','S')
ordersaray = getfield(orderslist,"|","")
ordersaraysize = size(ordersaray)
for Count = 1, Count <= ordersaraysize, Count = Count + 1 do
ordersrow = getfield(ordersaray[Count],"^","")
If str(ordersrow[4]) = _TODAYSDATE then
string2 = ordersrow[1] + " [" + ordersrow[3] + "]"+" Date Ordered: "+ ordersrow[4] +HRET + " Diagnosis: " + ordersrow[6] + " (" + ordersrow[26] + ")" + HRET + " Authorized by: " + ordersrow[21]
Else
Endif
if string2 "" then
MaxString2 = MaxString2 + HRET + HRET + string2
else
endif
endfor
Return MaxString2
}
}
{fnListOrders2()}
Posted : March 1, 2016 4:28 am
