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

IBDEI2DG.m

Go to the documentation of this file.
IBDEI2DG ; ; 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,37855,0)
 ;;=M10.271^^146^1918^12
 ;;^UTILITY(U,$J,358.3,37855,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37855,1,3,0)
 ;;=3^Gout,Drug-Induced Rt Ankle/Foot
 ;;^UTILITY(U,$J,358.3,37855,1,4,0)
 ;;=4^M10.271
 ;;^UTILITY(U,$J,358.3,37855,2)
 ;;=^5010351
 ;;^UTILITY(U,$J,358.3,37856,0)
 ;;=M10.29^^146^1918^11
 ;;^UTILITY(U,$J,358.3,37856,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37856,1,3,0)
 ;;=3^Gout,Drug-Induced Multiple Sites
 ;;^UTILITY(U,$J,358.3,37856,1,4,0)
 ;;=4^M10.29
 ;;^UTILITY(U,$J,358.3,37856,2)
 ;;=^5010355
 ;;^UTILITY(U,$J,358.3,37857,0)
 ;;=M10.172^^146^1918^15
 ;;^UTILITY(U,$J,358.3,37857,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37857,1,3,0)
 ;;=3^Gout,Lead-Induced Lt Ankle/Foot
 ;;^UTILITY(U,$J,358.3,37857,1,4,0)
 ;;=4^M10.172
 ;;^UTILITY(U,$J,358.3,37857,2)
 ;;=^5010328
 ;;^UTILITY(U,$J,358.3,37858,0)
 ;;=M10.171^^146^1918^16
 ;;^UTILITY(U,$J,358.3,37858,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37858,1,3,0)
 ;;=3^Gout,Lead-Induced Rt Ankle/Foot
 ;;^UTILITY(U,$J,358.3,37858,1,4,0)
 ;;=4^M10.171
 ;;^UTILITY(U,$J,358.3,37858,2)
 ;;=^5010327
 ;;^UTILITY(U,$J,358.3,37859,0)
 ;;=L92.3^^146^1918^17
 ;;^UTILITY(U,$J,358.3,37859,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37859,1,3,0)
 ;;=3^Granuloma,FB of Skin/Subcutaneous Tissue
 ;;^UTILITY(U,$J,358.3,37859,1,4,0)
 ;;=4^L92.3
 ;;^UTILITY(U,$J,358.3,37859,2)
 ;;=^5009464
 ;;^UTILITY(U,$J,358.3,37860,0)
 ;;=M10.9^^146^1918^9
 ;;^UTILITY(U,$J,358.3,37860,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37860,1,3,0)
 ;;=3^Gout, unspecified
 ;;^UTILITY(U,$J,358.3,37860,1,4,0)
 ;;=4^M10.9
 ;;^UTILITY(U,$J,358.3,37860,2)
 ;;=^5010404
 ;;^UTILITY(U,$J,358.3,37861,0)
 ;;=M67.471^^146^1918^6
 ;;^UTILITY(U,$J,358.3,37861,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37861,1,3,0)
 ;;=3^Ganglion, right ankle and foot
 ;;^UTILITY(U,$J,358.3,37861,1,4,0)
 ;;=4^M67.471
 ;;^UTILITY(U,$J,358.3,37861,2)
 ;;=^5012975
 ;;^UTILITY(U,$J,358.3,37862,0)
 ;;=M67.472^^146^1918^4
 ;;^UTILITY(U,$J,358.3,37862,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37862,1,3,0)
 ;;=3^Ganglion, left ankle and foot
 ;;^UTILITY(U,$J,358.3,37862,1,4,0)
 ;;=4^M67.472
 ;;^UTILITY(U,$J,358.3,37862,2)
 ;;=^5012976
 ;;^UTILITY(U,$J,358.3,37863,0)
 ;;=R26.9^^146^1918^3
 ;;^UTILITY(U,$J,358.3,37863,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37863,1,3,0)
 ;;=3^Gait/Mobility Abnormalities,Unspec
 ;;^UTILITY(U,$J,358.3,37863,1,4,0)
 ;;=4^R26.9
 ;;^UTILITY(U,$J,358.3,37863,2)
 ;;=^5019309
 ;;^UTILITY(U,$J,358.3,37864,0)
 ;;=R26.1^^146^1918^2
 ;;^UTILITY(U,$J,358.3,37864,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37864,1,3,0)
 ;;=3^Gait,Paralytic
 ;;^UTILITY(U,$J,358.3,37864,1,4,0)
 ;;=4^R26.1
 ;;^UTILITY(U,$J,358.3,37864,2)
 ;;=^5019305
 ;;^UTILITY(U,$J,358.3,37865,0)
 ;;=R26.0^^146^1918^1
 ;;^UTILITY(U,$J,358.3,37865,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37865,1,3,0)
 ;;=3^Gait,Ataxic
 ;;^UTILITY(U,$J,358.3,37865,1,4,0)
 ;;=4^R26.0
 ;;^UTILITY(U,$J,358.3,37865,2)
 ;;=^5019304
 ;;^UTILITY(U,$J,358.3,37866,0)
 ;;=I96.^^146^1918^8
 ;;^UTILITY(U,$J,358.3,37866,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37866,1,3,0)
 ;;=3^Gangrene NEC
 ;;^UTILITY(U,$J,358.3,37866,1,4,0)
 ;;=4^I96.
 ;;^UTILITY(U,$J,358.3,37866,2)
 ;;=^5008081
 ;;^UTILITY(U,$J,358.3,37867,0)
 ;;=R20.1^^146^1919^11
 ;;^UTILITY(U,$J,358.3,37867,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37867,1,3,0)
 ;;=3^Hypoesthesia of skin