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

IBDEI1C1.m

Go to the documentation of this file.
  1. IBDEI1C1 ; ; 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,21538,0)
  1. ;;=D86.82^^70^921^21
  1. ;;^UTILITY(U,$J,358.3,21538,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21538,1,3,0)
  1. ;;=3^Multiple Cranial Nerve Palsies in Sarcoidosis
  1. ;;^UTILITY(U,$J,358.3,21538,1,4,0)
  1. ;;=4^D86.82
  1. ;;^UTILITY(U,$J,358.3,21538,2)
  1. ;;=^5002447
  1. ;;^UTILITY(U,$J,358.3,21539,0)
  1. ;;=M32.8^^70^921^60
  1. ;;^UTILITY(U,$J,358.3,21539,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21539,1,3,0)
  1. ;;=3^Systemic Lupus Erythematosus NEC
  1. ;;^UTILITY(U,$J,358.3,21539,1,4,0)
  1. ;;=4^M32.8
  1. ;;^UTILITY(U,$J,358.3,21539,2)
  1. ;;=^5011760
  1. ;;^UTILITY(U,$J,358.3,21540,0)
  1. ;;=J68.8^^70^921^25
  1. ;;^UTILITY(U,$J,358.3,21540,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21540,1,3,0)
  1. ;;=3^Respiratory Condition d/t Chemicals/Gases/Fumes/Vapors
  1. ;;^UTILITY(U,$J,358.3,21540,1,4,0)
  1. ;;=4^J68.8
  1. ;;^UTILITY(U,$J,358.3,21540,2)
  1. ;;=^5008286
  1. ;;^UTILITY(U,$J,358.3,21541,0)
  1. ;;=J69.0^^70^921^22
  1. ;;^UTILITY(U,$J,358.3,21541,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21541,1,3,0)
  1. ;;=3^Pneumonitis d/t Inhalation of Food/Vomit
  1. ;;^UTILITY(U,$J,358.3,21541,1,4,0)
  1. ;;=4^J69.0
  1. ;;^UTILITY(U,$J,358.3,21541,2)
  1. ;;=^5008288
  1. ;;^UTILITY(U,$J,358.3,21542,0)
  1. ;;=J69.1^^70^921^23
  1. ;;^UTILITY(U,$J,358.3,21542,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21542,1,3,0)
  1. ;;=3^Pneumonitis d/t Inhalation of Oils/Essences
  1. ;;^UTILITY(U,$J,358.3,21542,1,4,0)
  1. ;;=4^J69.1
  1. ;;^UTILITY(U,$J,358.3,21542,2)
  1. ;;=^95664
  1. ;;^UTILITY(U,$J,358.3,21543,0)
  1. ;;=J84.115^^70^921^24
  1. ;;^UTILITY(U,$J,358.3,21543,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21543,1,3,0)
  1. ;;=3^Respiratory Bronchiolitis Interstitial Lung Disease
  1. ;;^UTILITY(U,$J,358.3,21543,1,4,0)
  1. ;;=4^J84.115
  1. ;;^UTILITY(U,$J,358.3,21543,2)
  1. ;;=^340537
  1. ;;^UTILITY(U,$J,358.3,21544,0)
  1. ;;=M05.172^^70^921^26
  1. ;;^UTILITY(U,$J,358.3,21544,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21544,1,3,0)
  1. ;;=3^Rheu Lung Disease w/ Rheu Arth of Left Ankle/Foot
  1. ;;^UTILITY(U,$J,358.3,21544,1,4,0)
  1. ;;=4^M05.172
  1. ;;^UTILITY(U,$J,358.3,21544,2)
  1. ;;=^5009882
  1. ;;^UTILITY(U,$J,358.3,21545,0)
  1. ;;=M05.122^^70^921^27
  1. ;;^UTILITY(U,$J,358.3,21545,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21545,1,3,0)
  1. ;;=3^Rheu Lung Disease w/ Rheu Arth of Left Elbow
  1. ;;^UTILITY(U,$J,358.3,21545,1,4,0)
  1. ;;=4^M05.122
  1. ;;^UTILITY(U,$J,358.3,21545,2)
  1. ;;=^5009867
  1. ;;^UTILITY(U,$J,358.3,21546,0)
  1. ;;=M05.142^^70^921^28
  1. ;;^UTILITY(U,$J,358.3,21546,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21546,1,3,0)
  1. ;;=3^Rheu Lung Disease w/ Rheu Arth of Left Hand
  1. ;;^UTILITY(U,$J,358.3,21546,1,4,0)
  1. ;;=4^M05.142
  1. ;;^UTILITY(U,$J,358.3,21546,2)
  1. ;;=^5009873
  1. ;;^UTILITY(U,$J,358.3,21547,0)
  1. ;;=M05.152^^70^921^29
  1. ;;^UTILITY(U,$J,358.3,21547,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21547,1,3,0)
  1. ;;=3^Rheu Lung Disease w/ Rheu Arth of Left Hip
  1. ;;^UTILITY(U,$J,358.3,21547,1,4,0)
  1. ;;=4^M05.152
  1. ;;^UTILITY(U,$J,358.3,21547,2)
  1. ;;=^5009876
  1. ;;^UTILITY(U,$J,358.3,21548,0)
  1. ;;=M05.162^^70^921^30
  1. ;;^UTILITY(U,$J,358.3,21548,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21548,1,3,0)
  1. ;;=3^Rheu Lung Disease w/ Rheu Arth of Left Knee
  1. ;;^UTILITY(U,$J,358.3,21548,1,4,0)
  1. ;;=4^M05.162
  1. ;;^UTILITY(U,$J,358.3,21548,2)
  1. ;;=^5009879
  1. ;;^UTILITY(U,$J,358.3,21549,0)
  1. ;;=M05.112^^70^921^31
  1. ;;^UTILITY(U,$J,358.3,21549,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21549,1,3,0)
  1. ;;=3^Rheu Lung Disease w/ Rheu Arth of Left Shldr
  1. ;;^UTILITY(U,$J,358.3,21549,1,4,0)
  1. ;;=4^M05.112