source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LR7OSMZU.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1LR7OSMZU ;slc/dcm - Silent Micro rpt cont. ;8/11/97
2 ;;5.2;LAB SERVICE;**121,244**;Sep 27, 1994
3FH ;from LR7OSMZ1, LR7OSMZ2, LR7OSMZ5
4 Q
5FHR ;from LR7OSMZ1, LR7OSMZ2
6 D REFS
7 Q
8REFS ;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
13LIST 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
17WR ;
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
31HDR ;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
47PRE ;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
Note: See TracBrowser for help on using the repository browser.