| [613] | 1 | LR7OSMZ0 ;slc/dcm - Silent Micro rpt ;8/11/97
|
|---|
| 2 | ;;5.2;LAB SERVICE;**121,244**;Sep 27, 1994
|
|---|
| 3 | EN1 ;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
|
|---|
| 7 | EN(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
|
|---|
