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

IBDEI382.m

Go to the documentation of this file.
  1. IBDEI382 ; ; 04-FEB-2020
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
  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,51442,1,3,0)
  1. ;;=3^Pleural Plaque w/o Asbestos
  1. ;;^UTILITY(U,$J,358.3,51442,1,4,0)
  1. ;;=4^J92.9
  1. ;;^UTILITY(U,$J,358.3,51442,2)
  1. ;;=^5008313
  1. ;;^UTILITY(U,$J,358.3,51443,0)
  1. ;;=J94.8^^193^2507^34
  1. ;;^UTILITY(U,$J,358.3,51443,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51443,1,3,0)
  1. ;;=3^Pleural Conditions,Other Spec
  1. ;;^UTILITY(U,$J,358.3,51443,1,4,0)
  1. ;;=4^J94.8
  1. ;;^UTILITY(U,$J,358.3,51443,2)
  1. ;;=^5008319
  1. ;;^UTILITY(U,$J,358.3,51444,0)
  1. ;;=J86.9^^193^2507^38
  1. ;;^UTILITY(U,$J,358.3,51444,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51444,1,3,0)
  1. ;;=3^Pyothorax w/o Fistula
  1. ;;^UTILITY(U,$J,358.3,51444,1,4,0)
  1. ;;=4^J86.9
  1. ;;^UTILITY(U,$J,358.3,51444,2)
  1. ;;=^5008309
  1. ;;^UTILITY(U,$J,358.3,51445,0)
  1. ;;=J91.8^^193^2507^35
  1. ;;^UTILITY(U,$J,358.3,51445,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51445,1,3,0)
  1. ;;=3^Pleural Effusion in Other Conditions
  1. ;;^UTILITY(U,$J,358.3,51445,1,4,0)
  1. ;;=4^J91.8
  1. ;;^UTILITY(U,$J,358.3,51445,2)
  1. ;;=^5008311
  1. ;;^UTILITY(U,$J,358.3,51446,0)
  1. ;;=J84.9^^193^2507^29
  1. ;;^UTILITY(U,$J,358.3,51446,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51446,1,3,0)
  1. ;;=3^Interstitial Pulmonary Disease/Pneumonia,Unspec
  1. ;;^UTILITY(U,$J,358.3,51446,1,4,0)
  1. ;;=4^J84.9
  1. ;;^UTILITY(U,$J,358.3,51446,2)
  1. ;;=^5008304
  1. ;;^UTILITY(U,$J,358.3,51447,0)
  1. ;;=J98.01^^193^2507^11
  1. ;;^UTILITY(U,$J,358.3,51447,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51447,1,3,0)
  1. ;;=3^Bronchospasm,Acute
  1. ;;^UTILITY(U,$J,358.3,51447,1,4,0)
  1. ;;=4^J98.01
  1. ;;^UTILITY(U,$J,358.3,51447,2)
  1. ;;=^334092
  1. ;;^UTILITY(U,$J,358.3,51448,0)
  1. ;;=G47.30^^193^2507^53
  1. ;;^UTILITY(U,$J,358.3,51448,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51448,1,3,0)
  1. ;;=3^Sleep Apnea,Unspec
  1. ;;^UTILITY(U,$J,358.3,51448,1,4,0)
  1. ;;=4^G47.30
  1. ;;^UTILITY(U,$J,358.3,51448,2)
  1. ;;=^5003977
  1. ;;^UTILITY(U,$J,358.3,51449,0)
  1. ;;=R06.02^^193^2507^52
  1. ;;^UTILITY(U,$J,358.3,51449,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51449,1,3,0)
  1. ;;=3^Shortness of Breath
  1. ;;^UTILITY(U,$J,358.3,51449,1,4,0)
  1. ;;=4^R06.02
  1. ;;^UTILITY(U,$J,358.3,51449,2)
  1. ;;=^5019181
  1. ;;^UTILITY(U,$J,358.3,51450,0)
  1. ;;=R06.09^^193^2507^17
  1. ;;^UTILITY(U,$J,358.3,51450,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51450,1,3,0)
  1. ;;=3^Dyspnea,Other Forms
  1. ;;^UTILITY(U,$J,358.3,51450,1,4,0)
  1. ;;=4^R06.09
  1. ;;^UTILITY(U,$J,358.3,51450,2)
  1. ;;=^5019182
  1. ;;^UTILITY(U,$J,358.3,51451,0)
  1. ;;=R06.00^^193^2507^18
  1. ;;^UTILITY(U,$J,358.3,51451,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51451,1,3,0)
  1. ;;=3^Dyspnea,Unspec
  1. ;;^UTILITY(U,$J,358.3,51451,1,4,0)
  1. ;;=4^R06.00
  1. ;;^UTILITY(U,$J,358.3,51451,2)
  1. ;;=^5019180
  1. ;;^UTILITY(U,$J,358.3,51452,0)
  1. ;;=R06.89^^193^2507^6
  1. ;;^UTILITY(U,$J,358.3,51452,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51452,1,3,0)
  1. ;;=3^Breathing Abnormalities,Other
  1. ;;^UTILITY(U,$J,358.3,51452,1,4,0)
  1. ;;=4^R06.89
  1. ;;^UTILITY(U,$J,358.3,51452,2)
  1. ;;=^5019193
  1. ;;^UTILITY(U,$J,358.3,51453,0)
  1. ;;=R06.83^^193^2507^54
  1. ;;^UTILITY(U,$J,358.3,51453,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51453,1,3,0)
  1. ;;=3^Snoring
  1. ;;^UTILITY(U,$J,358.3,51453,1,4,0)
  1. ;;=4^R06.83
  1. ;;^UTILITY(U,$J,358.3,51453,2)
  1. ;;=^5019192
  1. ;;^UTILITY(U,$J,358.3,51454,0)
  1. ;;=R06.3^^193^2507^32
  1. ;;^UTILITY(U,$J,358.3,51454,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51454,1,3,0)
  1. ;;=3^Periodic Breathing
  1. ;;^UTILITY(U,$J,358.3,51454,1,4,0)
  1. ;;=4^R06.3
  1. ;;^UTILITY(U,$J,358.3,51454,2)
  1. ;;=^5019185