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

IBDEI1J8.m

Go to the documentation of this file.
  1. IBDEI1J8 ; ; 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,24802,1,3,0)
  1. ;;=3^Phlebitis & Thrombophlebitis Deep Vessels Left Lower Extremity
  1. ;;^UTILITY(U,$J,358.3,24802,1,4,0)
  1. ;;=4^I80.202
  1. ;;^UTILITY(U,$J,358.3,24802,2)
  1. ;;=^5007829
  1. ;;^UTILITY(U,$J,358.3,24803,0)
  1. ;;=I80.203^^85^1091^45
  1. ;;^UTILITY(U,$J,358.3,24803,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24803,1,3,0)
  1. ;;=3^Phlebitis & Thrombophlebitis Deep Vessels Bilateral Lower Extremity
  1. ;;^UTILITY(U,$J,358.3,24803,1,4,0)
  1. ;;=4^I80.203
  1. ;;^UTILITY(U,$J,358.3,24803,2)
  1. ;;=^5007830
  1. ;;^UTILITY(U,$J,358.3,24804,0)
  1. ;;=K27.9^^85^1091^40
  1. ;;^UTILITY(U,$J,358.3,24804,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24804,1,3,0)
  1. ;;=3^Peptic Ulcer w/o Hemorrhage/Perforation
  1. ;;^UTILITY(U,$J,358.3,24804,1,4,0)
  1. ;;=4^K27.9
  1. ;;^UTILITY(U,$J,358.3,24804,2)
  1. ;;=^5008536
  1. ;;^UTILITY(U,$J,358.3,24805,0)
  1. ;;=G89.29^^85^1091^10
  1. ;;^UTILITY(U,$J,358.3,24805,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24805,1,3,0)
  1. ;;=3^Pain,Chronic,Other
  1. ;;^UTILITY(U,$J,358.3,24805,1,4,0)
  1. ;;=4^G89.29
  1. ;;^UTILITY(U,$J,358.3,24805,2)
  1. ;;=^5004158
  1. ;;^UTILITY(U,$J,358.3,24806,0)
  1. ;;=G89.21^^85^1091^9
  1. ;;^UTILITY(U,$J,358.3,24806,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24806,1,3,0)
  1. ;;=3^Pain,Chronic d/t Trauma
  1. ;;^UTILITY(U,$J,358.3,24806,1,4,0)
  1. ;;=4^G89.21
  1. ;;^UTILITY(U,$J,358.3,24806,2)
  1. ;;=^5004155
  1. ;;^UTILITY(U,$J,358.3,24807,0)
  1. ;;=G89.22^^85^1091^11
  1. ;;^UTILITY(U,$J,358.3,24807,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24807,1,3,0)
  1. ;;=3^Pain,Chronic,Post-Thoracotomy
  1. ;;^UTILITY(U,$J,358.3,24807,1,4,0)
  1. ;;=4^G89.22
  1. ;;^UTILITY(U,$J,358.3,24807,2)
  1. ;;=^5004156
  1. ;;^UTILITY(U,$J,358.3,24808,0)
  1. ;;=G89.28^^85^1091^8
  1. ;;^UTILITY(U,$J,358.3,24808,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24808,1,3,0)
  1. ;;=3^Pain,Chronic Postprocedural Pain
  1. ;;^UTILITY(U,$J,358.3,24808,1,4,0)
  1. ;;=4^G89.28
  1. ;;^UTILITY(U,$J,358.3,24808,2)
  1. ;;=^5004157
  1. ;;^UTILITY(U,$J,358.3,24809,0)
  1. ;;=K85.90^^85^1091^38
  1. ;;^UTILITY(U,$J,358.3,24809,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24809,1,3,0)
  1. ;;=3^Pancreatitis,Acute w/o Necrosis/Infection,Unspec
  1. ;;^UTILITY(U,$J,358.3,24809,1,4,0)
  1. ;;=4^K85.90
  1. ;;^UTILITY(U,$J,358.3,24809,2)
  1. ;;=^5138761
  1. ;;^UTILITY(U,$J,358.3,24810,0)
  1. ;;=K85.91^^85^1091^37
  1. ;;^UTILITY(U,$J,358.3,24810,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24810,1,3,0)
  1. ;;=3^Pancreatitis,Acute w/ Uninfected Necrosis,Unspec
  1. ;;^UTILITY(U,$J,358.3,24810,1,4,0)
  1. ;;=4^K85.91
  1. ;;^UTILITY(U,$J,358.3,24810,2)
  1. ;;=^5138762
  1. ;;^UTILITY(U,$J,358.3,24811,0)
  1. ;;=K85.92^^85^1091^36
  1. ;;^UTILITY(U,$J,358.3,24811,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24811,1,3,0)
  1. ;;=3^Pancreatitis,Acute w/ Infected Necrosis,Unspec
  1. ;;^UTILITY(U,$J,358.3,24811,1,4,0)
  1. ;;=4^K85.92
  1. ;;^UTILITY(U,$J,358.3,24811,2)
  1. ;;=^5138763
  1. ;;^UTILITY(U,$J,358.3,24812,0)
  1. ;;=Z98.890^^85^1091^52
  1. ;;^UTILITY(U,$J,358.3,24812,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24812,1,3,0)
  1. ;;=3^Postprocedural States,Other Specified
  1. ;;^UTILITY(U,$J,358.3,24812,1,4,0)
  1. ;;=4^Z98.890
  1. ;;^UTILITY(U,$J,358.3,24812,2)
  1. ;;=^5063754
  1. ;;^UTILITY(U,$J,358.3,24813,0)
  1. ;;=R10.9^^85^1091^4
  1. ;;^UTILITY(U,$J,358.3,24813,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24813,1,3,0)
  1. ;;=3^Pain,Abdominal,Unspec
  1. ;;^UTILITY(U,$J,358.3,24813,1,4,0)
  1. ;;=4^R10.9
  1. ;;^UTILITY(U,$J,358.3,24813,2)
  1. ;;=^5019230
  1. ;;^UTILITY(U,$J,358.3,24814,0)
  1. ;;=M79.602^^85^1091^13
  1. ;;^UTILITY(U,$J,358.3,24814,1,0)
  1. ;;=^358.31IA^4^2