LR7OSMZU.m

LR7OSMZU ;VA/SLC/DCM - Silent Micro rpt cont. ;8/11/97

 ;;5.2;LR;**1018,1030**;Nov 01, 1997

 ;;5.2;LAB SERVICE;**121,244**;Sep 27, 1994

FH ;from LR7OSMZ1, LR7OSMZ2, LR7OSMZ5

 Q

FHR ;from LR7OSMZ1, LR7OSMZ2

 D REFS

 Q

REFS ;from LR7OSMZ1

 S B=1,LREF=0

 F  S LREF=$O(LRBUG(LREF)) Q:LREF=""  S LRIFN=LRBUG(LREF) D LIST Q:LREND

 K LRBUG

 Q

LIST Q:'$D(^LAB(61.2,LRIFN,"JR",0))

 S LRNUM=0

 F  S LRNUM=$O(^LAB(61.2,LRIFN,"JR",LRNUM)) Q:LRNUM=""  D WR Q:LREND

 Q

WR ;

 S X1=^LAB(61.2,LRIFN,"JR",LRNUM,0)

 Q:$P(X1,U,7)'=1

 I B=1 D LINE^LR7OSUM4,LINE^LR7OSUM4 S ^TMP("LRC",$J,GCNT,0)=$$S^LR7OS(1,CCNT,"Reference(s): ")

 S B=0

 D LINE^LR7OSUM4,LINE^LR7OSUM4

 S ^TMP("LRC",$J,GCNT,0)=$$S^LR7OS(1,CCNT,$J(LREF,2)_". "_$P(X1,U,2))

 D LINE^LR7OSUM4

 S ^TMP("LRC",$J,GCNT,0)=$$S^LR7OS(1,CCNT,$P(X1,U))

 D LINE^LR7OSUM4

 I $L($P(X1,U,3)) S ^TMP("LRC",$J,GCNT,0)=^TMP("LRC",$J,GCNT,0)_$$S^LR7OS(CCNT,CCNT,$P(^LAB(95,$P(X1,U,3),0),U)_" "_$P(X1,U,4)_":")

 S ^(0)=^TMP("LRC",$J,GCNT,0)_$$S^LR7OS(CCNT,CCNT,$P(X1,U,5))

 I $L($P(X1,U,6)) S ^(0)=^TMP("LRC",$J,GCNT,0)_$$S^LR7OS(CCNT,CCNT,","_$E($P(X1,U,6),1,3)+1700)

 Q

HDR ;from LR7OSMZ1

 S LRPG=LRPG+1,LRJ02=1

 D LINE^LR7OSUM4

 S X=GIOM/2-(12/2+5),^TMP("LRC",$J,GCNT,0)=$$S^LR7OS(X,CCNT,"---- MICROBIOLOGY ----")

 D LINE^LR7OSUM4

 S ^TMP("LRC",$J,GCNT,0)=$$S^LR7OS(1,CCNT,"Accession: "_LRACC)_$$S^LR7OS(40,CCNT,"Received: "_LRRC)

 D LINE^LR7OSUM4

 S ^TMP("LRC",$J,GCNT,0)=$$S^LR7OS(1,CCNT,"Collection sample: "_LRCS)_$$S^LR7OS(40,CCNT,"Collection date: "_LRTK)

 I LRCS'=LRST,LRPG=1 D LINE^LR7OSUM4 S ^TMP("LRC",$J,GCNT,0)=$$S^LR7OS(1,CCNT,"Site/Specimen: "_LRST)

 I LRPG=1 D

 . D LINE^LR7OSUM4

 . S ^TMP("LRC",$J,GCNT,0)=$$S^LR7OS(1,CCNT,"Provider: "_LRDOC)

 . D LINE^LR7OSUM4

 . I $L(LRCMNT) S ^TMP("LRC",$J,GCNT,0)=$$S^LR7OS(1,CCNT,"Comment on specimen: "_$S($L(LRCMNT)>58:"",1:LRCMNT)) D LINE^LR7OSUM4

 . I $L(LRCMNT)>58 S ^TMP("LRC",$J,GCNT,0)=$$S^LR7OS(1,CCNT,LRCMNT) D LINE^LR7OSUM4

 Q

PRE ;from LR7OSMZ2, LR7OSMZ3, LR7OSMZ4

 Q:LRTUS["F"&('$D(^XUSEC("LRLAB",DUZ))!$D(LRWRDVEW))

 I +$O(^LR(LRDFN,"MI",LRIDT,LRPRE,0)) D LINE^LR7OSUM4 S ^TMP("LRC",$J,GCNT,0)=$$S^LR7OS(1,CCNT,"Preliminary Comments: ") S J=0 D

 . F  S J=+$O(^LR(LRDFN,"MI",LRIDT,LRPRE,J)) Q:J<1  S X=^(J,0) D LINE^LR7OSUM4 S ^TMP("LRC",$J,GCNT,0)=$$S^LR7OS(3,CCNT,X)

 D LINE^LR7OSUM4

 Q

 ;

 ; ----- BEGIN IHS/OIT/MKK - LR*5.2*1030

IHSKEY ; EP -- New "Key" for Micro Reports

 D LINE^LR7OSUM4

 S GCNT=GCNT+1,CCNT=1

 S ^TMP("LRC",$J,GCNT,0)="S=Sensitive     I=Intermediate     R=Resistant     NI=Not Immune     I=Immune"

 S GCNT=GCNT+1,CCNT=1

 S ^TMP("LRC",$J,GCNT,0)="IB=Inducible Beta Lactam    NR=Non Reactive    WR=Weakly Reactive    R=Reactive"

 ; ----- END IHS/OIT/MKK -- LR*5.2*1030

LR7OSMZU  ;VA/SLC/DCM - Silent Micro rpt cont. ;8/11/97

 +1       ;;5.2;LR;**1018,1030**;Nov 01, 1997

 +2       ;;5.2;LAB SERVICE;**121,244**;Sep 27, 1994

FH        ;from LR7OSMZ1, LR7OSMZ2, LR7OSMZ5

 +1        QUIT 

FHR       ;from LR7OSMZ1, LR7OSMZ2

 +1        DO REFS

 +2        QUIT 

REFS      ;from LR7OSMZ1

 +1        SET B=1

           SET LREF=0

 +2        FOR 

               SET LREF=$ORDER(LRBUG(LREF))

               IF LREF=""

                   QUIT 

               SET LRIFN=LRBUG(LREF)

               DO LIST

               IF LREND

                   QUIT 

 +3        KILL LRBUG

 +4        QUIT 

LIST       IF '$DATA(^LAB(61.2,LRIFN,"JR",0))

               QUIT 

 +1        SET LRNUM=0

 +2        FOR 

               SET LRNUM=$ORDER(^LAB(61.2,LRIFN,"JR",LRNUM))

               IF LRNUM=""

                   QUIT 

               DO WR

               IF LREND

                   QUIT 

 +3        QUIT 

WR        ;

 +1        SET X1=^LAB(61.2,LRIFN,"JR",LRNUM,0)

 +2        IF $PIECE(X1,U,7)'=1

               QUIT 

 +3        IF B=1

               DO LINE^LR7OSUM4

               DO LINE^LR7OSUM4

               SET ^TMP("LRC",$JOB,GCNT,0)=$$S^LR7OS(1,CCNT,"Reference(s): ")

 +4        SET B=0

 +5        DO LINE^LR7OSUM4

           DO LINE^LR7OSUM4

 +6        SET ^TMP("LRC",$JOB,GCNT,0)=$$S^LR7OS(1,CCNT,$JUSTIFY(LREF,2)_". "_$PIECE(X1,U,2))

 +7        DO LINE^LR7OSUM4

 +8        SET ^TMP("LRC",$JOB,GCNT,0)=$$S^LR7OS(1,CCNT,$PIECE(X1,U))

 +9        DO LINE^LR7OSUM4

 +10       IF $LENGTH($PIECE(X1,U,3))

               SET ^TMP("LRC",$JOB,GCNT,0)=^TMP("LRC",$JOB,GCNT,0)_$$S^LR7OS(CCNT,CCNT,$PIECE(^LAB(95,$PIECE(X1,U,3),0),U)_" "_$PIECE(X1,U,4)_":")

 +11       SET ^(0)=^TMP("LRC",$JOB,GCNT,0)_$$S^LR7OS(CCNT,CCNT,$PIECE(X1,U,5))

 +12       IF $LENGTH($PIECE(X1,U,6))

               SET ^(0)=^TMP("LRC",$JOB,GCNT,0)_$$S^LR7OS(CCNT,CCNT,","_$EXTRACT($PIECE(X1,U,6),1,3)+1700)

 +13       QUIT 

HDR       ;from LR7OSMZ1

 +1        SET LRPG=LRPG+1

           SET LRJ02=1

 +2        DO LINE^LR7OSUM4

 +3        SET X=GIOM/2-(12/2+5)

           SET ^TMP("LRC",$JOB,GCNT,0)=$$S^LR7OS(X,CCNT,"---- MICROBIOLOGY ----")

 +4        DO LINE^LR7OSUM4

 +5        SET ^TMP("LRC",$JOB,GCNT,0)=$$S^LR7OS(1,CCNT,"Accession: "_LRACC)_$$S^LR7OS(40,CCNT,"Received: "_LRRC)

 +6        DO LINE^LR7OSUM4

 +7        SET ^TMP("LRC",$JOB,GCNT,0)=$$S^LR7OS(1,CCNT,"Collection sample: "_LRCS)_$$S^LR7OS(40,CCNT,"Collection date: "_LRTK)

 +8        IF LRCS'=LRST

               IF LRPG=1

                   DO LINE^LR7OSUM4

                   SET ^TMP("LRC",$JOB,GCNT,0)=$$S^LR7OS(1,CCNT,"Site/Specimen: "_LRST)

 +9        IF LRPG=1

               Begin DoDot:1

 +10               DO LINE^LR7OSUM4

 +11               SET ^TMP("LRC",$JOB,GCNT,0)=$$S^LR7OS(1,CCNT,"Provider: "_LRDOC)

 +12               DO LINE^LR7OSUM4

 +13               IF $LENGTH(LRCMNT)

                       SET ^TMP("LRC",$JOB,GCNT,0)=$$S^LR7OS(1,CCNT,"Comment on specimen: "_$SELECT($LENGTH(LRCMNT)>58:"",1:LRCMNT))

                       DO LINE^LR7OSUM4

 +14               IF $LENGTH(LRCMNT)>58

                       SET ^TMP("LRC",$JOB,GCNT,0)=$$S^LR7OS(1,CCNT,LRCMNT)

                       DO LINE^LR7OSUM4

               End DoDot:1

 +15       QUIT 

PRE       ;from LR7OSMZ2, LR7OSMZ3, LR7OSMZ4

 +1        IF LRTUS["F"&('$DATA(^XUSEC("LRLAB",DUZ))!$DATA(LRWRDVEW))

               QUIT 

 +2        IF +$ORDER(^LR(LRDFN,"MI",LRIDT,LRPRE,0))

               DO LINE^LR7OSUM4

               SET ^TMP("LRC",$JOB,GCNT,0)=$$S^LR7OS(1,CCNT,"Preliminary Comments: ")

               SET J=0

               Begin DoDot:1

 +3                FOR 

                       SET J=+$ORDER(^LR(LRDFN,"MI",LRIDT,LRPRE,J))

                       IF J<1

                           QUIT 

                       SET X=^(J,0)

                       DO LINE^LR7OSUM4

                       SET ^TMP("LRC",$JOB,GCNT,0)=$$S^LR7OS(3,CCNT,X)

               End DoDot:1

 +4        DO LINE^LR7OSUM4

 +5        QUIT 

 +6       ;

 +7       ; ----- BEGIN IHS/OIT/MKK - LR*5.2*1030

IHSKEY    ; EP -- New "Key" for Micro Reports

 +1        DO LINE^LR7OSUM4

 +2        SET GCNT=GCNT+1

           SET CCNT=1

 +3        SET ^TMP("LRC",$JOB,GCNT,0)="S=Sensitive     I=Intermediate     R=Resistant     NI=Not Immune     I=Immune"

 +4        SET GCNT=GCNT+1

           SET CCNT=1

 +5        SET ^TMP("LRC",$JOB,GCNT,0)="IB=Inducible Beta Lactam    NR=Non Reactive    WR=Weakly Reactive    R=Reactive"

 +6       ; ----- END IHS/OIT/MKK -- LR*5.2*1030