I cant get that to work. Here is the MEL code for the ROS functions.... I basically need the OBS values to populate the comment box (once they have checked the values from the check boxes) so they can add detail..
!fn fnGetROSStatus(strSystem, strSystemPos, strSystemNeg, strSystemComment)
{
if (strSystemPos <> "") then
return ("+")
endif
if (strSystemComment <> "") then
return ("C")
endif
if (strSystemNeg <> "") then
return ("-")
endif
if (match(DOCUMENT.RELEVANT_SYSTEMS, strSystem)) then
return ("O")
endif
return ("")
}
{
!DOCUMENT.RELEVANT_SYSTEMS
}
{ fnStoreObservation("ROS:GENERAL", DOCUMENT.GENERAL_POSITIVE, DOCUMENT.GENERAL_NEGATIVE, DOCUMENT.GENERAL_COMMENT) }
{ fnStoreObservation("ROS EYES", DOCUMENT.EYES_POSITIVE, DOCUMENT.EYES_NEGATIVE, DOCUMENT.EYES_COMMENT) }
{ fnStoreObservation("ROS ENT", DOCUMENT.ENT_POSITIVE, DOCUMENT.ENT_NEGATIVE, DOCUMENT.ENT_COMMENT) }
{ fnStoreObservation("ROS BREAST", DOCUMENT.BREAST_POSITIVE, DOCUMENT.BREAST_NEGATIVE, DOCUMENT.BREAST_COMMENT) }
{ fnStoreObservation("ROS: CARDIAC", DOCUMENT.CARDIOVASCULAR_POSITIVE, DOCUMENT.CARDIOVASCULAR_NEGATIVE, DOCUMENT.CARDIOVASCULAR_COMMENT) }
{ fnStoreObservation("ROS:PULMON", DOCUMENT.RESPIRATORY_POSITIVE, DOCUMENT.RESPIRATORY_NEGATIVE, DOCUMENT.RESPIRATORY_COMMENT) }
{ fnStoreObservation("ROS: GI", DOCUMENT.GI_POSITIVE, DOCUMENT.GI_NEGATIVE, DOCUMENT.GI_COMMENT) }
{ fnStoreObservation("ROS: GU", DOCUMENT.GU_POSITIVE, DOCUMENT.GU_NEGATIVE, DOCUMENT.GU_COMMENT) }
{ fnStoreObservation("ROS:MUSCSKEL", DOCUMENT.MUSCULOSKELETAL_POSITIVE, DOCUMENT.MUSCULOSKELETAL_NEGATIVE, DOCUMENT.MUSCULOSKELETAL_COMMENT) }
{ fnStoreObservation("ROS SKIN", DOCUMENT.SKIN_POSITIVE, DOCUMENT.SKIN_NEGATIVE, DOCUMENT.SKIN_COMMENT) }
{ fnStoreObservation("ROS: NEURO", DOCUMENT.NEUROLOGIC_POSITIVE, DOCUMENT.NEUROLOGIC_NEGATIVE, DOCUMENT.NEUROLOGIC_COMMENT) }
{ fnStoreObservation("ROS: PSYCH", DOCUMENT.PSYCH_POSITIVE, DOCUMENT.PSYCH_NEGATIVE, DOCUMENT.PSYCH_COMMENT) }
{ fnStoreObservation("ROS ENDO", DOCUMENT.ENDOCRINE_POSITIVE, DOCUMENT.ENDOCRINE_NEGATIVE, DOCUMENT.ENDOCRINE_COMMENT) }
{ fnStoreObservation("ROS HEME", DOCUMENT.HEME_POSITIVE, DOCUMENT.HEME_NEGATIVE, DOCUMENT.HEME_COMMENT) }
{ fnStoreObservation("ROS ALLERG", DOCUMENT.ALLERGIC_POSITIVE, DOCUMENT.ALLERGIC_NEGATIVE, DOCUMENT.ALLERGIC_COMMENT) }
fn fnStoreObservation(strObsTerm, strComplains, strDenies, strComment)
{
local strBuf = ""
if strComplains == "" then "" else
if strComplains == "see HPI" then
strBuf = "See HPI. " else
if match(strComplains,1,"see HPI") > 0 then
strBuf = "See HPI, " + "Patient complains of" + remove(strComplains,1,8) + ". " else
strBuf = "Patient complains of " + strComplains + ". "
endif
endif
endif
if strDenies == "" then "" else
if strDenies == "see HPI. " then
strBuf = strBuf + "See HPI" else
if match(strDenies,1,"see HPI") > 0 then
strBuf = strBuf + "See HPI, " + "Patient denies" + remove(strDenies,1,8) + ". " else
strBuf = strBuf + "Patient denies " + strDenies + ". "
endif
endif
endif
strBuf = strBuf + strComment
OBSNOW(strObsTerm, strBuf)
}
?