LRMIXALL ;DALISC/FHS - RE INDEX "AI" "AJ" "AS" FOR ^LAB(62.06
;;5.2;LAB SERVICE;;Sep 27, 1994
EN ;Also called from the ^DD(62.06,1 X-ref indexes by FM
N X
Q:'$G(DA)!('$D(^LAB(62.06,+$G(DA),0))#2) S X=^(0)
Q:+$P(X,U,2)<2
W:$G(LRMAN) !,$P(X,U,2),?10,$P(X,U) S X=+$P(X,U,2)
W:$G(LRMAN) !?5," X-REF THE 'AJ' Entries " D BUGNODE^LRMIXR1
W:$G(LRMAN) !?5," X-REF THE 'AS' Entries " D BUGNODE^LRMIXR2
W:$G(LRMAN) !?5," X-REF THE 'AI' Entries " D BUGNODE^LRMIXR3
W:$G(LRMAN) !,"Done",!
Q
MAN F I=0:1 S L=$P($T(TAG+I),";;",2) Q:L="END" W !,L
G ASK
TAG ;; This routine will re-cross reference a drug with a single call
;;for "AI", "AJ" and "AS" in ANTIMICROBIAL SUSECPTIBILITY file (#62.06).
;; This process can be done via FileMan re-index function.
;;Not all LIMs have access to the re-index options. This routine
;;can be used for these specific cross references only.
;; It removes the entire X-Ref to clean up any errors and the
;;performs the set logic. It does not harm anything to do it more than once.
;;
;;END
Q
ASK ;
K DIC,DA
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
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)
D EN G ASK
END ;
K DA,X,XX,DIC,I,L,LRMAN D ^%ZISC Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRMIXALL 1312 printed Dec 13, 2024@02:17:49 Page 2
LRMIXALL ;DALISC/FHS - RE INDEX "AI" "AJ" "AS" FOR ^LAB(62.06
+1 ;;5.2;LAB SERVICE;;Sep 27, 1994
EN ;Also called from the ^DD(62.06,1 X-ref indexes by FM
+1 NEW X
+2 if '$GET(DA)!('$DATA(^LAB(62.06,+$GET(DA),0))#2)
QUIT
SET X=^(0)
+3 if +$PIECE(X,U,2)<2
QUIT
+4 if $GET(LRMAN)
WRITE !,$PIECE(X,U,2),?10,$PIECE(X,U)
SET X=+$PIECE(X,U,2)
+5 if $GET(LRMAN)
WRITE !?5," X-REF THE 'AJ' Entries "
DO BUGNODE^LRMIXR1
+6 if $GET(LRMAN)
WRITE !?5," X-REF THE 'AS' Entries "
DO BUGNODE^LRMIXR2
+7 if $GET(LRMAN)
WRITE !?5," X-REF THE 'AI' Entries "
DO BUGNODE^LRMIXR3
+8 if $GET(LRMAN)
WRITE !,"Done",!
+9 QUIT
MAN FOR I=0:1
SET L=$PIECE($TEXT(TAG+I),";;",2)
if L="END"
QUIT
WRITE !,L
+1 GOTO ASK
TAG ;; This routine will re-cross reference a drug with a single call
+1 ;;for "AI", "AJ" and "AS" in ANTIMICROBIAL SUSECPTIBILITY file (#62.06).
+2 ;; This process can be done via FileMan re-index function.
+3 ;;Not all LIMs have access to the re-index options. This routine
+4 ;;can be used for these specific cross references only.
+5 ;; It removes the entire X-Ref to clean up any errors and the
+6 ;;performs the set logic. It does not harm anything to do it more than once.
+7 ;;
+8 ;;END
+9 QUIT
ASK ;
+1 KILL DIC,DA
+2 WRITE !
SET LRMAN=1
SET DIC=62.06
SET DIC(0)="AQEZM"
SET DIC("S")="I $P(^(0),U,2)>2"
DO ^DIC
if Y<1
GOTO END
+3 SET DA=+Y
SET XX=+$PIECE(Y(0),U,2)
KILL ^LAB(62.06,"AJ",XX),^LAB(62.06,"AS",XX),^LAB(62.06,"AI",XX)
+4 DO EN
GOTO ASK
END ;
+1 KILL DA,X,XX,DIC,I,L,LRMAN
DO ^%ZISC
QUIT
