Routine: LRMISEZ

LRMISEZ ; IHS/DIR/FJE - MICROBIOLOGY INFECTION CONTROL DATA 2/14/89 17:10 ;

 ;;5.2;LR;**1013**;JUL 15, 2002

 ;;5.2;LAB SERVICE;;Sep 27, 1994

 ;from option LRMISEZ

BEGIN S U="^",LRLOS=0 S:'$D(DTIME) DTIME=999 K ^TMP($J) S IOP="HOME" D ^%ZIS,SURVEY W ! D ^%ZISC

END K ^TMP($J),%,%DT,A1,B,DFN,DIC,DTOUT,DUOUT,I,J,K,LAST,LRAA,LRAAN,LRAC,LRAD,LRADMD,LRADMS,LRAP,LRAO,LRASK,LRBG,LRBN,LRBO,LRBUG,LRDAT,LRDCHD,LRDFN

 K LRDOC,LRDPF,LRDRUG,LREND,LRESULT,LRIDT,LRLLOC,LRLOS,LRLST,LRM,LRMY,LRNAME,LRND,LRNLOC,LROK,LROR,LRPAT,LRPF,LRPG,LRPNM,LRPPT,LRPROMPT,LRQUANT,LRSGL,LRSIT,LRST,LRSTAR,LRSUM,LRTK

 ;K LRYA,LRYRL,M,O,PNM,POP,R,S,SSN,X,Y,Z,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK,LRZ,LRLIN

 K LRYA,LRYRL,M,O,PNM,POP,R,S,SSN,HRCN,X,Y,Z,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK,LRZ,LRLIN  ;IHS/ANMC/CLS 08/18/96

SURVEY W @IOF,?19,"INFECTION CONTROL SURVEY DATA",!! D LRAA^LRMIUT Q:LRAA<1

 S LRAAN=$P(^LRO(68,LRAA,0),U,11)

 F I=0:0 S %=1 W !!,"Use default reports" D YN^DICN Q:%'=0  D INFO

 Q:%<0

 S (LRM("L","S"),LRM("O","S"),LRM("D","S"),LRM("P","S"))="Unknown"

 S LRSIT(1)=$S($D(^LAB(69.9,1,"MIS","B","C")):"C",1:"S") F I="L","P","D","O" S LRM(I)=$S($D(^LAB(69.9,1,"MIS","B",I)):"A",1:"N")

 I %=2 S LREND=0 D ^LRMISEZA Q:LREND

 I LRM("L")="N",LRM("O")="N",LRM("D")="N",LRM("P")="N" W !,"No reports were selected!" Q

 S %DT="AEQ",%DT("A")="Start  Date: " D ^%DT K %DT Q:Y<0  S LRSTAR=Y D D^LRU S LRST=Y I $E(LRSTAR,6,7)="00" S LRSTAR=$S($E(LRSTAR,4,7)="0000":LRSTAR+10000,$E(LRSTAR,4,5)="12":LRSTAR+10100,1:LRSTAR+100)

 S %DT="AEQ",%DT("A")="End    Date: " D ^%DT K %DT Q:Y<0  S LAST=Y D D^LRU S LRLST=Y Q:Y<0  I LRSTAR>LAST S X=LRSTAR,LRSTAR=LAST,LAST=X,X=LRST,LRST=LRLST,LRLST=X

 S Y=LRSTAR D D^LRU S LRST=Y,Y=LAST D D^LRU S LRLST=Y,LRAD=$E(LRSTAR,1,3)-1_"0000",LRYRL=$E(LAST,1,3)_"0000",LAST=LAST\1+.99

DEVICE ;S %ZIS="NMQ",%ZIS("B")="",IOP="Q" W ! D ^%ZIS K %ZIS Q:POP  S %DT="AET",%DT("A")="TIME TO RUN: T+1@1AM//" D ^%DT S:Y>0 ZTDTH=Y I Y'>0 S %DT="T",X="T+1@1AM" D ^%DT S ZTDTH=Y

 S %ZIS="MQ",%ZIS("B")="" W ! D ^%ZIS K %ZIS Q:POP  ;S %DT="AET",%DT("A")="TIME TO RUN: T+1@1AM//" D ^%DT S:Y>0 ZTDTH=Y I Y'>0 S %DT="T",X="T+1@1AM" D ^%DT S ZTDTH=Y  ;IHS/ANMC/CLS 08/18/96 removed N(o) opening and mandatory queue

 I '$D(IO("Q")) D DQ^LRMISEZ1 Q

 S ZTRTN="DQ^LRMISEZ1",ZTSAVE("L*")="" D ^%ZTLOAD K IO("Q"),ZTSK,ZTRTN,ZTIO,ZTSAVE

INFO W !,"Default reports are setup in the Laboratory Site file, 69.9."

 W !,"If you answer 'NO', you can select individual surveys grouped by:",!,"organism, location, patient, and/or physician.  You can select all items",!,"or a single item for each group.  You can also select to have all groups"

 W !,"contain a survey of a single organism.  Surveys can be reported by",!,"Site/Specimen or Collection sample."

LRMISEZ   ; IHS/DIR/FJE - MICROBIOLOGY INFECTION CONTROL DATA 2/14/89 17:10 ;

 +1       ;;5.2;LR;**1013**;JUL 15, 2002

 +2       ;

 +3       ;;5.2;LAB SERVICE;;Sep 27, 1994

 +4       ;from option LRMISEZ

BEGIN      SET U="^"

           SET LRLOS=0

           IF '$DATA(DTIME)

               SET DTIME=999

           KILL ^TMP($JOB)

           SET IOP="HOME"

           DO ^%ZIS

           DO SURVEY

           WRITE !

           DO ^%ZISC

END        KILL ^TMP($JOB),%,%DT,A1,B,DFN,DIC,DTOUT,DUOUT,I,J,K,LAST,LRAA,LRAAN,LRAC,LRAD,LRADMD,LRADMS,LRAP,LRAO,LRASK,LRBG,LRBN,LRBO,LRBUG,LRDAT,LRDCHD,LRDFN

 +1        KILL LRDOC,LRDPF,LRDRUG,LREND,LRESULT,LRIDT,LRLLOC,LRLOS,LRLST,LRM,LRMY,LRNAME,LRND,LRNLOC,LROK,LROR,LRPAT,LRPF,LRPG,LRPNM,LRPPT,LRPROMPT,LRQUANT,LRSGL,LRSIT,LRST,LRSTAR,LRSUM,LRTK

 +2       ;K LRYA,LRYRL,M,O,PNM,POP,R,S,SSN,X,Y,Z,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK,LRZ,LRLIN

 +3       ;IHS/ANMC/CLS 08/18/96

           KILL LRYA,LRYRL,M,O,PNM,POP,R,S,SSN,HRCN,X,Y,Z,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK,LRZ,LRLIN

 +4        QUIT

SURVEY     WRITE @IOF,?19,"INFECTION CONTROL SURVEY DATA",!!

           DO LRAA^LRMIUT

           IF LRAA<1

               QUIT

 +1        SET LRAAN=$PIECE(^LRO(68,LRAA,0),U,11)

 +2        FOR I=0:0

               SET %=1

               WRITE !!,"Use default reports"

               DO YN^DICN

               IF %'=0

                   QUIT

               DO INFO

 +3        IF %<0

               QUIT

 +4        SET (LRM("L","S"),LRM("O","S"),LRM("D","S"),LRM("P","S"))="Unknown"

 +5        SET LRSIT(1)=$SELECT($DATA(^LAB(69.9,1,"MIS","B","C")):"C",1:"S")

           FOR I="L","P","D","O"

               SET LRM(I)=$SELECT($DATA(^LAB(69.9,1,"MIS","B",I)):"A",1:"N")

 +6        IF %=2

               SET LREND=0

               DO ^LRMISEZA

               IF LREND

                   QUIT

 +7        IF LRM("L")="N"

               IF LRM("O")="N"

                   IF LRM("D")="N"

                       IF LRM("P")="N"

                           WRITE !,"No reports were selected!"

                           QUIT

 +8        SET %DT="AEQ"

           SET %DT("A")="Start  Date: "

           DO ^%DT

           KILL %DT

           IF Y<0

               QUIT

           SET LRSTAR=Y

           DO D^LRU

           SET LRST=Y

           IF $EXTRACT(LRSTAR,6,7)="00"

               SET LRSTAR=$SELECT($EXTRACT(LRSTAR,4,7)="0000":LRSTAR+10000,$EXTRACT(LRSTAR,4,5)="12":LRSTAR+10100,1:LRSTAR+100)

 +9        SET %DT="AEQ"

           SET %DT("A")="End    Date: "

           DO ^%DT

           KILL %DT

           IF Y<0

               QUIT

           SET LAST=Y

           DO D^LRU

           SET LRLST=Y

           IF Y<0

               QUIT

           IF LRSTAR>LAST

               SET X=LRSTAR

               SET LRSTAR=LAST

               SET LAST=X

               SET X=LRST

               SET LRST=LRLST

               SET LRLST=X

 +10       SET Y=LRSTAR

           DO D^LRU

           SET LRST=Y

           SET Y=LAST

           DO D^LRU

           SET LRLST=Y

           SET LRAD=$EXTRACT(LRSTAR,1,3)-1_"0000"

           SET LRYRL=$EXTRACT(LAST,1,3)_"0000"

           SET LAST=LAST\1+.99

DEVICE    ;S %ZIS="NMQ",%ZIS("B")="",IOP="Q" W ! D ^%ZIS K %ZIS Q:POP  S %DT="AET",%DT("A")="TIME TO RUN: T+1@1AM//" D ^%DT S:Y>0 ZTDTH=Y I Y'>0 S %DT="T",X="T+1@1AM" D ^%DT S ZTDTH=Y

 +1       ;S %DT="AET",%DT("A")="TIME TO RUN: T+1@1AM//" D ^%DT S:Y>0 ZTDTH=Y I Y'>0 S %DT="T",X="T+1@1AM" D ^%DT S ZTDTH=Y  ;IHS/ANMC/CLS 08/18/96 removed N(o) opening and mandatory queue

           SET %ZIS="MQ"

           SET %ZIS("B")=""

           WRITE !

           DO ^%ZIS

           KILL %ZIS

           IF POP

               QUIT

 +2        IF '$DATA(IO("Q"))

               DO DQ^LRMISEZ1

               QUIT

 +3        SET ZTRTN="DQ^LRMISEZ1"

           SET ZTSAVE("L*")=""

           DO ^%ZTLOAD

           KILL IO("Q"),ZTSK,ZTRTN,ZTIO,ZTSAVE

 +4        QUIT

INFO       WRITE !,"Default reports are setup in the Laboratory Site file, 69.9."

 +1        WRITE !,"If you answer 'NO', you can select individual surveys grouped by:",!,"organism, location, patient, and/or physician.  You can select all items",!,"or a single item for each group.  You can also select to have all groups"

 +2        WRITE !,"contain a survey of a single organism.  Surveys can be reported by",!,"Site/Specimen or Collection sample."

 +3        QUIT

LRMISEZ.m