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

IBDEI1E7.m

Go to the documentation of this file.
IBDEI1E7 ; ; 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,22526,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22526,1,3,0)
 ;;=3^Exfoliation d/t Erythematous Cond w/ 60-69% Body Surface
 ;;^UTILITY(U,$J,358.3,22526,1,4,0)
 ;;=4^L49.6
 ;;^UTILITY(U,$J,358.3,22526,2)
 ;;=^5009196
 ;;^UTILITY(U,$J,358.3,22527,0)
 ;;=L49.7^^76^970^23
 ;;^UTILITY(U,$J,358.3,22527,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22527,1,3,0)
 ;;=3^Exfoliation d/t Erythematous Cond w/ 70-79% Body Surface
 ;;^UTILITY(U,$J,358.3,22527,1,4,0)
 ;;=4^L49.7
 ;;^UTILITY(U,$J,358.3,22527,2)
 ;;=^5009197
 ;;^UTILITY(U,$J,358.3,22528,0)
 ;;=L49.8^^76^970^24
 ;;^UTILITY(U,$J,358.3,22528,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22528,1,3,0)
 ;;=3^Exfoliation d/t Erythematous Cond w/ 80-89% Body Surface
 ;;^UTILITY(U,$J,358.3,22528,1,4,0)
 ;;=4^L49.8
 ;;^UTILITY(U,$J,358.3,22528,2)
 ;;=^5009198
 ;;^UTILITY(U,$J,358.3,22529,0)
 ;;=L49.9^^76^970^27
 ;;^UTILITY(U,$J,358.3,22529,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22529,1,3,0)
 ;;=3^Exfoliation d/t Erythematous Cond w/ > 89% Body Surface
 ;;^UTILITY(U,$J,358.3,22529,1,4,0)
 ;;=4^L49.9
 ;;^UTILITY(U,$J,358.3,22529,2)
 ;;=^5009199
 ;;^UTILITY(U,$J,358.3,22530,0)
 ;;=Z65.5^^76^970^28
 ;;^UTILITY(U,$J,358.3,22530,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22530,1,3,0)
 ;;=3^Exposure to Disaster/War/Hostilities
 ;;^UTILITY(U,$J,358.3,22530,1,4,0)
 ;;=4^Z65.5
 ;;^UTILITY(U,$J,358.3,22530,2)
 ;;=^5063184
 ;;^UTILITY(U,$J,358.3,22531,0)
 ;;=Z77.22^^76^970^29
 ;;^UTILITY(U,$J,358.3,22531,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22531,1,3,0)
 ;;=3^Exposure to/Contact w/ Environmental Tobacco Smoke
 ;;^UTILITY(U,$J,358.3,22531,1,4,0)
 ;;=4^Z77.22
 ;;^UTILITY(U,$J,358.3,22531,2)
 ;;=^5063324
 ;;^UTILITY(U,$J,358.3,22532,0)
 ;;=L30.9^^76^970^5
 ;;^UTILITY(U,$J,358.3,22532,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22532,1,3,0)
 ;;=3^Eczema,Unspec
 ;;^UTILITY(U,$J,358.3,22532,1,4,0)
 ;;=4^L30.9
 ;;^UTILITY(U,$J,358.3,22532,2)
 ;;=^5009159
 ;;^UTILITY(U,$J,358.3,22533,0)
 ;;=L23.9^^76^970^2
 ;;^UTILITY(U,$J,358.3,22533,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22533,1,3,0)
 ;;=3^Eczema,Allergic Contact,Unspec
 ;;^UTILITY(U,$J,358.3,22533,1,4,0)
 ;;=4^L23.9
 ;;^UTILITY(U,$J,358.3,22533,2)
 ;;=^5009125
 ;;^UTILITY(U,$J,358.3,22534,0)
 ;;=L20.82^^76^970^3
 ;;^UTILITY(U,$J,358.3,22534,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22534,1,3,0)
 ;;=3^Eczema,Flexural
 ;;^UTILITY(U,$J,358.3,22534,1,4,0)
 ;;=4^L20.82
 ;;^UTILITY(U,$J,358.3,22534,2)
 ;;=^5009109
 ;;^UTILITY(U,$J,358.3,22535,0)
 ;;=L20.84^^76^970^4
 ;;^UTILITY(U,$J,358.3,22535,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22535,1,3,0)
 ;;=3^Eczema,Intrinsic
 ;;^UTILITY(U,$J,358.3,22535,1,4,0)
 ;;=4^L20.84
 ;;^UTILITY(U,$J,358.3,22535,2)
 ;;=^5009111
 ;;^UTILITY(U,$J,358.3,22536,0)
 ;;=L51.8^^76^970^11
 ;;^UTILITY(U,$J,358.3,22536,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22536,1,3,0)
 ;;=3^Erythema Multiforme,Other
 ;;^UTILITY(U,$J,358.3,22536,1,4,0)
 ;;=4^L51.8
 ;;^UTILITY(U,$J,358.3,22536,2)
 ;;=^336639
 ;;^UTILITY(U,$J,358.3,22537,0)
 ;;=R23.4^^76^970^15
 ;;^UTILITY(U,$J,358.3,22537,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22537,1,3,0)
 ;;=3^Eschar/Desquamination of Skin
 ;;^UTILITY(U,$J,358.3,22537,1,4,0)
 ;;=4^R23.4
 ;;^UTILITY(U,$J,358.3,22537,2)
 ;;=^5019296
 ;;^UTILITY(U,$J,358.3,22538,0)
 ;;=L49.9^^76^970^25
 ;;^UTILITY(U,$J,358.3,22538,1,0)
 ;;=^358.31IA^4^2