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

IBDEI3EG.m

Go to the documentation of this file.
IBDEI3EG ; ; 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,57162,1,3,0)
 ;;=3^Chr Intestine Vascular Disorders
 ;;^UTILITY(U,$J,358.3,57162,1,4,0)
 ;;=4^K55.1
 ;;^UTILITY(U,$J,358.3,57162,2)
 ;;=^5008706
 ;;^UTILITY(U,$J,358.3,57163,0)
 ;;=N18.9^^264^2849^70
 ;;^UTILITY(U,$J,358.3,57163,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57163,1,3,0)
 ;;=3^Chr Kidney Disease,Unspec
 ;;^UTILITY(U,$J,358.3,57163,1,4,0)
 ;;=4^N18.9
 ;;^UTILITY(U,$J,358.3,57163,2)
 ;;=^332812
 ;;^UTILITY(U,$J,358.3,57164,0)
 ;;=N28.0^^264^2849^102
 ;;^UTILITY(U,$J,358.3,57164,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57164,1,3,0)
 ;;=3^Kidney Ischemia & Infarction
 ;;^UTILITY(U,$J,358.3,57164,1,4,0)
 ;;=4^N28.0
 ;;^UTILITY(U,$J,358.3,57164,2)
 ;;=^5015626
 ;;^UTILITY(U,$J,358.3,57165,0)
 ;;=L03.114^^264^2849^61
 ;;^UTILITY(U,$J,358.3,57165,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57165,1,3,0)
 ;;=3^Cellulitis Lt Upper Limb
 ;;^UTILITY(U,$J,358.3,57165,1,4,0)
 ;;=4^L03.114
 ;;^UTILITY(U,$J,358.3,57165,2)
 ;;=^5009034
 ;;^UTILITY(U,$J,358.3,57166,0)
 ;;=L03.113^^264^2849^63
 ;;^UTILITY(U,$J,358.3,57166,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57166,1,3,0)
 ;;=3^Cellulitis Rt Upper Limb
 ;;^UTILITY(U,$J,358.3,57166,1,4,0)
 ;;=4^L03.113
 ;;^UTILITY(U,$J,358.3,57166,2)
 ;;=^5009033
 ;;^UTILITY(U,$J,358.3,57167,0)
 ;;=L03.115^^264^2849^62
 ;;^UTILITY(U,$J,358.3,57167,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57167,1,3,0)
 ;;=3^Cellulitis Rt Lower Limb
 ;;^UTILITY(U,$J,358.3,57167,1,4,0)
 ;;=4^L03.115
 ;;^UTILITY(U,$J,358.3,57167,2)
 ;;=^5009035
 ;;^UTILITY(U,$J,358.3,57168,0)
 ;;=L03.116^^264^2849^60
 ;;^UTILITY(U,$J,358.3,57168,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57168,1,3,0)
 ;;=3^Cellulitis Lt Lower Limb
 ;;^UTILITY(U,$J,358.3,57168,1,4,0)
 ;;=4^L03.116
 ;;^UTILITY(U,$J,358.3,57168,2)
 ;;=^5133645
 ;;^UTILITY(U,$J,358.3,57169,0)
 ;;=L97.119^^264^2849^121
 ;;^UTILITY(U,$J,358.3,57169,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57169,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Thigh
 ;;^UTILITY(U,$J,358.3,57169,1,4,0)
 ;;=4^L97.119
 ;;^UTILITY(U,$J,358.3,57169,2)
 ;;=^5009489
 ;;^UTILITY(U,$J,358.3,57170,0)
 ;;=L97.129^^264^2849^117
 ;;^UTILITY(U,$J,358.3,57170,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57170,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Lt Thigh
 ;;^UTILITY(U,$J,358.3,57170,1,4,0)
 ;;=4^L97.129
 ;;^UTILITY(U,$J,358.3,57170,2)
 ;;=^5009494
 ;;^UTILITY(U,$J,358.3,57171,0)
 ;;=L97.219^^264^2849^118
 ;;^UTILITY(U,$J,358.3,57171,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57171,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Calf
 ;;^UTILITY(U,$J,358.3,57171,1,4,0)
 ;;=4^L97.219
 ;;^UTILITY(U,$J,358.3,57171,2)
 ;;=^5009504
 ;;^UTILITY(U,$J,358.3,57172,0)
 ;;=L97.229^^264^2849^114
 ;;^UTILITY(U,$J,358.3,57172,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57172,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Lt Calf
 ;;^UTILITY(U,$J,358.3,57172,1,4,0)
 ;;=4^L97.229
 ;;^UTILITY(U,$J,358.3,57172,2)
 ;;=^5009509
 ;;^UTILITY(U,$J,358.3,57173,0)
 ;;=L97.419^^264^2849^119
 ;;^UTILITY(U,$J,358.3,57173,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57173,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Heel/Midfoot
 ;;^UTILITY(U,$J,358.3,57173,1,4,0)
 ;;=4^L97.419
 ;;^UTILITY(U,$J,358.3,57173,2)
 ;;=^5009534
 ;;^UTILITY(U,$J,358.3,57174,0)
 ;;=L97.429^^264^2849^115
 ;;^UTILITY(U,$J,358.3,57174,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57174,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Lt Heel/Midfoot
 ;;^UTILITY(U,$J,358.3,57174,1,4,0)
 ;;=4^L97.429
 ;;^UTILITY(U,$J,358.3,57174,2)
 ;;=^5009539
 ;;^UTILITY(U,$J,358.3,57175,0)
 ;;=L97.519^^264^2849^120
 ;;^UTILITY(U,$J,358.3,57175,1,0)
 ;;=^358.31IA^4^2