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

IBDEI1CF.m

Go to the documentation of this file.
  1. IBDEI1CF ; ; 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,21708,1,4,0)
  1. ;;=4^M05.572
  1. ;;^UTILITY(U,$J,358.3,21708,2)
  1. ;;=^5009974
  1. ;;^UTILITY(U,$J,358.3,21709,0)
  1. ;;=M05.522^^70^922^78
  1. ;;^UTILITY(U,$J,358.3,21709,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21709,1,3,0)
  1. ;;=3^Rheum Polyneuropathy w/ Rheum Arth Left Elbow
  1. ;;^UTILITY(U,$J,358.3,21709,1,4,0)
  1. ;;=4^M05.522
  1. ;;^UTILITY(U,$J,358.3,21709,2)
  1. ;;=^5009959
  1. ;;^UTILITY(U,$J,358.3,21710,0)
  1. ;;=M05.542^^70^922^79
  1. ;;^UTILITY(U,$J,358.3,21710,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21710,1,3,0)
  1. ;;=3^Rheum Polyneuropathy w/ Rheum Arth Left Hand
  1. ;;^UTILITY(U,$J,358.3,21710,1,4,0)
  1. ;;=4^M05.542
  1. ;;^UTILITY(U,$J,358.3,21710,2)
  1. ;;=^5009965
  1. ;;^UTILITY(U,$J,358.3,21711,0)
  1. ;;=M05.552^^70^922^80
  1. ;;^UTILITY(U,$J,358.3,21711,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21711,1,3,0)
  1. ;;=3^Rheum Polyneuropathy w/ Rheum Arth Left Hip
  1. ;;^UTILITY(U,$J,358.3,21711,1,4,0)
  1. ;;=4^M05.552
  1. ;;^UTILITY(U,$J,358.3,21711,2)
  1. ;;=^5009968
  1. ;;^UTILITY(U,$J,358.3,21712,0)
  1. ;;=M05.562^^70^922^81
  1. ;;^UTILITY(U,$J,358.3,21712,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21712,1,3,0)
  1. ;;=3^Rheum Polyneuropathy w/ Rheum Arth Left Knee
  1. ;;^UTILITY(U,$J,358.3,21712,1,4,0)
  1. ;;=4^M05.562
  1. ;;^UTILITY(U,$J,358.3,21712,2)
  1. ;;=^5009971
  1. ;;^UTILITY(U,$J,358.3,21713,0)
  1. ;;=M05.512^^70^922^82
  1. ;;^UTILITY(U,$J,358.3,21713,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21713,1,3,0)
  1. ;;=3^Rheum Polyneuropathy w/ Rheum Arth Left Shoulder
  1. ;;^UTILITY(U,$J,358.3,21713,1,4,0)
  1. ;;=4^M05.512
  1. ;;^UTILITY(U,$J,358.3,21713,2)
  1. ;;=^5009956
  1. ;;^UTILITY(U,$J,358.3,21714,0)
  1. ;;=M05.532^^70^922^83
  1. ;;^UTILITY(U,$J,358.3,21714,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21714,1,3,0)
  1. ;;=3^Rheum Polyneuropathy w/ Rheum Arth Left Wrist
  1. ;;^UTILITY(U,$J,358.3,21714,1,4,0)
  1. ;;=4^M05.532
  1. ;;^UTILITY(U,$J,358.3,21714,2)
  1. ;;=^5009962
  1. ;;^UTILITY(U,$J,358.3,21715,0)
  1. ;;=M05.59^^70^922^84
  1. ;;^UTILITY(U,$J,358.3,21715,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21715,1,3,0)
  1. ;;=3^Rheum Polyneuropathy w/ Rheum Arth Mult Sites
  1. ;;^UTILITY(U,$J,358.3,21715,1,4,0)
  1. ;;=4^M05.59
  1. ;;^UTILITY(U,$J,358.3,21715,2)
  1. ;;=^5009976
  1. ;;^UTILITY(U,$J,358.3,21716,0)
  1. ;;=M05.571^^70^922^85
  1. ;;^UTILITY(U,$J,358.3,21716,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21716,1,3,0)
  1. ;;=3^Rheum Polyneuropathy w/ Rheum Arth Right Ankle/Foot
  1. ;;^UTILITY(U,$J,358.3,21716,1,4,0)
  1. ;;=4^M05.571
  1. ;;^UTILITY(U,$J,358.3,21716,2)
  1. ;;=^5009973
  1. ;;^UTILITY(U,$J,358.3,21717,0)
  1. ;;=M05.521^^70^922^86
  1. ;;^UTILITY(U,$J,358.3,21717,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21717,1,3,0)
  1. ;;=3^Rheum Polyneuropathy w/ Rheum Arth Right Elbow
  1. ;;^UTILITY(U,$J,358.3,21717,1,4,0)
  1. ;;=4^M05.521
  1. ;;^UTILITY(U,$J,358.3,21717,2)
  1. ;;=^5009958
  1. ;;^UTILITY(U,$J,358.3,21718,0)
  1. ;;=M05.541^^70^922^87
  1. ;;^UTILITY(U,$J,358.3,21718,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21718,1,3,0)
  1. ;;=3^Rheum Polyneuropathy w/ Rheum Arth Right Hand
  1. ;;^UTILITY(U,$J,358.3,21718,1,4,0)
  1. ;;=4^M05.541
  1. ;;^UTILITY(U,$J,358.3,21718,2)
  1. ;;=^5009964
  1. ;;^UTILITY(U,$J,358.3,21719,0)
  1. ;;=M05.551^^70^922^88
  1. ;;^UTILITY(U,$J,358.3,21719,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,21719,1,3,0)
  1. ;;=3^Rheum Polyneuropathy w/ Rheum Arth Right Hip
  1. ;;^UTILITY(U,$J,358.3,21719,1,4,0)
  1. ;;=4^M05.551
  1. ;;^UTILITY(U,$J,358.3,21719,2)
  1. ;;=^5009967
  1. ;;^UTILITY(U,$J,358.3,21720,0)
  1. ;;=M05.561^^70^922^89
  1. ;;^UTILITY(U,$J,358.3,21720,1,0)
  1. ;;=^358.31IA^4^2