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