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

IBDEI2UD.m

Go to the documentation of this file.
  1. IBDEI2UD ; ; 04-FEB-2020
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
  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,45328,1,3,0)
  1. ;;=3^Hereditary & idiopathic neuropathy, unspecified
  1. ;;^UTILITY(U,$J,358.3,45328,1,4,0)
  1. ;;=4^G60.9
  1. ;;^UTILITY(U,$J,358.3,45328,2)
  1. ;;=^5004071
  1. ;;^UTILITY(U,$J,358.3,45329,0)
  1. ;;=G62.9^^172^2264^13
  1. ;;^UTILITY(U,$J,358.3,45329,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45329,1,3,0)
  1. ;;=3^Polyneuropathy, unspecified
  1. ;;^UTILITY(U,$J,358.3,45329,1,4,0)
  1. ;;=4^G62.9
  1. ;;^UTILITY(U,$J,358.3,45329,2)
  1. ;;=^5004079
  1. ;;^UTILITY(U,$J,358.3,45330,0)
  1. ;;=G81.90^^172^2264^7
  1. ;;^UTILITY(U,$J,358.3,45330,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45330,1,3,0)
  1. ;;=3^Hemiplegia, unspecified
  1. ;;^UTILITY(U,$J,358.3,45330,1,4,0)
  1. ;;=4^G81.90
  1. ;;^UTILITY(U,$J,358.3,45330,2)
  1. ;;=^5004120
  1. ;;^UTILITY(U,$J,358.3,45331,0)
  1. ;;=G81.91^^172^2264^6
  1. ;;^UTILITY(U,$J,358.3,45331,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45331,1,3,0)
  1. ;;=3^Hemiplegia, affecting right dominant side
  1. ;;^UTILITY(U,$J,358.3,45331,1,4,0)
  1. ;;=4^G81.91
  1. ;;^UTILITY(U,$J,358.3,45331,2)
  1. ;;=^5004121
  1. ;;^UTILITY(U,$J,358.3,45332,0)
  1. ;;=G81.92^^172^2264^5
  1. ;;^UTILITY(U,$J,358.3,45332,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45332,1,3,0)
  1. ;;=3^Hemiplegia, affecting left dominant side
  1. ;;^UTILITY(U,$J,358.3,45332,1,4,0)
  1. ;;=4^G81.92
  1. ;;^UTILITY(U,$J,358.3,45332,2)
  1. ;;=^5004122
  1. ;;^UTILITY(U,$J,358.3,45333,0)
  1. ;;=K21.9^^172^2265^14
  1. ;;^UTILITY(U,$J,358.3,45333,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45333,1,3,0)
  1. ;;=3^GERD w/o Esophagitis
  1. ;;^UTILITY(U,$J,358.3,45333,1,4,0)
  1. ;;=4^K21.9
  1. ;;^UTILITY(U,$J,358.3,45333,2)
  1. ;;=^5008505
  1. ;;^UTILITY(U,$J,358.3,45334,0)
  1. ;;=K29.70^^172^2265^18
  1. ;;^UTILITY(U,$J,358.3,45334,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45334,1,3,0)
  1. ;;=3^Gastritis w/o Bleeding,Unspec
  1. ;;^UTILITY(U,$J,358.3,45334,1,4,0)
  1. ;;=4^K29.70
  1. ;;^UTILITY(U,$J,358.3,45334,2)
  1. ;;=^5008552
  1. ;;^UTILITY(U,$J,358.3,45335,0)
  1. ;;=K52.9^^172^2265^19
  1. ;;^UTILITY(U,$J,358.3,45335,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45335,1,3,0)
  1. ;;=3^Gastroenteritis & Colitis Noninfective,Unspec
  1. ;;^UTILITY(U,$J,358.3,45335,1,4,0)
  1. ;;=4^K52.9
  1. ;;^UTILITY(U,$J,358.3,45335,2)
  1. ;;=^5008704
  1. ;;^UTILITY(U,$J,358.3,45336,0)
  1. ;;=K82.9^^172^2265^16
  1. ;;^UTILITY(U,$J,358.3,45336,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45336,1,3,0)
  1. ;;=3^Gallbladder Disease,Unspec
  1. ;;^UTILITY(U,$J,358.3,45336,1,4,0)
  1. ;;=4^K82.9
  1. ;;^UTILITY(U,$J,358.3,45336,2)
  1. ;;=^5008875
  1. ;;^UTILITY(U,$J,358.3,45337,0)
  1. ;;=K92.2^^172^2265^20
  1. ;;^UTILITY(U,$J,358.3,45337,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45337,1,3,0)
  1. ;;=3^Gastrointestinal Hemorrhage,Unspec
  1. ;;^UTILITY(U,$J,358.3,45337,1,4,0)
  1. ;;=4^K92.2
  1. ;;^UTILITY(U,$J,358.3,45337,2)
  1. ;;=^5008915
  1. ;;^UTILITY(U,$J,358.3,45338,0)
  1. ;;=K25.9^^172^2265^17
  1. ;;^UTILITY(U,$J,358.3,45338,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45338,1,3,0)
  1. ;;=3^Gastric Ulcer w/o Hemorrhage/Perforation
  1. ;;^UTILITY(U,$J,358.3,45338,1,4,0)
  1. ;;=4^K25.9
  1. ;;^UTILITY(U,$J,358.3,45338,2)
  1. ;;=^5008522
  1. ;;^UTILITY(U,$J,358.3,45339,0)
  1. ;;=K20.9^^172^2265^10
  1. ;;^UTILITY(U,$J,358.3,45339,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45339,1,3,0)
  1. ;;=3^Esophagitis, unspecified
  1. ;;^UTILITY(U,$J,358.3,45339,1,4,0)
  1. ;;=4^K20.9
  1. ;;^UTILITY(U,$J,358.3,45339,2)
  1. ;;=^295809
  1. ;;^UTILITY(U,$J,358.3,45340,0)
  1. ;;=K22.10^^172^2265^12
  1. ;;^UTILITY(U,$J,358.3,45340,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,45340,1,3,0)
  1. ;;=3^Esophagus ulcer w/o bleeding