(HP15C CE) 3 Med Calcs I always carry with me

[mchris]

Since I bought HP15c CE it's always in my pocket for 3 essential medical calculations, and tried to use only the stack without STOring and RCL (recalling) additional registers. First the Creatinine Clearance (Cockcroft-Gault) formula which is useful for almost all drugs dosages for people with kidney failure. Second is the Body Surface Area (Takahira). As I use meters and kilograms for height and weight, the height is always a very small number and I don't bother to remember the order to put them on the stack, the program figures it out. And last the Polymyxine dosage formula for initial and subsequent doses with the results on x and y registers.

Creatinine Clearance (Cockcroft-Gault)
Sex (1=male, 2=female) ENTER, Age (Years) ENTER, Weight (Kg) ENTER, Cr (mg/dL) fC.

Code:


001    32.21.13        LBL C
002    10            ÷
003    7            7
004    2            2
005    10            ÷
006    34            x↔y
007    1            1
008    4            4
009    0            0
010    34            x↔y
011    30            -
012    20            *
013    34            x↔y
014    48            ,
015    1            1
016    5            5
017    16            CHS
018    20            *
019    1            1
020    48            ,
021    1            1
022    5            5
023    40            +
024    20            *
025    43        32    RTN

Body Surface Area (Takahira)
Weight ENTER, Height fA. Or vice versa!

Code:


026    42.21.11        LBL A
027    43        10    x≤y
028    34            x↔y
029    48            ,
030    4            4
031    2            2
032    5            5
033    14            y^x
034    48            ,
035    0            0
036    0            0
037    7            7
038    1            1
039    8            8
040    4            4
041    20            *
042    34            x↔y
043    1            1
044    0            0
045    0            0
046    20            *
047    48            ,
048    7            7
049    2            2
050    5            5
051    14            y^x
052    20            *
053    43        32    RTN

Polymyxine Dose Calculator
Creatinine Clearance ENTER, Weight (Kg) ENTER, Desired consentration (mg/dL) fB
For MIC<1 the desired consentration is 2mg/dL

Code:


054    42,21,12        LBL B
055    3            3
056    26            EEX
057    4            4
058    20            *
059    36            ENTER
060    33            R↓
061    20            *
062    2            2
063    20            *
064    34            x↔y
065    1            1
066    48            ,
067    5            5
068    20            *
069    3            3
070    0            0
071    40            +
072    34            x↔y
073    33            R↓
074    20            *
075    34            x↔y
076    33            R↓
077    34            x↔y
078    43        32    RTN

Then the initial dosage appears on the display. To view the subsequent dosage press x<>y.

[Gil]

For body surface formulae:
https://en.m.wikipedia.org/wiki/Body_surface_area