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

IBDEI22X.m

Go to the documentation of this file.
  1. IBDEI22X ; ; 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,33208,0)
  1. ;;=26990^^130^1689^20^^^^1
  1. ;;^UTILITY(U,$J,358.3,33208,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,33208,1,2,0)
  1. ;;=2^I&D PELVIS/HIP JT; DEEP ABSC
  1. ;;^UTILITY(U,$J,358.3,33208,1,3,0)
  1. ;;=3^26990
  1. ;;^UTILITY(U,$J,358.3,33209,0)
  1. ;;=26991^^130^1689^19^^^^1
  1. ;;^UTILITY(U,$J,358.3,33209,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,33209,1,2,0)
  1. ;;=2^I&D PELVIS/HIP JT AREA; INFE
  1. ;;^UTILITY(U,$J,358.3,33209,1,3,0)
  1. ;;=3^26991
  1. ;;^UTILITY(U,$J,358.3,33210,0)
  1. ;;=27301^^130^1689^23^^^^1
  1. ;;^UTILITY(U,$J,358.3,33210,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,33210,1,2,0)
  1. ;;=2^I&D THIGH/KNEE ABSCESS BURSA
  1. ;;^UTILITY(U,$J,358.3,33210,1,3,0)
  1. ;;=3^27301
  1. ;;^UTILITY(U,$J,358.3,33211,0)
  1. ;;=27603^^130^1689^18^^^^1
  1. ;;^UTILITY(U,$J,358.3,33211,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,33211,1,2,0)
  1. ;;=2^I&D LEG/ANK;DEEP ABSCESS
  1. ;;^UTILITY(U,$J,358.3,33211,1,3,0)
  1. ;;=3^27603
  1. ;;^UTILITY(U,$J,358.3,33212,0)
  1. ;;=27604^^130^1689^17^^^^1
  1. ;;^UTILITY(U,$J,358.3,33212,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,33212,1,2,0)
  1. ;;=2^I&D LEG/ANK; INFEC BURSA
  1. ;;^UTILITY(U,$J,358.3,33212,1,3,0)
  1. ;;=3^27604
  1. ;;^UTILITY(U,$J,358.3,33213,0)
  1. ;;=28001^^130^1689^14^^^^1
  1. ;;^UTILITY(U,$J,358.3,33213,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,33213,1,2,0)
  1. ;;=2^I&D FOOT, BURSA
  1. ;;^UTILITY(U,$J,358.3,33213,1,3,0)
  1. ;;=3^28001
  1. ;;^UTILITY(U,$J,358.3,33214,0)
  1. ;;=26011^^130^1689^10^^^^1
  1. ;;^UTILITY(U,$J,358.3,33214,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,33214,1,2,0)
  1. ;;=2^DRAINAGE FINGER ABSCESS,COMP
  1. ;;^UTILITY(U,$J,358.3,33214,1,3,0)
  1. ;;=3^26011
  1. ;;^UTILITY(U,$J,358.3,33215,0)
  1. ;;=64455^^130^1689^29^^^^1
  1. ;;^UTILITY(U,$J,358.3,33215,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,33215,1,2,0)
  1. ;;=2^N BLOCK INJ, PLANTAR DIGIT
  1. ;;^UTILITY(U,$J,358.3,33215,1,3,0)
  1. ;;=3^64455
  1. ;;^UTILITY(U,$J,358.3,33216,0)
  1. ;;=64632^^130^1689^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,33216,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,33216,1,2,0)
  1. ;;=2^DESTRUCTION,MORTON'S NEUROMA
  1. ;;^UTILITY(U,$J,358.3,33216,1,3,0)
  1. ;;=3^64632
  1. ;;^UTILITY(U,$J,358.3,33217,0)
  1. ;;=23031^^130^1689^22^^^^1
  1. ;;^UTILITY(U,$J,358.3,33217,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,33217,1,2,0)
  1. ;;=2^I&D SHOULDER;INFEC BURSA
  1. ;;^UTILITY(U,$J,358.3,33217,1,3,0)
  1. ;;=3^23031
  1. ;;^UTILITY(U,$J,358.3,33218,0)
  1. ;;=20526^^130^1689^28^^^^1
  1. ;;^UTILITY(U,$J,358.3,33218,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,33218,1,2,0)
  1. ;;=2^INJ,THERAPEUTIC,CARPAL TUNNEL
  1. ;;^UTILITY(U,$J,358.3,33218,1,3,0)
  1. ;;=3^20526
  1. ;;^UTILITY(U,$J,358.3,33219,0)
  1. ;;=20527^^130^1689^27^^^^1
  1. ;;^UTILITY(U,$J,358.3,33219,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,33219,1,2,0)
  1. ;;=2^INJ,ENZYME,PALMAR FASCIAL CORD
  1. ;;^UTILITY(U,$J,358.3,33219,1,3,0)
  1. ;;=3^20527
  1. ;;^UTILITY(U,$J,358.3,33220,0)
  1. ;;=20612^^130^1689^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,33220,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,33220,1,2,0)
  1. ;;=2^ASPIRATE/DRAIN GANGLION CYST
  1. ;;^UTILITY(U,$J,358.3,33220,1,3,0)
  1. ;;=3^20612
  1. ;;^UTILITY(U,$J,358.3,33221,0)
  1. ;;=64450^^130^1689^26^^^^1
  1. ;;^UTILITY(U,$J,358.3,33221,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,33221,1,2,0)
  1. ;;=2^INJ,ANES AGENT,PERIPHERAL NERVE
  1. ;;^UTILITY(U,$J,358.3,33221,1,3,0)
  1. ;;=3^64450
  1. ;;^UTILITY(U,$J,358.3,33222,0)
  1. ;;=20611^^130^1689^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,33222,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,33222,1,2,0)
  1. ;;=2^DRAIN/INJ LG JT W/ US GUIDANCE