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

IBDEI294.m

Go to the documentation of this file.
  1. IBDEI294 ; ; 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,35946,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35946,1,3,0)
  1. ;;=3^Pain,Rt Wrist
  1. ;;^UTILITY(U,$J,358.3,35946,1,4,0)
  1. ;;=4^M25.531
  1. ;;^UTILITY(U,$J,358.3,35946,2)
  1. ;;=^5011608
  1. ;;^UTILITY(U,$J,358.3,35947,0)
  1. ;;=S43.422A^^139^1829^75
  1. ;;^UTILITY(U,$J,358.3,35947,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35947,1,3,0)
  1. ;;=3^Sprain,Lt Rotator Cuff Capsule,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,35947,1,4,0)
  1. ;;=4^S43.422A
  1. ;;^UTILITY(U,$J,358.3,35947,2)
  1. ;;=^5027882
  1. ;;^UTILITY(U,$J,358.3,35948,0)
  1. ;;=S43.421A^^139^1829^76
  1. ;;^UTILITY(U,$J,358.3,35948,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35948,1,3,0)
  1. ;;=3^Sprain,Rt Rotator Cuff Capsule,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,35948,1,4,0)
  1. ;;=4^S43.421A
  1. ;;^UTILITY(U,$J,358.3,35948,2)
  1. ;;=^5027879
  1. ;;^UTILITY(U,$J,358.3,35949,0)
  1. ;;=S93.402A^^139^1829^77
  1. ;;^UTILITY(U,$J,358.3,35949,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35949,1,3,0)
  1. ;;=3^Sprain,Unspec Ligament,Lt Ankle,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,35949,1,4,0)
  1. ;;=4^S93.402A
  1. ;;^UTILITY(U,$J,358.3,35949,2)
  1. ;;=^5045777
  1. ;;^UTILITY(U,$J,358.3,35950,0)
  1. ;;=S93.401A^^139^1829^78
  1. ;;^UTILITY(U,$J,358.3,35950,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35950,1,3,0)
  1. ;;=3^Sprain,Unspec Ligament,Rt Ankle,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,35950,1,4,0)
  1. ;;=4^S93.401A
  1. ;;^UTILITY(U,$J,358.3,35950,2)
  1. ;;=^5045774
  1. ;;^UTILITY(U,$J,358.3,35951,0)
  1. ;;=S96.912A^^139^1829^81
  1. ;;^UTILITY(U,$J,358.3,35951,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35951,1,3,0)
  1. ;;=3^Strain,Msl/Tnd,Ankle/Foot Level,Lt Foot,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,35951,1,4,0)
  1. ;;=4^S96.912A
  1. ;;^UTILITY(U,$J,358.3,35951,2)
  1. ;;=^5137751
  1. ;;^UTILITY(U,$J,358.3,35952,0)
  1. ;;=S96.911A^^139^1829^82
  1. ;;^UTILITY(U,$J,358.3,35952,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35952,1,3,0)
  1. ;;=3^Strain,Msl/Tnd,Ankle/Foot Level,Rt Foot,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,35952,1,4,0)
  1. ;;=4^S96.911A
  1. ;;^UTILITY(U,$J,358.3,35952,2)
  1. ;;=^5137750
  1. ;;^UTILITY(U,$J,358.3,35953,0)
  1. ;;=S56.912A^^139^1829^79
  1. ;;^UTILITY(U,$J,358.3,35953,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35953,1,3,0)
  1. ;;=3^Strain,Msl/Fasc/Tnd,Forearm Level,Lt Arm,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,35953,1,4,0)
  1. ;;=4^S56.912A
  1. ;;^UTILITY(U,$J,358.3,35953,2)
  1. ;;=^5135514
  1. ;;^UTILITY(U,$J,358.3,35954,0)
  1. ;;=S56.911A^^139^1829^80
  1. ;;^UTILITY(U,$J,358.3,35954,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35954,1,3,0)
  1. ;;=3^Strain,Msl/Fasc/Tnd,Forearm Level,Rt Arm,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,35954,1,4,0)
  1. ;;=4^S56.911A
  1. ;;^UTILITY(U,$J,358.3,35954,2)
  1. ;;=^5135513
  1. ;;^UTILITY(U,$J,358.3,35955,0)
  1. ;;=M75.112^^139^1829^25
  1. ;;^UTILITY(U,$J,358.3,35955,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35955,1,3,0)
  1. ;;=3^Incomplete Rotator-Cuff Tear/Ruptr,Lt Shoulder
  1. ;;^UTILITY(U,$J,358.3,35955,1,4,0)
  1. ;;=4^M75.112
  1. ;;^UTILITY(U,$J,358.3,35955,2)
  1. ;;=^5013246
  1. ;;^UTILITY(U,$J,358.3,35956,0)
  1. ;;=M75.111^^139^1829^26
  1. ;;^UTILITY(U,$J,358.3,35956,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35956,1,3,0)
  1. ;;=3^Incomplete Rotator-Cuff Tear/Ruptr,Rt Shoulder
  1. ;;^UTILITY(U,$J,358.3,35956,1,4,0)
  1. ;;=4^M75.111
  1. ;;^UTILITY(U,$J,358.3,35956,2)
  1. ;;=^5013245
  1. ;;^UTILITY(U,$J,358.3,35957,0)
  1. ;;=M23.8X2^^139^1829^27
  1. ;;^UTILITY(U,$J,358.3,35957,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,35957,1,3,0)
  1. ;;=3^Internal Derangement,Lt Knee NEC
  1. ;;^UTILITY(U,$J,358.3,35957,1,4,0)
  1. ;;=4^M23.8X2