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

IBDEI1HB.m

Go to the documentation of this file.
  1. IBDEI1HB ; ; 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,23925,2)
  1. ;;=^5138741
  1. ;;^UTILITY(U,$J,358.3,23926,0)
  1. ;;=M10.9^^82^1037^3
  1. ;;^UTILITY(U,$J,358.3,23926,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23926,1,3,0)
  1. ;;=3^Gout,Unspec
  1. ;;^UTILITY(U,$J,358.3,23926,1,4,0)
  1. ;;=4^M10.9
  1. ;;^UTILITY(U,$J,358.3,23926,2)
  1. ;;=^5010404
  1. ;;^UTILITY(U,$J,358.3,23927,0)
  1. ;;=M06.9^^82^1037^24
  1. ;;^UTILITY(U,$J,358.3,23927,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23927,1,3,0)
  1. ;;=3^Rheumatoid Arthritis,Unspec
  1. ;;^UTILITY(U,$J,358.3,23927,1,4,0)
  1. ;;=4^M06.9
  1. ;;^UTILITY(U,$J,358.3,23927,2)
  1. ;;=^5010145
  1. ;;^UTILITY(U,$J,358.3,23928,0)
  1. ;;=M19.90^^82^1037^5
  1. ;;^UTILITY(U,$J,358.3,23928,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23928,1,3,0)
  1. ;;=3^Osteoarthritis,Unspec,Unspec Site
  1. ;;^UTILITY(U,$J,358.3,23928,1,4,0)
  1. ;;=4^M19.90
  1. ;;^UTILITY(U,$J,358.3,23928,2)
  1. ;;=^5010853
  1. ;;^UTILITY(U,$J,358.3,23929,0)
  1. ;;=M71.50^^82^1037^2
  1. ;;^UTILITY(U,$J,358.3,23929,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23929,1,3,0)
  1. ;;=3^Bursitis NEC,Unspec Site
  1. ;;^UTILITY(U,$J,358.3,23929,1,4,0)
  1. ;;=4^M71.50
  1. ;;^UTILITY(U,$J,358.3,23929,2)
  1. ;;=^5013190
  1. ;;^UTILITY(U,$J,358.3,23930,0)
  1. ;;=M81.0^^82^1037^23
  1. ;;^UTILITY(U,$J,358.3,23930,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23930,1,3,0)
  1. ;;=3^Osteoporosis,Age-Related
  1. ;;^UTILITY(U,$J,358.3,23930,1,4,0)
  1. ;;=4^M81.0
  1. ;;^UTILITY(U,$J,358.3,23930,2)
  1. ;;=^5013555
  1. ;;^UTILITY(U,$J,358.3,23931,0)
  1. ;;=M85.80^^82^1037^22
  1. ;;^UTILITY(U,$J,358.3,23931,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23931,1,3,0)
  1. ;;=3^Osteopenia,Unspec Site
  1. ;;^UTILITY(U,$J,358.3,23931,1,4,0)
  1. ;;=4^M85.80
  1. ;;^UTILITY(U,$J,358.3,23931,2)
  1. ;;=^5014473
  1. ;;^UTILITY(U,$J,358.3,23932,0)
  1. ;;=M85.811^^82^1037^19
  1. ;;^UTILITY(U,$J,358.3,23932,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23932,1,3,0)
  1. ;;=3^Osteopenia,Right Shoulder
  1. ;;^UTILITY(U,$J,358.3,23932,1,4,0)
  1. ;;=4^M85.811
  1. ;;^UTILITY(U,$J,358.3,23932,2)
  1. ;;=^5014474
  1. ;;^UTILITY(U,$J,358.3,23933,0)
  1. ;;=M85.812^^82^1037^10
  1. ;;^UTILITY(U,$J,358.3,23933,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23933,1,3,0)
  1. ;;=3^Osteopenia,Left Shoulder
  1. ;;^UTILITY(U,$J,358.3,23933,1,4,0)
  1. ;;=4^M85.812
  1. ;;^UTILITY(U,$J,358.3,23933,2)
  1. ;;=^5014475
  1. ;;^UTILITY(U,$J,358.3,23934,0)
  1. ;;=M85.821^^82^1037^21
  1. ;;^UTILITY(U,$J,358.3,23934,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23934,1,3,0)
  1. ;;=3^Osteopenia,Right Upper Arm
  1. ;;^UTILITY(U,$J,358.3,23934,1,4,0)
  1. ;;=4^M85.821
  1. ;;^UTILITY(U,$J,358.3,23934,2)
  1. ;;=^5014477
  1. ;;^UTILITY(U,$J,358.3,23935,0)
  1. ;;=M85.822^^82^1037^12
  1. ;;^UTILITY(U,$J,358.3,23935,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23935,1,3,0)
  1. ;;=3^Osteopenia,Left Upper Arm
  1. ;;^UTILITY(U,$J,358.3,23935,1,4,0)
  1. ;;=4^M85.822
  1. ;;^UTILITY(U,$J,358.3,23935,2)
  1. ;;=^5014478
  1. ;;^UTILITY(U,$J,358.3,23936,0)
  1. ;;=M85.831^^82^1037^16
  1. ;;^UTILITY(U,$J,358.3,23936,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23936,1,3,0)
  1. ;;=3^Osteopenia,Right Forearm
  1. ;;^UTILITY(U,$J,358.3,23936,1,4,0)
  1. ;;=4^M85.831
  1. ;;^UTILITY(U,$J,358.3,23936,2)
  1. ;;=^5014480
  1. ;;^UTILITY(U,$J,358.3,23937,0)
  1. ;;=M85.832^^82^1037^7
  1. ;;^UTILITY(U,$J,358.3,23937,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23937,1,3,0)
  1. ;;=3^Osteopenia,Left Forearm
  1. ;;^UTILITY(U,$J,358.3,23937,1,4,0)
  1. ;;=4^M85.832
  1. ;;^UTILITY(U,$J,358.3,23937,2)
  1. ;;=^5014481
  1. ;;^UTILITY(U,$J,358.3,23938,0)
  1. ;;=M85.841^^82^1037^17
  1. ;;^UTILITY(U,$J,358.3,23938,1,0)
  1. ;;=^358.31IA^4^2