source: FOIAVistA/tag/r/ONCOLOGY-ONC/ONCOCFL.m@ 1569

Last change on this file since 1569 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1ONCOCFL ;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 ;
12RPT ;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 ;
21PRT ;Call print routine
22 S L=0,IOP=ION,DIOEND="D WP^ONCOCFL"
23 D EN1^DIP G EX
24 ;
25WP ;Wrap-up report
26 W !?3,$G(^TMP("ONCO",$J,0))_" LAB cases added to Suspense"
27 Q
28 ;
29CFR ;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 ;
35EX ;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
Note: See TracBrowser for help on using the repository browser.