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

IBDEI1CC.m

Go to the documentation of this file.
  1. IBDEI1CC ; ; 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,21672,0)
  1. ;;=M06.211^^70^922^123
  1. ;;^UTILITY(U,$J,358.3,21672,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21672,1,3,0)
  1. ;;=3^Rheumatoid Bursitis Right Shoulder
  1. ;;^UTILITY(U,$J,358.3,21672,1,4,0)
  1. ;;=4^M06.211
  1. ;;^UTILITY(U,$J,358.3,21672,2)
  1. ;;=^5010073
  1. ;;^UTILITY(U,$J,358.3,21673,0)
  1. ;;=M06.231^^70^922^124
  1. ;;^UTILITY(U,$J,358.3,21673,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21673,1,3,0)
  1. ;;=3^Rheumatoid Bursitis Right Wrist
  1. ;;^UTILITY(U,$J,358.3,21673,1,4,0)
  1. ;;=4^M06.231
  1. ;;^UTILITY(U,$J,358.3,21673,2)
  1. ;;=^5010079
  1. ;;^UTILITY(U,$J,358.3,21674,0)
  1. ;;=M06.28^^70^922^125
  1. ;;^UTILITY(U,$J,358.3,21674,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21674,1,3,0)
  1. ;;=3^Rheumatoid Bursitis Vertebrae
  1. ;;^UTILITY(U,$J,358.3,21674,1,4,0)
  1. ;;=4^M06.28
  1. ;;^UTILITY(U,$J,358.3,21674,2)
  1. ;;=^5010094
  1. ;;^UTILITY(U,$J,358.3,21675,0)
  1. ;;=M05.472^^70^922^61
  1. ;;^UTILITY(U,$J,358.3,21675,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21675,1,3,0)
  1. ;;=3^Rheum Myopathy w/ Rheum Arth Left Ankle/Foot
  1. ;;^UTILITY(U,$J,358.3,21675,1,4,0)
  1. ;;=4^M05.472
  1. ;;^UTILITY(U,$J,358.3,21675,2)
  1. ;;=^5009951
  1. ;;^UTILITY(U,$J,358.3,21676,0)
  1. ;;=M05.422^^70^922^62
  1. ;;^UTILITY(U,$J,358.3,21676,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21676,1,3,0)
  1. ;;=3^Rheum Myopathy w/ Rheum Arth Left Elbow
  1. ;;^UTILITY(U,$J,358.3,21676,1,4,0)
  1. ;;=4^M05.422
  1. ;;^UTILITY(U,$J,358.3,21676,2)
  1. ;;=^5009936
  1. ;;^UTILITY(U,$J,358.3,21677,0)
  1. ;;=M05.442^^70^922^63
  1. ;;^UTILITY(U,$J,358.3,21677,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21677,1,3,0)
  1. ;;=3^Rheum Myopathy w/ Rheum Arth Left Hand
  1. ;;^UTILITY(U,$J,358.3,21677,1,4,0)
  1. ;;=4^M05.442
  1. ;;^UTILITY(U,$J,358.3,21677,2)
  1. ;;=^5009942
  1. ;;^UTILITY(U,$J,358.3,21678,0)
  1. ;;=M05.452^^70^922^64
  1. ;;^UTILITY(U,$J,358.3,21678,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21678,1,3,0)
  1. ;;=3^Rheum Myopathy w/ Rheum Arth Left Hip
  1. ;;^UTILITY(U,$J,358.3,21678,1,4,0)
  1. ;;=4^M05.452
  1. ;;^UTILITY(U,$J,358.3,21678,2)
  1. ;;=^5009945
  1. ;;^UTILITY(U,$J,358.3,21679,0)
  1. ;;=M05.462^^70^922^65
  1. ;;^UTILITY(U,$J,358.3,21679,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21679,1,3,0)
  1. ;;=3^Rheum Myopathy w/ Rheum Arth Left Knee
  1. ;;^UTILITY(U,$J,358.3,21679,1,4,0)
  1. ;;=4^M05.462
  1. ;;^UTILITY(U,$J,358.3,21679,2)
  1. ;;=^5009948
  1. ;;^UTILITY(U,$J,358.3,21680,0)
  1. ;;=M05.412^^70^922^66
  1. ;;^UTILITY(U,$J,358.3,21680,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21680,1,3,0)
  1. ;;=3^Rheum Myopathy w/ Rheum Arth Left Shoulder
  1. ;;^UTILITY(U,$J,358.3,21680,1,4,0)
  1. ;;=4^M05.412
  1. ;;^UTILITY(U,$J,358.3,21680,2)
  1. ;;=^5009933
  1. ;;^UTILITY(U,$J,358.3,21681,0)
  1. ;;=M05.432^^70^922^67
  1. ;;^UTILITY(U,$J,358.3,21681,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21681,1,3,0)
  1. ;;=3^Rheum Myopathy w/ Rheum Arth Left Wrist
  1. ;;^UTILITY(U,$J,358.3,21681,1,4,0)
  1. ;;=4^M05.432
  1. ;;^UTILITY(U,$J,358.3,21681,2)
  1. ;;=^5009939
  1. ;;^UTILITY(U,$J,358.3,21682,0)
  1. ;;=M05.49^^70^922^68
  1. ;;^UTILITY(U,$J,358.3,21682,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21682,1,3,0)
  1. ;;=3^Rheum Myopathy w/ Rheum Arth Mult Sites
  1. ;;^UTILITY(U,$J,358.3,21682,1,4,0)
  1. ;;=4^M05.49
  1. ;;^UTILITY(U,$J,358.3,21682,2)
  1. ;;=^5009953
  1. ;;^UTILITY(U,$J,358.3,21683,0)
  1. ;;=M05.471^^70^922^69
  1. ;;^UTILITY(U,$J,358.3,21683,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21683,1,3,0)
  1. ;;=3^Rheum Myopathy w/ Rheum Arth Right Ankle/Foot
  1. ;;^UTILITY(U,$J,358.3,21683,1,4,0)
  1. ;;=4^M05.471
  1. ;;^UTILITY(U,$J,358.3,21683,2)
  1. ;;=^5009950