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

IBDEI14M.m

Go to the documentation of this file.
IBDEI14M ; ; 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,18272,1,3,0)
 ;;=3^Intestinal Infections,Oth Spec
 ;;^UTILITY(U,$J,358.3,18272,1,4,0)
 ;;=4^A08.8
 ;;^UTILITY(U,$J,358.3,18272,2)
 ;;=^5000060
 ;;^UTILITY(U,$J,358.3,18273,0)
 ;;=J68.0^^61^811^2
 ;;^UTILITY(U,$J,358.3,18273,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18273,1,3,0)
 ;;=3^Bronchitis/Pneumonitis d/t Chem/Gases/Vapers
 ;;^UTILITY(U,$J,358.3,18273,1,4,0)
 ;;=4^J68.0
 ;;^UTILITY(U,$J,358.3,18273,2)
 ;;=^5008281
 ;;^UTILITY(U,$J,358.3,18274,0)
 ;;=J69.1^^61^811^7
 ;;^UTILITY(U,$J,358.3,18274,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18274,1,3,0)
 ;;=3^Pneumonitis d/t Inhalation of Oils/Essences
 ;;^UTILITY(U,$J,358.3,18274,1,4,0)
 ;;=4^J69.1
 ;;^UTILITY(U,$J,358.3,18274,2)
 ;;=^95664
 ;;^UTILITY(U,$J,358.3,18275,0)
 ;;=J68.9^^61^811^9
 ;;^UTILITY(U,$J,358.3,18275,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18275,1,3,0)
 ;;=3^Respiratory Condition,Unspec d/t Chem/Gases/Fumes/Vapors
 ;;^UTILITY(U,$J,358.3,18275,1,4,0)
 ;;=4^J68.9
 ;;^UTILITY(U,$J,358.3,18275,2)
 ;;=^5008287
 ;;^UTILITY(U,$J,358.3,18276,0)
 ;;=J84.114^^61^811^1
 ;;^UTILITY(U,$J,358.3,18276,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18276,1,3,0)
 ;;=3^Acute Interstitial Pneumonitis
 ;;^UTILITY(U,$J,358.3,18276,1,4,0)
 ;;=4^J84.114
 ;;^UTILITY(U,$J,358.3,18276,2)
 ;;=^340536
 ;;^UTILITY(U,$J,358.3,18277,0)
 ;;=J84.89^^61^811^6
 ;;^UTILITY(U,$J,358.3,18277,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18277,1,3,0)
 ;;=3^Interstitial Pulmonary Diseases,Oth Spec
 ;;^UTILITY(U,$J,358.3,18277,1,4,0)
 ;;=4^J84.89
 ;;^UTILITY(U,$J,358.3,18277,2)
 ;;=^5008303
 ;;^UTILITY(U,$J,358.3,18278,0)
 ;;=J82.81^^61^811^5
 ;;^UTILITY(U,$J,358.3,18278,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18278,1,3,0)
 ;;=3^Eosinophilic Pneumonia,Chronic
 ;;^UTILITY(U,$J,358.3,18278,1,4,0)
 ;;=4^J82.81
 ;;^UTILITY(U,$J,358.3,18278,2)
 ;;=^24374
 ;;^UTILITY(U,$J,358.3,18279,0)
 ;;=J82.82^^61^811^4
 ;;^UTILITY(U,$J,358.3,18279,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18279,1,3,0)
 ;;=3^Eosinophilic Pneumonia,Acute
 ;;^UTILITY(U,$J,358.3,18279,1,4,0)
 ;;=4^J82.82
 ;;^UTILITY(U,$J,358.3,18279,2)
 ;;=^5159205
 ;;^UTILITY(U,$J,358.3,18280,0)
 ;;=J82.83^^61^811^3
 ;;^UTILITY(U,$J,358.3,18280,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18280,1,3,0)
 ;;=3^Eosinophilic Asthma
 ;;^UTILITY(U,$J,358.3,18280,1,4,0)
 ;;=4^J82.83
 ;;^UTILITY(U,$J,358.3,18280,2)
 ;;=^5159206
 ;;^UTILITY(U,$J,358.3,18281,0)
 ;;=J82.89^^61^811^8
 ;;^UTILITY(U,$J,358.3,18281,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18281,1,3,0)
 ;;=3^Pulmonary Eosinophilia,Other,NEC
 ;;^UTILITY(U,$J,358.3,18281,1,4,0)
 ;;=4^J82.89
 ;;^UTILITY(U,$J,358.3,18281,2)
 ;;=^5159207
 ;;^UTILITY(U,$J,358.3,18282,0)
 ;;=36600^^62^812^2
 ;;^UTILITY(U,$J,358.3,18282,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,18282,1,2,0)
 ;;=2^36600
 ;;^UTILITY(U,$J,358.3,18282,1,3,0)
 ;;=3^ABG
 ;;^UTILITY(U,$J,358.3,18283,0)
 ;;=36620^^62^812^1
 ;;^UTILITY(U,$J,358.3,18283,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,18283,1,2,0)
 ;;=2^36620
 ;;^UTILITY(U,$J,358.3,18283,1,3,0)
 ;;=3^A-Line
 ;;^UTILITY(U,$J,358.3,18284,0)
 ;;=36415^^62^812^10
 ;;^UTILITY(U,$J,358.3,18284,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,18284,1,2,0)
 ;;=2^36415
 ;;^UTILITY(U,$J,358.3,18284,1,3,0)
 ;;=3^Venous Puncture
 ;;^UTILITY(U,$J,358.3,18285,0)
 ;;=36000^^62^812^6
 ;;^UTILITY(U,$J,358.3,18285,1,0)
 ;;=^358.31IA^3^2