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

IBDEI3EC.m

Go to the documentation of this file.
IBDEI3EC ; ; 19-NOV-2015
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
 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,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
Q Q
 ;;^UTILITY(U,$J,358.3,57111,1,4,0)
 ;;=4^I82.4Y1
 ;;^UTILITY(U,$J,358.3,57111,2)
 ;;=^5007877
 ;;^UTILITY(U,$J,358.3,57112,0)
 ;;=I82.4Y2^^264^2849^16
 ;;^UTILITY(U,$J,358.3,57112,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57112,1,3,0)
 ;;=3^AC Embol & Thromb Lt Prox LE Deep Veins
 ;;^UTILITY(U,$J,358.3,57112,1,4,0)
 ;;=4^I82.4Y2
 ;;^UTILITY(U,$J,358.3,57112,2)
 ;;=^5007878
 ;;^UTILITY(U,$J,358.3,57113,0)
 ;;=I82.4Y3^^264^2849^6
 ;;^UTILITY(U,$J,358.3,57113,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57113,1,3,0)
 ;;=3^AC Embol & Thromb Bil Prox LE Deep Veins
 ;;^UTILITY(U,$J,358.3,57113,1,4,0)
 ;;=4^I82.4Y3
 ;;^UTILITY(U,$J,358.3,57113,2)
 ;;=^5007879
 ;;^UTILITY(U,$J,358.3,57114,0)
 ;;=I82.611^^264^2849^29
 ;;^UTILITY(U,$J,358.3,57114,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57114,1,3,0)
 ;;=3^AC Embol & Thromb Rt UE Superfic Veins
 ;;^UTILITY(U,$J,358.3,57114,1,4,0)
 ;;=4^I82.611
 ;;^UTILITY(U,$J,358.3,57114,2)
 ;;=^5007915
 ;;^UTILITY(U,$J,358.3,57115,0)
 ;;=I82.612^^264^2849^19
 ;;^UTILITY(U,$J,358.3,57115,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57115,1,3,0)
 ;;=3^AC Embol & Thromb Lt UE Superfic Veins
 ;;^UTILITY(U,$J,358.3,57115,1,4,0)
 ;;=4^I82.612
 ;;^UTILITY(U,$J,358.3,57115,2)
 ;;=^5007916
 ;;^UTILITY(U,$J,358.3,57116,0)
 ;;=I82.613^^264^2849^9
 ;;^UTILITY(U,$J,358.3,57116,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57116,1,3,0)
 ;;=3^AC Embol & Thromb Bil UE Superfic Vein
 ;;^UTILITY(U,$J,358.3,57116,1,4,0)
 ;;=4^I82.613
 ;;^UTILITY(U,$J,358.3,57116,2)
 ;;=^5007917
 ;;^UTILITY(U,$J,358.3,57117,0)
 ;;=I82.621^^264^2849^28
 ;;^UTILITY(U,$J,358.3,57117,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57117,1,3,0)
 ;;=3^AC Embol & Thromb Rt UE Deep Veins
 ;;^UTILITY(U,$J,358.3,57117,1,4,0)
 ;;=4^I82.621
 ;;^UTILITY(U,$J,358.3,57117,2)
 ;;=^5007919
 ;;^UTILITY(U,$J,358.3,57118,0)
 ;;=I82.622^^264^2849^18
 ;;^UTILITY(U,$J,358.3,57118,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57118,1,3,0)
 ;;=3^AC Embol & Thromb Lt UE Deep Veins
 ;;^UTILITY(U,$J,358.3,57118,1,4,0)
 ;;=4^I82.622
 ;;^UTILITY(U,$J,358.3,57118,2)
 ;;=^5007920
 ;;^UTILITY(U,$J,358.3,57119,0)
 ;;=I82.623^^264^2849^8
 ;;^UTILITY(U,$J,358.3,57119,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57119,1,3,0)
 ;;=3^AC Embol & Thromb Bil UE Deep Veins
 ;;^UTILITY(U,$J,358.3,57119,1,4,0)
 ;;=4^I82.623
 ;;^UTILITY(U,$J,358.3,57119,2)
 ;;=^5007921
 ;;^UTILITY(U,$J,358.3,57120,0)
 ;;=I82.601^^264^2849^30
 ;;^UTILITY(U,$J,358.3,57120,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57120,1,3,0)
 ;;=3^AC Embol & Thromb Rt UE Veins,Unspec
 ;;^UTILITY(U,$J,358.3,57120,1,4,0)
 ;;=4^I82.601
 ;;^UTILITY(U,$J,358.3,57120,2)
 ;;=^5007912
 ;;^UTILITY(U,$J,358.3,57121,0)
 ;;=I82.602^^264^2849^20
 ;;^UTILITY(U,$J,358.3,57121,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57121,1,3,0)
 ;;=3^AC Embol & Thromb Lt UE Veins,Unspec
 ;;^UTILITY(U,$J,358.3,57121,1,4,0)
 ;;=4^I82.602
 ;;^UTILITY(U,$J,358.3,57121,2)
 ;;=^5007913
 ;;^UTILITY(U,$J,358.3,57122,0)
 ;;=I82.603^^264^2849^10
 ;;^UTILITY(U,$J,358.3,57122,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57122,1,3,0)
 ;;=3^AC Embol & Thromb Bil UE Veins,Unspec
 ;;^UTILITY(U,$J,358.3,57122,1,4,0)
 ;;=4^I82.603
 ;;^UTILITY(U,$J,358.3,57122,2)
 ;;=^5007914
 ;;^UTILITY(U,$J,358.3,57123,0)
 ;;=I82.A11^^264^2849^21
 ;;^UTILITY(U,$J,358.3,57123,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57123,1,3,0)
 ;;=3^AC Embol & Thromb Rt Ax Vein
 ;;^UTILITY(U,$J,358.3,57123,1,4,0)
 ;;=4^I82.A11
 ;;^UTILITY(U,$J,358.3,57123,2)
 ;;=^5007942
 ;;^UTILITY(U,$J,358.3,57124,0)
 ;;=I82.A12^^264^2849^11
 ;;^UTILITY(U,$J,358.3,57124,1,0)
 ;;=^358.31IA^4^2