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

IBDEI2BG.m

Go to the documentation of this file.
IBDEI2BG ; ; 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,36999,1,3,0)
 ;;=3^Dermabrasion,Single Lesion
 ;;^UTILITY(U,$J,358.3,37000,0)
 ;;=15787^^143^1893^4^^^^1
 ;;^UTILITY(U,$J,358.3,37000,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37000,1,2,0)
 ;;=2^15787
 ;;^UTILITY(U,$J,358.3,37000,1,3,0)
 ;;=3^Dermabrasion,4 Addl Lesions
 ;;^UTILITY(U,$J,358.3,37001,0)
 ;;=96900^^143^1894^7^^^^1
 ;;^UTILITY(U,$J,358.3,37001,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37001,1,2,0)
 ;;=2^96900
 ;;^UTILITY(U,$J,358.3,37001,1,3,0)
 ;;=3^Ultraviolet Light Therapy
 ;;^UTILITY(U,$J,358.3,37002,0)
 ;;=96910^^143^1894^5^^^^1
 ;;^UTILITY(U,$J,358.3,37002,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37002,1,2,0)
 ;;=2^96910
 ;;^UTILITY(U,$J,358.3,37002,1,3,0)
 ;;=3^Photochemotherapy w/ UV-B
 ;;^UTILITY(U,$J,358.3,37003,0)
 ;;=96912^^143^1894^4^^^^1
 ;;^UTILITY(U,$J,358.3,37003,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37003,1,2,0)
 ;;=2^96912
 ;;^UTILITY(U,$J,358.3,37003,1,3,0)
 ;;=3^Photochemotherapy w/ UV-A
 ;;^UTILITY(U,$J,358.3,37004,0)
 ;;=96567^^143^1894^6^^^^1
 ;;^UTILITY(U,$J,358.3,37004,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37004,1,2,0)
 ;;=2^96567
 ;;^UTILITY(U,$J,358.3,37004,1,3,0)
 ;;=3^Photodynamic Tx Skin
 ;;^UTILITY(U,$J,358.3,37005,0)
 ;;=96920^^143^1894^1^^^^1
 ;;^UTILITY(U,$J,358.3,37005,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37005,1,2,0)
 ;;=2^96920
 ;;^UTILITY(U,$J,358.3,37005,1,3,0)
 ;;=3^Laser Tx Skin < 250 sq cm
 ;;^UTILITY(U,$J,358.3,37006,0)
 ;;=96921^^143^1894^2^^^^1
 ;;^UTILITY(U,$J,358.3,37006,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37006,1,2,0)
 ;;=2^96921
 ;;^UTILITY(U,$J,358.3,37006,1,3,0)
 ;;=3^Laser Tx Skin 250-500 sq cm
 ;;^UTILITY(U,$J,358.3,37007,0)
 ;;=96922^^143^1894^3^^^^1
 ;;^UTILITY(U,$J,358.3,37007,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37007,1,2,0)
 ;;=2^96922
 ;;^UTILITY(U,$J,358.3,37007,1,3,0)
 ;;=3^Laser Tx Skin > 500 sq cm
 ;;^UTILITY(U,$J,358.3,37008,0)
 ;;=13151^^143^1895^1^^^^1
 ;;^UTILITY(U,$J,358.3,37008,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37008,1,2,0)
 ;;=2^13151
 ;;^UTILITY(U,$J,358.3,37008,1,3,0)
 ;;=3^Complex Repair Face;1.1 to 2.5 cm
 ;;^UTILITY(U,$J,358.3,37009,0)
 ;;=13152^^143^1895^2^^^^1
 ;;^UTILITY(U,$J,358.3,37009,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37009,1,2,0)
 ;;=2^13152
 ;;^UTILITY(U,$J,358.3,37009,1,3,0)
 ;;=3^Complex Repair Face;2.6 to 7.5 cm
 ;;^UTILITY(U,$J,358.3,37010,0)
 ;;=13153^^143^1895^3^^^^1
 ;;^UTILITY(U,$J,358.3,37010,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37010,1,2,0)
 ;;=2^13153
 ;;^UTILITY(U,$J,358.3,37010,1,3,0)
 ;;=3^Complex Repair Face;Ea Addl 5 cm
 ;;^UTILITY(U,$J,358.3,37011,0)
 ;;=13131^^143^1896^1^^^^1
 ;;^UTILITY(U,$J,358.3,37011,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37011,1,2,0)
 ;;=2^13131
 ;;^UTILITY(U,$J,358.3,37011,1,3,0)
 ;;=3^Complex Repair Nk/Hd/Ft;1.1 to 2.5 cm
 ;;^UTILITY(U,$J,358.3,37012,0)
 ;;=13132^^143^1896^2^^^^1
 ;;^UTILITY(U,$J,358.3,37012,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37012,1,2,0)
 ;;=2^13132
 ;;^UTILITY(U,$J,358.3,37012,1,3,0)
 ;;=3^Complex Repair Nk/Hd/Ft;2.6 to 7.5 cm
 ;;^UTILITY(U,$J,358.3,37013,0)
 ;;=13133^^143^1896^3^^^^1
 ;;^UTILITY(U,$J,358.3,37013,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,37013,1,2,0)
 ;;=2^13133
 ;;^UTILITY(U,$J,358.3,37013,1,3,0)
 ;;=3^Complex Repair Nk/Hd/Ft;Ea Addl 5 cm
 ;;^UTILITY(U,$J,358.3,37014,0)
 ;;=13100^^143^1897^1^^^^1
 ;;^UTILITY(U,$J,358.3,37014,1,0)
 ;;=^358.31IA^3^2