| 1 | LRVR2 ;SLC/CJS - LAB ROUTINE DATA VERIFICATION ; 10/9/87 16:29 ;
|
|---|
| 2 | ;;5.2;LAB SERVICE;**201**;Sep 27, 1994
|
|---|
| 3 | S LRSPEC="",LRVF=0 S:'$D(LREAL) LREAL=1
|
|---|
| 4 | V3 G V5:$D(^LR(LRDFN,LRSS,LRIDT,0)),V4:"AP EM"[LRSS
|
|---|
| 5 | V3A IF LRSAMP'="" S LRSPEC=$P(^LAB(62,LRSAMP,0),U,2) G:$D(^LAB(61,+LRSPEC,0)) V4
|
|---|
| 6 | I LRDPF'=62.3 Q:$D(LRGVP) S DIC="^LAB(61,",DIC(0)="AEOQ" D ^DIC S LRSPEC=+Y IF LRSPEC=-1 W !,"The specimen MUST be defined." Q
|
|---|
| 7 | V4 I '$D(^LR(LRDFN,LRSS,0)) S ^LR(LRDFN,LRSS,0)=U_$P(^DD(63,$O(^DD(63,"GL",LRSS,0,0)),0),U,2)_U
|
|---|
| 8 | L +^LR(LRDFN,LRSS) S ^LR(LRDFN,LRSS,0)=$P(^LR(LRDFN,LRSS,0),U,1,2)_U_LRIDT_U_(1+$P(^(0),U,4))
|
|---|
| 9 | IF "AP EM"[LRSS S ^LR(LRDFN,LRSS,LRIDT,0)=LRCDT_U_LREAL L -^LR(LRDFN,LRSS) G V5
|
|---|
| 10 | S LRVOL="" S:$D(^LRO(69,LRODT,1,LRSN,1)) LRVOL=$P(^(1),U,5) S ^LR(LRDFN,LRSS,LRIDT,0)=LRCDT_U_LREAL_U_U_U_LRSPEC_U_LRAN_U_LRVOL_U_LRMETH_U L -^LR(LRDFN,LRSS)
|
|---|
| 11 | V5 I LRDPF=62.3 S LRSPEC=$S($D(^LR(LRDFN,LRSS,LRIDT,0)):$P(^(0),U,5),1:"")
|
|---|
| 12 | S LRLDT=LRIDT,LRVF=0 G V6:'$P(^LR(LRDFN,LRSS,LRIDT,0),U,3) S LRVF=1,X=$P(^(0),U,4),T=$P(^(0),U,3)
|
|---|
| 13 | W:'X&(LRDPF=62.3) !,"This control has been automatically verified" W:'X&(LRDPF'=62.3) !,"Verified"
|
|---|
| 14 | W !,"Some results have been approved by ",$S($D(^VA(200,+X,0)):$P(^(0),U),1:"Unknown"),!," on ",$$FMTE^XLFDT(T)
|
|---|
| 15 | V6 I LRDPF'=62.3 S LRSPEC=$P(^LR(LRDFN,LRSS,LRIDT,0),U,5) G V3A:'+LRSPEC
|
|---|
| 16 | W:$D(^LAB(61,+LRSPEC,0)) !,"Specimen: ",$P(^(0),U)
|
|---|
| 17 | V7 S LRLDT=+$O(^LR(LRDFN,LRSS,LRLDT)) S:LRLDT>LRTM60 LRLDT=-1 G V8:LRLDT<1,V7:'$D(^LR(LRDFN,LRSS,LRLDT,0)) D V9 G:$P(^LR(LRDFN,LRSS,LRLDT,0),U,5)'=LRSPEC!'$P(^(0),U,3)!'$D(LRMA) V7
|
|---|
| 18 | V8 S LRNTN=1,LRDAT(2)="",Z2="" I LRLDT>0 S Z2=^LR(LRDFN,"CH",LRLDT,0),X=+Z2,Z=Z2 D DAT S LRDAT(2)=LRDAT
|
|---|
| 19 | S Z1=^LR(LRDFN,"CH",LRIDT,0),X=+Z1,Z=Z1 D DAT
|
|---|
| 20 | K LRNOVER I LRSS="CH",'LRVF S LRNOVER=""
|
|---|
| 21 | I $D(LRNOVER) F I=1:0 S I=$O(^LR(LRDFN,"CH",LRIDT,I)) Q:I<1 S LRNOVER(I)=""
|
|---|
| 22 | D ^LRVR3
|
|---|
| 23 | K DA,DIC,DIE,DR,LREDIT,LRNG,LRNG2,LRNG3,LRNG4,LRNG5
|
|---|
| 24 | Q ;LEAVE LRVR2, BACK TO LRVR1
|
|---|
| 25 | DAT N LRX
|
|---|
| 26 | S LRX=$$FMTE^XLFDT(X,"5M")
|
|---|
| 27 | S LRDAT=$P(LRX,"/",1,2)_" "_$P(LRX,"@",2)_$S($P(Z,U,2)!(X'["."):"r",1:"d") Q
|
|---|
| 28 | V9 K LRMA F I=0:0 S I=$O(^TMP("LR",$J,"TMP",I)) Q:I<1 I $D(^LR(LRDFN,LRSS,LRLDT,I)) S LRMA=1 Q
|
|---|
| 29 | Q
|
|---|
