IBDEI2TX.m

IBDEI2TX ; ; 04-FEB-2020

 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020

 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,45129,1,3,0)

 ;;=3^Candidal Cheilitis

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

 ;;=4^B37.83

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

 ;;=^5000622

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

 ;;=B37.0^^170^2249^3

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

 ;;=^358.31IA^4^2

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

 ;;=3^Candidal Stomatitis

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

 ;;=4^B37.0

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

 ;;=^5000612

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

 ;;=D04.9^^170^2249^20

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

 ;;=^358.31IA^4^2

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

 ;;=3^Carcinoma in Situ Skin,Unspec

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

 ;;=4^D04.9

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

 ;;=^5001925

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

 ;;=D04.0^^170^2249^11

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

 ;;=^358.31IA^4^2

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

 ;;=3^Carcinoma in Situ Skin Lip

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

 ;;=4^D04.0

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

 ;;=^267725

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

 ;;=D04.21^^170^2249^13

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

 ;;=^358.31IA^4^2

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

 ;;=3^Carcinoma in Situ Skin Right Ear/External Auricular Canal

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

 ;;=4^D04.21

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

 ;;=^5001913

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

 ;;=D04.22^^170^2249^6

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

 ;;=^358.31IA^4^2

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

 ;;=3^Carcinoma in Situ Skin Left Ear/External Auricular Canal

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

 ;;=4^D04.22

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

 ;;=^5001914

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

 ;;=D04.30^^170^2249^5

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

 ;;=^358.31IA^4^2

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

 ;;=3^Carcinoma in Situ Skin Face,Unspec

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

 ;;=4^D04.30

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

 ;;=^5001915

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

 ;;=D04.39^^170^2249^4

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

 ;;=^358.31IA^4^2

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

 ;;=3^Carcinoma in Situ Skin Face NEC

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

 ;;=4^D04.39

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

 ;;=^5001916

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

 ;;=D04.4^^170^2249^18

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

 ;;=^358.31IA^4^2

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

 ;;=3^Carcinoma in Situ Skin Scalp/Neck

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

 ;;=4^D04.4

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

 ;;=^267729

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

 ;;=D04.5^^170^2249^19

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

 ;;=^358.31IA^4^2

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

 ;;=3^Carcinoma in Situ Skin Trunk

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

 ;;=4^D04.5

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

 ;;=^5001917

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

 ;;=D04.61^^170^2249^17

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

 ;;=^358.31IA^4^2

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

 ;;=3^Carcinoma in Situ Skin Right Upper Limb

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

 ;;=4^D04.61

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

 ;;=^5001919

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

 ;;=D04.62^^170^2249^10

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

 ;;=^358.31IA^4^2

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

 ;;=3^Carcinoma in Situ Skin Left Upper Limb

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

 ;;=4^D04.62

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

 ;;=^5001920

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

 ;;=D04.71^^170^2249^15

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

 ;;=^358.31IA^4^2

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

 ;;=3^Carcinoma in Situ Skin Right Lower Limb

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBDEI2TX   3792     printed  Mar 13, 2025@21:40:38                                                                                                                                                                                                    Page 2

IBDEI2TX  ; ; 04-FEB-2020

 +1       ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020

 +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,45129,1,3,0)

 +2       ;;=3^Candidal Cheilitis

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

 +4       ;;=4^B37.83

 +5       ;;^UTILITY(U,$J,358.3,45129,2)

 +6       ;;=^5000622

 +7       ;;^UTILITY(U,$J,358.3,45130,0)

 +8       ;;=B37.0^^170^2249^3

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

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

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

 +12      ;;=3^Candidal Stomatitis

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

 +14      ;;=4^B37.0

 +15      ;;^UTILITY(U,$J,358.3,45130,2)

 +16      ;;=^5000612

 +17      ;;^UTILITY(U,$J,358.3,45131,0)

 +18      ;;=D04.9^^170^2249^20

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

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

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

 +22      ;;=3^Carcinoma in Situ Skin,Unspec

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

 +24      ;;=4^D04.9

 +25      ;;^UTILITY(U,$J,358.3,45131,2)

 +26      ;;=^5001925

 +27      ;;^UTILITY(U,$J,358.3,45132,0)

 +28      ;;=D04.0^^170^2249^11

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

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

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

 +32      ;;=3^Carcinoma in Situ Skin Lip

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

 +34      ;;=4^D04.0

 +35      ;;^UTILITY(U,$J,358.3,45132,2)

 +36      ;;=^267725

 +37      ;;^UTILITY(U,$J,358.3,45133,0)

 +38      ;;=D04.21^^170^2249^13

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

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

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

 +42      ;;=3^Carcinoma in Situ Skin Right Ear/External Auricular Canal

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

 +44      ;;=4^D04.21

 +45      ;;^UTILITY(U,$J,358.3,45133,2)

 +46      ;;=^5001913

 +47      ;;^UTILITY(U,$J,358.3,45134,0)

 +48      ;;=D04.22^^170^2249^6

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

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

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

 +52      ;;=3^Carcinoma in Situ Skin Left Ear/External Auricular Canal

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

 +54      ;;=4^D04.22

 +55      ;;^UTILITY(U,$J,358.3,45134,2)

 +56      ;;=^5001914

 +57      ;;^UTILITY(U,$J,358.3,45135,0)

 +58      ;;=D04.30^^170^2249^5

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

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

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

 +62      ;;=3^Carcinoma in Situ Skin Face,Unspec

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

 +64      ;;=4^D04.30

 +65      ;;^UTILITY(U,$J,358.3,45135,2)

 +66      ;;=^5001915

 +67      ;;^UTILITY(U,$J,358.3,45136,0)

 +68      ;;=D04.39^^170^2249^4

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

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

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

 +72      ;;=3^Carcinoma in Situ Skin Face NEC

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

 +74      ;;=4^D04.39

 +75      ;;^UTILITY(U,$J,358.3,45136,2)

 +76      ;;=^5001916

 +77      ;;^UTILITY(U,$J,358.3,45137,0)

 +78      ;;=D04.4^^170^2249^18

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

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

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

 +82      ;;=3^Carcinoma in Situ Skin Scalp/Neck

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

 +84      ;;=4^D04.4

 +85      ;;^UTILITY(U,$J,358.3,45137,2)

 +86      ;;=^267729

 +87      ;;^UTILITY(U,$J,358.3,45138,0)

 +88      ;;=D04.5^^170^2249^19

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

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

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

 +92      ;;=3^Carcinoma in Situ Skin Trunk

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

 +94      ;;=4^D04.5

 +95      ;;^UTILITY(U,$J,358.3,45138,2)

 +96      ;;=^5001917

 +97      ;;^UTILITY(U,$J,358.3,45139,0)

 +98      ;;=D04.61^^170^2249^17

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

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

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

 +102     ;;=3^Carcinoma in Situ Skin Right Upper Limb

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

 +104     ;;=4^D04.61

 +105     ;;^UTILITY(U,$J,358.3,45139,2)

 +106     ;;=^5001919

 +107     ;;^UTILITY(U,$J,358.3,45140,0)

 +108     ;;=D04.62^^170^2249^10

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

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

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

 +112     ;;=3^Carcinoma in Situ Skin Left Upper Limb

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

 +114     ;;=4^D04.62

 +115     ;;^UTILITY(U,$J,358.3,45140,2)

 +116     ;;=^5001920

 +117     ;;^UTILITY(U,$J,358.3,45141,0)

 +118     ;;=D04.71^^170^2249^15

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

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

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

 +122     ;;=3^Carcinoma in Situ Skin Right Lower Limb