IBDEI0R3 ; ; 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,12203,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12203,1,3,0)
;;=3^Abscess of Neck
;;^UTILITY(U,$J,358.3,12203,1,4,0)
;;=4^L02.01
;;^UTILITY(U,$J,358.3,12203,2)
;;=^5008944
;;^UTILITY(U,$J,358.3,12204,0)
;;=L02.12^^49^596^28
;;^UTILITY(U,$J,358.3,12204,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12204,1,3,0)
;;=3^Furuncle of Neck
;;^UTILITY(U,$J,358.3,12204,1,4,0)
;;=4^L02.12
;;^UTILITY(U,$J,358.3,12204,2)
;;=^5008948
;;^UTILITY(U,$J,358.3,12205,0)
;;=L02.13^^49^596^11
;;^UTILITY(U,$J,358.3,12205,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12205,1,3,0)
;;=3^Carbuncle of Neck
;;^UTILITY(U,$J,358.3,12205,1,4,0)
;;=4^L02.13
;;^UTILITY(U,$J,358.3,12205,2)
;;=^5008949
;;^UTILITY(U,$J,358.3,12206,0)
;;=L02.211^^49^596^1
;;^UTILITY(U,$J,358.3,12206,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12206,1,3,0)
;;=3^Abscess of Abdominal Wall
;;^UTILITY(U,$J,358.3,12206,1,4,0)
;;=4^L02.211
;;^UTILITY(U,$J,358.3,12206,2)
;;=^5008950
;;^UTILITY(U,$J,358.3,12207,0)
;;=L02.212^^49^596^2
;;^UTILITY(U,$J,358.3,12207,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12207,1,3,0)
;;=3^Abscess of Back (except Buttock)
;;^UTILITY(U,$J,358.3,12207,1,4,0)
;;=4^L02.212
;;^UTILITY(U,$J,358.3,12207,2)
;;=^5008951
;;^UTILITY(U,$J,358.3,12208,0)
;;=L02.213^^49^596^4
;;^UTILITY(U,$J,358.3,12208,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12208,1,3,0)
;;=3^Abscess of Chest Wall
;;^UTILITY(U,$J,358.3,12208,1,4,0)
;;=4^L02.213
;;^UTILITY(U,$J,358.3,12208,2)
;;=^5008952
;;^UTILITY(U,$J,358.3,12209,0)
;;=L02.214^^49^596^5
;;^UTILITY(U,$J,358.3,12209,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12209,1,3,0)
;;=3^Abscess of Groin
;;^UTILITY(U,$J,358.3,12209,1,4,0)
;;=4^L02.214
;;^UTILITY(U,$J,358.3,12209,2)
;;=^5008953
;;^UTILITY(U,$J,358.3,12210,0)
;;=L02.215^^49^596^7
;;^UTILITY(U,$J,358.3,12210,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12210,1,3,0)
;;=3^Abscess of Perineum
;;^UTILITY(U,$J,358.3,12210,1,4,0)
;;=4^L02.215
;;^UTILITY(U,$J,358.3,12210,2)
;;=^5008954
;;^UTILITY(U,$J,358.3,12211,0)
;;=L02.216^^49^596^9
;;^UTILITY(U,$J,358.3,12211,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12211,1,3,0)
;;=3^Abscess of Umbilicus
;;^UTILITY(U,$J,358.3,12211,1,4,0)
;;=4^L02.216
;;^UTILITY(U,$J,358.3,12211,2)
;;=^5008955
;;^UTILITY(U,$J,358.3,12212,0)
;;=L02.219^^49^596^8
;;^UTILITY(U,$J,358.3,12212,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12212,1,3,0)
;;=3^Abscess of Trunk,Unspec
;;^UTILITY(U,$J,358.3,12212,1,4,0)
;;=4^L02.219
;;^UTILITY(U,$J,358.3,12212,2)
;;=^5008956
;;^UTILITY(U,$J,358.3,12213,0)
;;=L02.31^^49^596^3
;;^UTILITY(U,$J,358.3,12213,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12213,1,3,0)
;;=3^Abscess of Buttock
;;^UTILITY(U,$J,358.3,12213,1,4,0)
;;=4^L02.31
;;^UTILITY(U,$J,358.3,12213,2)
;;=^5008971
;;^UTILITY(U,$J,358.3,12214,0)
;;=L02.32^^49^596^27
;;^UTILITY(U,$J,358.3,12214,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12214,1,3,0)
;;=3^Furuncle of Buttock
;;^UTILITY(U,$J,358.3,12214,1,4,0)
;;=4^L02.32
;;^UTILITY(U,$J,358.3,12214,2)
;;=^5008972
;;^UTILITY(U,$J,358.3,12215,0)
;;=L02.33^^49^596^10
;;^UTILITY(U,$J,358.3,12215,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,12215,1,3,0)
;;=3^Carbuncle of Buttock
;;^UTILITY(U,$J,358.3,12215,1,4,0)
;;=4^L02.33
;;^UTILITY(U,$J,358.3,12215,2)
;;=^5008973
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0R3 3756 printed Dec 13, 2024@01:54:07 Page 2
IBDEI0R3 ; ; 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,12203,1,0)
+2 ;;=^358.31IA^4^2
+3 ;;^UTILITY(U,$J,358.3,12203,1,3,0)
+4 ;;=3^Abscess of Neck
+5 ;;^UTILITY(U,$J,358.3,12203,1,4,0)
+6 ;;=4^L02.01
+7 ;;^UTILITY(U,$J,358.3,12203,2)
+8 ;;=^5008944
+9 ;;^UTILITY(U,$J,358.3,12204,0)
+10 ;;=L02.12^^49^596^28
+11 ;;^UTILITY(U,$J,358.3,12204,1,0)
+12 ;;=^358.31IA^4^2
+13 ;;^UTILITY(U,$J,358.3,12204,1,3,0)
+14 ;;=3^Furuncle of Neck
+15 ;;^UTILITY(U,$J,358.3,12204,1,4,0)
+16 ;;=4^L02.12
+17 ;;^UTILITY(U,$J,358.3,12204,2)
+18 ;;=^5008948
+19 ;;^UTILITY(U,$J,358.3,12205,0)
+20 ;;=L02.13^^49^596^11
+21 ;;^UTILITY(U,$J,358.3,12205,1,0)
+22 ;;=^358.31IA^4^2
+23 ;;^UTILITY(U,$J,358.3,12205,1,3,0)
+24 ;;=3^Carbuncle of Neck
+25 ;;^UTILITY(U,$J,358.3,12205,1,4,0)
+26 ;;=4^L02.13
+27 ;;^UTILITY(U,$J,358.3,12205,2)
+28 ;;=^5008949
+29 ;;^UTILITY(U,$J,358.3,12206,0)
+30 ;;=L02.211^^49^596^1
+31 ;;^UTILITY(U,$J,358.3,12206,1,0)
+32 ;;=^358.31IA^4^2
+33 ;;^UTILITY(U,$J,358.3,12206,1,3,0)
+34 ;;=3^Abscess of Abdominal Wall
+35 ;;^UTILITY(U,$J,358.3,12206,1,4,0)
+36 ;;=4^L02.211
+37 ;;^UTILITY(U,$J,358.3,12206,2)
+38 ;;=^5008950
+39 ;;^UTILITY(U,$J,358.3,12207,0)
+40 ;;=L02.212^^49^596^2
+41 ;;^UTILITY(U,$J,358.3,12207,1,0)
+42 ;;=^358.31IA^4^2
+43 ;;^UTILITY(U,$J,358.3,12207,1,3,0)
+44 ;;=3^Abscess of Back (except Buttock)
+45 ;;^UTILITY(U,$J,358.3,12207,1,4,0)
+46 ;;=4^L02.212
+47 ;;^UTILITY(U,$J,358.3,12207,2)
+48 ;;=^5008951
+49 ;;^UTILITY(U,$J,358.3,12208,0)
+50 ;;=L02.213^^49^596^4
+51 ;;^UTILITY(U,$J,358.3,12208,1,0)
+52 ;;=^358.31IA^4^2
+53 ;;^UTILITY(U,$J,358.3,12208,1,3,0)
+54 ;;=3^Abscess of Chest Wall
+55 ;;^UTILITY(U,$J,358.3,12208,1,4,0)
+56 ;;=4^L02.213
+57 ;;^UTILITY(U,$J,358.3,12208,2)
+58 ;;=^5008952
+59 ;;^UTILITY(U,$J,358.3,12209,0)
+60 ;;=L02.214^^49^596^5
+61 ;;^UTILITY(U,$J,358.3,12209,1,0)
+62 ;;=^358.31IA^4^2
+63 ;;^UTILITY(U,$J,358.3,12209,1,3,0)
+64 ;;=3^Abscess of Groin
+65 ;;^UTILITY(U,$J,358.3,12209,1,4,0)
+66 ;;=4^L02.214
+67 ;;^UTILITY(U,$J,358.3,12209,2)
+68 ;;=^5008953
+69 ;;^UTILITY(U,$J,358.3,12210,0)
+70 ;;=L02.215^^49^596^7
+71 ;;^UTILITY(U,$J,358.3,12210,1,0)
+72 ;;=^358.31IA^4^2
+73 ;;^UTILITY(U,$J,358.3,12210,1,3,0)
+74 ;;=3^Abscess of Perineum
+75 ;;^UTILITY(U,$J,358.3,12210,1,4,0)
+76 ;;=4^L02.215
+77 ;;^UTILITY(U,$J,358.3,12210,2)
+78 ;;=^5008954
+79 ;;^UTILITY(U,$J,358.3,12211,0)
+80 ;;=L02.216^^49^596^9
+81 ;;^UTILITY(U,$J,358.3,12211,1,0)
+82 ;;=^358.31IA^4^2
+83 ;;^UTILITY(U,$J,358.3,12211,1,3,0)
+84 ;;=3^Abscess of Umbilicus
+85 ;;^UTILITY(U,$J,358.3,12211,1,4,0)
+86 ;;=4^L02.216
+87 ;;^UTILITY(U,$J,358.3,12211,2)
+88 ;;=^5008955
+89 ;;^UTILITY(U,$J,358.3,12212,0)
+90 ;;=L02.219^^49^596^8
+91 ;;^UTILITY(U,$J,358.3,12212,1,0)
+92 ;;=^358.31IA^4^2
+93 ;;^UTILITY(U,$J,358.3,12212,1,3,0)
+94 ;;=3^Abscess of Trunk,Unspec
+95 ;;^UTILITY(U,$J,358.3,12212,1,4,0)
+96 ;;=4^L02.219
+97 ;;^UTILITY(U,$J,358.3,12212,2)
+98 ;;=^5008956
+99 ;;^UTILITY(U,$J,358.3,12213,0)
+100 ;;=L02.31^^49^596^3
+101 ;;^UTILITY(U,$J,358.3,12213,1,0)
+102 ;;=^358.31IA^4^2
+103 ;;^UTILITY(U,$J,358.3,12213,1,3,0)
+104 ;;=3^Abscess of Buttock
+105 ;;^UTILITY(U,$J,358.3,12213,1,4,0)
+106 ;;=4^L02.31
+107 ;;^UTILITY(U,$J,358.3,12213,2)
+108 ;;=^5008971
+109 ;;^UTILITY(U,$J,358.3,12214,0)
+110 ;;=L02.32^^49^596^27
+111 ;;^UTILITY(U,$J,358.3,12214,1,0)
+112 ;;=^358.31IA^4^2
+113 ;;^UTILITY(U,$J,358.3,12214,1,3,0)
+114 ;;=3^Furuncle of Buttock
+115 ;;^UTILITY(U,$J,358.3,12214,1,4,0)
+116 ;;=4^L02.32
+117 ;;^UTILITY(U,$J,358.3,12214,2)
+118 ;;=^5008972
+119 ;;^UTILITY(U,$J,358.3,12215,0)
+120 ;;=L02.33^^49^596^10
+121 ;;^UTILITY(U,$J,358.3,12215,1,0)
+122 ;;=^358.31IA^4^2
+123 ;;^UTILITY(U,$J,358.3,12215,1,3,0)
+124 ;;=3^Carbuncle of Buttock
+125 ;;^UTILITY(U,$J,358.3,12215,1,4,0)
+126 ;;=4^L02.33
+127 ;;^UTILITY(U,$J,358.3,12215,2)
+128 ;;=^5008973
