Here is the MEL from the entire visit.
[K Neighmond All In One Visit]
[Nurse Note]
[Family History - MU2]
{/*VARIABLES FOR MEL BUILT-IN SYMBOLS USED IN FORM*/
<-VOID{global F5006_1435236517_701=ALL_AFTER("list") "" <-VOID{global F5006_1435236517_717=ALL_AFTER() "" <-VOID{/*START OF FORM TRANSLATION BODY*/
<-VOIDPCP: Ahmed Aboul-Magd MD
Vital Signs:
Height: 65
{IF (STR(F5006_1435236517_483_6, F5006_1435236516_812_0, F5006_1435236517_529_0, F5006_1435236516_812_0, F5006_1435236517_529_0, DOCUMENT.TOBACCO_ANYWAY, F5006_1435236517_483_0) == "") THEN "" ELSE (IF OBSNOW("RISKFACT REV") <> ""
THEN CFMT("Tobacco Usage: ","B,2") + CFMT("Reviewed and Updated","") + HRET
ELSE CFMT("Tobacco Usage: ","B,2") + HRET endif + IF NOT (PATIENT._AGEINMONTHS > 155) THEN "" ELSE (IF (STR(F5006_1435236516_812_0, F5006_1435236517_529_0) == "") THEN "" ELSE (CFMT(F5006_1435236516_812_0, "", "", "B", "
") + CFMT(F5006_1435236517_529_0, "", "", "B", "
")) ENDIF + IF (TRUE) THEN "" ELSE ("") ENDIF) ENDIF + IF NOT (PATIENT._AGEINMONTHS <= 155 and
DOCUMENT.TOBACCO_ANYWAY <> "") THEN "" ELSE (IF (STR(F5006_1435236516_812_0, F5006_1435236517_529_0) == "") THEN "" ELSE (CFMT(F5006_1435236516_812_0, "", "", "B", "
") + CFMT(F5006_1435236517_529_0, "", "", "B", "
")) ENDIF + IF (TRUE) THEN "" ELSE ("") ENDIF) ENDIF + IF NOT (PATIENT._AGEINMONTHS <= 155
AND
DOCUMENT.TOBACCO_ANYWAY = "") THEN "" ELSE (IF NOT (a) THEN "" ELSE ("") ENDIF) ENDIF + IF NOT (PATIENT._AGEINMONTHS > 155 and
(F5006_1435236517_529_1 <> "" or
F5006_1435236517_483_1 = "Current EVERY DAY Smoker" or
F5006_1435236517_483_1 = "Current HEAVY TOBACCO Smoker" or
F5006_1435236517_483_1 = "Current LIGHT TOBACCO Smoker" or
F5006_1435236517_483_1 = "Current SOME DAYS Smoker" or
F5006_1435236517_483_1 = "Smoker - Current Status Unknown" or
F5006_1435236517_483_1 = "Former Smoker" or
F5006_1435236517_483_1 = "Unknown - If Ever Smoked")) THEN "" ELSE (CFMT(F5006_1435236517_483_0, "", "Smoke Status: ", "B", "
")) ENDIF) ENDIF <-VOID{IF NOT (DOCUMENT.TOBACCO_ANYWAY <> "" and
PATIENT._AGEINMONTHS <= 155 and
(F5006_1435236517_529_1 <> "" or
F5006_1435236517_483_1 = "Current EVERY DAY Smoker" or
F5006_1435236517_483_1 = "Current HEAVY TOBACCO Smoker" or
F5006_1435236517_483_1 = "Current LIGHT TOBACCO Smoker" or
F5006_1435236517_483_1 = "Current SOME DAYS Smoker" or
F5006_1435236517_483_1 = "Smoker - Current Status Unknown" or
F5006_1435236517_483_1 = "Former Smoker" or
F5006_1435236517_483_1 = "Unknown - If Ever Smoked")) THEN "" ELSE (CFMT(F5006_1435236517_483_0, "", "Smoke Status: ", "B", "
")) ENDIF <-VOID{IF NOT (PATIENT._AGEINMONTHS <= 155 and
DOCUMENT.TOBACCO_ANYWAY = "") THEN "" ELSE ("") ENDIF <-VOID{IF NOT (PATIENT._AGEINMONTHS <= 216) THEN "" ELSE (CFMT(F5006_1435236517_202_0, "", "PASSIVE SMOKE EXPOSURE: ", "B", "
")) ENDIF <-VOID{IF NOT (USER.NPI <> "" OR
USER.CURLOCATIONNAME = "Freeman Family Practice" OR
USER.CURLOCATIONNAME = "Stephen R. Thomas, D.O." OR
USER.CURLOCATIONNAME = "Freeman Clinic of Baxter Springs" AND
PATIENT._AGEINMONTHS > 155) THEN "" ELSE ("") ENDIF <-VOID{IF NOT (PATIENT._AGEINMONTHS > 155 and
F5006_1435236517_483_1 = "Former Smoker") THEN "" ELSE (IF (STR(F5006_1435236517_498_0, F5006_1435236517_467_0, DOCUMENT.F_6885_1460650014_289) == "") THEN "" ELSE (CFMT(F5006_1435236517_498_0, "", "Year Quit: ", "", "
") + CFMT(F5006_1435236517_467_0, "", "Pack Years: ", "", "
") + CFMT(DOCUMENT.F_6885_1460650014_289, "", "Former Smoker Comments: ", "B", "
")) ENDIF) ENDIF <-VOID{IF NOT (DOCUMENT.TOBACCO_ANYWAY <> "" and
PATIENT._AGEINMONTHS <= 155 and
F5006_1435236517_483_1 = "Former Smoker") THEN "" ELSE (IF (STR(F5006_1435236517_498_0, F5006_1435236517_467_0, DOCUMENT.F_6885_1460650014_289) == "") THEN "" ELSE (CFMT(F5006_1435236517_498_0, "", "Year Quit: ", "", "
") + CFMT(F5006_1435236517_467_0, "", "Pack Years: ", "", "
") + CFMT(DOCUMENT.F_6885_1460650014_289, "", "Former Smoker Comments: ", "B", "
")) ENDIF) ENDIF <-VOID{IF NOT (PATIENT._AGEINMONTHS > 155 and
(F5006_1435236517_483_1 = "Current EVERY DAY Smoker" or
F5006_1435236517_483_1 = "Current HEAVY TOBACCO Smoker" or
F5006_1435236517_483_1 = "Current LIGHT TOBACCO Smoker" or
F5006_1435236517_483_1 = "Current SOME DAYS Smoker" or
F5006_1435236517_483_1 = "Smoker - Current Status Unknown" or
F5006_1435236517_483_1 = "Unknown - If Ever Smoked")) THEN "" ELSE (IF (STR(F5006_1435236517_514_0, F5006_1435236516_859_0, F5006_1435236517_451_0, F5006_1435236516_843_0, F5006_1435236516_874_0, F5006_1435236517_171_0, F5006_1435236517_155_0, F5006_1435236517_561_0) == "") THEN "" ELSE (CFMT(F5006_1435236517_514_0, "", "Year Started: ", "", "
") + CFMT(F5006_1435236516_859_0, "", "Cigarettes: ", "", " ") + CFMT(F5006_1435236517_451_0, "", "Amt: ", "", " pck/day
") + CFMT(F5006_1435236516_843_0, "", "Cigars: ", "", " ") + CFMT(F5006_1435236516_874_0, "", "Amt: ", "", " # /week
") + CFMT(F5006_1435236517_171_0, "", "Smokeless: ", "", " ") + CFMT(F5006_1435236517_155_0, "", "Amt: ", "", " per day
") + CFMT(F5006_1435236517_561_0, "", "Tobacco Use Comments: ", "", "
")) ENDIF) ENDIF <-VOID{IF NOT (DOCUMENT.TOBACCO_ANYWAY <> "" and
PATIENT._AGEINMONTHS <= 155 and
(F5006_1435236517_483_1 = "Current EVERY DAY Smoker" or
F5006_1435236517_483_1 = "Current HEAVY TOBACCO Smoker" or
F5006_1435236517_483_1 = "Current LIGHT TOBACCO Smoker" or
F5006_1435236517_483_1 = "Current SOME DAYS Smoker" or
F5006_1435236517_483_1 = "Smoker - Current Status Unknown" or
F5006_1435236517_483_1 = "Unknown - If Ever Smoked")) THEN "" ELSE (IF (STR(F5006_1435236517_514_0, F5006_1435236516_859_0, F5006_1435236517_451_0, F5006_1435236516_843_0, F5006_1435236516_874_0, F5006_1435236517_171_0, F5006_1435236517_155_0, F5006_1435236517_561_0) == "") THEN "" ELSE (CFMT(F5006_1435236517_514_0, "", "Year Started: ", "", "
") + CFMT(F5006_1435236516_859_0, "", "Cigarettes: ", "", " ") + CFMT(F5006_1435236517_451_0, "", "Amt: ", "", " pck/day
") + CFMT(F5006_1435236516_843_0, "", "Cigars: ", "", " ") + CFMT(F5006_1435236516_874_0, "", "Amt: ", "", " # /week
") + CFMT(F5006_1435236517_171_0, "", "Smokeless: ", "", " ") + CFMT(F5006_1435236517_155_0, "", "Amt: ", "", " per day
") + CFMT(F5006_1435236517_561_0, "", "Tobacco Use Comments: ", "", "
")) ENDIF) ENDIF <-VOID{IF NOT (PATIENT._AGEINMONTHS > 155 and
(F5006_1435236517_483_1 = "Current EVERY DAY Smoker" or
F5006_1435236517_483_1 = "Current HEAVY TOBACCO Smoker" or
F5006_1435236517_483_1 = "Current LIGHT TOBACCO Smoker" or
F5006_1435236517_483_1 = "Current SOME DAYS Smoker" or
F5006_1435236517_483_1 = "Smoker - Current Status Unknown" or
F5006_1435236517_483_1 = "Unknown - If Ever Smoked")) THEN "" ELSE (IF (STR(F5006_1435236517_436_1) == "") THEN "" ELSE (HRET + CFMT(F5006_1435236517_436_1, "", "Tobacco Use Cessation Counseling Provided: ", "B", "")+ HRET + FMT("Patient Acknowledged Counceling", "") + HRET) ENDIF) ENDIF <-VOID{IF NOT (DOCUMENT.TOBACCO_ANYWAY <> "" and
PATIENT._AGEINMONTHS <= 155 and
( F5006_1435236517_483_1 = "Current EVERY DAY Smoker" or
F5006_1435236517_483_1 = "Current HEAVY TOBACCO Smoker" or
F5006_1435236517_483_1 = "Current LIGHT TOBACCO Smoker" or
F5006_1435236517_483_1 = "Current SOME DAYS Smoker" or
F5006_1435236517_483_1 = "Smoker - Current Status Unknown" or
F5006_1435236517_483_1 = "Unknown - If Ever Smoked")) THEN "" ELSE (IF (STR(F5006_1435236517_436_1) == "") THEN "" ELSE (HRET + CFMT(F5006_1435236517_436_1, "", "Tobacco Use Cessation Counseling Provided: ", "B", "")+ HRET + FMT("Patient Acknowledged Counceling", "") + HRET) ENDIF) ENDIF <-VOID{IF NOT (PATIENT._AGEINMONTHS <= 155 and
DOCUMENT.TOBACCO_ANYWAY = "") THEN "" ELSE ("") ENDIF <-VOID
Alcohol use: yes
Drug use: no
{/*VARIABLES FOR MEL BUILT-IN SYMBOLS USED IN FORM*/
<-VOID{/*START OF FORM TRANSLATION BODY*/
<-VOID
{IF (STR(DOCUMENT.C_5006_1459884965_848, DOCUMENT.C_5006_1459884965_849, DOCUMENT.D_5006_1459884965_852, DOCUMENT.D_5006_1459884965_853, DOCUMENT.C_5006_1459884965_856, DOCUMENT.C_5006_1459884965_857, DOCUMENT.S_5006_1459884965_860, DOCUMENT.S_5006_1459884965_861, DOCUMENT.B_5006_1459884965_864, DOCUMENT.B_5006_1459884965_865, DOCUMENT.F_5006_1459884965_874, DOCUMENT.F_5006_1459884965_875, DOCUMENT.P_5006_1459884965_878, DOCUMENT.P_5006_1459884965_879, DOCUMENT.P_5006_1459884965_882, DOCUMENT.P_5006_1459884965_883, DOCUMENT.H_5006_1459884965_886, DOCUMENT.H_5006_1459884965_887, DOCUMENT.T_5006_1459884965_890, DOCUMENT.T_5006_1459884965_891, DOCUMENT.S_5006_1459884965_894, DOCUMENT.S_5006_1459884965_895, DOCUMENT.M_5006_1459884965_898, DOCUMENT.M_5006_1459884965_899, DOCUMENT.C_5006_1459884965_902, DOCUMENT.C_5006_1459884965_903, DOCUMENT.G_5006_1459884965_906, DOCUMENT.G_5006_1459884965_907, DOCUMENT.G_5006_1459884965_908, DOCUMENT.P_5006_1459884965_913, DOCUMENT.P_5006_1459884965_914, DOCUMENT.M_5006_1459884965_917, DOCUMENT.M_5006_1459884965_918, DOCUMENT.A_5006_1459884965_922, DOCUMENT.A_5006_1459884965_923, DOCUMENT.P_5006_1459884965_926, DOCUMENT.P_5006_1459884965_927, DOCUMENT.T_5006_1459884965_932, DOCUMENT.T_5006_1459884965_933, DOCUMENT.C_5006_1459884965_936, DOCUMENT.C_5006_1459884965_937) == "") THEN "" ELSE (HRET + FMT("Preventive Screening: ", "B,2") + HRET + IF (STR(DOCUMENT.C_5006_1459884965_848, DOCUMENT.C_5006_1459884965_849) == "") THEN "" ELSE (CFMT(DOCUMENT.C_5006_1459884965_848, "", "Cholesterol Screen: ", "B") + CFMT(DOCUMENT.C_5006_1459884965_849, "", " ", "B", "
")) ENDIF + IF (STR(DOCUMENT.D_5006_1459884965_852, DOCUMENT.D_5006_1459884965_853) == "") THEN "" ELSE (CFMT(DOCUMENT.D_5006_1459884965_852, "", "Diabetes Screen: ", "B") + CFMT(DOCUMENT.D_5006_1459884965_853, "", " ", "B", "
")) ENDIF + IF (STR(DOCUMENT.C_5006_1459884965_856, DOCUMENT.C_5006_1459884965_857) == "") THEN "" ELSE (CFMT(DOCUMENT.C_5006_1459884965_856, "", "Colonoscopy: ", "B") + CFMT(DOCUMENT.C_5006_1459884965_857, "", " ", "B", "
")) ENDIF + IF (STR(DOCUMENT.S_5006_1459884965_860, DOCUMENT.S_5006_1459884965_861) == "") THEN "" ELSE (CFMT(DOCUMENT.S_5006_1459884965_860, "", "Stool Cards: ", "B") + CFMT(DOCUMENT.S_5006_1459884965_861, "", " ", "B", "
")) ENDIF + IF (STR(DOCUMENT.B_5006_1459884965_864, DOCUMENT.B_5006_1459884965_865) == "") THEN "" ELSE (CFMT(DOCUMENT.B_5006_1459884965_864, "", "Dexa Scan (Bone Density): ", "B") + CFMT(DOCUMENT.B_5006_1459884965_865, "", " ", "B", "
")) ENDIF + IF (STR(DOCUMENT.F_5006_1459884965_874, DOCUMENT.F_5006_1459884965_875) == "") THEN "" ELSE (CFMT(DOCUMENT.F_5006_1459884965_874, "", "Flu Shot: ", "B") + CFMT(DOCUMENT.F_5006_1459884965_875, "", " ", "B", "
")) ENDIF + IF (STR(DOCUMENT.P_5006_1459884965_878, DOCUMENT.P_5006_1459884965_879) == "") THEN "" ELSE (CFMT(DOCUMENT.P_5006_1459884965_878, "", "Pneumonia Shot: ", "B") + CFMT(DOCUMENT.P_5006_1459884965_879, "", " ", "B", "
")) ENDIF + IF (STR(DOCUMENT.P_5006_1459884965_882, DOCUMENT.P_5006_1459884965_883) == "") THEN "" ELSE (CFMT(DOCUMENT.P_5006_1459884965_882,"","PCV13: ","B") + CFMT(DOCUMENT.P_5006_1459884965_883,""," ","B","
")) ENDIF + IF (STR(DOCUMENT.H_5006_1459884965_886, DOCUMENT.H_5006_1459884965_887) == "") THEN "" ELSE (CFMT(DOCUMENT.H_5006_1459884965_886,"","HGBA1C: ","B") + CFMT(DOCUMENT.H_5006_1459884965_887,""," ","B","
")) ENDIF + IF (STR(DOCUMENT.T_5006_1459884965_890, DOCUMENT.T_5006_1459884965_891) == "") THEN "" ELSE (CFMT(DOCUMENT.T_5006_1459884965_890, "", "Tetanus Shot: ", "B") + CFMT(DOCUMENT.T_5006_1459884965_891, "", " ", "B", "
")) ENDIF + IF (STR(DOCUMENT.S_5006_1459884965_894, DOCUMENT.S_5006_1459884965_895) == "") THEN "" ELSE (CFMT(DOCUMENT.S_5006_1459884965_894, "", "Shingles Vaccine: ", "B") + CFMT(DOCUMENT.S_5006_1459884965_895, "", " ", "B", "
")) ENDIF + IF (STR(DOCUMENT.M_5006_1459884965_898, DOCUMENT.M_5006_1459884965_899) == "") THEN "" ELSE (CFMT(DOCUMENT.M_5006_1459884965_898, "", "Menactra: ", "B") + CFMT(DOCUMENT.M_5006_1459884965_899, "", " ", "B", "
")) ENDIF + IF (STR(DOCUMENT.C_5006_1459884965_902, DOCUMENT.C_5006_1459884965_903) == "") THEN "" ELSE (CFMT(DOCUMENT.C_5006_1459884965_902,"","Low Dose CT: ","B") + CFMT(DOCUMENT.C_5006_1459884965_903,""," ","B","
")) ENDIF + IF (STR(DOCUMENT.G_5006_1459884965_906, DOCUMENT.G_5006_1459884965_907, DOCUMENT.G_5006_1459884965_908) == "") THEN "" ELSE (CFMT(DOCUMENT.G_5006_1459884965_906, "", "Gardasil: ", "B") + CFMT(DOCUMENT.G_5006_1459884965_907, "", " Series: ", "B") + CFMT(DOCUMENT.G_5006_1459884965_908, "", " ", "B", "
")) ENDIF + IF NOT (PATIENT.SEX = "F") THEN "" ELSE (IF (STR(DOCUMENT.P_5006_1459884965_913, DOCUMENT.P_5006_1459884965_914) == "") THEN "" ELSE (CFMT(DOCUMENT.P_5006_1459884965_913, "", "Pap Smear/Well Woman: ", "B") + CFMT(DOCUMENT.P_5006_1459884965_914, "", " ", "B", "
")) ENDIF + IF (STR(DOCUMENT.M_5006_1459884965_917, DOCUMENT.M_5006_1459884965_918) == "") THEN "" ELSE (CFMT(DOCUMENT.M_5006_1459884965_917, "", "Mammogram: ", "B") + CFMT(DOCUMENT.M_5006_1459884965_918, "", " ", "B", "
")) ENDIF) ENDIF + IF NOT (PATIENT.SEX = "M") THEN "" ELSE (IF (STR(DOCUMENT.A_5006_1459884965_922, DOCUMENT.A_5006_1459884965_923) == "") THEN "" ELSE (CFMT(DOCUMENT.A_5006_1459884965_922, "", "AAA: ", "B") + CFMT(DOCUMENT.A_5006_1459884965_923, "", " ", "B", "
")) ENDIF + IF (STR(DOCUMENT.P_5006_1459884965_926, DOCUMENT.P_5006_1459884965_927) == "") THEN "" ELSE (CFMT(DOCUMENT.P_5006_1459884965_926,"","PSA: ","B") + CFMT(DOCUMENT.P_5006_1459884965_927,""," ","B","
")) ENDIF) ENDIF + IF (STR(DOCUMENT.T_5006_1459884965_932, DOCUMENT.T_5006_1459884965_933) == "") THEN "" ELSE (CFMT(DOCUMENT.T_5006_1459884965_932, "", "TRUSP: ", "B") + CFMT(DOCUMENT.T_5006_1459884965_933, "", " ", "B", "
")) ENDIF + IF (STR(DOCUMENT.C_5006_1459884965_936, DOCUMENT.C_5006_1459884965_937) == "") THEN "" ELSE (CFMT(DOCUMENT.C_5006_1459884965_936,"","CYSTO:","B") + CFMT(DOCUMENT.C_5006_1459884965_937, "", " ", "B", "
")) ENDIF) ENDIF <-VOID{IF (STR(DOCUMENT.I_5006_1459884965_942, F5006_1435236600_83_6, F5006_1435236599_990_6, F5006_1435236600_114_6, F5006_1435236600_411_6, F5006_1435236600_21_6, F5006_1435236600_676_6, F5006_1446055903_885_6, F6885_1444153437_372_6, F5006_1435236600_895_6, F5006_1435236600_957_6, F5006_1435236600_130_6, F5006_1435236600_520_6, F5006_1435236599_943_6, F5006_1435236600_707_6, F5006_1435236600_692_6, F5006_1435236600_270_6) == "") THEN "" ELSE (IF DOCUMENT.I_5006_1459884965_942 = "YES" THEN HRET + "Preventive Screening Previous Values: " +HRET ELSE "" ENDIF + IF NOT (F5006_1435236600_83_2 = "") THEN "" ELSE (IF DOCUMENT.I_5006_1459884965_942 ="YES" THEN CFMT(F5006_1435236600_83_1,"","Cholesterol:","B","
") ELSE "" ENDIF) ENDIF + IF NOT (F5006_1435236600_83_2 <> "") THEN "" ELSE (IF DOCUMENT.I_5006_1459884965_942 ="YES" THEN CFMT(F5006_1435236600_83_6,"","Cholesterol: ","B","
") ELSE "" ENDIF) ENDIF + IF DOCUMENT.I_5006_1459884965_942 = "YES" THEN CFMT(F5006_1435236599_990_6, "", "Diabetes: ", "B", "
") ELSE "" ENDIF + IF DOCUMENT.I_5006_1459884965_942 = "YES" THEN CFMT(F5006_1435236600_114_6, "", "Colonoscopy: ", "B", "
") ELSE "" ENDIF + IF DOCUMENT.I_5006_1459884965_942 ="YES" THEN CFMT(F5006_1435236600_411_6,"","Stool Cards: ","B","
") ELSE "" ENDIF + IF DOCUMENT.I_5006_1459884965_942 = "YES" THEN CFMT(F5006_1435236600_21_6, "", "Dexa Scan: ", "B", "
") ELSE "" ENDIF + IF DOCUMENT.I_5006_1459884965_942 = "YES" THEN CFMT(F5006_1435236600_505_6, "", "Flu Shot: ", "B", "
") ELSE "" ENDIF + IF DOCUMENT.I_5006_1459884965_942 = "YES" THEN CFMT(F5006_1435236600_676_6, "", "Pneumonia Shot: ", "B", "
") ELSE "" ENDIF + IF DOCUMENT.I_5006_1459884965_942 ="YES" THEN CFMT(F5006_1446055903_885_6,"","PCV13: ","B","
") ELSE "" ENDIF + IF DOCUMENT.I_5006_1459884965_942 ="YES" THEN CFMT(F6885_1444153437_372_6,"","HGBA1C: ","B","
") ELSE "" ENDIF + IF DOCUMENT.I_5006_1459884965_942 = "YES" THEN CFMT(F5006_1435236600_895_6, "", "Tetanus Shot: ", "B", "
") ELSE "" ENDIF + IF DOCUMENT.I_5006_1459884965_942 = "YES" THEN CFMT(F5006_1435236600_957_6, "", "Shingles Vaccine: ", "B", "
") ELSE "" ENDIF + IF DOCUMENT.I_5006_1459884965_942 ="YES" THEN CFMT(MENACTRA,"","MENACTRA:","B","
") ELSE "" ENDIF + IF DOCUMENT.I_5006_1459884965_942 ="YES" THEN CFMT(F5006_1435236600_130_6,"","Menactra:","B","
") ELSE "" ENDIF + IF DOCUMENT.I_5006_1459884965_942 ="YES" THEN CFMT(F5006_1435236600_380_6,"","GARDASIL #1: ","B","
") ELSE "" ENDIF + IF DOCUMENT.I_5006_1459884965_942 ="YES" THEN CFMT(F5006_1435236600_489_6,"","GARDASIL #2: ","B","
") ELSE "" ENDIF + IF DOCUMENT.I_5006_1459884965_942 ="YES" THEN CFMT(F5006_1435236600_395_6,"","GARDASILL #3: ","B","
") ELSE "" ENDIF + IF NOT (PATIENT.SEX = "F") THEN "" ELSE (IF DOCUMENT.I_5006_1459884965_942 = "YES" THEN CFMT(F5006_1435236600_614_6, "", "Pap Smear / Well Women: ", "B", "
") ELSE "" ENDIF + IF DOCUMENT.I_5006_1459884965_942 = "YES" THEN CFMT(F5006_1435236600_520_6, "", "Mammogram: ", "B", "
") ELSE "" ENDIF) ENDIF + IF NOT (PATIENT.SEX = "M") THEN "" ELSE (IF DOCUMENT.I_5006_1459884965_942 ="YES" THEN CFMT(F5006_1435236599_943_6,"","AAA: ","B","
") ELSE "" ENDIF + IF DOCUMENT.I_5006_1459884965_942 ="YES" THEN CFMT(F5006_1435236600_707_6,"","AAA:","B","
") ELSE "" ENDIF) ENDIF + IF DOCUMENT.I_5006_1459884965_942 ="YES" THEN CFMT(F5006_1435236600_692_6,"","TRUSP:","B","
") ELSE "" ENDIF + IF DOCUMENT.I_5006_1459884965_942 ="YES" THEN CFMT(F5006_1435236600_270_6,"","CYSTO:","B","
") ELSE "" ENDIF) ENDIF <-VOID{IF (STR(F5006_1435236600_427_0, F5006_1435236600_941_0, STR(PATIENT.FORMATTEDAGE), STR(PATIENT.SEX), F5814_1436284203_849_1, F5814_1436284203_848_1, DOCUMENT.S_5006_1459884966_24, DOCUMENT.S_5006_1459884966_27) == "") THEN "" ELSE (IF F5006_1435236600_832_1 <> "" THEN FMT("STOP BANG: ", "B,1") +HRET ELSE "" ENDIF + CFMT(DOCUMENT.S_5006_1459884966_24, "", "Suspected Diagnosis: ", "B", "
") + CFMT(DOCUMENT.S_5006_1459884966_27, "", "Other Suspected Diagnosis: ", "B", "
")) ENDIF <-VOID{IF NOT (if (val(F5006_1435236600_832_1)+
val(F5006_1435236600_848_1)+
val(F5006_1435236600_817_1)+
val(F5006_1435236600_863_1)+
val(DOCUMENT.SLEEP_BMI)+
val(DOCUMENT.SLPAGE)+
val(if PATIENT.SEX = "M" then "1" else "0" endif)+
val(DOCUMENT.SLPNECK)) > 2
then DOCUMENT.H_5006_1459884966_46 = "YES"
else DOCUMENT.H_5006_1459884966_46 = "" endif) THEN "" ELSE ("") ENDIF <-VOID{IF NOT (if (val(F5006_1435236600_832_1)+
val(F5006_1435236600_848_1)+
val(F5006_1435236600_817_1)+
val(F5006_1435236600_863_1)+
val(DOCUMENT.SLEEP_BMI)+
val(DOCUMENT.SLPAGE)+
val(if PATIENT.SEX = "M" then "1" else "0" endif)+
val(DOCUMENT.SLPNECK)) > 2
then DOCUMENT.H_5006_1459884966_46 = "YES"
else DOCUMENT.H_5006_1459884966_46 = "" endif) THEN "" ELSE ("") ENDIF <-VOID{IF NOT (if (val(F5006_1435236600_832_1)+
val(F5006_1435236600_848_1)+
val(F5006_1435236600_817_1)+
val(F5006_1435236600_863_1)+
val(DOCUMENT.SLEEP_BMI)+
val(DOCUMENT.SLPAGE)+
val(if PATIENT.SEX = "M" then "1" else "0" endif)+
val(DOCUMENT.SLPNECK)) > 2
then DOCUMENT.H_5006_1459884966_46 = "YES"
else DOCUMENT.H_5006_1459884966_46 = "" endif) THEN "" ELSE ("") ENDIF <-VOID{IF NOT (if (val(F5006_1435236600_832_1)+
val(F5006_1435236600_848_1)+
val(F5006_1435236600_817_1)+
val(F5006_1435236600_863_1)+
val(DOCUMENT.SLEEP_BMI)+
val(DOCUMENT.SLPAGE)+
val(if PATIENT.SEX = "M" then "1" else "0" endif)+
val(DOCUMENT.SLPNECK)) <= 2
then DOCUMENT.L_5006_1459884966_45 = "YES"
else DOCUMENT.L_5006_1459884966_45 = "" endif) THEN "" ELSE ("") ENDIF <-VOID{IF (STR(F5006_1435236600_832_1, F5006_1435236600_848_1, F5006_1435236600_817_1, F5006_1435236600_863_1, DOCUMENT.SLEEP_BMI, DOCUMENT.SLPAGE, DOCUMENT.SLPNECK, STR(PATIENT.SEX)) == "") THEN "" ELSE (if F5006_1435236600_832_1 <> "" or F5006_1435236600_848_1 <> "" or F5006_1435236600_817_1 <> "" then
CFMT("Stop Bang Questionnaire:
", "B,1", "
")+
CFMT(F5006_1435236600_832_1, "", "1. Snoring:\t\t\t", "B", "
") +
CFMT(F5006_1435236600_848_1, "", "2. Tired:\t\t\t", "B", "
") +
CFMT(F5006_1435236600_817_1, "", "3. Observed:\t\t\t", "B", "
") +
CFMT(F5006_1435236600_863_1, "", "4. Blood pressure:\t\t", "B", "
") +
CFMT(DOCUMENT.SLEEP_BMI, "", "5. BMI:\t\t\t", "B", "
") +
CFMT(DOCUMENT.SLPAGE, "", "6. Age over 50:\t\t", "B", "
") +
CFMT(DOCUMENT.SLPNECK, "", "7. Neck circum. > 40 cm:\t", "B", "
") +
CFMT(STR(PATIENT.SEX), "", "8. Gender: \t\t\t", "B", "
")
else "" endif) ENDIF <-VOID
[Physical Exam - IM]
{/*VARIABLES FOR MEL BUILT-IN SYMBOLS USED IN FORM*/
<-VOID{global F5006_1435762083_647=PROB_AFTER("DELIMITED") "" <-VOID{global F5006_1435762083_662=PROB_AFTER() "" <-VOID{global F5006_1442327358_163=PROB_LIST_CHANGES() "" <-VOID{
/*FUNCTION DEFINITIONS*/
<-VOID{/*START OF FORM TRANSLATION BODY*/
<-VOID
[Assessment and Plan - IM]
[Test Management IM-FP ADMIN]
{if (EMRLINK_isNullorEmpty(DOCUMENT.EMRLINK_Note_CheckBox) == false and EMRLINK_isNullorEmpty(DOCUMENT.EMRLINK_API_VAR_InternalNote) == False) then
CFMT(DOCUMENT.EMRLINK_API_VAR_InternalNote + "\r\n", "", "Internal Note" + "\r\n", "B", "\r\n")
else
""
endif <-FUNCTION DEFINITION IS NOT EXECUTABLE{if EMRLINK_isNullorEmpty(DOCUMENT.EMRLINK_Status_Checkbox) == false and EMRLINK_isNullorEmpty(EMRLINK_trim(DOCUMENT.EMRLINK_note1 + DOCUMENT.EMRLINK_note2 + DOCUMENT.EMRLINK_note3 + DOCUMENT.EMRLINK_note4 + DOCUMENT.EMRLINK_note5 + DOCUMENT.EMRLINK_note6 + DOCUMENT.EMRLINK_note7 + DOCUMENT.EMRLINK_note8 + DOCUMENT.EMRLINK_note9 + DOCUMENT.EMRLINK_note10)) == false then
CFMT(EMRLINK_getDocNote(), "", "Process Orders" + "\r\n", "B", "\r\n")
else
""
endif <-VOID
[Prescriptions]
[Patient Instructions - IM]
