Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBDEI0W9

IBDEI0W9.m

Go to the documentation of this file.
IBDEI0W9 ; ; 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,14541,1,2,0)
 ;;=2^Acupuncture w/o Stimul,Ea Addl 15 Min
 ;;^UTILITY(U,$J,358.3,14541,1,3,0)
 ;;=3^97811
 ;;^UTILITY(U,$J,358.3,14542,0)
 ;;=97813^^57^690^1^^^^1
 ;;^UTILITY(U,$J,358.3,14542,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14542,1,2,0)
 ;;=2^Acupuncture w/ Stimul 15 Min
 ;;^UTILITY(U,$J,358.3,14542,1,3,0)
 ;;=3^97813
 ;;^UTILITY(U,$J,358.3,14543,0)
 ;;=97814^^57^690^2^^^^1
 ;;^UTILITY(U,$J,358.3,14543,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14543,1,2,0)
 ;;=2^Acupuncture w/ Stimul,Ea Addl 15 Min
 ;;^UTILITY(U,$J,358.3,14543,1,3,0)
 ;;=3^97814
 ;;^UTILITY(U,$J,358.3,14544,0)
 ;;=64615^^57^691^5^^^^1
 ;;^UTILITY(U,$J,358.3,14544,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14544,1,2,0)
 ;;=2^Chemodenerv Musc Migraine
 ;;^UTILITY(U,$J,358.3,14544,1,3,0)
 ;;=3^64615
 ;;^UTILITY(U,$J,358.3,14545,0)
 ;;=64616^^57^691^6^^^^1
 ;;^UTILITY(U,$J,358.3,14545,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14545,1,2,0)
 ;;=2^Chemodenerv Musc Neck Dyston
 ;;^UTILITY(U,$J,358.3,14545,1,3,0)
 ;;=3^64616
 ;;^UTILITY(U,$J,358.3,14546,0)
 ;;=64642^^57^691^1^^^^1
 ;;^UTILITY(U,$J,358.3,14546,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14546,1,2,0)
 ;;=2^Chemodenerv 1 Extremity 1-4
 ;;^UTILITY(U,$J,358.3,14546,1,3,0)
 ;;=3^64642
 ;;^UTILITY(U,$J,358.3,14547,0)
 ;;=64643^^57^691^2^^^^1
 ;;^UTILITY(U,$J,358.3,14547,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14547,1,2,0)
 ;;=2^Chemodenerv 1 Extremity 1-4 Ea
 ;;^UTILITY(U,$J,358.3,14547,1,3,0)
 ;;=3^64643
 ;;^UTILITY(U,$J,358.3,14548,0)
 ;;=64644^^57^691^3^^^^1
 ;;^UTILITY(U,$J,358.3,14548,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14548,1,2,0)
 ;;=2^Chemodenerv 1 Extremity 5/> Mus
 ;;^UTILITY(U,$J,358.3,14548,1,3,0)
 ;;=3^64644
 ;;^UTILITY(U,$J,358.3,14549,0)
 ;;=64645^^57^691^4^^^^1
 ;;^UTILITY(U,$J,358.3,14549,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14549,1,2,0)
 ;;=2^Chemodenerv 1 Extremity 5/> Ea
 ;;^UTILITY(U,$J,358.3,14549,1,3,0)
 ;;=3^64645
 ;;^UTILITY(U,$J,358.3,14550,0)
 ;;=64646^^57^691^7^^^^1
 ;;^UTILITY(U,$J,358.3,14550,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14550,1,2,0)
 ;;=2^Chemodenerv Trunk Musc 1-5
 ;;^UTILITY(U,$J,358.3,14550,1,3,0)
 ;;=3^64646
 ;;^UTILITY(U,$J,358.3,14551,0)
 ;;=64647^^57^691^8^^^^1
 ;;^UTILITY(U,$J,358.3,14551,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14551,1,2,0)
 ;;=2^Chemodenerv Trunk Musc 6/>
 ;;^UTILITY(U,$J,358.3,14551,1,3,0)
 ;;=3^64647
 ;;^UTILITY(U,$J,358.3,14552,0)
 ;;=J0585^^57^691^9^^^^1
 ;;^UTILITY(U,$J,358.3,14552,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14552,1,2,0)
 ;;=2^OnabotulinumtoxinA 1 Unit
 ;;^UTILITY(U,$J,358.3,14552,1,3,0)
 ;;=3^J0585
 ;;^UTILITY(U,$J,358.3,14553,0)
 ;;=J0587^^57^691^10^^^^1
 ;;^UTILITY(U,$J,358.3,14553,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14553,1,2,0)
 ;;=2^RimabotulinumtoxinB 100 Units
 ;;^UTILITY(U,$J,358.3,14553,1,3,0)
 ;;=3^J0587
 ;;^UTILITY(U,$J,358.3,14554,0)
 ;;=98925^^57^692^1^^^^1
 ;;^UTILITY(U,$J,358.3,14554,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14554,1,2,0)
 ;;=2^OMT,1-2 Body Regions
 ;;^UTILITY(U,$J,358.3,14554,1,3,0)
 ;;=3^98925
 ;;^UTILITY(U,$J,358.3,14555,0)
 ;;=98926^^57^692^2^^^^1
 ;;^UTILITY(U,$J,358.3,14555,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14555,1,2,0)
 ;;=2^OMT,3-4 Body Regions
 ;;^UTILITY(U,$J,358.3,14555,1,3,0)
 ;;=3^98926
 ;;^UTILITY(U,$J,358.3,14556,0)
 ;;=98927^^57^692^3^^^^1
 ;;^UTILITY(U,$J,358.3,14556,1,0)
 ;;=^358.31IA^3^2