ONCOCFL ;Hines OIFO/GWB - LAB CASEFINDING ;07/28/05
 ;;2.11;ONCOLOGY;**25,26,29,43,44**;Mar 07, 1995
 ;
 W @IOF
 W !!!?10,"************ LAB CASEFINDING ************",!
 W !?10,"This option will search the LAB DATA file"
 W !?10,"for cases to add to the Suspense List."
 N OSP S OSP=$O(^ONCO(160.1,"C",DUZ(2),0))
 I OSP="" S OSP=$O(^ONCO(160.1,0))
 G ^ONCOCFL1
 ;
RPT ;Generate Report
 I $G(^TMP("ONCO",$J,0))=0 G WP
 E  D
 .S X=LRSTR D ^%DT S LRSDT=Y
 .S DIC="^ONCO(160,"
 .S BY="@75,INTERNAL(#3),@75,.01"
 .S FR=DUZ(2)_","_ONCO("SD"),TO=DUZ(2)_","_ONCO("ED")
 .S FLDS="[ONCO LAB-CASEFINDING REPORT]"
 ;
PRT ;Call print routine 
 S L=0,IOP=ION,DIOEND="D WP^ONCOCFL"
 D EN1^DIP G EX
 ;
WP ;Wrap-up report
 W !?3,$G(^TMP("ONCO",$J,0))_" LAB cases added to Suspense"
 Q
 ;
CFR ;Casefinding report
 S DIVISION=$P(^DIC(4,DUZ(2),0),U,1)
 S L=0,DIC="^ONCO(160,",FLDS="[ONCO LAB-CASEFINDING REPORT]"
 S BY="@75,2,@75,.01",FR="L,?",TO="LZ,?"
 D EN1^DIP,^%ZISC
 ;
EX ;Exit
 K ACCIEN,AFFDIV,BBT,DIR,DVMTCH,DZ,DZCODE,DZMORP,DZPTR,DZX,INST
 K LBACC,LBAREA,LBNUM,LBYEAR,LRD,LRLDT,LRLST,LRM,LRN,LRSDT,LRSTR,LRT,LRXR
 K MODZ,O2,ONCOEN,ONCOST,ONLDT,ONSDT,SNOMED,SR,TIS,TO,W,XD0
 K ^TMP("ONCO",$J),^TMP($J)
 D ^%ZISC
 Q