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

IBDEI16R.m

Go to the documentation of this file.
IBDEI16R ; ; 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,19239,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19239,1,3,0)
 ;;=3^Osteonecrosis d/t Drugs,Unspec Bone
 ;;^UTILITY(U,$J,358.3,19239,1,4,0)
 ;;=4^M87.10
 ;;^UTILITY(U,$J,358.3,19239,2)
 ;;=^5014700
 ;;^UTILITY(U,$J,358.3,19240,0)
 ;;=M87.20^^64^853^58
 ;;^UTILITY(U,$J,358.3,19240,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19240,1,3,0)
 ;;=3^Osteonecrosis d/t Previous Trauma,Unspec Bone
 ;;^UTILITY(U,$J,358.3,19240,1,4,0)
 ;;=4^M87.20
 ;;^UTILITY(U,$J,358.3,19240,2)
 ;;=^5014744
 ;;^UTILITY(U,$J,358.3,19241,0)
 ;;=M90.50^^64^853^59
 ;;^UTILITY(U,$J,358.3,19241,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19241,1,3,0)
 ;;=3^Osteonecrosis in Diseases Classified Elsewhere,Unspec Site
 ;;^UTILITY(U,$J,358.3,19241,1,4,0)
 ;;=4^M90.50
 ;;^UTILITY(U,$J,358.3,19241,2)
 ;;=^5015120
 ;;^UTILITY(U,$J,358.3,19242,0)
 ;;=M87.9^^64^853^60
 ;;^UTILITY(U,$J,358.3,19242,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19242,1,3,0)
 ;;=3^Osteonecrosis,Unspec
 ;;^UTILITY(U,$J,358.3,19242,1,4,0)
 ;;=4^M87.9
 ;;^UTILITY(U,$J,358.3,19242,2)
 ;;=^5014873
 ;;^UTILITY(U,$J,358.3,19243,0)
 ;;=R06.89^^64^853^10
 ;;^UTILITY(U,$J,358.3,19243,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19243,1,3,0)
 ;;=3^Breathing Abnormalities NEC
 ;;^UTILITY(U,$J,358.3,19243,1,4,0)
 ;;=4^R06.89
 ;;^UTILITY(U,$J,358.3,19243,2)
 ;;=^5019193
 ;;^UTILITY(U,$J,358.3,19244,0)
 ;;=R53.83^^64^853^34
 ;;^UTILITY(U,$J,358.3,19244,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19244,1,3,0)
 ;;=3^Fatigue NEC
 ;;^UTILITY(U,$J,358.3,19244,1,4,0)
 ;;=4^R53.83
 ;;^UTILITY(U,$J,358.3,19244,2)
 ;;=^5019520
 ;;^UTILITY(U,$J,358.3,19245,0)
 ;;=R06.09^^64^853^28
 ;;^UTILITY(U,$J,358.3,19245,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19245,1,3,0)
 ;;=3^Dyspnea NEC
 ;;^UTILITY(U,$J,358.3,19245,1,4,0)
 ;;=4^R06.09
 ;;^UTILITY(U,$J,358.3,19245,2)
 ;;=^5019182
 ;;^UTILITY(U,$J,358.3,19246,0)
 ;;=R53.81^^64^853^51
 ;;^UTILITY(U,$J,358.3,19246,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19246,1,3,0)
 ;;=3^Malaise NEC
 ;;^UTILITY(U,$J,358.3,19246,1,4,0)
 ;;=4^R53.81
 ;;^UTILITY(U,$J,358.3,19246,2)
 ;;=^5019518
 ;;^UTILITY(U,$J,358.3,19247,0)
 ;;=M87.30^^64^853^69
 ;;^UTILITY(U,$J,358.3,19247,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19247,1,3,0)
 ;;=3^Secondary Osteonecrosis,Unspec Bone
 ;;^UTILITY(U,$J,358.3,19247,1,4,0)
 ;;=4^M87.30
 ;;^UTILITY(U,$J,358.3,19247,2)
 ;;=^5014787
 ;;^UTILITY(U,$J,358.3,19248,0)
 ;;=M85.80^^64^853^8
 ;;^UTILITY(U,$J,358.3,19248,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19248,1,3,0)
 ;;=3^Bone Density/Structure Disorder,Unspec Site
 ;;^UTILITY(U,$J,358.3,19248,1,4,0)
 ;;=4^M85.80
 ;;^UTILITY(U,$J,358.3,19248,2)
 ;;=^5014473
 ;;^UTILITY(U,$J,358.3,19249,0)
 ;;=K52.89^^64^853^55
 ;;^UTILITY(U,$J,358.3,19249,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19249,1,3,0)
 ;;=3^Noninfective Gastroenteritis/Colitis
 ;;^UTILITY(U,$J,358.3,19249,1,4,0)
 ;;=4^K52.89
 ;;^UTILITY(U,$J,358.3,19249,2)
 ;;=^5008703
 ;;^UTILITY(U,$J,358.3,19250,0)
 ;;=R30.9^^64^853^62
 ;;^UTILITY(U,$J,358.3,19250,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19250,1,3,0)
 ;;=3^Painful Micturition,Unspec
 ;;^UTILITY(U,$J,358.3,19250,1,4,0)
 ;;=4^R30.9
 ;;^UTILITY(U,$J,358.3,19250,2)
 ;;=^5019324
 ;;^UTILITY(U,$J,358.3,19251,0)
 ;;=R00.2^^64^853^63
 ;;^UTILITY(U,$J,358.3,19251,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19251,1,3,0)
 ;;=3^Palpitations