| 1 | LAMIV10 ;SLC/DLG - PROCESS VITEK BACILLUS AND UID CARDS ;7/20/90 09:37 ;
|
|---|
| 2 | ;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994
|
|---|
| 3 | ;0B Card; UID-1
|
|---|
| 4 | Q:$E(IN,1,2)'="00" Q:$E(IN,3,4)'="FF"
|
|---|
| 5 | F I1=1:1:10 S V=$E(IN,(I1+28),(I1+29)) S ORG(ISOL)=+^LAB(62.4,TSK,7,CARD,1,I1,0),V=$S(V="00":"1 TO 50K",V="01":">50K",1:""),ORG(ISOL)=ORG(ISOL)_"^"_V K:V="" ORG(ISOL) Q:ORG(ISOL)
|
|---|
| 6 | Q
|
|---|
| 7 | 510 ;12 CARD; UID-3
|
|---|
| 8 | Q:"123"'[$E(IN,2) Q:$E(IN,3,4)'="FF" S V=$E(IN,5,6),V=$S(V="FE":"1 TO 50K",V="FD":">50K",1:"")
|
|---|
| 9 | F I1=1:1:10 S X=$E(IN,(I1*2+7),(I1*2+8)),ORG(ISOL)=+^LAB(62.4,TSK,7,CARD,1,I1,0) D HEX S ORG(ISOL)=ORG(ISOL)_"^"_X K:X=0 ORG(ISOL) Q:ORG(ISOL)
|
|---|
| 10 | Q
|
|---|
| 11 | 52 S C=0,U="^" ;0C, 5.2, Bacillus card
|
|---|
| 12 | F I=3,7 S X1=$O(^LAB(62.4,TSK,7,CARD,1,"C",$E(IN,I,I+1),0)) D L2:X1>0 Q:$D(ORG)
|
|---|
| 13 | S RMK="",CODE=43,FL=$E(IN,44) D MSG
|
|---|
| 14 | Q
|
|---|
| 15 | L2 S ORG(ISOL)=+^LAB(62.4,TSK,7,CARD,1,X1,0),X=$E(IN,I+2,I+3) D PROB S ORG(ISOL,1)=X I X=""!(X<80) K ORG(ISOL) ;cancel if PROB<80%
|
|---|
| 16 | Q
|
|---|
| 17 | PROB D HEX I X>100 S X="" Q
|
|---|
| 18 | S:X=0 X="<1" S X=X_"% Probability" Q
|
|---|
| 19 | HEX S XX=X,X="" F II=1:1:$L(XX) S X=X*16+($F("0123456789ABCDEF",$E(XX,II))-2)
|
|---|
| 20 | Q
|
|---|
| 21 | MSG F X1=0:0 S X1=$O(^LAB(62.4,TSK,7,CARD,4,"B",CODE,X1)) Q:X1'>0 D MS2
|
|---|
| 22 | Q
|
|---|
| 23 | MS2 S X3=^LAB(62.4,TSK,7,CARD,4,X1,0)
|
|---|
| 24 | S X4=$P(X3,U,2) I $L(X4),X4'=FL Q ;
|
|---|
| 25 | S:$L(RMK) RMK=RMK_", " S RMK=RMK_$P(X3,U,3)
|
|---|
| 26 | Q
|
|---|
