not a fan of long post but here is the mprint portion with some symbolgen.. again the issue I'm really looking to resolve are
"last, first (M>D.)" resolving to "last,"
MPRINT(MAIN): select distinct cat("put '<option value=", trim(Provider), ">", trim(provider) , "</option>';")into :prov_lst separated by " " from dat.rvw_data Where provider = " LAST, " and MRN = " > " and DOS = " > " ; ERROR: Expression using equals (=) has components that are of different data types. NOTE: PROC SQL set option NOEXEC and will continue to check the syntax of statements.
MPRINT(MAIN): quit; NOTE: The SAS System stopped processing this step because of errors. NOTE: PROCEDURE SQL used (Total process time): real time 0.00 seconds cpu time 0.00 seconds
MPRINT(MAIN): proc sql ; SYMBOLGEN: Macro variable WHR1 resolves to Where provider = " LAST, " and MRN = " > " and DOS = " > "
MPRINT(MAIN): select distinct cat("put '<option value=", put(DOS, mmddyy10.), ">", put(DOS, mmddyy10.) , "</option>';")into :dos_lst separated by " " from dat.rvw_data Where provider = " LAST, " and MRN = " > " and DOS = " > " ; ERROR: Expression using equals (=) has components that are of different data types. NOTE: PROC SQL set option NOEXEC and will continue to check the syntax of statements.
MPRINT(MAIN): quit; NOTE: The SAS System stopped processing this step because of errors. The SAS System NOTE: PROCEDURE SQL used (Total process time): real time 0.00 seconds cpu time 0.00 seconds
MPRINT(MAIN): data _null_;
MPRINT(MAIN): file _webout;
MPRINT(MAIN): put '<!DOCTYPE html>';
MPRINT(MAIN): put '<HTML>';
MPRINT(MAIN): put '<form name="my_form"';
MPRINT(MAIN): put ' method="get"';
MPRINT(MAIN): put ' action="stp url">';
MPRINT(MAIN): put '<input type="hidden"';
MPRINT(MAIN): put ' name="_program"';
MPRINT(MAIN): put ' value="stp file meta data location ">';
MPRINT(MAIN): put '<input type="hidden"';
MPRINT(MAIN): put ' name="refresh_submit"';
MPRINT(MAIN): put ' value="0">';
MPRINT(MAIN): put '<head>';
MPRINT(MAIN): put '<style>';
MPRINT(MAIN): put "th, td, input {";
MPRINT(MAIN): put "text-align: center;";
MPRINT(MAIN): put "text-wrap:unrestricted;";
MPRINT(MAIN): put "}";
MPRINT(MAIN): put "TEXTAREA[READONLY]{";
MPRINT(MAIN): put "BORDER:hidden;";
MPRINT(MAIN): put "background-color:#FFFFFF;";
MPRINT(MAIN): put "color:#000000;";
MPRINT(MAIN): put "}";
MPRINT(MAIN): put '</style>';
MPRINT(MAIN): put '<script type="text/javascript" language="JavaScript">';
MPRINT(MAIN): put 'function submitFunction(num) {';
MPRINT(MAIN): put 'if (num==1) { document.my_form.refresh_submit.value=1; }';
MPRINT(MAIN): put 'document.my_form.submit()';
MPRINT(MAIN): put '}';
MPRINT(MAIN): put'</script>';
MPRINT(MAIN): put '</HEAD>';
MPRINT(MAIN): put '<BODY>'; The SAS System
MPRINT(MAIN): put '<FORM ACTION=" ' thissrv +(-1) '" method=get>';
MPRINT(MAIN): put '<input type="hidden" name="_program" value=" ' thispgm +(-1) '">';
MPRINT(MAIN): put '<table bgcolor="#3399FF">';
MPRINT(MAIN): put '<tr>';
MPRINT(MAIN): put '<th>';
MPRINT(MAIN): put '<table align="LEFT" border="0" cellspacing="0" bgcolor="#FFFFFF" >';
MPRINT(MAIN): put '<tr>';
MPRINT(MAIN): put '<th>Provider:</th>';
MPRINT(MAIN): put '<th>MRN:</th>';
MPRINT(MAIN): put '<th>DOS:</th>';
MPRINT(MAIN): put '<th>Select:</th>';
MPRINT(MAIN): put '<th>Patient:</th>';
MPRINT(MAIN): put '<th>DOB:</th>';
MPRINT(MAIN): put '<th>Prime_Insurance:</th>';
MPRINT(MAIN): put '<th>Specialty:</th>';
MPRINT(MAIN): put '</tr>';
MPRINT(MAIN): put '<tr>';
MPRINT(MAIN): put '<tD ><label><select name="prov1" onChange="submitFunction(0); ">'; NOTE: Line generated by the macro function "SUPERQ". 201 LAST, _ 22 76
MPRINT(MAIN): put "<option value=" LAST, ">" LAST, "/option>"; SYMBOLGEN: Macro variable PROV_LST resolves to
MPRINT(MAIN): ;
MPRINT(MAIN): put '</select></label></tD>';
MPRINT(MAIN): put '<tD ><select name="MRN1" onChange="submitFunction(0); ">'; ERROR 22-322: Syntax error, expecting one of the following: a name, an integer constant, arrayname, #, $, &, (, +, -, /, //, :, ;, =, ?, @, @@, OVERPRINT, [, _ALL_, _BLANKPAGE_, _ODS_, _PAGE_, {, ~. ERROR 76-322: Syntax error, statement will be ignored. NOTE: Line generated by the macro function "SUPERQ". 201 > _ 22 200 The SAS System
MPRINT(MAIN): put "<option value=">">" > "</option>";
MPRINT(MAIN): put "<option value="">""</option>";
MPRINT(MAIN): put '</select></label></tD>';
MPRINT(MAIN): put '<tD ><select name="dos1" onChange="submitFunction(0); ">'; NOTE: Line generated by the macro function "SUPERQ". 201 > _ 22 200
MPRINT(MAIN): put "<option value=" > ">" > " </option>";
MPRINT(MAIN): put "<option value="">""</option>"; SYMBOLGEN: Macro variable DOS_LST resolves to
MPRINT(MAIN): put '</select></label></tD><BR> <BR>';
MPRINT(MAIN): put '<TD><input type="button" value="Select" value ="slct_grp" )"/></TD>';
MPRINT(MAIN): put '<tD><input name="PT" type="text" id="PT" value = ' whr1 ' size="40" tabindex="-1" /></tD>';
MPRINT(MAIN): put '<tD><input name="DOB" type="text" id="DOB" value="00/00/0000" size="10" tabindex="-1"/></tD>';
MPRINT(MAIN): put '<tD><input name="INS" type="text" id="INS" value="LOCATION" size="20" tabindex="-1"/></tD>';
MPRINT(MAIN): put '<tD><input name="SPC" type="text" id="SPC" value="OB/GYN" size="50" tabindex="-1"/></tD>';
MPRINT(MAIN): put '</tr>';
MPRINT(MAIN): put '</table>';
MPRINT(MAIN): put '</th>';
MPRINT(MAIN): put '</tr>';
MPRINT(MAIN): put '</table>';
MPRINT(MAIN): put '</body>';
MPRINT(MAIN): put '</form>';
MPRINT(MAIN): put '</html>';
MPRINT(MAIN): Run; ERROR 22-322: Syntax error, expecting one of the following: a name, a quoted string, arrayname, #, (, +, /, //, ;, @, @@, OVERPRINT, _ALL_, _BLANKPAGE_, _ODS_, _PAGE_. ERROR 200-322: The symbol is not recognized and will be ignored. NOTE: The SAS System stopped processing this step because of errors. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds The SAS System 202 +quit; NOTE: %INCLUDE (level 1) ending.
... View more
