Routine: IBDEI11D

IBDEI11D ; ; 01-FEB-2022

 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022

 Q:'DIFQR(358.3)  F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y

Q Q

 ;;^UTILITY(U,$J,358.3,16842,0)

 ;;=A69.29^^61^777^20

 ;;^UTILITY(U,$J,358.3,16842,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,16842,1,3,0)

 ;;=3^Conditions d/t Lyme Disease

 ;;^UTILITY(U,$J,358.3,16842,1,4,0)

 ;;=4^A69.29

 ;;^UTILITY(U,$J,358.3,16842,2)

 ;;=^5000379

 ;;^UTILITY(U,$J,358.3,16843,0)

 ;;=A69.23^^61^777^5

 ;;^UTILITY(U,$J,358.3,16843,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,16843,1,3,0)

 ;;=3^Arthritis d/t Lyme Disease

 ;;^UTILITY(U,$J,358.3,16843,1,4,0)

 ;;=4^A69.23

 ;;^UTILITY(U,$J,358.3,16843,2)

 ;;=^5000378

 ;;^UTILITY(U,$J,358.3,16844,0)

 ;;=A51.0^^61^777^32

 ;;^UTILITY(U,$J,358.3,16844,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,16844,1,3,0)

 ;;=3^Genital Syphilis,Primary

 ;;^UTILITY(U,$J,358.3,16844,1,4,0)

 ;;=4^A51.0

 ;;^UTILITY(U,$J,358.3,16844,2)

 ;;=^5000272

 ;;^UTILITY(U,$J,358.3,16845,0)

 ;;=A52.3^^61^777^57

 ;;^UTILITY(U,$J,358.3,16845,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,16845,1,3,0)

 ;;=3^Neurosyphilis,Unspec

 ;;^UTILITY(U,$J,358.3,16845,1,4,0)

 ;;=4^A52.3

 ;;^UTILITY(U,$J,358.3,16845,2)

 ;;=^5000298

 ;;^UTILITY(U,$J,358.3,16846,0)

 ;;=A52.10^^61^777^56

 ;;^UTILITY(U,$J,358.3,16846,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,16846,1,3,0)

 ;;=3^Neurosyphilis Symptomatic,Unspec

 ;;^UTILITY(U,$J,358.3,16846,1,4,0)

 ;;=4^A52.10

 ;;^UTILITY(U,$J,358.3,16846,2)

 ;;=^5000291

 ;;^UTILITY(U,$J,358.3,16847,0)

 ;;=A52.9^^61^777^52

 ;;^UTILITY(U,$J,358.3,16847,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,16847,1,3,0)

 ;;=3^Late Syphilis,Unspec

 ;;^UTILITY(U,$J,358.3,16847,1,4,0)

 ;;=4^A52.9

 ;;^UTILITY(U,$J,358.3,16847,2)

 ;;=^5000308

 ;;^UTILITY(U,$J,358.3,16848,0)

 ;;=A53.9^^61^777^84

 ;;^UTILITY(U,$J,358.3,16848,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,16848,1,3,0)

 ;;=3^Syphilis,Unspec

 ;;^UTILITY(U,$J,358.3,16848,1,4,0)

 ;;=4^A53.9

 ;;^UTILITY(U,$J,358.3,16848,2)

 ;;=^5000310

 ;;^UTILITY(U,$J,358.3,16849,0)

 ;;=B37.3^^61^777^19

 ;;^UTILITY(U,$J,358.3,16849,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,16849,1,3,0)

 ;;=3^Candidiasis Vulva/Vagina

 ;;^UTILITY(U,$J,358.3,16849,1,4,0)

 ;;=4^B37.3

 ;;^UTILITY(U,$J,358.3,16849,2)

 ;;=^5000615

 ;;^UTILITY(U,$J,358.3,16850,0)

 ;;=B58.9^^61^777^89

 ;;^UTILITY(U,$J,358.3,16850,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,16850,1,3,0)

 ;;=3^Toxoplasmosis,Unspec

 ;;^UTILITY(U,$J,358.3,16850,1,4,0)

 ;;=4^B58.9

 ;;^UTILITY(U,$J,358.3,16850,2)

 ;;=^5000733

 ;;^UTILITY(U,$J,358.3,16851,0)

 ;;=A59.01^^61^777^90

 ;;^UTILITY(U,$J,358.3,16851,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,16851,1,3,0)

 ;;=3^Trichomonal Vulvovaginitis

 ;;^UTILITY(U,$J,358.3,16851,1,4,0)

 ;;=4^A59.01

 ;;^UTILITY(U,$J,358.3,16851,2)

 ;;=^121763

 ;;^UTILITY(U,$J,358.3,16852,0)

 ;;=B59.^^61^777^70

 ;;^UTILITY(U,$J,358.3,16852,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,16852,1,3,0)

 ;;=3^Pneumocystosis

 ;;^UTILITY(U,$J,358.3,16852,1,4,0)

 ;;=4^B59.

 ;;^UTILITY(U,$J,358.3,16852,2)

 ;;=^5000734

 ;;^UTILITY(U,$J,358.3,16853,0)

 ;;=H83.09^^61^777^51

 ;;^UTILITY(U,$J,358.3,16853,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,16853,1,3,0)

 ;;=3^Labyrinthitis,Unspec Ear

 ;;^UTILITY(U,$J,358.3,16853,1,4,0)

 ;;=4^H83.09

 ;;^UTILITY(U,$J,358.3,16853,2)

 ;;=^5006897

 ;;^UTILITY(U,$J,358.3,16854,0)

 ;;=H83.01^^61^777^50

 ;;^UTILITY(U,$J,358.3,16854,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,16854,1,3,0)

 ;;=3^Labyrinthitis,Right Ear

 ;;^UTILITY(U,$J,358.3,16854,1,4,0)

 ;;=4^H83.01

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI11D   3775     printed  Feb 18, 2025@23:26:12                                                                                                                                                                                                    Page 2

IBDEI11D  ; ; 01-FEB-2022

 +1       ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022

 +2        if 'DIFQR(358.3)

               QUIT

           FOR I=1:2

               SET X=$TEXT(Q+I)

               if X=""

                   QUIT

               SET Y=$EXTRACT($TEXT(Q+I+1),4,999)

               SET X=$EXTRACT(X,4,999)

               if $ASCII(Y)=126

                   SET I=I+1

                   SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)

               if $ASCII(Y)=61

                   SET Y=$EXTRACT(Y,2,999)

               XECUTE NO

              IF '$TEST

                   SET @X=Y

Q          QUIT

 +1       ;;^UTILITY(U,$J,358.3,16842,0)

 +2       ;;=A69.29^^61^777^20

 +3       ;;^UTILITY(U,$J,358.3,16842,1,0)

 +4       ;;=^358.31IA^4^2

 +5       ;;^UTILITY(U,$J,358.3,16842,1,3,0)

 +6       ;;=3^Conditions d/t Lyme Disease

 +7       ;;^UTILITY(U,$J,358.3,16842,1,4,0)

 +8       ;;=4^A69.29

 +9       ;;^UTILITY(U,$J,358.3,16842,2)

 +10      ;;=^5000379

 +11      ;;^UTILITY(U,$J,358.3,16843,0)

 +12      ;;=A69.23^^61^777^5

 +13      ;;^UTILITY(U,$J,358.3,16843,1,0)

 +14      ;;=^358.31IA^4^2

 +15      ;;^UTILITY(U,$J,358.3,16843,1,3,0)

 +16      ;;=3^Arthritis d/t Lyme Disease

 +17      ;;^UTILITY(U,$J,358.3,16843,1,4,0)

 +18      ;;=4^A69.23

 +19      ;;^UTILITY(U,$J,358.3,16843,2)

 +20      ;;=^5000378

 +21      ;;^UTILITY(U,$J,358.3,16844,0)

 +22      ;;=A51.0^^61^777^32

 +23      ;;^UTILITY(U,$J,358.3,16844,1,0)

 +24      ;;=^358.31IA^4^2

 +25      ;;^UTILITY(U,$J,358.3,16844,1,3,0)

 +26      ;;=3^Genital Syphilis,Primary

 +27      ;;^UTILITY(U,$J,358.3,16844,1,4,0)

 +28      ;;=4^A51.0

 +29      ;;^UTILITY(U,$J,358.3,16844,2)

 +30      ;;=^5000272

 +31      ;;^UTILITY(U,$J,358.3,16845,0)

 +32      ;;=A52.3^^61^777^57

 +33      ;;^UTILITY(U,$J,358.3,16845,1,0)

 +34      ;;=^358.31IA^4^2

 +35      ;;^UTILITY(U,$J,358.3,16845,1,3,0)

 +36      ;;=3^Neurosyphilis,Unspec

 +37      ;;^UTILITY(U,$J,358.3,16845,1,4,0)

 +38      ;;=4^A52.3

 +39      ;;^UTILITY(U,$J,358.3,16845,2)

 +40      ;;=^5000298

 +41      ;;^UTILITY(U,$J,358.3,16846,0)

 +42      ;;=A52.10^^61^777^56

 +43      ;;^UTILITY(U,$J,358.3,16846,1,0)

 +44      ;;=^358.31IA^4^2

 +45      ;;^UTILITY(U,$J,358.3,16846,1,3,0)

 +46      ;;=3^Neurosyphilis Symptomatic,Unspec

 +47      ;;^UTILITY(U,$J,358.3,16846,1,4,0)

 +48      ;;=4^A52.10

 +49      ;;^UTILITY(U,$J,358.3,16846,2)

 +50      ;;=^5000291

 +51      ;;^UTILITY(U,$J,358.3,16847,0)

 +52      ;;=A52.9^^61^777^52

 +53      ;;^UTILITY(U,$J,358.3,16847,1,0)

 +54      ;;=^358.31IA^4^2

 +55      ;;^UTILITY(U,$J,358.3,16847,1,3,0)

 +56      ;;=3^Late Syphilis,Unspec

 +57      ;;^UTILITY(U,$J,358.3,16847,1,4,0)

 +58      ;;=4^A52.9

 +59      ;;^UTILITY(U,$J,358.3,16847,2)

 +60      ;;=^5000308

 +61      ;;^UTILITY(U,$J,358.3,16848,0)

 +62      ;;=A53.9^^61^777^84

 +63      ;;^UTILITY(U,$J,358.3,16848,1,0)

 +64      ;;=^358.31IA^4^2

 +65      ;;^UTILITY(U,$J,358.3,16848,1,3,0)

 +66      ;;=3^Syphilis,Unspec

 +67      ;;^UTILITY(U,$J,358.3,16848,1,4,0)

 +68      ;;=4^A53.9

 +69      ;;^UTILITY(U,$J,358.3,16848,2)

 +70      ;;=^5000310

 +71      ;;^UTILITY(U,$J,358.3,16849,0)

 +72      ;;=B37.3^^61^777^19

 +73      ;;^UTILITY(U,$J,358.3,16849,1,0)

 +74      ;;=^358.31IA^4^2

 +75      ;;^UTILITY(U,$J,358.3,16849,1,3,0)

 +76      ;;=3^Candidiasis Vulva/Vagina

 +77      ;;^UTILITY(U,$J,358.3,16849,1,4,0)

 +78      ;;=4^B37.3

 +79      ;;^UTILITY(U,$J,358.3,16849,2)

 +80      ;;=^5000615

 +81      ;;^UTILITY(U,$J,358.3,16850,0)

 +82      ;;=B58.9^^61^777^89

 +83      ;;^UTILITY(U,$J,358.3,16850,1,0)

 +84      ;;=^358.31IA^4^2

 +85      ;;^UTILITY(U,$J,358.3,16850,1,3,0)

 +86      ;;=3^Toxoplasmosis,Unspec

 +87      ;;^UTILITY(U,$J,358.3,16850,1,4,0)

 +88      ;;=4^B58.9

 +89      ;;^UTILITY(U,$J,358.3,16850,2)

 +90      ;;=^5000733

 +91      ;;^UTILITY(U,$J,358.3,16851,0)

 +92      ;;=A59.01^^61^777^90

 +93      ;;^UTILITY(U,$J,358.3,16851,1,0)

 +94      ;;=^358.31IA^4^2

 +95      ;;^UTILITY(U,$J,358.3,16851,1,3,0)

 +96      ;;=3^Trichomonal Vulvovaginitis

 +97      ;;^UTILITY(U,$J,358.3,16851,1,4,0)

 +98      ;;=4^A59.01

 +99      ;;^UTILITY(U,$J,358.3,16851,2)

 +100     ;;=^121763

 +101     ;;^UTILITY(U,$J,358.3,16852,0)

 +102     ;;=B59.^^61^777^70

 +103     ;;^UTILITY(U,$J,358.3,16852,1,0)

 +104     ;;=^358.31IA^4^2

 +105     ;;^UTILITY(U,$J,358.3,16852,1,3,0)

 +106     ;;=3^Pneumocystosis

 +107     ;;^UTILITY(U,$J,358.3,16852,1,4,0)

 +108     ;;=4^B59.

 +109     ;;^UTILITY(U,$J,358.3,16852,2)

 +110     ;;=^5000734

 +111     ;;^UTILITY(U,$J,358.3,16853,0)

 +112     ;;=H83.09^^61^777^51

 +113     ;;^UTILITY(U,$J,358.3,16853,1,0)

 +114     ;;=^358.31IA^4^2

 +115     ;;^UTILITY(U,$J,358.3,16853,1,3,0)

 +116     ;;=3^Labyrinthitis,Unspec Ear

 +117     ;;^UTILITY(U,$J,358.3,16853,1,4,0)

 +118     ;;=4^H83.09

 +119     ;;^UTILITY(U,$J,358.3,16853,2)

 +120     ;;=^5006897

 +121     ;;^UTILITY(U,$J,358.3,16854,0)

 +122     ;;=H83.01^^61^777^50

 +123     ;;^UTILITY(U,$J,358.3,16854,1,0)

 +124     ;;=^358.31IA^4^2

 +125     ;;^UTILITY(U,$J,358.3,16854,1,3,0)

 +126     ;;=3^Labyrinthitis,Right Ear

 +127     ;;^UTILITY(U,$J,358.3,16854,1,4,0)

 +128     ;;=4^H83.01

IBDEI11D.m