-SET &DATE_TYPE = IF &DATE_TYPE EQ 'Denial' THEN FIN_DENIALS.FIN_DENIALS.Denial_Date_MDYY ELSE FIN_DENIALS.FIN_DENIALS.DOS_MDYY; END GRAPH FILE fin_denials -* Created by Info Assist for Graph SUM CNT.FIN_DENIALS.FIN_DENIALS.DENIAL_ID AS 'Denials by Category' BY FIN_DENIALS.REF_FIN_REASON_REMARK_CAT_CDS.DENIAL_CATEGORY WHERE FIN_DENIALS.REF_FIN_REASON_REMARK_CAT_CDS.ACTION_AREA NE 'PFS'; WHERE FIN_DENIALS.FIN_DENIALS.ENC_TYPE EQ &ENC_TYPE.(|FORMAT=A50V).ENC_TYPE.QUOTEDSTRING; WHERE FIN_DENIALS.FIN_DENIALS.MED_SVC EQ &MED_SVC.(|FORMAT=A50V).MED_SVC.QUOTEDSTRING; WHERE &DATE_TYPE GE '&Start_Date'; WHERE &DATE_TYPE LE '&End_Date'; WHERE FIN_DENIALS.FIN_DENIALS.ACTIVE_IND EQ 1; ON GRAPH PCHOLD FORMAT JSCHART ON GRAPH SET VZERO OFF ON GRAPH SET HTMLENCODE ON ON GRAPH SET GRAPHDEFAULT OFF ON GRAPH SET GRWIDTH 1 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 1 ON GRAPH SET GRXAXIS 0 ON GRAPH SET LOOKGRAPH PIERING ON GRAPH SET AUTOFIT ON ON GRAPH SET STYLE * *GRAPH_SCRIPT setPieDepth(0); setPieTilt(0); setDepthRadius(0); setCurveFitEquationDisplay(false); setPlace(true); setPieFeelerTextDisplay(1); *END INCLUDE=IBFS:/WFC/Repository/RDFTemplates/Common/sty/angular_modified.sty,$ TYPE=REPORT, TITLETEXT=&WF_TITLE.QUOTEDSTRING, $ TYPE=DATA, COLUMN=N3, TARGET='_blank', FOCEXEC=IBFS:/WFC/Repository/Finance/Denials/Denials_by_Category_Drill_V1.fex(DENIAL_CATEGORY=FIN_DENIALS.REF_FIN_REASON_REMARK_CAT_CDS.DENIAL_CATEGORY Start_Date=&Start_Date.QUOTEDSTRING End_Date=&End_Date.QUOTEDSTRING DATE_TYPE=&DATE_TYPE.EVAL ), $
SET EXCELSERVURL = '' -SET &DATE_TYPE = IF &DATE_TYPE EQ 'Denial' THEN FIN_DENIALS.FIN_DENIALS.Denial_Date_MDYY ELSE FIN_DENIALS.FIN_DENIALS.DOS_MDYY END TABLE FILE FIN_DENIALS BY FIN_DENIALS.REF_FIN_REASON_REMARK_CAT_CDS.DENIAL_CATEGORY AS 'Denial Category' BY FIN_DENIALS.FIN_DENIALS.DENIAL_ID AS 'Denial ID' BY FIN_DENIALS.FIN_DENIALS.FIN BY FIN_DENIALS.FIN_DENIALS.ENC_TYPE AS 'Encounter Type' BY FIN_DENIALS.FIN_DENIALS.MED_SVC AS 'Medical Service' BY FIN_DENIALS.FIN_DENIALS.PLAN_NAME AS 'Plan Name' BY FIN_DENIALS.FIN_DENIALS.FIN_CLASS AS 'Financial Class' BY FIN_DENIALS.FIN_DENIALS.ATT_PROV AS 'Attending,Provider' BY LOWEST FIN_DENIALS.FIN_DENIALS.DOS_MDYY AS 'Date of Service' BY FIN_DENIALS.FIN_DENIALS.Remit_Date_MDYY AS 'Remit Date' BY LOWEST FIN_DENIALS.FIN_DENIALS.Denial_Date_MDYY AS 'Denial Date' BY FIN_DENIALS.REF_FIN_REASON_REMARK_CAT_CDS.ACTION_AREA AS 'Action Area' BY FIN_DENIALS.FIN_DENIALS.DENIAL_CODE BY FIN_DENIALS.REF_FIN_REASON_REMARK_CAT_CDS.CODE AS 'Denial Code' BY FIN_DENIALS.REF_FIN_REASON_REMARK_CAT_CDS.DESCRIPTION AS 'Denial Description' WHERE &DATE_TYPE GE '&Start_Date'; WHERE &DATE_TYPE LE '&End_Date'; WHERE FIN_DENIALS.REF_FIN_REASON_REMARK_CAT_CDS.DENIAL_CATEGORY EQ '&DENIAL_CATEGORY'; ON TABLE SET PAGE-NUM NOLEAD ON TABLE SET ASNAMES ON ON TABLE SET BYDISPLAY ON ON TABLE NOTOTAL ON TABLE PCHOLD FORMAT XLSX
-TYPE &|Start_Date: &Start_Date -TYPE &|End_Date: &End_Date -TYPE &|DENIAL_CATEGORY: &DENIAL_CATEGORY -TYPE &|DATE_TYPE : &DATE_TYPE -EXIT
quote:
-SET &DATE_TYPE = IF &DATE_TYPE EQ 'Denial' THEN FIN_DENIALS.FIN_DENIALS.Denial_Date_MDYY ELSE FIN_DENIALS.FIN_DENIALS.DOS_MDYY;
END
In FOCUS since 1986 | WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2 | ||
WebFOCUS App Studio 8.2.06 standalone on Windows 10 |
TYPE=DATA, COLUMN=N2, TARGET='_blank', FOCEXEC=IBFS:/WFC/Repository/Finance/Denials/Denials_by_Category_Drill_V1.fex(DENIAL_CATEGORY=FIN_DENIALS.REF_FIN_REASON_REMARK_CAT_CDS.DENIAL_CATEGORY Start_Date=&Start_Date.QUOTEDSTRING End_Date=&End_Date.QUOTEDSTRING DATE_TYPE=&DATE_TYPE.QUOTEDSTRING ), $