Stikked
DECLARE @sql LONG VARCHAR;
SET @sql = 'SELECT Test';
FOR f_fetch
AS c_fetch NO SCROLL CURSOR FOR
SELECT DISTINCT t1.TestDate AS @c2
FROM (SELECT ccd_lab_desc AS 'Test', ( ccd_result_1 || ' ' || ccd_lab_display_unit ) AS 'Result', ccd_lab_date_display AS 'TestDate' FROM DBA.v_ccd_lab WHERE ccd_lab_date > ( Today() - 90 ) AND ccd_patient_id = 17577 ORDER BY ccd_lab_desc ASC, ccd_lab_date DESC ) as t1
ORDER BY t1.TestDate desc
FOR READ ONLY
DO
SET @sql = STRING (@sql,', (if charindex(''-99'',replace((max( ( IF t1.TestDate = ''',@c2,''' THEN t1.Result ELSE -99 ENDIF ) ) || max(t1.ccd_lab_display_unit) ),''0000'',''0'')) = 0 then replace((max( ( IF t1.TestDate = ''',@c2,''' THEN t1.Result ELSE -99 ENDIF ) ) || max(t1.ccd_lab_display_unit) ),''00000'',''0'') else ''N/A'' endif) AS ''',@c2,'''' );
END FOR;
SET @sql = STRING (
@sql,
' INTO #t1 FROM (SELECT ccd_lab_desc AS Test, ccd_lab_display_unit, (case when IsNumeric(ccd_result_1) = 1 then ccd_result_1 ELSE 0 end) AS Result, ccd_lab_date_display AS TestDate FROM DBA.v_ccd_lab WHERE ccd_lab_date > ( Today() - 90 ) AND ccd_patient_id = 17577 ORDER BY ccd_lab_desc ASC, ccd_lab_date DESC ) as t1 GROUP BY t1.Test' );
EXECUTE IMMEDIATE @sql;
SELECT * FROM #t1 ORDER BY Test;
END;
+k3muV1OrAKd0wt9rSl4QmSIuywDBBYOBJXvAi3wwHbE0Ool5KP68/LCnE6mhcwSe18rM0z6oS19BYWifNpQmgFkKQ/s05uts6A1
7qBHrQ6G0x8KkainWg3raZDZ4f3nuCBgWh3ooNtiAh3UkVjiXGkhqVXFO32h3iGKHDEHnBvWnd1D3wn4/E8AzoVKPXRHE0Omhseb
FRlmTayRpdLAYqSszXCu7HeThML1Zd4P4z3Y0qKVB0U/c0HR0e/whyWKrOjTOXmIfmSJSvnI4i73JouTSbdXrGIrMPZH0taksgtJ
rxsWfEa3yot/HPscP0SicoGoX0qpSOomDstS7nrtGWTWpeieUuttcskxFuuLcfYB5OBo6VZ82dThmPgZwRvjkIGlPjLRRj4IAjNx
dTwD8m0urHhno7oAt69r+1YIBgCXFJsrl5OOiB6GQMZXVrLcG+JWnjCAwHH3RgZ51YyHjG5hVkcS+7Lop4Z0KrTMWsV024okyJVQ
HZq2wj3Y2LtdGXf9SIXrk8PhN32pW+hsPpvZeyEIGjgVMazctV35FXDKCT7HHSnrir/oOT9sdDI9od9yxLi+THCNG6ltwnkFwpsb
fNYnAX5nNbKJWScsRQbyuQloy4rr0W3qIU23PUzYZDru0NeeNMzalQW5vpdrI20pUw6SIkMVn6GKMuz6epl0n5iDNFBAgxPrKXe4
c5HlDVp1Xfg8Fb0IC5t1EGdS50wTn5uWp+qgwaMT67NgwgoJdQIc9mLDBDng0AqD35kcYqUXoyTJhdNoUxXzv0vwPp1+2U2b2Mt5
oDEzN4oh5V2L6KkwiL8YobqQdeL/H5h1PTMQi/apfmBC+n0ouSf6uFR9DSAtPmQi5xkW5WpcFbhdmbrOhAZsMTwMnDuUQ4ryBJb+
6nOAAivEVpxb8AzLUvkgbKfnUAIFH9kGK22BR85aPnxbvrQoqieoAqr9tji0nYIu8sdkE6/3Km4f75np5hxb4X833G6bZEQBxcBL
1X25h6D8mfg8wad0iXOu50q5cJosWzhMiOQxDUvJWlief+ocklbp0TrrvNdjMK1jZ13dUm6rpBXE5EXszK2nO6jJuZNCK9Yd5QAZ
/UZ6pYiAsQXhJZOcyIvjWec59kRItmA8QDN0tg8TgjkgA6yzAtd94X3PWPPhS4AcANZDYpVhYxMUYa2F8GnhbzzaSs/fS/nalg0o
nBBm5NgJhUFEszr7eQ/85St7p7uuw5mmxlMtC5/kFmgBDZamu1h8O8RMPKLnmfumi59WN/JcfXYWBnWwEQuYhOwELkOlee/G29on
bAcYGtYohfQGxOy1zTB/ibIG10h7KH4eb+IhebgWcwAqRp1WU/Y=