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

IBDEI2ZS.m

Go to the documentation of this file.
  1. IBDEI2ZS ; ; 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,47780,1,3,0)
  1. ;;=3^Cellulitis,Unspec
  1. ;;^UTILITY(U,$J,358.3,47780,1,4,0)
  1. ;;=4^L03.90
  1. ;;^UTILITY(U,$J,358.3,47780,2)
  1. ;;=^5009067
  1. ;;^UTILITY(U,$J,358.3,47781,0)
  1. ;;=L94.9^^185^2412^19
  1. ;;^UTILITY(U,$J,358.3,47781,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,47781,1,3,0)
  1. ;;=3^Connective Tissue Disorder,Localized,Unspec
  1. ;;^UTILITY(U,$J,358.3,47781,1,4,0)
  1. ;;=4^L94.9
  1. ;;^UTILITY(U,$J,358.3,47781,2)
  1. ;;=^5009475
  1. ;;^UTILITY(U,$J,358.3,47782,0)
  1. ;;=L84.^^185^2412^20
  1. ;;^UTILITY(U,$J,358.3,47782,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,47782,1,3,0)
  1. ;;=3^Corns & Callosities
  1. ;;^UTILITY(U,$J,358.3,47782,1,4,0)
  1. ;;=4^L84.
  1. ;;^UTILITY(U,$J,358.3,47782,2)
  1. ;;=^271920
  1. ;;^UTILITY(U,$J,358.3,47783,0)
  1. ;;=L27.0^^185^2412^22
  1. ;;^UTILITY(U,$J,358.3,47783,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,47783,1,3,0)
  1. ;;=3^Dermatitis d/t Drugs/Meds Taken Internally,General
  1. ;;^UTILITY(U,$J,358.3,47783,1,4,0)
  1. ;;=4^L27.0
  1. ;;^UTILITY(U,$J,358.3,47783,2)
  1. ;;=^5009144
  1. ;;^UTILITY(U,$J,358.3,47784,0)
  1. ;;=L27.1^^185^2412^23
  1. ;;^UTILITY(U,$J,358.3,47784,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,47784,1,3,0)
  1. ;;=3^Dermatitis d/t Drugs/Meds Taken Internally,Local
  1. ;;^UTILITY(U,$J,358.3,47784,1,4,0)
  1. ;;=4^L27.1
  1. ;;^UTILITY(U,$J,358.3,47784,2)
  1. ;;=^5009145
  1. ;;^UTILITY(U,$J,358.3,47785,0)
  1. ;;=L27.2^^185^2412^24
  1. ;;^UTILITY(U,$J,358.3,47785,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,47785,1,3,0)
  1. ;;=3^Dermatitis d/t Ingested Food
  1. ;;^UTILITY(U,$J,358.3,47785,1,4,0)
  1. ;;=4^L27.2
  1. ;;^UTILITY(U,$J,358.3,47785,2)
  1. ;;=^5009146
  1. ;;^UTILITY(U,$J,358.3,47786,0)
  1. ;;=L58.0^^185^2412^25
  1. ;;^UTILITY(U,$J,358.3,47786,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,47786,1,3,0)
  1. ;;=3^Dermatitis d/t Radiation,Acute
  1. ;;^UTILITY(U,$J,358.3,47786,1,4,0)
  1. ;;=4^L58.0
  1. ;;^UTILITY(U,$J,358.3,47786,2)
  1. ;;=^5009228
  1. ;;^UTILITY(U,$J,358.3,47787,0)
  1. ;;=L58.1^^185^2412^26
  1. ;;^UTILITY(U,$J,358.3,47787,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,47787,1,3,0)
  1. ;;=3^Dermatitis d/t Radiation,Chronic
  1. ;;^UTILITY(U,$J,358.3,47787,1,4,0)
  1. ;;=4^L58.1
  1. ;;^UTILITY(U,$J,358.3,47787,2)
  1. ;;=^5009229
  1. ;;^UTILITY(U,$J,358.3,47788,0)
  1. ;;=L58.9^^185^2412^21
  1. ;;^UTILITY(U,$J,358.3,47788,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,47788,1,3,0)
  1. ;;=3^Dermatitis d/t Radiation,Unspec
  1. ;;^UTILITY(U,$J,358.3,47788,1,4,0)
  1. ;;=4^L58.9
  1. ;;^UTILITY(U,$J,358.3,47788,2)
  1. ;;=^5009230
  1. ;;^UTILITY(U,$J,358.3,47789,0)
  1. ;;=L27.9^^185^2412^27
  1. ;;^UTILITY(U,$J,358.3,47789,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,47789,1,3,0)
  1. ;;=3^Dermatitis d/t Unspec Subs Taken Internally
  1. ;;^UTILITY(U,$J,358.3,47789,1,4,0)
  1. ;;=4^L27.9
  1. ;;^UTILITY(U,$J,358.3,47789,2)
  1. ;;=^271914
  1. ;;^UTILITY(U,$J,358.3,47790,0)
  1. ;;=L20.9^^185^2412^29
  1. ;;^UTILITY(U,$J,358.3,47790,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,47790,1,3,0)
  1. ;;=3^Dermatitis,Atopic,Unspec
  1. ;;^UTILITY(U,$J,358.3,47790,1,4,0)
  1. ;;=4^L20.9
  1. ;;^UTILITY(U,$J,358.3,47790,2)
  1. ;;=^5009113
  1. ;;^UTILITY(U,$J,358.3,47791,0)
  1. ;;=L23.9^^185^2412^28
  1. ;;^UTILITY(U,$J,358.3,47791,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,47791,1,3,0)
  1. ;;=3^Dermatitis,Allergic Contact,Unspec Cause
  1. ;;^UTILITY(U,$J,358.3,47791,1,4,0)
  1. ;;=4^L23.9
  1. ;;^UTILITY(U,$J,358.3,47791,2)
  1. ;;=^5009125
  1. ;;^UTILITY(U,$J,358.3,47792,0)
  1. ;;=L24.9^^185^2412^30
  1. ;;^UTILITY(U,$J,358.3,47792,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,47792,1,3,0)
  1. ;;=3^Dermatitis,Irritant Contact,Unspec Cause