ONCOCFL ;Hines OIFO/GWB - LAB CASEFINDING ;06/16/11
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;
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="" D Q
.W !!?10,"Casefinding requires an ONCOLOGY SITE PARAMETER"
.W !?10,"entry which matches the user's login DIVISION."
.W !?10,"There is no ONCOLOGY SITE PARAMETER for DIVISION:"
.W !?10,$P($G(^DIC(4,DUZ(2),0)),U,1)
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,BY,DIC,DIOEND,DIR,DIVISION,DVMTCH,DZ,DZCODE,DZMORP
K DZPTR,DZX,FLDS,FR,INST,IOP,L,LBACC,LBAREA,LBNUM,LBYEAR,LRD,LRLDT
K LRLST,LRM,LRN,LRSDT,LRSTR,LRT,LRXR,MODZ,O2,ONCO,ONCOEN,ONCOST,ONLDT
K ONSDT,SNOMED,SR,TIS,TO,W,X,XD0,Y
K ^TMP("ONCO",$J),^TMP($J)
D ^%ZISC
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCOCFL 1490 printed Sep 23, 2025@20:00:35 Page 2
ONCOCFL ;Hines OIFO/GWB - LAB CASEFINDING ;06/16/11
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;
+3 WRITE @IOF
+4 WRITE !!!?10,"************ LAB CASEFINDING ************",!
+5 WRITE !?10,"This option will search the LAB DATA file"
+6 WRITE !?10,"for cases to add to the Suspense List."
+7 NEW OSP
+8 SET OSP=$ORDER(^ONCO(160.1,"C",DUZ(2),0))
+9 IF OSP=""
Begin DoDot:1
+10 WRITE !!?10,"Casefinding requires an ONCOLOGY SITE PARAMETER"
+11 WRITE !?10,"entry which matches the user's login DIVISION."
+12 WRITE !?10,"There is no ONCOLOGY SITE PARAMETER for DIVISION:"
+13 WRITE !?10,$PIECE($GET(^DIC(4,DUZ(2),0)),U,1)
End DoDot:1
QUIT
+14 GOTO ^ONCOCFL1
+15 ;
RPT ;Generate Report
+1 IF $GET(^TMP("ONCO",$JOB,0))=0
GOTO WP
+2 IF '$TEST
Begin DoDot:1
+3 SET X=LRSTR
DO ^%DT
SET LRSDT=Y
+4 SET DIC="^ONCO(160,"
+5 SET BY="@75,INTERNAL(#3),@75,.01"
+6 SET FR=DUZ(2)_","_ONCO("SD")
SET TO=DUZ(2)_","_ONCO("ED")
+7 SET FLDS="[ONCO LAB-CASEFINDING REPORT]"
End DoDot:1
+8 ;
PRT ;Call print routine
+1 SET L=0
SET IOP=ION
SET DIOEND="D WP^ONCOCFL"
+2 DO EN1^DIP
GOTO EX
+3 ;
WP ;Wrap-up report
+1 WRITE !?3,$GET(^TMP("ONCO",$JOB,0))_" LAB cases added to Suspense"
+2 QUIT
+3 ;
CFR ;Casefinding report
+1 SET DIVISION=$PIECE(^DIC(4,DUZ(2),0),U,1)
+2 SET L=0
SET DIC="^ONCO(160,"
SET FLDS="[ONCO LAB-CASEFINDING REPORT]"
+3 SET BY="@75,2,@75,.01"
SET FR="L,?"
SET TO="LZ,?"
+4 DO EN1^DIP
DO ^%ZISC
+5 ;
EX ;Exit
+1 KILL ACCIEN,AFFDIV,BBT,BY,DIC,DIOEND,DIR,DIVISION,DVMTCH,DZ,DZCODE,DZMORP
+2 KILL DZPTR,DZX,FLDS,FR,INST,IOP,L,LBACC,LBAREA,LBNUM,LBYEAR,LRD,LRLDT
+3 KILL LRLST,LRM,LRN,LRSDT,LRSTR,LRT,LRXR,MODZ,O2,ONCO,ONCOEN,ONCOST,ONLDT
+4 KILL ONSDT,SNOMED,SR,TIS,TO,W,X,XD0,Y
+5 KILL ^TMP("ONCO",$JOB),^TMP($JOB)
+6 DO ^%ZISC
+7 QUIT
