TABLE FILE VIEWPATIENTRECORD
SUM
	 DRGID NOPRINT
	 ICD9ID NOPRINT
	 &DIMTYPEDESC1
	 &DIMTYPEDESC2
	 CATEGORYDESCRIPTION NOPRINT
	 NRBD NOPRINT
	 NRED NOPRINT
	 LEVELDESC NOPRINT
	 BLCASES AS 'Vol&SUPBTAG 1&SUPETAG'
	 CURRCASES AS 'Vol&SUPBTAG 2&SUPETAG'
	 COMPUTE VOLVAR/D12=CURRCASES-BLCASES; AS 'Vol Var' NOPRINT
	 COMPUTE BLNRTOT/D12.2CM =BLNETREV; AS 'NR &SUPBTAG 1 &SUPETAG' &HIDEAGG &HIDENR
	 COMPUTE CYNRTOT/D12.2CM =CURRNETREV; AS 'NR &SUPBTAG 2 &SUPETAG' &HIDEAGG &HIDENR
	 COMPUTE NRTOTVAR/D12.2CM=CYNRTOT - BLNRTOT; AS 'NR Var' &HIDEAGG &HIDENR
	 COMPUTE BLVARTOT/D12.2CM =BLVARCOST; AS 'VC &SUPBTAG 1 &SUPETAG' &HIDEAGG &HIDEVC
	 COMPUTE CYVARTOT/D12.2CM =CURRVARCOST; AS 'VC &SUPBTAG 2 &SUPETAG' &HIDEAGG &HIDEVC
	 COMPUTE VARTOTVAR/D12.2CM=CYVARTOT - BLVARTOT; AS 'VC Var' &HIDEAGG &HIDEVC
	 COMPUTE BLCMTOT/D12.2CM =(BLNETREV) - (BLVARCOST); AS 'CM &SUPBTAG 1 &SUPETAG' &HIDEAGG
	 COMPUTE CYCMTOT/D12.2CM =(CURRNETREV) - (CURRVARCOST); AS 'CM &SUPBTAG 2 &SUPETAG' &HIDEAGG
	 COMPUTE CMTOTVAR/D12.2CM=CYCMTOT-BLCMTOT; AS 'CM Var' &HIDEAGG
	 COMPUTE BLNRPERCASE/D12.2CM =BLNETREV / BLCASES; AS 'NR / Case &SUPBTAG 1 &SUPETAG' &HIDEPC &HIDENR
	 COMPUTE CYNRPERCASE/D12.2CM =CURRNETREV / CURRCASES; AS 'NR / Case &SUPBTAG 2 &SUPETAG' &HIDEPC &HIDENR
	 COMPUTE NRPERCASEVAR/D12.2CM=CYNRPERCASE - BLNRPERCASE; AS 'NR Var' &HIDEPC &HIDENR
	 COMPUTE BLVARPERCASE/D12.2CM =BLVARCOST / BLCASES; AS 'VC / Case &SUPBTAG 1 &SUPETAG' &HIDEPC &HIDEVC
	 COMPUTE CYVARPERCASE/D12.2CM =CURRVARCOST / CURRCASES; AS 'VC / Case &SUPBTAG 2 &SUPETAG' &HIDEPC &HIDEVC
	 COMPUTE VARPERCASEVAR/D12.2CM=CYVARPERCASE - BLVARPERCASE; AS 'VC Var' &HIDEPC &HIDEVC
	 COMPUTE BLCMPERCASE/D12.2CM =(BLNETREV/BLCASES) - (BLVARCOST/BLCASES); AS 'CM / Case &SUPBTAG 1 &SUPETAG' &HIDEPC
	 COMPUTE CYCMPERCASE/D12.2CM =(CURRNETREV/CURRCASES) - (CURRVARCOST/CURRCASES); AS 'CM / Case &SUPBTAG 2 &SUPETAG' &HIDEPC
	 COMPUTE CMPERCASEVAR/D12.2CM=CYCMPERCASE-BLCMPERCASE; AS 'CM Var' &HIDEPC
	 COMPUTE CYTOTALCOSTD/D12.2CM=CURRTOTALCOST / CURRCASES; AS 'Total Cost / Case &SUPBTAG 2 &SUPETAG' NOPRINT
	 COMPUTE CYNETINCOM/D12.2CM=(CYNRPERCASE) - (CURRTOTALCOST/CURRCASES); AS 'Net Income / Case &SUPBTAG 2 &SUPETAG' NOPRINT
	 COMPUTE ALOS/D12.2=CURRALOS/CURRCASES; NOPRINT
	 MVGRAPH AS '' &HIDEGO
	 HMINREST/D12.2CM NOPRINT
	 D1 NOPRINT
	 D2 NOPRINT
	 D3 NOPRINT
	 LOCDRILLTYPE NOPRINT
	 DETAILTYPE NOPRINT
	 SORTTYPE NOPRINT
	 SORTCOL NOPRINT
	 LEVELSORT NOPRINT
	 HYPERLINK NOPRINT
	 LDLD NOPRINT
	 CURRVARCOST NOPRINT
	 REPORTTYPE NOPRINT
	 NRTYPE NOPRINT
	 D4 NOPRINT
	 D5 NOPRINT
	 BASEDRGDESC NOPRINT
	 OUTPATIENTCODING NOPRINT
	 CPTID NOPRINT
	 LOCATIONNAME NOPRINT
BY SYSTEMNAME NOPRINT
&LOCVAR
BY &SORTTYPE TOTAL &SORTCOL NOPRINT
BY BLBD NOPRINT
BY BLED NOPRINT
BY CYBD NOPRINT
BY CYED NOPRINT
BY WFFMTA NOPRINT
BY RPDRLEVEL NOPRINT
BY &DIMENSION
BY PATIENTTYPEDESC NOPRINT
&SYSHEADERVARA
&SYSHEADERVARB
&LOCHEADERVARA
&LOCHEADERVARB
&SYSTOTALVAR
&LOCTOTALVAR
WHERE ( SYSTEMNAME EQ '&SYSTEMNAME' );
WHERE ( LOCATIONNAME EQ '&LOCATIONNAME' );
WHERE ( DISCHARGEDATE GE BLBD AND DISCHARGEDATE LE BLED OR DISCHARGEDATE GE CYBD AND DISCHARGEDATE LE CYED );
WHERE ( PATIENTTYPEDESC EQ '&PATIENTTYPE' );
WHERE ( CATEGORYDESCRIPTION EQ '&CATEGORYDESCRIPTION' );
WHERE ( BASEDRGDESC EQ '&BASEDRGDESC' );
WHERE ( DRGID EQ '&DRGID' );
WHERE ( ICD9ID EQ '&ICD9ID' );
WHERE ( CPTID EQ '&CPTID' );