with engine.connect() as conn:
    df = pd.read_sql("""
        SELECT TOP 100
               s.PROCHI,
               d.sex,
               d.Calculated_Age,
               s.ADMISSION_DATE,
               s.DISCHARGE_DATE,
               s.LENGTH_OF_STAY,
               s.MAIN_CONDITION,
               s.MAIN_OPERATION
        FROM Project_12345..SMR01_Admissions s
        INNER JOIN Project_12345..Demography_Current d
            ON s.PROCHI = d.PROCHI
        ORDER BY NEWID()
    """, conn)

df.head()

df <- dbGetQuery(conn, "
    SELECT TOP 100
           s.PROCHI,
           d.sex,
           d.Calculated_Age,
           s.ADMISSION_DATE,
           s.DISCHARGE_DATE,
           s.LENGTH_OF_STAY,
           s.MAIN_CONDITION,
           s.MAIN_OPERATION
    FROM Project_12345..SMR01_Admissions s
    INNER JOIN Project_12345..Demography_Current d
        ON s.PROCHI = d.PROCHI
    ORDER BY NEWID()
")

head(df)