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

IBDEI28T.m

Go to the documentation of this file.
IBDEI28T ; ; 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,35811,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35811,1,3,0)
 ;;=3^Stiffness,Lt Elbow NEC
 ;;^UTILITY(U,$J,358.3,35811,1,4,0)
 ;;=4^M25.622
 ;;^UTILITY(U,$J,358.3,35811,2)
 ;;=^5011625
 ;;^UTILITY(U,$J,358.3,35812,0)
 ;;=M25.675^^139^1826^34
 ;;^UTILITY(U,$J,358.3,35812,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35812,1,3,0)
 ;;=3^Stiffness,Lt Foot NEC
 ;;^UTILITY(U,$J,358.3,35812,1,4,0)
 ;;=4^M25.675
 ;;^UTILITY(U,$J,358.3,35812,2)
 ;;=^5011643
 ;;^UTILITY(U,$J,358.3,35813,0)
 ;;=M25.642^^139^1826^35
 ;;^UTILITY(U,$J,358.3,35813,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35813,1,3,0)
 ;;=3^Stiffness,Lt Hand NEC
 ;;^UTILITY(U,$J,358.3,35813,1,4,0)
 ;;=4^M25.642
 ;;^UTILITY(U,$J,358.3,35813,2)
 ;;=^5011631
 ;;^UTILITY(U,$J,358.3,35814,0)
 ;;=M25.652^^139^1826^36
 ;;^UTILITY(U,$J,358.3,35814,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35814,1,3,0)
 ;;=3^Stiffness,Lt Hip NEC
 ;;^UTILITY(U,$J,358.3,35814,1,4,0)
 ;;=4^M25.652
 ;;^UTILITY(U,$J,358.3,35814,2)
 ;;=^5011634
 ;;^UTILITY(U,$J,358.3,35815,0)
 ;;=M25.662^^139^1826^37
 ;;^UTILITY(U,$J,358.3,35815,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35815,1,3,0)
 ;;=3^Stiffness,Lt Knee NEC
 ;;^UTILITY(U,$J,358.3,35815,1,4,0)
 ;;=4^M25.662
 ;;^UTILITY(U,$J,358.3,35815,2)
 ;;=^5011637
 ;;^UTILITY(U,$J,358.3,35816,0)
 ;;=M25.612^^139^1826^38
 ;;^UTILITY(U,$J,358.3,35816,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35816,1,3,0)
 ;;=3^Stiffness,Lt Shoulder NEC
 ;;^UTILITY(U,$J,358.3,35816,1,4,0)
 ;;=4^M25.612
 ;;^UTILITY(U,$J,358.3,35816,2)
 ;;=^5011622
 ;;^UTILITY(U,$J,358.3,35817,0)
 ;;=M25.632^^139^1826^39
 ;;^UTILITY(U,$J,358.3,35817,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35817,1,3,0)
 ;;=3^Stiffness,Lt Wrist NEC
 ;;^UTILITY(U,$J,358.3,35817,1,4,0)
 ;;=4^M25.632
 ;;^UTILITY(U,$J,358.3,35817,2)
 ;;=^5011628
 ;;^UTILITY(U,$J,358.3,35818,0)
 ;;=M25.671^^139^1826^40
 ;;^UTILITY(U,$J,358.3,35818,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35818,1,3,0)
 ;;=3^Stiffness,Rt Ankle NEC
 ;;^UTILITY(U,$J,358.3,35818,1,4,0)
 ;;=4^M25.671
 ;;^UTILITY(U,$J,358.3,35818,2)
 ;;=^5011639
 ;;^UTILITY(U,$J,358.3,35819,0)
 ;;=M25.621^^139^1826^41
 ;;^UTILITY(U,$J,358.3,35819,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35819,1,3,0)
 ;;=3^Stiffness,Rt Elbow NEC
 ;;^UTILITY(U,$J,358.3,35819,1,4,0)
 ;;=4^M25.621
 ;;^UTILITY(U,$J,358.3,35819,2)
 ;;=^5011624
 ;;^UTILITY(U,$J,358.3,35820,0)
 ;;=M25.674^^139^1826^42
 ;;^UTILITY(U,$J,358.3,35820,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35820,1,3,0)
 ;;=3^Stiffness,Rt Foot NEC
 ;;^UTILITY(U,$J,358.3,35820,1,4,0)
 ;;=4^M25.674
 ;;^UTILITY(U,$J,358.3,35820,2)
 ;;=^5011642
 ;;^UTILITY(U,$J,358.3,35821,0)
 ;;=M25.641^^139^1826^43
 ;;^UTILITY(U,$J,358.3,35821,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35821,1,3,0)
 ;;=3^Stiffness,Rt Hand NEC
 ;;^UTILITY(U,$J,358.3,35821,1,4,0)
 ;;=4^M25.641
 ;;^UTILITY(U,$J,358.3,35821,2)
 ;;=^5011630
 ;;^UTILITY(U,$J,358.3,35822,0)
 ;;=M25.651^^139^1826^44
 ;;^UTILITY(U,$J,358.3,35822,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35822,1,3,0)
 ;;=3^Stiffness,Rt Hip NEC
 ;;^UTILITY(U,$J,358.3,35822,1,4,0)
 ;;=4^M25.651
 ;;^UTILITY(U,$J,358.3,35822,2)
 ;;=^5011633
 ;;^UTILITY(U,$J,358.3,35823,0)
 ;;=M25.661^^139^1826^45
 ;;^UTILITY(U,$J,358.3,35823,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35823,1,3,0)
 ;;=3^Stiffness,Rt Knee NEC
 ;;^UTILITY(U,$J,358.3,35823,1,4,0)
 ;;=4^M25.661