Happy Monday All!    So here is my questions that I hope can be solved with relative ease-  I have an array that works in that  it calculates if notetime{i} is between the Unit_startTime_Day & Unit_EndTime_Day, tallies the sum of the entries that match and then keeps the notetimes that match the condition    But here is what I am trying to do-  In line2, I am trying to make it so that notetime4 becomes notetime1, notetime5 becomes notetime2, etc etc as there can be up to x number of notes but it becomes difficult for users to scroll through when its note22-note1000   code below table-  I apologize in advance that there is no input table  but hopefully someone can point me to the way...  Thanks in advance for your help.   LB    data all_notes; retain date time_days pt_hours total_notes; merge unit_time note_times; by PAT_ENC_CSN_ID; array notes (*) note:; array notep {&notect}; array notetime {&notect}; do i=1 to dim(notes); if start2<=notes(i)<=end_t then notep(i)=1; else notep(i)=0; if notep(i)=1 then notetime(i)=notes(i);else notetime(i)=.; end;   total_notes=sum(of notep1-notep&notect); format notetime1-notetime&notect datetime19.; drop _name_ _label_ note1-note&notect /*notep1-notep&notect* i*/ department_id DEPARTMENT_NAME tot_hrs; rename start2=Unit_StartTime_Day END_T=Unit_EndTime_Day time_days=pt_days; if department_id=. then delete; run;       pat_enc_csn_id Unit_StartTime_Day Unit_EndTime_Day notetime1 notetime2 notetime3 notetime4 notetime5 notetime6 notetime7 1234 24Jul18:04:19:00 24Jul18:23:59:59 24Jul18:02:35:00 24Jul18:08:42:00 24Jul18:22:58:00 . . . . 1234 25Jul18:00:00:00 25Jul18:23:59:59 . . . 25Jul18:03:25:00 25Jul18:08:18:00 . . ... View more

  Hello all;   What I have is a set of  timestamps and a Patient ID number.  Such as  PAT_ID         COL1                      COL2                                   COL3                          COL4 123             01JAN17:12:00:00   01JAN17:13:00:00              01JAN17:13:30:00       01JAN17:15:00:00   What I need to do is compute the time differences between col1 & col2, col1&co3 ,col1&co4  then col2&col3, col2&col4 and then finally col3&col4 and then get the first timestamp  with the  time difference under 120 minutes. so in the example above it would output col1.   The time stamps above are when a patient when into hypotension-however there has to be at least two episodes within 120 minutes.    Not even sure how to begin the array on this one-  Any assistance on where to begin much appreciated.    Lawrence  ... View more

Hi all;    So I am attempting to run macro loops within each other- In this example I am using the sashelp.baseball dataset as I can't use company data but the concept and results are the same-   So in this case-the first loop outputs data from the league (American,National) and outputs via proc report into separate excel documents. This part works fine-    It's the nested loop that becomes the issue where for each league report-I am attempting to output a proc shewart graph for each team in the  league on separate tabs-    However, while it produces separate excel workbooks for each league, it simply repeats the same team shewart graph for each tab.  (ie. for the National League it outputs Chicago 12 times)     I am sure I am missing something simple.    Code follows below-  Assistance much appreciated.    Lawrence     proc sort data=SASHELP.baseball out=BASEBALL; by YrMajor; run; %macro ambulA (data=, var=); proc sort data=&data(keep=&var) out=values nodupkey; by &var; run; data _null_; set values end=last; call symputx('facid'||left(_n_),&var); if last then call symputx('count1',_n_, 'g'); run; %put _local_; DATA _NULL_ ; select(&var); %do i=1 %to &count1;   options center; ods listing close; title ' '; footnote1 j=l H=1 ' '; title1 H=4 "DATA Statistics"; title2 H=4 "FOR &&facid&i"; ods excel file="c:\temp\&&facid&i...xlsx" style=Seaside options(sheet_name="league" SHEET_INTERVAL= 'PAGE' autofilter='1' FROZEN_ROWHEADERS='no' GRIDLINES='ON' embedded_titles='yes' embedded_footnotes='yes'); proc report data=baseball (where=(League= "&&facid&i")) headline headskip nowd spanrows style (column)={background=white just=center color=black font =("arial",7.5pt)} style (header)={background=white just=center color=black font =("arial",8.0pt)}; columns League YrMajor Team nRuns ; run; proc sql; create table toch as select distinct Team,YrMajor,sum(nruns) as nruns from baseball where League= "&&facid&i" group by Team,YrMajor; quit;     %macro ambulB (data=, varx=); proc sort data=&data(keep=&varx) out=valuesx nodupkey; by &varx; run; data _null_; set valuesx end=last; call symputx('unit'||left(_n_),&varx); if last then call symputx('count3',_n_,'g'); run; %put _local_; DATA _NULL_ ; select(&varx); %do J=1 %to &count3; symbol2 c=blue value=dot h=3.0 pct; ods excel style=Seaside options(sheet_name="&&unit&i Control Chart" SHEET_INTERVAL= 'PAGE' autofilter='1' FROZEN_ROWHEADERS='no' embedded_titles='yes' embedded_footnotes='yes' embed_titles_once = 'on' embedded_titles='on' gridlines='off' START_AT='3,3'); Title "&&unit&i Control Chart"; proc shewhart data=toch (where=(TEAM="&&unit&i")); xchart nruns * YrMajor/nolegend MARKERS ; run; %end; %mend ambulB; %ambulB (data=toch, varx=team); ODS _ALL_ Close; %end; %mend; %ambulA(data=Baseball, var=League);     ... View more

Hello all-  So I am trying to output an excel ODS document using SGPLOT and a scatter plot-    Got the code below to work except for the fact that the colors do not render as requested-in that I am specifying two colors- green and tan- In the windowing environment it does not render correctly at all-it comes out blue and red. However in that environment I am less concerned.    When it actually outputs to excel-I get the green but not the tan-  I am using the sashelp.cars dataset as an example-  Any assistance appreciated. Thank you   Lawrence   proc sql; create table cars as select distinct make, sum(MSRP) as MSRP, 10 as line, case when make in ('BMW', 'Dodge', 'Jaguar') then 1 else 0 end as pref from sashelp.cars Where substr(make, 1, 1) in ('A', 'B', 'D', 'J', 'M') group by make; quit; proc sql; create table attrmap as select distinct make as value, case when pref=1 then '#c9df8a' else 'tan' end as markercolor, 'MYID' as ID from cars; quit; ods excel file="C:\temp\car.xlsx" style=Seaside options(sheet_name="Example" SHEET_INTERVAL='PAGE' autofilter='NO' FROZEN_ROWHEADERS='no' embedded_titles='yes' embedded_footnotes='yes' embed_titles_once='on' embedded_titles='on' gridlines='off' START_AT='3,3'); title1 ls=1.5 "xxxx ^*"; ods graphics / reset width=10in height=6in; proc sgplot data=cars dattrmap=attrmap; styleattrs DATACONTRASTCOLORS=(black); scatter x=make y=line /group=pref attrid=myid markerattrs=(size=40 symbol=circlefilled) filledoutlinedmarkers markeroutlineattrs=(thickness=0) dataskin=pressed datalabel=MSRP SPLITCHAR="\" datalabelpos=center; keylegend / location=outside position=right title=' ' sortorder=descending; YAXIS LABEL="CAR MSRP SUM"; XAXIS LABEL=" "; run; ods _all_ close;   ... View more