IBDEI2X8.m

IBDEI2X8 ; ; 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,46597,1,3,0)

 ;;=3^Dil Exist Tract,New Access RCS

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

 ;;=53854^^178^2320^17^^^^1

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

 ;;=^358.31IA^3^2

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

 ;;=2^53854

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

 ;;=3^Transureth Dstr Prost Tiss,RF WV Thermotherap

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

 ;;=51725^^178^2321^5^^^^1

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

 ;;=^358.31IA^3^2

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

 ;;=2^51725

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

 ;;=3^CMG,Simple

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

 ;;=51726^^178^2321^4^^^^1

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

 ;;=^358.31IA^3^2

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

 ;;=2^51726

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

 ;;=3^CMG,Complex

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

 ;;=51797^^178^2321^9^^^^1

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

 ;;=^358.31IA^3^2

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

 ;;=2^51797

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

 ;;=3^Intra-Abdominal VP (Rectal)

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

 ;;=51785^^178^2321^6^^^^1

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

 ;;=^358.31IA^3^2

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

 ;;=2^51785

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

 ;;=3^EMG Needle

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

 ;;=51741^^178^2321^12^^^^1

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

 ;;=^358.31IA^3^2

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

 ;;=2^51741

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

 ;;=3^Uroflow,Complex

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

 ;;=51792^^178^2321^10^^^^1

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

 ;;=^358.31IA^3^2

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

 ;;=2^51792

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

 ;;=3^Stim Evk Rspns (BRLT)

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

 ;;=51798^^178^2321^11^^^^1

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

 ;;=^358.31IA^3^2

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

 ;;=2^51798

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

 ;;=3^US For Residual Urine

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

 ;;=51727^^178^2321^1^^^^1

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

 ;;=^358.31IA^3^2

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

 ;;=2^51727

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

 ;;=3^CMG,Comp w/ UP Study

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

 ;;=51728^^178^2321^2^^^^1

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

 ;;=^358.31IA^3^2

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

 ;;=2^51728

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

 ;;=3^CMG,Comp w/ VP

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

 ;;=51729^^178^2321^3^^^^1

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

 ;;=^358.31IA^3^2

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

 ;;=2^51729

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

 ;;=3^CMG,Comp w/ VP & UP

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

 ;;=51736^^178^2321^13^^^^1

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

 ;;=^358.31IA^3^2

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

 ;;=2^51736

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

 ;;=3^Uroflow,Simple

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

 ;;=51784^^178^2321^7^^^^1

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

 ;;=^358.31IA^3^2

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

 ;;=2^51784

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

 ;;=3^EMG Non-Needle

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

 ;;=76000^^178^2321^8^^^^1

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

 ;;=^358.31IA^3^2

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

 ;;=2^76000

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

 ;;=3^Fluoroscopy

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

 ;;=J9202^^178^2322^32^^^^3

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

 ;;=^358.31IA^3^2

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

 ;;=2^J9202

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

 ;;=3^Zoladex 10.8 mg total

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBDEI2X8   3760     printed  Feb 19, 2025@00:04:02                                                                                                                                                                                                    Page 2

IBDEI2X8  ; ; 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,46597,1,3,0)

 +2       ;;=3^Dil Exist Tract,New Access RCS

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

 +4       ;;=53854^^178^2320^17^^^^1

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

 +6       ;;=^358.31IA^3^2

 +7       ;;^UTILITY(U,$J,358.3,46598,1,2,0)

 +8       ;;=2^53854

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

 +10      ;;=3^Transureth Dstr Prost Tiss,RF WV Thermotherap

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

 +12      ;;=51725^^178^2321^5^^^^1

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

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

 +15      ;;^UTILITY(U,$J,358.3,46599,1,2,0)

 +16      ;;=2^51725

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

 +18      ;;=3^CMG,Simple

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

 +20      ;;=51726^^178^2321^4^^^^1

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

 +22      ;;=^358.31IA^3^2

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

 +24      ;;=2^51726

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

 +26      ;;=3^CMG,Complex

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

 +28      ;;=51797^^178^2321^9^^^^1

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

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

 +31      ;;^UTILITY(U,$J,358.3,46601,1,2,0)

 +32      ;;=2^51797

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

 +34      ;;=3^Intra-Abdominal VP (Rectal)

 +35      ;;^UTILITY(U,$J,358.3,46602,0)

 +36      ;;=51785^^178^2321^6^^^^1

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

 +38      ;;=^358.31IA^3^2

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

 +40      ;;=2^51785

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

 +42      ;;=3^EMG Needle

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

 +44      ;;=51741^^178^2321^12^^^^1

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

 +46      ;;=^358.31IA^3^2

 +47      ;;^UTILITY(U,$J,358.3,46603,1,2,0)

 +48      ;;=2^51741

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

 +50      ;;=3^Uroflow,Complex

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

 +52      ;;=51792^^178^2321^10^^^^1

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

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

 +55      ;;^UTILITY(U,$J,358.3,46604,1,2,0)

 +56      ;;=2^51792

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

 +58      ;;=3^Stim Evk Rspns (BRLT)

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

 +60      ;;=51798^^178^2321^11^^^^1

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

 +62      ;;=^358.31IA^3^2

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

 +64      ;;=2^51798

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

 +66      ;;=3^US For Residual Urine

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

 +68      ;;=51727^^178^2321^1^^^^1

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

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

 +71      ;;^UTILITY(U,$J,358.3,46606,1,2,0)

 +72      ;;=2^51727

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

 +74      ;;=3^CMG,Comp w/ UP Study

 +75      ;;^UTILITY(U,$J,358.3,46607,0)

 +76      ;;=51728^^178^2321^2^^^^1

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

 +78      ;;=^358.31IA^3^2

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

 +80      ;;=2^51728

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

 +82      ;;=3^CMG,Comp w/ VP

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

 +84      ;;=51729^^178^2321^3^^^^1

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

 +86      ;;=^358.31IA^3^2

 +87      ;;^UTILITY(U,$J,358.3,46608,1,2,0)

 +88      ;;=2^51729

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

 +90      ;;=3^CMG,Comp w/ VP & UP

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

 +92      ;;=51736^^178^2321^13^^^^1

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

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

 +95      ;;^UTILITY(U,$J,358.3,46609,1,2,0)

 +96      ;;=2^51736

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

 +98      ;;=3^Uroflow,Simple

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

 +100     ;;=51784^^178^2321^7^^^^1

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

 +102     ;;=^358.31IA^3^2

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

 +104     ;;=2^51784

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

 +106     ;;=3^EMG Non-Needle

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

 +108     ;;=76000^^178^2321^8^^^^1

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

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

 +111     ;;^UTILITY(U,$J,358.3,46611,1,2,0)

 +112     ;;=2^76000

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

 +114     ;;=3^Fluoroscopy

 +115     ;;^UTILITY(U,$J,358.3,46612,0)

 +116     ;;=J9202^^178^2322^32^^^^3

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

 +118     ;;=^358.31IA^3^2

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

 +120     ;;=2^J9202

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

 +122     ;;=3^Zoladex 10.8 mg total