| 1 | LAHWATCH ;SLC/RAF/DALISC/TNN - WATCH DATA IN ^LAH GLOBAL ;1/13/92 12:41
|
---|
| 2 | ;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994
|
---|
| 3 | IN ;
|
---|
| 4 | S U="^" W !!!,"This routine will allow you to look at the verifiable data in the ^LAH GLOBAL ",!,"for a specific instrument",!!
|
---|
| 5 | FIND K DIC S DIC="^LAB(62.4,",DIC(0)="AEMQ",DIC("S")="I Y<100" D ^DIC G END:Y<1 S LRTSK=+Y,LRINST=$P(Y,"^",2),LRWL=+$P(^LAB(62.4,+Y,0),U,4)
|
---|
| 6 | I 'LRWL W !!,?10,"No load/worklist defined for this instrument ",!!,$C(7) G IN
|
---|
| 7 | I '$O(^LAH(LRWL,1,0)) W !!?5,"No data for ",LRINST,!! G IN
|
---|
| 8 | EN S LREF="^LAH("_LRWL_")",LRMSK=$$GLBR^LRAFUNC(LREF),LRHDR=1
|
---|
| 9 | ;
|
---|
| 10 | ;*** Query user for Listing Format ***
|
---|
| 11 | ;*** Add logic so user can see either ^LAH listing or the interpreted values ***
|
---|
| 12 | ;
|
---|
| 13 | K DIR S DIR(0)="SO^1:Non interpreted LAH global;2:Interpreted values",DIR("A")="Select a Listing Format"
|
---|
| 14 | D ^DIR K DIR Q:$D(DIRUT)
|
---|
| 15 | I X=1 G STRT1
|
---|
| 16 | I X=2 G STRT2
|
---|
| 17 | D END G IN
|
---|
| 18 | ;
|
---|
| 19 | STRT1 I 'LRWL W !!,?10,"No load/worklist defined for this instrument ",!!,$C(7) Q
|
---|
| 20 | W !!,"I am about to display the data in ^LAH(",LRWL,")",!,?10,"You may exit at any time by entering the ""^""." H 2
|
---|
| 21 | CHK I '$G(LRWL) W !!!,?20,"This instrument has no pointer to ^LAH!",!!! S LRNOP=1 Q
|
---|
| 22 | I '$D(^LAH(LRWL)) W !!!,?20,"No data in ^LAH for this instrument!",!!! S LRNOP=1 Q
|
---|
| 23 | Q:X=2
|
---|
| 24 | ALOOP ;
|
---|
| 25 | W @IOF S LREND=0 F S LPREF=$S('(LREF[""""):LREF,1:LPREF),LREF=$Q(@(LREF)) Q:'($E(LREF,1,$L(LRMSK))=LRMSK)!(LREF="")!(LREND) W !,LREF," = ",@LREF D
|
---|
| 26 | . I $Y>21 S DIR(0)="E",LRHDR=1 D ^DIR S LREND=$D(DUOUT) Q:LREND W @IOF
|
---|
| 27 | AQUIT ;
|
---|
| 28 | W !,"Would you like to see if any more data has entered ^LAH(",LRWL,")" S %=2 D YN^DICN G:%=2!(%=-1) NEXT I %=1 S LREF=LPREF G ALOOP
|
---|
| 29 | NEXT ;
|
---|
| 30 | W !,"Would you like to view another instruments ^LAH data" S %=2 D YN^DICN G:%=2!(%=-1) END I %=1 D END G FIND
|
---|
| 31 | END K X,LRWL,LREF,LRINST,LRTSK,LREND,LPREF,%,Y,LRMSK,DIR,DUOUT,LRHDR,LRNUM,LRNOP
|
---|
| 32 | Q
|
---|
| 33 | ;
|
---|
| 34 | STRT2 ;*** Logic to list interpreted ^LAH data ***
|
---|
| 35 | D CHK I $G(LRNOP) D END G FIND
|
---|
| 36 | BLOOP ;
|
---|
| 37 | W @IOF S LREND=0 F S LPREF=$S('(LREF[""""):LREF,1:LPREF),LREF=$Q(@(LREF)) Q:'($E(LREF,1,$L(LRMSK))=LRMSK)!(LREF="")!(LREND)!($P($P(LREF,"(",2),",",3)="B") D
|
---|
| 38 | . I +$P($P(LREF,"(",2),",",4)=0 W !!?5,"Accession # ",$P(@(LREF),U,5)
|
---|
| 39 | . I LRHDR=1 W !,"Test",?25,"Value" S LRHDR=0
|
---|
| 40 | . I $P($P($P(LREF,"(",2),",",6),")",1)=0 W !?5,"Organism: ",$P($G(^LAB(61.2,+@LREF,0)),U) D
|
---|
| 41 | . . I '$D(^LAB(61.2,+@LREF,0)) W !,"***Organism entry points to missing entry # ",+@LREF," in file 61.2 (ETIOLOGY)***"
|
---|
| 42 | . I +$P($P(LREF,"(",2),",",6)>0 S LRNUM=+$P($Q(^LAB(62.06,"AD",+$P($P(LREF,"(",2),",",6))),",",4) I $D(^LAB(62.06,LRNUM,0)) W !,$P(^(0),"^"),?25,@LREF
|
---|
| 43 | . I +$P($P(LREF,"(",2),",",4)>0,$P($P(LREF,"(",2),",",4)[")",$D(^DD(63.04,+$P($P(LREF,"(",2),",",4),0)) W !,$P(^DD(63.04,+$P($P(LREF,"(",2),",",4),0),"^"),?25,+@LREF
|
---|
| 44 | . I $Y>21 S DIR(0)="E",LRHDR=1 D ^DIR S LREND=$D(DUOUT) Q:LREND W @IOF Q
|
---|
| 45 | BQUIT ;
|
---|
| 46 | W !,"Would you like to see if any more data has entered ^LAH(",LRWL,")" S %=2 D YN^DICN G:%=2!(%=-1) NEXT I %=1 S LREF=LPREF G BLOOP
|
---|
| 47 | D END G IN
|
---|