CODE/
-SET &GRAPH_COL1 = IF &INPATIENT1 EQ 'DIRECTS' THEN 'FDIRECT_LABOR' ELSE 'FTOTAL_COST';
-SET &GRAPH_COL2 = IF &INPATIENT1 EQ 'DIRECTS' THEN 'FDIRECT_SUPPLIES' ELSE 'FTOTAL_DIRECTS';
-SET &GRAPH_COL3 = IF &INPATIENT1 EQ 'DIRECTS' THEN 'FDIRECT_OTHER' ELSE 'FINDIRECT_COST';
-SET &COL_DESC1 = IF &INPATIENT1 EQ 'DIRECTS' THEN 'Direct Labor' ELSE 'Total Costs';
-SET &COL_DESC2 = IF &INPATIENT1 EQ 'DIRECTS' THEN 'Direct Supplies' ELSE 'Direct Costs';
-SET &COL_DESC3 = IF &INPATIENT1 EQ 'DIRECTS' THEN 'Direct Other' ELSE 'Indirect Costs';
GRAPH FILE PATIENT
SUM
&GRAPH_COL1.EVAL AS '&COL_DESC1.EVAL'
&GRAPH_COL2.EVAL AS '&COL_DESC2.EVAL'
&GRAPH_COL3.EVAL AS '&COL_DESC3.EVAL'
BY FIP_OP_FLAG AS 'TYPE'
WHERE &TIME_COL.EVAL GE '&BEGIN_DATE';
WHERE &TIME_COL.EVAL LE '&END_DATE';
HEADING
" "
ON GRAPH PCHOLD FORMAT JSCHART
ON GRAPH SET HTMLENCODE ON
ON GRAPH SET GRAPHDEFAULT OFF
ON GRAPH SET ARGRAPHENGIN JSCHART
ON GRAPH SET VZERO OFF
ON GRAPH SET UNITS &WF_STYLE_UNITS
ON GRAPH SET HAXIS &WF_STYLE_WIDTH
ON GRAPH SET VAXIS &WF_STYLE_HEIGHT
ON GRAPH SET GRMERGE ADVANCED
ON GRAPH SET GRMULTIGRAPH 0
ON GRAPH SET GRLEGEND 0
ON GRAPH SET GRXAXIS 1
ON GRAPH SET LOOKGRAPH VBAR
ON GRAPH SET AUTOFIT ON
ON GRAPH SET EMBEDHEADING ON
ON GRAPH SET STYLE *
*GRAPH_SCRIPT
setPieDepth(0);
setPieTilt(0);
setDepthRadius(0);
setCurveFitEquationDisplay(false);
setPlace(true);
setUseSeriesShapes(true);
setMarkerSizeDefault(50);
*END
INCLUDE=tests.sty,$
TYPE=REPORT, TITLETEXT=&WF_TITLE.QUOTEDSTRING, $
*GRAPH_SCRIPT
setReportParsingErrors(false);
setSelectionEnableMove(false);
setLabelStagger(getO1Label(),true);
setSmoothLines(true);
setScaleMustIncludeZero(getY1Axis(),false);
*GRAPH_JS
axisAutoLayout: {
rotate45: true,
rotate90: true,
stagger: true,
truncate: true,
skip: true
},
riserBevel: "none"
,
series: [{
series: 'all',
border:{
size: 12,
width:3
}},
],
*END
ENDSTYLE
END
-RUN
/CODE
the colors are in the style. We have 12 default colors set up that has been approved by the client.
dksib
DC Tech Services Inc
WF 8.2.1M