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