| 1 | LR7OGMM ;SLC/STAFF- Interim report rpc memo micro ;5/20/97 18:52
|
|---|
| 2 | ;;5.2;LAB SERVICE;**187,312,364**;Sep 27, 1994;Build 3
|
|---|
| 3 | ;
|
|---|
| 4 | MI(LRDFN,IDT,MICROSUB,ALL,OUTCNT,FORMAT,DONE) ; from LR7OGM
|
|---|
| 5 | N MISUB,OK,ZERO,INEXACT,DISPDATE,XDT
|
|---|
| 6 | I '$D(^LR(LRDFN,"MI",IDT)) Q
|
|---|
| 7 | S OK=ALL
|
|---|
| 8 | I 'OK S MISUB=0 F S MISUB=+$O(MICROSUB(MISUB)) Q:MISUB<1 I $D(^LR(LRDFN,"MI",IDT,MISUB)) S OK=1 Q
|
|---|
| 9 | I 'OK Q
|
|---|
| 10 | I $G(FORMAT) D
|
|---|
| 11 | .S XDT=9999999-IDT
|
|---|
| 12 | .S ^TMP("LR7OGX",$J,"OUTPUT",OUTCNT)="^MI^"_XDT D
|
|---|
| 13 | ..; determine if collection time is "inexact" and put the
|
|---|
| 14 | ..; collection day/time that is to be displayed in piece 10
|
|---|
| 15 | ..S ZERO=$G(^LR(LRDFN,"MI",IDT,0)) Q:ZERO=""
|
|---|
| 16 | ..S INEXACT=$P(ZERO,U,2)
|
|---|
| 17 | ..S DISPDATE=$S(INEXACT:XDT\1,1:XDT)
|
|---|
| 18 | ..S $P(^TMP("LR7OGX",$J,"OUTPUT",OUTCNT),U,10)=DISPDATE
|
|---|
| 19 | .S OUTCNT=OUTCNT+1
|
|---|
| 20 | .S DONE=1
|
|---|
| 21 | D MIC(LRDFN,IDT,.OUTCNT)
|
|---|
| 22 | Q
|
|---|
| 23 | ;
|
|---|
| 24 | MIC(LRDFN,LRIDT,OUTCNT) ;
|
|---|
| 25 | N AGE,GCNT,GIOM,LINE,LREND,LRONESPC,LRONETST,NUM,SEX
|
|---|
| 26 | S GCNT=0,GIOM=80,LREND=0,LRONESPC="",LRONETST=0
|
|---|
| 27 | S AGE=$P(^TMP("LR7OG",$J,"G"),U,5),SEX=$P(^("G"),U,6)
|
|---|
| 28 | ; new variables used by LR7OSMZ0
|
|---|
| 29 | N %,A,A8,AB,B,B1,B2,B3,C,CCNT,DIC,DZ,I,IA,II,INC,J,K,LR1PASS,LR2ORMOR,LRAA,LRABCNT,LRACC,LRACNT,LRAD,LRADM,LRADX,LRAFS,LRAMT,LRAN,LRAO,LRAX
|
|---|
| 30 | N LRBN,LRBRR,LRBUG,LRCMNT,LRCOMTAB,LRCS,LRDCOM,LRDOC,LRDRTM1,LRDRTM2,LREF,LRFLAG,LRFMT,LRGRM,LRIFN,LRINT,LRJ02,LRLABKY,LRLLT,LRMYC,LRNS,LRNUM
|
|---|
| 31 | N LRORG,LRPAR,LRPATLOC,LRPC,LRPG,LRPRE,LRPRINT,LRQU,LRRC,LRRES,LRSB,LRSBC1,LRSBC2,LRSET,LRSIC1,LRSIC2,LRSET,LRSIC1,LRSIC2,LRSPEC,LRSSD,LRST
|
|---|
| 32 | N LRTA,LRTB,LRTBA,LRTBC,LRTBS,LRTK,LRTS,LRTSTS,LRTUS,LRUS,LRWRD,LRWRDVEW,N,S1,SP,X,X1,Y,Y1
|
|---|
| 33 | K DIC,LR1PASS,LRBUG,LRDCOM,LRINT,LRRES,LRTS K ^TMP("LR",$J),^TMP("LRC",$J),^TMP("LRT",$J)
|
|---|
| 34 | D EN1^LR7OSMZ0
|
|---|
| 35 | I '$O(^TMP("LRC",$J,0)) Q
|
|---|
| 36 | S NUM=0 F S NUM=$O(^TMP("LRC",$J,NUM)) Q:NUM<1 S LINE=^(NUM,0) D
|
|---|
| 37 | .S ^TMP("LR7OGX",$J,"OUTPUT",OUTCNT)=LINE,OUTCNT=OUTCNT+1
|
|---|
| 38 | S ^TMP("LR7OGX",$J,"OUTPUT",OUTCNT)="===============================================================================",OUTCNT=OUTCNT+1
|
|---|
| 39 | K ^TMP("LR",$J),^TMP("LRC",$J),^TMP("LRT",$J)
|
|---|
| 40 | Q
|
|---|
