| [613] | 1 | LRMIXALL ;DALISC/FHS - RE INDEX "AI" "AJ" "AS" FOR ^LAB(62.06
|
|---|
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994
|
|---|
| 3 | EN ;Also called from the ^DD(62.06,1 X-ref indexes by FM
|
|---|
| 4 | N X
|
|---|
| 5 | Q:'$G(DA)!('$D(^LAB(62.06,+$G(DA),0))#2) S X=^(0)
|
|---|
| 6 | Q:+$P(X,U,2)<2
|
|---|
| 7 | W:$G(LRMAN) !,$P(X,U,2),?10,$P(X,U) S X=+$P(X,U,2)
|
|---|
| 8 | W:$G(LRMAN) !?5," X-REF THE 'AJ' Entries " D BUGNODE^LRMIXR1
|
|---|
| 9 | W:$G(LRMAN) !?5," X-REF THE 'AS' Entries " D BUGNODE^LRMIXR2
|
|---|
| 10 | W:$G(LRMAN) !?5," X-REF THE 'AI' Entries " D BUGNODE^LRMIXR3
|
|---|
| 11 | W:$G(LRMAN) !,"Done",!
|
|---|
| 12 | Q
|
|---|
| 13 | MAN F I=0:1 S L=$P($T(TAG+I),";;",2) Q:L="END" W !,L
|
|---|
| 14 | G ASK
|
|---|
| 15 | TAG ;; This routine will re-cross reference a drug with a single call
|
|---|
| 16 | ;;for "AI", "AJ" and "AS" in ANTIMICROBIAL SUSECPTIBILITY file (#62.06).
|
|---|
| 17 | ;; This process can be done via FileMan re-index function.
|
|---|
| 18 | ;;Not all LIMs have access to the re-index options. This routine
|
|---|
| 19 | ;;can be used for these specific cross references only.
|
|---|
| 20 | ;; It removes the entire X-Ref to clean up any errors and the
|
|---|
| 21 | ;;performs the set logic. It does not harm anything to do it more than once.
|
|---|
| 22 | ;;
|
|---|
| 23 | ;;END
|
|---|
| 24 | Q
|
|---|
| 25 | ASK ;
|
|---|
| 26 | K DIC,DA
|
|---|
| 27 | W ! S LRMAN=1 S DIC=62.06,DIC(0)="AQEZM",DIC("S")="I $P(^(0),U,2)>2" D ^DIC G:Y<1 END
|
|---|
| 28 | S DA=+Y S XX=+$P(Y(0),U,2) K ^LAB(62.06,"AJ",XX),^LAB(62.06,"AS",XX),^LAB(62.06,"AI",XX)
|
|---|
| 29 | D EN G ASK
|
|---|
| 30 | END ;
|
|---|
| 31 | K DA,X,XX,DIC,I,L,LRMAN D ^%ZISC Q
|
|---|
