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

IBDEI2BF.m

Go to the documentation of this file.
  1. IBDEI2BF ; ; 04-FEB-2020
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
  1. 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
  1. Q Q
  1. ;;^UTILITY(U,$J,358.3,36985,0)
  1. ;;=96405^^143^1892^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,36985,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36985,1,2,0)
  1. ;;=2^96405
  1. ;;^UTILITY(U,$J,358.3,36985,1,3,0)
  1. ;;=3^Chemo Intralesional Up to 7
  1. ;;^UTILITY(U,$J,358.3,36986,0)
  1. ;;=11901^^143^1892^9^^^^1
  1. ;;^UTILITY(U,$J,358.3,36986,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36986,1,2,0)
  1. ;;=2^11901
  1. ;;^UTILITY(U,$J,358.3,36986,1,3,0)
  1. ;;=3^Skin Lesion Injection,Addl Lesions
  1. ;;^UTILITY(U,$J,358.3,36987,0)
  1. ;;=11900^^143^1892^10^^^^1
  1. ;;^UTILITY(U,$J,358.3,36987,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36987,1,2,0)
  1. ;;=2^11900
  1. ;;^UTILITY(U,$J,358.3,36987,1,3,0)
  1. ;;=3^Skin Lesion Injection,Up to 7 Lesions
  1. ;;^UTILITY(U,$J,358.3,36988,0)
  1. ;;=Q2026^^143^1892^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,36988,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36988,1,2,0)
  1. ;;=2^Q2026
  1. ;;^UTILITY(U,$J,358.3,36988,1,3,0)
  1. ;;=3^Radiesse Inj 0.1 ml
  1. ;;^UTILITY(U,$J,358.3,36989,0)
  1. ;;=Q2028^^143^1892^8^^^^1
  1. ;;^UTILITY(U,$J,358.3,36989,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36989,1,2,0)
  1. ;;=2^Q2028
  1. ;;^UTILITY(U,$J,358.3,36989,1,3,0)
  1. ;;=3^Sculptra Inj 0.5mg
  1. ;;^UTILITY(U,$J,358.3,36990,0)
  1. ;;=G0429^^143^1892^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,36990,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36990,1,2,0)
  1. ;;=2^G0429
  1. ;;^UTILITY(U,$J,358.3,36990,1,3,0)
  1. ;;=3^Dermal Filler Inj Px/Supply
  1. ;;^UTILITY(U,$J,358.3,36991,0)
  1. ;;=J0135^^143^1892^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,36991,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36991,1,2,0)
  1. ;;=2^J0135
  1. ;;^UTILITY(U,$J,358.3,36991,1,3,0)
  1. ;;=3^Humira (Adalimumab) 20mg
  1. ;;^UTILITY(U,$J,358.3,36992,0)
  1. ;;=J3301^^143^1892^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,36992,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36992,1,2,0)
  1. ;;=2^J3301
  1. ;;^UTILITY(U,$J,358.3,36992,1,3,0)
  1. ;;=3^Kenalog (Triamcinolone Acetonide) 10mg
  1. ;;^UTILITY(U,$J,358.3,36993,0)
  1. ;;=J7308^^143^1892^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,36993,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36993,1,2,0)
  1. ;;=2^J7308
  1. ;;^UTILITY(U,$J,358.3,36993,1,3,0)
  1. ;;=3^Levulan Kerasticks (Aminolevulinic Acid Hcl) 20%
  1. ;;^UTILITY(U,$J,358.3,36994,0)
  1. ;;=J3357^^143^1892^11^^^^1
  1. ;;^UTILITY(U,$J,358.3,36994,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36994,1,2,0)
  1. ;;=2^J3357
  1. ;;^UTILITY(U,$J,358.3,36994,1,3,0)
  1. ;;=3^Stelara (Ustekinumab) 1 mg
  1. ;;^UTILITY(U,$J,358.3,36995,0)
  1. ;;=15780^^143^1893^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,36995,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36995,1,2,0)
  1. ;;=2^15780
  1. ;;^UTILITY(U,$J,358.3,36995,1,3,0)
  1. ;;=3^Dermabrasion,Total Face
  1. ;;^UTILITY(U,$J,358.3,36996,0)
  1. ;;=15781^^143^1893^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,36996,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36996,1,2,0)
  1. ;;=2^15781
  1. ;;^UTILITY(U,$J,358.3,36996,1,3,0)
  1. ;;=3^Dermabrasion,Segmental,Face
  1. ;;^UTILITY(U,$J,358.3,36997,0)
  1. ;;=15782^^143^1893^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,36997,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36997,1,2,0)
  1. ;;=2^15782
  1. ;;^UTILITY(U,$J,358.3,36997,1,3,0)
  1. ;;=3^Dermabrasion,Regional,Not Face
  1. ;;^UTILITY(U,$J,358.3,36998,0)
  1. ;;=15783^^143^1893^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,36998,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36998,1,2,0)
  1. ;;=2^15783
  1. ;;^UTILITY(U,$J,358.3,36998,1,3,0)
  1. ;;=3^Dermabrasion,Superficial
  1. ;;^UTILITY(U,$J,358.3,36999,0)
  1. ;;=15786^^143^1893^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,36999,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,36999,1,2,0)
  1. ;;=2^15786