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