>* 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 >