ONCOCFL.m

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 ---ONCOCFL   1490     printed  Feb 18, 2025@23:50:59                                                                                                                                                                                                     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