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