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

IBDEI277.m

Go to the documentation of this file.
IBDEI277 ; ; 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,35103,1,4,0)
 ;;=4^M25.661
 ;;^UTILITY(U,$J,358.3,35103,2)
 ;;=^5011636
 ;;^UTILITY(U,$J,358.3,35104,0)
 ;;=M25.611^^137^1796^46
 ;;^UTILITY(U,$J,358.3,35104,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35104,1,3,0)
 ;;=3^Stiffness,Rt Shoulder NEC
 ;;^UTILITY(U,$J,358.3,35104,1,4,0)
 ;;=4^M25.611
 ;;^UTILITY(U,$J,358.3,35104,2)
 ;;=^5011621
 ;;^UTILITY(U,$J,358.3,35105,0)
 ;;=M25.631^^137^1796^47
 ;;^UTILITY(U,$J,358.3,35105,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35105,1,3,0)
 ;;=3^Stiffness,Rt Wrist NEC
 ;;^UTILITY(U,$J,358.3,35105,1,4,0)
 ;;=4^M25.631
 ;;^UTILITY(U,$J,358.3,35105,2)
 ;;=^5011627
 ;;^UTILITY(U,$J,358.3,35106,0)
 ;;=M12.572^^137^1796^48
 ;;^UTILITY(U,$J,358.3,35106,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35106,1,3,0)
 ;;=3^Traumatic Arthropathy,Lt Ankle/Foot
 ;;^UTILITY(U,$J,358.3,35106,1,4,0)
 ;;=4^M12.572
 ;;^UTILITY(U,$J,358.3,35106,2)
 ;;=^5010638
 ;;^UTILITY(U,$J,358.3,35107,0)
 ;;=M12.522^^137^1796^49
 ;;^UTILITY(U,$J,358.3,35107,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35107,1,3,0)
 ;;=3^Traumatic Arthropathy,Lt Elbow
 ;;^UTILITY(U,$J,358.3,35107,1,4,0)
 ;;=4^M12.522
 ;;^UTILITY(U,$J,358.3,35107,2)
 ;;=^5010623
 ;;^UTILITY(U,$J,358.3,35108,0)
 ;;=M12.542^^137^1796^50
 ;;^UTILITY(U,$J,358.3,35108,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35108,1,3,0)
 ;;=3^Traumatic Arthropathy,Lt Hand
 ;;^UTILITY(U,$J,358.3,35108,1,4,0)
 ;;=4^M12.542
 ;;^UTILITY(U,$J,358.3,35108,2)
 ;;=^5010629
 ;;^UTILITY(U,$J,358.3,35109,0)
 ;;=M12.552^^137^1796^51
 ;;^UTILITY(U,$J,358.3,35109,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35109,1,3,0)
 ;;=3^Traumatic Arthropathy,Lt Hip
 ;;^UTILITY(U,$J,358.3,35109,1,4,0)
 ;;=4^M12.552
 ;;^UTILITY(U,$J,358.3,35109,2)
 ;;=^5010632
 ;;^UTILITY(U,$J,358.3,35110,0)
 ;;=M12.562^^137^1796^52
 ;;^UTILITY(U,$J,358.3,35110,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35110,1,3,0)
 ;;=3^Traumatic Arthropathy,Lt Knee
 ;;^UTILITY(U,$J,358.3,35110,1,4,0)
 ;;=4^M12.562
 ;;^UTILITY(U,$J,358.3,35110,2)
 ;;=^5010635
 ;;^UTILITY(U,$J,358.3,35111,0)
 ;;=M12.512^^137^1796^53
 ;;^UTILITY(U,$J,358.3,35111,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35111,1,3,0)
 ;;=3^Traumatic Arthropathy,Lt Shoulder
 ;;^UTILITY(U,$J,358.3,35111,1,4,0)
 ;;=4^M12.512
 ;;^UTILITY(U,$J,358.3,35111,2)
 ;;=^5010620
 ;;^UTILITY(U,$J,358.3,35112,0)
 ;;=M12.532^^137^1796^54
 ;;^UTILITY(U,$J,358.3,35112,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35112,1,3,0)
 ;;=3^Traumatic Arthropathy,Lt Wrist
 ;;^UTILITY(U,$J,358.3,35112,1,4,0)
 ;;=4^M12.532
 ;;^UTILITY(U,$J,358.3,35112,2)
 ;;=^5010626
 ;;^UTILITY(U,$J,358.3,35113,0)
 ;;=M12.571^^137^1796^55
 ;;^UTILITY(U,$J,358.3,35113,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35113,1,3,0)
 ;;=3^Traumatic Arthropathy,Rt Ankle/Foot
 ;;^UTILITY(U,$J,358.3,35113,1,4,0)
 ;;=4^M12.571
 ;;^UTILITY(U,$J,358.3,35113,2)
 ;;=^5010637
 ;;^UTILITY(U,$J,358.3,35114,0)
 ;;=M12.521^^137^1796^56
 ;;^UTILITY(U,$J,358.3,35114,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35114,1,3,0)
 ;;=3^Traumatic Arthropathy,Rt Elbow
 ;;^UTILITY(U,$J,358.3,35114,1,4,0)
 ;;=4^M12.521
 ;;^UTILITY(U,$J,358.3,35114,2)
 ;;=^5010622
 ;;^UTILITY(U,$J,358.3,35115,0)
 ;;=M12.541^^137^1796^57
 ;;^UTILITY(U,$J,358.3,35115,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35115,1,3,0)
 ;;=3^Traumatic Arthropathy,Rt Hand
 ;;^UTILITY(U,$J,358.3,35115,1,4,0)
 ;;=4^M12.541