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

IBDEI27U.m

Go to the documentation of this file.
IBDEI27U ; ; 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,35386,1,3,0)
 ;;=3^Rheum Arthritis w/o Rheum Factor,Lt Elbow
 ;;^UTILITY(U,$J,358.3,35386,1,4,0)
 ;;=4^M06.022
 ;;^UTILITY(U,$J,358.3,35386,2)
 ;;=^5010052
 ;;^UTILITY(U,$J,358.3,35387,0)
 ;;=M06.042^^137^1802^19
 ;;^UTILITY(U,$J,358.3,35387,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35387,1,3,0)
 ;;=3^Rheum Arthritis w/o Rheum Factor,Lt Hand
 ;;^UTILITY(U,$J,358.3,35387,1,4,0)
 ;;=4^M06.042
 ;;^UTILITY(U,$J,358.3,35387,2)
 ;;=^5010058
 ;;^UTILITY(U,$J,358.3,35388,0)
 ;;=M06.052^^137^1802^20
 ;;^UTILITY(U,$J,358.3,35388,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35388,1,3,0)
 ;;=3^Rheum Arthritis w/o Rheum Factor,Lt Hip
 ;;^UTILITY(U,$J,358.3,35388,1,4,0)
 ;;=4^M06.052
 ;;^UTILITY(U,$J,358.3,35388,2)
 ;;=^5010061
 ;;^UTILITY(U,$J,358.3,35389,0)
 ;;=M06.062^^137^1802^21
 ;;^UTILITY(U,$J,358.3,35389,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35389,1,3,0)
 ;;=3^Rheum Arthritis w/o Rheum Factor,Lt Knee
 ;;^UTILITY(U,$J,358.3,35389,1,4,0)
 ;;=4^M06.062
 ;;^UTILITY(U,$J,358.3,35389,2)
 ;;=^5010064
 ;;^UTILITY(U,$J,358.3,35390,0)
 ;;=M06.012^^137^1802^22
 ;;^UTILITY(U,$J,358.3,35390,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35390,1,3,0)
 ;;=3^Rheum Arthritis w/o Rheum Factor,Lt Shoulder
 ;;^UTILITY(U,$J,358.3,35390,1,4,0)
 ;;=4^M06.012
 ;;^UTILITY(U,$J,358.3,35390,2)
 ;;=^5010049
 ;;^UTILITY(U,$J,358.3,35391,0)
 ;;=M06.032^^137^1802^23
 ;;^UTILITY(U,$J,358.3,35391,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35391,1,3,0)
 ;;=3^Rheum Arthritis w/o Rheum Factor,Lt Wrist
 ;;^UTILITY(U,$J,358.3,35391,1,4,0)
 ;;=4^M06.032
 ;;^UTILITY(U,$J,358.3,35391,2)
 ;;=^5010055
 ;;^UTILITY(U,$J,358.3,35392,0)
 ;;=M06.09^^137^1802^24
 ;;^UTILITY(U,$J,358.3,35392,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35392,1,3,0)
 ;;=3^Rheum Arthritis w/o Rheum Factor,Mult Sites
 ;;^UTILITY(U,$J,358.3,35392,1,4,0)
 ;;=4^M06.09
 ;;^UTILITY(U,$J,358.3,35392,2)
 ;;=^5010070
 ;;^UTILITY(U,$J,358.3,35393,0)
 ;;=M06.071^^137^1802^25
 ;;^UTILITY(U,$J,358.3,35393,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35393,1,3,0)
 ;;=3^Rheum Arthritis w/o Rheum Factor,Rt Ankle/Foot
 ;;^UTILITY(U,$J,358.3,35393,1,4,0)
 ;;=4^M06.071
 ;;^UTILITY(U,$J,358.3,35393,2)
 ;;=^5010066
 ;;^UTILITY(U,$J,358.3,35394,0)
 ;;=M06.021^^137^1802^26
 ;;^UTILITY(U,$J,358.3,35394,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35394,1,3,0)
 ;;=3^Rheum Arthritis w/o Rheum Factor,Rt Elbow
 ;;^UTILITY(U,$J,358.3,35394,1,4,0)
 ;;=4^M06.021
 ;;^UTILITY(U,$J,358.3,35394,2)
 ;;=^5010051
 ;;^UTILITY(U,$J,358.3,35395,0)
 ;;=M06.041^^137^1802^27
 ;;^UTILITY(U,$J,358.3,35395,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35395,1,3,0)
 ;;=3^Rheum Arthritis w/o Rheum Factor,Rt Hand
 ;;^UTILITY(U,$J,358.3,35395,1,4,0)
 ;;=4^M06.041
 ;;^UTILITY(U,$J,358.3,35395,2)
 ;;=^5010057
 ;;^UTILITY(U,$J,358.3,35396,0)
 ;;=M06.051^^137^1802^28
 ;;^UTILITY(U,$J,358.3,35396,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35396,1,3,0)
 ;;=3^Rheum Arthritis w/o Rheum Factor,Rt Hip
 ;;^UTILITY(U,$J,358.3,35396,1,4,0)
 ;;=4^M06.051
 ;;^UTILITY(U,$J,358.3,35396,2)
 ;;=^5010060
 ;;^UTILITY(U,$J,358.3,35397,0)
 ;;=M06.061^^137^1802^29
 ;;^UTILITY(U,$J,358.3,35397,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35397,1,3,0)
 ;;=3^Rheum Arthritis w/o Rheum Factor,Rt Knee
 ;;^UTILITY(U,$J,358.3,35397,1,4,0)
 ;;=4^M06.061
 ;;^UTILITY(U,$J,358.3,35397,2)
 ;;=^5010063
 ;;^UTILITY(U,$J,358.3,35398,0)
 ;;=M06.011^^137^1802^30