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

IBDEI1C7.m

Go to the documentation of this file.
  1. IBDEI1C7 ; ; 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,21611,0)
  1. ;;=M05.871^^70^922^35
  1. ;;^UTILITY(U,$J,358.3,21611,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21611,1,3,0)
  1. ;;=3^Rheu Arth w/ Rheu Factor Right Ankle/Foot
  1. ;;^UTILITY(U,$J,358.3,21611,1,4,0)
  1. ;;=4^M05.871
  1. ;;^UTILITY(U,$J,358.3,21611,2)
  1. ;;=^5010042
  1. ;;^UTILITY(U,$J,358.3,21612,0)
  1. ;;=M05.821^^70^922^36
  1. ;;^UTILITY(U,$J,358.3,21612,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21612,1,3,0)
  1. ;;=3^Rheu Arth w/ Rheu Factor Right Elbow
  1. ;;^UTILITY(U,$J,358.3,21612,1,4,0)
  1. ;;=4^M05.821
  1. ;;^UTILITY(U,$J,358.3,21612,2)
  1. ;;=^5010027
  1. ;;^UTILITY(U,$J,358.3,21613,0)
  1. ;;=M05.841^^70^922^37
  1. ;;^UTILITY(U,$J,358.3,21613,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21613,1,3,0)
  1. ;;=3^Rheu Arth w/ Rheu Factor Right Hand
  1. ;;^UTILITY(U,$J,358.3,21613,1,4,0)
  1. ;;=4^M05.841
  1. ;;^UTILITY(U,$J,358.3,21613,2)
  1. ;;=^5010033
  1. ;;^UTILITY(U,$J,358.3,21614,0)
  1. ;;=M05.851^^70^922^38
  1. ;;^UTILITY(U,$J,358.3,21614,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21614,1,3,0)
  1. ;;=3^Rheu Arth w/ Rheu Factor Right Hip
  1. ;;^UTILITY(U,$J,358.3,21614,1,4,0)
  1. ;;=4^M05.851
  1. ;;^UTILITY(U,$J,358.3,21614,2)
  1. ;;=^5010036
  1. ;;^UTILITY(U,$J,358.3,21615,0)
  1. ;;=M05.861^^70^922^39
  1. ;;^UTILITY(U,$J,358.3,21615,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21615,1,3,0)
  1. ;;=3^Rheu Arth w/ Rheu Factor Right Knee
  1. ;;^UTILITY(U,$J,358.3,21615,1,4,0)
  1. ;;=4^M05.861
  1. ;;^UTILITY(U,$J,358.3,21615,2)
  1. ;;=^5010039
  1. ;;^UTILITY(U,$J,358.3,21616,0)
  1. ;;=M05.811^^70^922^40
  1. ;;^UTILITY(U,$J,358.3,21616,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21616,1,3,0)
  1. ;;=3^Rheu Arth w/ Rheu Factor Right Shldr
  1. ;;^UTILITY(U,$J,358.3,21616,1,4,0)
  1. ;;=4^M05.811
  1. ;;^UTILITY(U,$J,358.3,21616,2)
  1. ;;=^5010024
  1. ;;^UTILITY(U,$J,358.3,21617,0)
  1. ;;=M05.831^^70^922^41
  1. ;;^UTILITY(U,$J,358.3,21617,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21617,1,3,0)
  1. ;;=3^Rheu Arth w/ Rheu Factor Right Wrist
  1. ;;^UTILITY(U,$J,358.3,21617,1,4,0)
  1. ;;=4^M05.831
  1. ;;^UTILITY(U,$J,358.3,21617,2)
  1. ;;=^5010030
  1. ;;^UTILITY(U,$J,358.3,21618,0)
  1. ;;=M05.80^^70^922^42
  1. ;;^UTILITY(U,$J,358.3,21618,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21618,1,3,0)
  1. ;;=3^Rheu Arth w/ Rheu Factor Unspec Site
  1. ;;^UTILITY(U,$J,358.3,21618,1,4,0)
  1. ;;=4^M05.80
  1. ;;^UTILITY(U,$J,358.3,21618,2)
  1. ;;=^5010023
  1. ;;^UTILITY(U,$J,358.3,21619,0)
  1. ;;=M06.872^^70^922^93
  1. ;;^UTILITY(U,$J,358.3,21619,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21619,1,3,0)
  1. ;;=3^Rheumatoid Arthritis Left Ankle/Foot
  1. ;;^UTILITY(U,$J,358.3,21619,1,4,0)
  1. ;;=4^M06.872
  1. ;;^UTILITY(U,$J,358.3,21619,2)
  1. ;;=^5010141
  1. ;;^UTILITY(U,$J,358.3,21620,0)
  1. ;;=M06.822^^70^922^94
  1. ;;^UTILITY(U,$J,358.3,21620,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21620,1,3,0)
  1. ;;=3^Rheumatoid Arthritis Left Elbow
  1. ;;^UTILITY(U,$J,358.3,21620,1,4,0)
  1. ;;=4^M06.822
  1. ;;^UTILITY(U,$J,358.3,21620,2)
  1. ;;=^5010126
  1. ;;^UTILITY(U,$J,358.3,21621,0)
  1. ;;=M06.842^^70^922^95
  1. ;;^UTILITY(U,$J,358.3,21621,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21621,1,3,0)
  1. ;;=3^Rheumatoid Arthritis Left Hand
  1. ;;^UTILITY(U,$J,358.3,21621,1,4,0)
  1. ;;=4^M06.842
  1. ;;^UTILITY(U,$J,358.3,21621,2)
  1. ;;=^5010132
  1. ;;^UTILITY(U,$J,358.3,21622,0)
  1. ;;=M06.852^^70^922^96
  1. ;;^UTILITY(U,$J,358.3,21622,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21622,1,3,0)
  1. ;;=3^Rheumatoid Arthritis Left Hip
  1. ;;^UTILITY(U,$J,358.3,21622,1,4,0)
  1. ;;=4^M06.852
  1. ;;^UTILITY(U,$J,358.3,21622,2)
  1. ;;=^5010135
  1. ;;^UTILITY(U,$J,358.3,21623,0)
  1. ;;=M06.862^^70^922^97