* CASE ALLT(THISFORM.cboType.DisplayValue) = "MISSING PROVIDERS" ******* (Add code here for Missing Providers Report) ******* * REPORT FORMAT missrpt.frx NOCONSOLE PREVIEW CASE ALLT(THISFORM.cboType.DisplayValue) = "MISSING AGENCY PROVIDERS" USE c:\data\reference\units IN 0 SHARED SELECT DISTINCT units.agency FROM units WHERE units.agency ; NOT IN (SELECT observe.agency FROM observe) AND ; observe.date>=CTOD(sdate) AND observe.date<=CTOD(edate) AND ; (ALLT(observe.activity) <> "Visit- Station" AND ; ALLT(observe.activity) <> "Visit- Hospital") INTO CURSOR agncy SELECT agncy * REPORT FORMAT missagncyrpt.frx NOCONSOLE PREVIEW SELECT units USE CASE ALLT(THISFORM.cboType.DisplayValue) = "MISSING FIRE STATION PROVIDERS" USE c:\observe\firehous IN 0 SHARED SELECT DISTINCT * FROM firehous WHERE firehous.statn_id ; NOT IN (SELECT observe.unit FROM observe) AND ; observe.date>=CTOD(sdate) AND observe.date<=CTOD(edate) AND ; ALLT(observe.activity) = "Visit- Station" INTO CURSOR fire SELECT fire * REPORT FORMAT missfirerpt.frx NOCONSOLE PREVIEW SELECT firehous USE CASE ALLT(THISFORM.cboType.DisplayValue) = "MISSING HOSPITAL PROVIDERS" USE c:\observe\hospital IN 0 SHARED SELECT DISTINCT * FROM hospital WHERE hospital.hospid ; NOT IN (SELECT observe.unit FROM observe) AND ; observe.date>=CTOD(sdate) AND observe.date<=CTOD(edate) AND ; ALLT(observe.activity) = "Visit- Hospital" INTO CURSOR hosp SELECT hosp REPORT FORMAT misshosprpt.frx NOCONSOLE PREVIEW SELECT hospital USE