source: FOIAVistA/trunk/r/LAB_SERVICE-LR-LS/LR7OSMZ0.m@ 1742

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

initial load of FOIAVistA 6/30/08 version

File size: 965 bytes
Line 
1LR7OSMZ0 ;slc/dcm - Silent Micro rpt ;8/11/97
2 ;;5.2;LAB SERVICE;**121,244**;Sep 27, 1994
3EN1 ;from
4 S LRLLT=^LR(LRDFN,"MI",LRIDT,0),LRACC=$P(LRLLT,U,6),LRAD=$E(LRLLT)_$P(LRACC," ",2)_"0000",X=$P(LRACC," "),DIC=68,DIC(0)="M"
5 I $L(X) D ^DIC S LRAA=+Y,LRAN=+$P(LRACC," ",3),LRCMNT=$S($D(^LR(LRDFN,"MI",LRIDT,99)):^(99),1:""),LRPG=0 D EN^LR7OSMZ1 Q:LREND
6 Q
7EN(DFN) ;Process Microbiology entries listed in ^TMP("LRRR",$J,DFN,"MI",LRIDT,1)
8 ;Return formated report in ^TMP("LRC",$J)
9 Q:'$D(^TMP("LRRR",$J,+$G(DFN),"MI"))
10 N LBL,LCNT,LRAA,LRACC,LRAD,LRAN,LRCMNT,LRDFN,LRDPF,LRIDT,LRJ02,LRLLT,LRPG,LRSB
11 N LRONESPC,LREND,LRONETST,GCNT,GIOM,LREND,CCNT,CT1,COUNT,LRIN,SEX
12 K ^TMP("LRC",$J)
13 S (LRONETST,LRONESPC)="",CCNT=1,(LREND,GCNT)=0,GIOSL=999999,GIOM=80
14 Q:'$G(DFN)
15 S LRDFN=$$LRDFN^LR7OR1(DFN)
16 Q:'LRDFN
17 S LRDPF="2^DPT(",SEX=$P($G(@("^"_$P(LRDPF,"^",2)_+LRDFN_",0)")),"^",2),LRIDT=0
18 F S LRIDT=$O(^TMP("LRRR",$J,DFN,"MI",LRIDT)) Q:LRIDT<1 D
19 . N DFN
20 . D EN1
21 Q
Note: See TracBrowser for help on using the repository browser.