| 1 | LRMIXR1 ;SLC/BA - X-REF FOR ANTIBIOTIC INTERPRETATION ^LAB(62.06,"AJ") ; 8/5/87 10:40 ;
|
|---|
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994
|
|---|
| 3 | KINT ;kills "AJ" x-ref and then resets it when INTERPRETATION is deleted
|
|---|
| 4 | S K0=DA(1) D KILL
|
|---|
| 5 | Q
|
|---|
| 6 | KAINT ;kills "AJ" x-ref and then resets it when ALTERNATE INTERPRETATION is deleted
|
|---|
| 7 | S K0=DA(2) D KILL
|
|---|
| 8 | Q
|
|---|
| 9 | KILL I $L($P(^LAB(62.06,K0,0),U,2)) S K9=+$P(^(0),U,2) K ^LAB(62.06,"AJ",K9,X) D SET
|
|---|
| 10 | K K0 S K9=DA(1) N DA,X
|
|---|
| 11 | S DA=K9 S X=$P($G(^LAB(62.06,+DA,0)),U,2) D ^LRMIXALL
|
|---|
| 12 | Q
|
|---|
| 13 | BUGNODE ;sets "AJ" x-ref when entering BUG NODE
|
|---|
| 14 | S K0=DA,K9=+X I K9'<2 D SET
|
|---|
| 15 | Q
|
|---|
| 16 | SET S K1=0 F I=0:0 S K1=+$O(^LAB(62.06,K0,1,K1)) Q:K1<1 I $D(^(K1,0)),$L($P(^(0),U,2)) S ^LAB(62.06,"AJ",K9,$P(^(0),U,2))="" D ALT
|
|---|
| 17 | K K0,K1,K2,K9
|
|---|
| 18 | Q
|
|---|
| 19 | ALT S K2=0 F I=0:0 S K2=+$O(^LAB(62.06,K0,1,K1,2,K2)) Q:K2<1 I $D(^(K2,0)),$L($P(^(0),U)),$L($P(^(0),U,2)),$L($P(^(0),U,3)) S ^LAB(62.06,"AJ",K9,$P(^(0),U))=""
|
|---|
| 20 | Q
|
|---|
