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

IBDEI1E3.m

Go to the documentation of this file.
IBDEI1E3 ; ; 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,22476,1,4,0)
 ;;=4^L63.1
 ;;^UTILITY(U,$J,358.3,22476,2)
 ;;=^5009243
 ;;^UTILITY(U,$J,358.3,22477,0)
 ;;=L65.2^^76^968^10
 ;;^UTILITY(U,$J,358.3,22477,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22477,1,3,0)
 ;;=3^Alopecia Mucinosa
 ;;^UTILITY(U,$J,358.3,22477,1,4,0)
 ;;=4^L65.2
 ;;^UTILITY(U,$J,358.3,22477,2)
 ;;=^5103
 ;;^UTILITY(U,$J,358.3,22478,0)
 ;;=L66.9^^76^968^9
 ;;^UTILITY(U,$J,358.3,22478,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22478,1,3,0)
 ;;=3^Alopecia Cicatricial,Unspec
 ;;^UTILITY(U,$J,358.3,22478,1,4,0)
 ;;=4^L66.9
 ;;^UTILITY(U,$J,358.3,22478,2)
 ;;=^5009258
 ;;^UTILITY(U,$J,358.3,22479,0)
 ;;=A60.9^^76^968^14
 ;;^UTILITY(U,$J,358.3,22479,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22479,1,3,0)
 ;;=3^Anogenital Herpesviral Infection,Unspec
 ;;^UTILITY(U,$J,358.3,22479,1,4,0)
 ;;=4^A60.9
 ;;^UTILITY(U,$J,358.3,22479,2)
 ;;=^5000359
 ;;^UTILITY(U,$J,358.3,22480,0)
 ;;=L91.9^^76^968^4
 ;;^UTILITY(U,$J,358.3,22480,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22480,1,3,0)
 ;;=3^Acrochordon
 ;;^UTILITY(U,$J,358.3,22480,1,4,0)
 ;;=4^L91.9
 ;;^UTILITY(U,$J,358.3,22480,2)
 ;;=^5009461
 ;;^UTILITY(U,$J,358.3,22481,0)
 ;;=L64.8^^76^968^5
 ;;^UTILITY(U,$J,358.3,22481,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22481,1,3,0)
 ;;=3^Alopecia Androgenic,Other
 ;;^UTILITY(U,$J,358.3,22481,1,4,0)
 ;;=4^L64.8
 ;;^UTILITY(U,$J,358.3,22481,2)
 ;;=^5009248
 ;;^UTILITY(U,$J,358.3,22482,0)
 ;;=L64.9^^76^968^6
 ;;^UTILITY(U,$J,358.3,22482,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22482,1,3,0)
 ;;=3^Alopecia Androgenic,Unspec
 ;;^UTILITY(U,$J,358.3,22482,1,4,0)
 ;;=4^L64.9
 ;;^UTILITY(U,$J,358.3,22482,2)
 ;;=^5009249
 ;;^UTILITY(U,$J,358.3,22483,0)
 ;;=L56.1^^76^969^28
 ;;^UTILITY(U,$J,358.3,22483,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22483,1,3,0)
 ;;=3^Drug Photoallergic Response
 ;;^UTILITY(U,$J,358.3,22483,1,4,0)
 ;;=4^L56.1
 ;;^UTILITY(U,$J,358.3,22483,2)
 ;;=^5009215
 ;;^UTILITY(U,$J,358.3,22484,0)
 ;;=L56.0^^76^969^29
 ;;^UTILITY(U,$J,358.3,22484,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22484,1,3,0)
 ;;=3^Drug Phototoxic Response
 ;;^UTILITY(U,$J,358.3,22484,1,4,0)
 ;;=4^L56.0
 ;;^UTILITY(U,$J,358.3,22484,2)
 ;;=^5009214
 ;;^UTILITY(U,$J,358.3,22485,0)
 ;;=L23.9^^76^969^6
 ;;^UTILITY(U,$J,358.3,22485,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22485,1,3,0)
 ;;=3^Dermatitis,Allergic Contact,Cause Unspec
 ;;^UTILITY(U,$J,358.3,22485,1,4,0)
 ;;=4^L23.9
 ;;^UTILITY(U,$J,358.3,22485,2)
 ;;=^5009125
 ;;^UTILITY(U,$J,358.3,22486,0)
 ;;=L30.9^^76^969^21
 ;;^UTILITY(U,$J,358.3,22486,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22486,1,3,0)
 ;;=3^Dermatitis,Unspec
 ;;^UTILITY(U,$J,358.3,22486,1,4,0)
 ;;=4^L30.9
 ;;^UTILITY(U,$J,358.3,22486,2)
 ;;=^5009159
 ;;^UTILITY(U,$J,358.3,22487,0)
 ;;=L24.9^^76^969^16
 ;;^UTILITY(U,$J,358.3,22487,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22487,1,3,0)
 ;;=3^Dermatitis,Irritant Contact,Cause Unspec
 ;;^UTILITY(U,$J,358.3,22487,1,4,0)
 ;;=4^L24.9
 ;;^UTILITY(U,$J,358.3,22487,2)
 ;;=^5009136
 ;;^UTILITY(U,$J,358.3,22488,0)
 ;;=L30.0^^76^969^17
 ;;^UTILITY(U,$J,358.3,22488,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22488,1,3,0)
 ;;=3^Dermatitis,Nummular
 ;;^UTILITY(U,$J,358.3,22488,1,4,0)
 ;;=4^L30.0
 ;;^UTILITY(U,$J,358.3,22488,2)
 ;;=^186823
 ;;^UTILITY(U,$J,358.3,22489,0)
 ;;=L23.2^^76^969^4
 ;;^UTILITY(U,$J,358.3,22489,1,0)
 ;;=^358.31IA^4^2