Spatial clusters of Indonesian outpatients

In general, Indonesians outpatients are responsive to the quality, cost, and location of the outpatient care. Since outpatient care is an essential component of the primary care system, efforts to expand the availability, affordability, and improving the quality of outpatient care coverage should be continued.

CODES:

dm 'clear log';

dm 'clear output';

data rj3_; set rj3;

if RJ05AX = 'A' or RJ05AX = 'B' then type='public';

if RJ05AX = 'E' or RJ05AX = 'F' or RJ05AX = 'G' then type='private';

if RJ05AX = 'H' or RJ05AX = 'I' then type='midwife_trad';

if type ~= ''; Cluster=1*TSC_7104;

if Cluster=1 then C1=1; else C1=0;

if Cluster=2 then C2=1; else C2=0;

if Cluster=3 then C3=1; else C3=0;

label C1 = 'Cluster 1' C2 = 'Cluster 2' C3 = 'Cluster3';

run;

proc sql;

create table agg as

select ID,

sum(C1) as Cluster1, sum(C2) as Cluster2, sum(C3) as Cluster3

from rj3_ group by ID; run; quit;

data agg; set agg; if ID~=.; run;

goptions reset=all border;

*title "Labeling Provinces with the MAPLABEL Macro";

footnote j=r "IFLS 2007";

pattern1 value=empty color=black;

%annomac;

%maplabel (maps.indonesi, maps.indones2, work.labelout, idname, id, font=Arial Black,

color=black, size=2, hsys=3);

proc gmap map=maps.indonesi data=maps.indonesi;

id id;

choro id / annotate=labelout;

run;

quit;

goptions reset=all border;

footnote j=r "IFLS 2007";

pattern1 value=empty color=black;

%annomac;

%maplabel (maps.indonesi, maps.indones2, work.labelout, idname, id, font=Arial Black,

color=black, size=1.75, hsys=3);

proc gmap map=maps.indonesi data=agg;

id id;

choro Cluster1 / annotate=labelout;

label Cluster1 = 'Highly educated, high healthcare spending, consumers of private healthcare facilities';

run;

quit;

goptions reset=all border;

footnote j=r "IFLS 2007";

pattern1 value=empty color=black;

%annomac;

%maplabel (maps.indonesi, maps.indones2, work.labelout, idname, id, font=Arial Black,

color=black, size=1.75, hsys=3);

proc gmap map=maps.indonesi data=agg;

id id;

choro Cluster2 / annotate=labelout ;

label Cluster2 = 'Moderately educated, moderate healthcare spending, consumers of midwife and traditional practices';

run;

quit;

goptions reset=all border;

footnote j=r "IFLS 2007";

pattern1 value=empty color=black;

%annomac;

%maplabel (maps.indonesi, maps.indones2, work.labelout, idname, id, font=Arial Black,

color=black, size=1.75, hsys=3);

proc gmap map=maps.indonesi data=agg;

id id;

choro Cluster3 / annotate=labelout ;

label Cluster3 = 'Moderately educated, moderate healthcare spending, consumers of public healthcare facilities';

run;

quit;

data agg2; set agg;

if ID=2 then cluster=2;

if ID=4 then cluster=2;

if ID=5 then cluster=1;

if ID=8 then cluster=2;

if ID=9 then cluster=2;

if ID=13 then cluster=1;

if ID=14 then cluster=2;

if ID=17 then cluster=2;

if ID=18 then cluster=3;

if ID=20 then cluster=1;

if ID=21 then cluster=2;

if ID=22 then cluster=2;

if ID=23 then cluster=2;

if ID=26 then cluster=2;

if ID=28 then cluster=2;

if ID=29 then cluster=1;

run;

goptions reset=all border;

footnote j=r "IFLS 2007";

pattern1 value=empty color=black;

%annomac;

%maplabel (maps.indonesi, maps.indones2, work.labelout2, idname, id, font=Arial Black,

color=black, size=1.75, hsys=3);

proc gmap map=maps.indonesi data=agg2;

id id;

choro cluster / annotate=labelout2 ;

run;

quit;

proc gmap map=maps.indonesi data=rj3_2;

id id;

choro RJ21 / anno=labelout2;

run;

quit;

data anno;

length color $ 8 text $ 20 style $ 25;

set agg;

retain xsys ysys '2' function 'label' when 'a';

size=1;

/* Place a star */

style='SWISSB';

text='.'; size=1;

/* Create an observation to place the city name on the map */

style="'Albany AMT'";

position='2';

color='black';

text=IDNAME;

size=1.5;

output;

run;

goptions reset=all border;

*title "Labeling Provinces with the MAPLABEL Macro";

footnote j=r "IFLS 2007";

pattern1 value=empty color=blue repeat=6;

%annomac;

%maplabel (maps.indonesi, maps.indones2, work.labelout, idname, id, font=Arial Black,

color=crimson, size=2, hsys=3);

proc gmap map=maps.indonesi data=maps.indonesi;

id id;

choro id / nolegend annotate=labelout;

run;

quit;

proc sort data=anno; by ID;

proc sort data=labelout; by ID;

data anno2; merge anno(in=a) labelout; by ID; if a=1; run;

pattern1 v=me r=99;

proc gmap data=agg map=maps.indonesi;

id ID;

choro Cluster1 / anno=anno2 coutline=black ;

run;

quit;

data anno;

length color $ 8 text $ 20 style $ 25;

set rj3_;

retain xsys ysys '2' function 'label' when 'a';

size=5;

/* Place a star */

style='SWISSB';

text='.'; size=5;

/* Change the color for the star based on the value of NUM */

select;

when (Cluster= 1) color='red';

when (Cluster = 2) color='blue';

otherwise color='gray';

end;

output;

/* Create an observation to place the city name on the map */

style="'Albany AMT'";

position='2';

color='black';

text=IDNAME;

size=2.5;

output;

run;

pattern1 v=me r=99;

/* Define a footnote to be used as a legend */

footnote1 box=1

f='Albany AMT' c=black h=1.2 'Cluster '

f=special c=red h=1.2 'M' f='Albany AMT' c=black h=1.2 ' 1 '

f=special c=blue h=1.2 'M' f='Albany AMT' c=black h=1.2 ' 2 '

f=special c=gray h=1.2 'M' f='Albany AMT' c=black h=1.2 ' 3 '

;

/* Generate a map of the world with city labels */

proc gmap data=rj3_ map=maps.indonesi;

id ID;

choro ID / anno=anno nolegend coutline=black ;

run;

quit;

proc sort data=agg; by ID;

proc sort data=labelout; by ID;

data agg2; merge agg(in=a) labelout; by ID; if a=1; run;

*/

pattern1 v=me r=99;

/* Define a footnote to be used as a legend */

footnote1 box=1

f='Albany AMT' c=black h=1.2 'Cluster '

f=special c=red h=1.2 'M' f='Albany AMT' c=black h=1.2 ' 1 '

f=special c=blue h=1.2 'M' f='Albany AMT' c=black h=1.2 ' 2 '

f=special c=gray h=1.2 'M' f='Albany AMT' c=black h=1.2 ' 3 '

;

footnote j=r "IFLS 2007";

/* Generate a map with province labels */

proc gmap data=rj3_ map=maps.indonesi;

id ID;

choro ID / anno=anno nolegend coutline=black ;

run;

quit;

dm 'clear log';

dm 'clear output';

proc sort data=rj3_; by ID;

proc sort data=labelout; by ID;

data rj3_; merge rj3_(in=a) labelout; by ID; if a=1; run;

data anno;

length color $ 8 text $ 20 style $ 25;

set rj3_;

retain xsys ysys '2' function 'label' when 'a';

size=5;

/* Place a star */

style='SWISSB';

text='.'; size=5;

/* Change the color for the star based on the value of NUM */

select;

when (Cluster= 1) color='red';

when (Cluster = 2) color='blue';

otherwise color='gray';

end;

output;

/* Create an observation to place the city name on the map */

style="'Albany AMT'";

position='2';

color='black';

text=IDNAME;

size=2.5;

output;

run;

goptions reset=all;

pattern1 v=me r=99;

proc gmap data=rj3_ map=maps.indonesi;

id ID;

block Cluster / anno=anno coutline=black;

run;

quit;