7m…ôcU7 \cd­!PROC renalfunc:LOCAL choice%,drug%,dose,eq,name$(17),maxd,drugeqCLSAT 10,5 :PRINT "Calculate:"AT 23,5 :PRINT "1. Creatinine Clearance from 24 hr urine"AT 23,6 :PRINT "2. GFR using Cockcroft & Gault formula"AT 23,9 :PRINT "(Q)uit"choice%=GETIF choice%=%1 creat:ELSEIF choice%=%2 gfr:ELSEIF choice%=%q OR choice%=%Q STOPENDIFENDPPROC gfr:LOCAL y, age%, sex$(1), ht%, ibw, creat%, gfr, weight%, gfrbDOCLSAT 5,3 :PRINT "Enter Sex of patient (m/f):", :INPUT sex$IF sex$="f" OR sex$="F" y=1.04ELSEIF sex$="m" OR sex$="M" y=1.23ENDIFAT 5,4 :PRINT "Enter Age of patient :", :INPUT age%AT 5,5 :PRINT "Enter Height (inches over 5 feet ):", :INPUT ht%AT 5,6 :PRINT "Enter Weight (kg) :", :INPUT weight%AT 5,7 :PRINT "Enter Serum Creatinine :", :INPUT creat%IF sex$="f" OR sex$="F" ibw=45.5+(ht%*2.3)ELSEIF sex$="m" OR sex$="M" ibw=50+(ht%*2.3)ENDIFgfr=INT((((y*(140-age%))*ibw)/creat%)+0.5)gfrb=INT(y*((140-age%)*weight%))AT 5,10 :PRINT "GFR = ",gfr, "ml/min"IF gfr<=80 AT 5,12 PRINT "***That is BELOW the normal range of 80-130 ml/min***" ELSEIF gfr>=130 AT 5,12 PRINT "***That is ABOVE the normal range of 80-130 ml/min***" ENDIFGETdINIT "Again ?"dBUTTONS "No",%N,"Yes",%YUNTIL DIALOG<>%yrenalfunc:ENDPPROC creat:LOCAL urvol, urcre, plcre,ccl,v,u,pCLSDOCLSAT 1,4PRINT "Enter Urine Vol (ml/ 24hrs):",AT 40, 4: INPUT urvolPRINT "Enter Urine Creatinine (mmol):",AT 40,5 : INPUT urcrePRINT "Enter Plasma Creatinine (mcmol/litre):",AT 40,6 :INPUT plcrePRINT ""PRINT ""REM convert litres to ml, mcmol to mmol, and hrs to minutesv=urvol/1440 :REM ml per minuteu=(urcre/urvol)/1000 :REM conc. of creat per ml of urinep=plcre/1000000 :REM mcmol to mmol and litres to mlccl=INT((((u*v)/p)*1000)+0.5)rem orig ccl=INT(((urcre/1440)/(urvol/1000)*urvol)/(plcre/1000))PRINT "Creatinine Clearance = ", :AT 30,9 : PRINT ccl,"ml/min"IF ccl<=80 PRINT "" PRINT "***That is BELOW the normal range of 80-130 ml/min***" ELSEIF ccl>=130 PRINT "" PRINT "***That is ABOVE the normal range of 80-130 ml/min***" ENDIFGETdINIT "Again ?"dBUTTONS "No",%N,"Yes",%YUNTIL DIALOG<>%yrenalfunc:ENDPÐР   \c‘efd\c™efdý‚.ÆA…*TextEd.app…¡‰(