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

IBDEI161.m

Go to the documentation of this file.
  1. IBDEI161 ; ; 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,18920,0)
  1. ;;=M05.871^^64^842^35
  1. ;;^UTILITY(U,$J,358.3,18920,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,18920,1,3,0)
  1. ;;=3^Rheu Arth w/ Rheu Factor Right Ankle/Foot
  1. ;;^UTILITY(U,$J,358.3,18920,1,4,0)
  1. ;;=4^M05.871
  1. ;;^UTILITY(U,$J,358.3,18920,2)
  1. ;;=^5010042
  1. ;;^UTILITY(U,$J,358.3,18921,0)
  1. ;;=M05.821^^64^842^36
  1. ;;^UTILITY(U,$J,358.3,18921,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,18921,1,3,0)
  1. ;;=3^Rheu Arth w/ Rheu Factor Right Elbow
  1. ;;^UTILITY(U,$J,358.3,18921,1,4,0)
  1. ;;=4^M05.821
  1. ;;^UTILITY(U,$J,358.3,18921,2)
  1. ;;=^5010027
  1. ;;^UTILITY(U,$J,358.3,18922,0)
  1. ;;=M05.841^^64^842^37
  1. ;;^UTILITY(U,$J,358.3,18922,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,18922,1,3,0)
  1. ;;=3^Rheu Arth w/ Rheu Factor Right Hand
  1. ;;^UTILITY(U,$J,358.3,18922,1,4,0)
  1. ;;=4^M05.841
  1. ;;^UTILITY(U,$J,358.3,18922,2)
  1. ;;=^5010033
  1. ;;^UTILITY(U,$J,358.3,18923,0)
  1. ;;=M05.851^^64^842^38
  1. ;;^UTILITY(U,$J,358.3,18923,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,18923,1,3,0)
  1. ;;=3^Rheu Arth w/ Rheu Factor Right Hip
  1. ;;^UTILITY(U,$J,358.3,18923,1,4,0)
  1. ;;=4^M05.851
  1. ;;^UTILITY(U,$J,358.3,18923,2)
  1. ;;=^5010036
  1. ;;^UTILITY(U,$J,358.3,18924,0)
  1. ;;=M05.861^^64^842^39
  1. ;;^UTILITY(U,$J,358.3,18924,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,18924,1,3,0)
  1. ;;=3^Rheu Arth w/ Rheu Factor Right Knee
  1. ;;^UTILITY(U,$J,358.3,18924,1,4,0)
  1. ;;=4^M05.861
  1. ;;^UTILITY(U,$J,358.3,18924,2)
  1. ;;=^5010039
  1. ;;^UTILITY(U,$J,358.3,18925,0)
  1. ;;=M05.811^^64^842^40
  1. ;;^UTILITY(U,$J,358.3,18925,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,18925,1,3,0)
  1. ;;=3^Rheu Arth w/ Rheu Factor Right Shldr
  1. ;;^UTILITY(U,$J,358.3,18925,1,4,0)
  1. ;;=4^M05.811
  1. ;;^UTILITY(U,$J,358.3,18925,2)
  1. ;;=^5010024
  1. ;;^UTILITY(U,$J,358.3,18926,0)
  1. ;;=M05.831^^64^842^41
  1. ;;^UTILITY(U,$J,358.3,18926,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,18926,1,3,0)
  1. ;;=3^Rheu Arth w/ Rheu Factor Right Wrist
  1. ;;^UTILITY(U,$J,358.3,18926,1,4,0)
  1. ;;=4^M05.831
  1. ;;^UTILITY(U,$J,358.3,18926,2)
  1. ;;=^5010030
  1. ;;^UTILITY(U,$J,358.3,18927,0)
  1. ;;=M05.80^^64^842^42
  1. ;;^UTILITY(U,$J,358.3,18927,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,18927,1,3,0)
  1. ;;=3^Rheu Arth w/ Rheu Factor Unspec Site
  1. ;;^UTILITY(U,$J,358.3,18927,1,4,0)
  1. ;;=4^M05.80
  1. ;;^UTILITY(U,$J,358.3,18927,2)
  1. ;;=^5010023
  1. ;;^UTILITY(U,$J,358.3,18928,0)
  1. ;;=M06.872^^64^842^93
  1. ;;^UTILITY(U,$J,358.3,18928,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,18928,1,3,0)
  1. ;;=3^Rheumatoid Arthritis Left Ankle/Foot
  1. ;;^UTILITY(U,$J,358.3,18928,1,4,0)
  1. ;;=4^M06.872
  1. ;;^UTILITY(U,$J,358.3,18928,2)
  1. ;;=^5010141
  1. ;;^UTILITY(U,$J,358.3,18929,0)
  1. ;;=M06.822^^64^842^94
  1. ;;^UTILITY(U,$J,358.3,18929,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,18929,1,3,0)
  1. ;;=3^Rheumatoid Arthritis Left Elbow
  1. ;;^UTILITY(U,$J,358.3,18929,1,4,0)
  1. ;;=4^M06.822
  1. ;;^UTILITY(U,$J,358.3,18929,2)
  1. ;;=^5010126
  1. ;;^UTILITY(U,$J,358.3,18930,0)
  1. ;;=M06.842^^64^842^95
  1. ;;^UTILITY(U,$J,358.3,18930,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,18930,1,3,0)
  1. ;;=3^Rheumatoid Arthritis Left Hand
  1. ;;^UTILITY(U,$J,358.3,18930,1,4,0)
  1. ;;=4^M06.842
  1. ;;^UTILITY(U,$J,358.3,18930,2)
  1. ;;=^5010132
  1. ;;^UTILITY(U,$J,358.3,18931,0)
  1. ;;=M06.852^^64^842^96
  1. ;;^UTILITY(U,$J,358.3,18931,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,18931,1,3,0)
  1. ;;=3^Rheumatoid Arthritis Left Hip
  1. ;;^UTILITY(U,$J,358.3,18931,1,4,0)
  1. ;;=4^M06.852
  1. ;;^UTILITY(U,$J,358.3,18931,2)
  1. ;;=^5010135
  1. ;;^UTILITY(U,$J,358.3,18932,0)
  1. ;;=M06.862^^64^842^97