| [613] | 1 | LR7OSMZU ;slc/dcm - Silent Micro rpt cont. ;8/11/97
|
|---|
| 2 | ;;5.2;LAB SERVICE;**121,244**;Sep 27, 1994
|
|---|
| 3 | FH ;from LR7OSMZ1, LR7OSMZ2, LR7OSMZ5
|
|---|
| 4 | Q
|
|---|
| 5 | FHR ;from LR7OSMZ1, LR7OSMZ2
|
|---|
| 6 | D REFS
|
|---|
| 7 | Q
|
|---|
| 8 | REFS ;from LR7OSMZ1
|
|---|
| 9 | S B=1,LREF=0
|
|---|
| 10 | F S LREF=$O(LRBUG(LREF)) Q:LREF="" S LRIFN=LRBUG(LREF) D LIST Q:LREND
|
|---|
| 11 | K LRBUG
|
|---|
| 12 | Q
|
|---|
| 13 | LIST Q:'$D(^LAB(61.2,LRIFN,"JR",0))
|
|---|
| 14 | S LRNUM=0
|
|---|
| 15 | F S LRNUM=$O(^LAB(61.2,LRIFN,"JR",LRNUM)) Q:LRNUM="" D WR Q:LREND
|
|---|
| 16 | Q
|
|---|
| 17 | WR ;
|
|---|
| 18 | S X1=^LAB(61.2,LRIFN,"JR",LRNUM,0)
|
|---|
| 19 | Q:$P(X1,U,7)'=1
|
|---|
| 20 | I B=1 D LINE^LR7OSUM4,LINE^LR7OSUM4 S ^TMP("LRC",$J,GCNT,0)=$$S^LR7OS(1,CCNT,"Reference(s): ")
|
|---|
| 21 | S B=0
|
|---|
| 22 | D LINE^LR7OSUM4,LINE^LR7OSUM4
|
|---|
| 23 | S ^TMP("LRC",$J,GCNT,0)=$$S^LR7OS(1,CCNT,$J(LREF,2)_". "_$P(X1,U,2))
|
|---|
| 24 | D LINE^LR7OSUM4
|
|---|
| 25 | S ^TMP("LRC",$J,GCNT,0)=$$S^LR7OS(1,CCNT,$P(X1,U))
|
|---|
| 26 | D LINE^LR7OSUM4
|
|---|
| 27 | 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)_":")
|
|---|
| 28 | S ^(0)=^TMP("LRC",$J,GCNT,0)_$$S^LR7OS(CCNT,CCNT,$P(X1,U,5))
|
|---|
| 29 | 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)
|
|---|
| 30 | Q
|
|---|
| 31 | HDR ;from LR7OSMZ1
|
|---|
| 32 | S LRPG=LRPG+1,LRJ02=1
|
|---|
| 33 | D LINE^LR7OSUM4
|
|---|
| 34 | S X=GIOM/2-(12/2+5),^TMP("LRC",$J,GCNT,0)=$$S^LR7OS(X,CCNT,"---- MICROBIOLOGY ----")
|
|---|
| 35 | D LINE^LR7OSUM4
|
|---|
| 36 | S ^TMP("LRC",$J,GCNT,0)=$$S^LR7OS(1,CCNT,"Accession: "_LRACC)_$$S^LR7OS(40,CCNT,"Received: "_LRRC)
|
|---|
| 37 | D LINE^LR7OSUM4
|
|---|
| 38 | S ^TMP("LRC",$J,GCNT,0)=$$S^LR7OS(1,CCNT,"Collection sample: "_LRCS)_$$S^LR7OS(40,CCNT,"Collection date: "_LRTK)
|
|---|
| 39 | I LRCS'=LRST,LRPG=1 D LINE^LR7OSUM4 S ^TMP("LRC",$J,GCNT,0)=$$S^LR7OS(1,CCNT,"Site/Specimen: "_LRST)
|
|---|
| 40 | I LRPG=1 D
|
|---|
| 41 | . D LINE^LR7OSUM4
|
|---|
| 42 | . S ^TMP("LRC",$J,GCNT,0)=$$S^LR7OS(1,CCNT,"Provider: "_LRDOC)
|
|---|
| 43 | . D LINE^LR7OSUM4
|
|---|
| 44 | . 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
|
|---|
| 45 | . I $L(LRCMNT)>58 S ^TMP("LRC",$J,GCNT,0)=$$S^LR7OS(1,CCNT,LRCMNT) D LINE^LR7OSUM4
|
|---|
| 46 | Q
|
|---|
| 47 | PRE ;from LR7OSMZ2, LR7OSMZ3, LR7OSMZ4
|
|---|
| 48 | Q:LRTUS["F"&('$D(^XUSEC("LRLAB",DUZ))!$D(LRWRDVEW))
|
|---|
| 49 | 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
|
|---|
| 50 | . 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)
|
|---|
| 51 | D LINE^LR7OSUM4
|
|---|
| 52 | Q
|
|---|
