source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRMIXR1.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 885 bytes
Line 
1LRMIXR1 ;SLC/BA - X-REF FOR ANTIBIOTIC INTERPRETATION ^LAB(62.06,"AJ") ; 8/5/87 10:40 ;
2 ;;5.2;LAB SERVICE;;Sep 27, 1994
3KINT ;kills "AJ" x-ref and then resets it when INTERPRETATION is deleted
4 S K0=DA(1) D KILL
5 Q
6KAINT ;kills "AJ" x-ref and then resets it when ALTERNATE INTERPRETATION is deleted
7 S K0=DA(2) D KILL
8 Q
9KILL 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
13BUGNODE ;sets "AJ" x-ref when entering BUG NODE
14 S K0=DA,K9=+X I K9'<2 D SET
15 Q
16SET 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
19ALT 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
Note: See TracBrowser for help on using the repository browser.