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

IBDEI0I0.m

Go to the documentation of this file.
IBDEI0I0 ; ; 01-FEB-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
 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,8102,1,4,0)
 ;;=4^L97.316
 ;;^UTILITY(U,$J,358.3,8102,2)
 ;;=^5151452
 ;;^UTILITY(U,$J,358.3,8103,0)
 ;;=L97.315^^39^391^228
 ;;^UTILITY(U,$J,358.3,8103,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8103,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Ankle w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,8103,1,4,0)
 ;;=4^L97.315
 ;;^UTILITY(U,$J,358.3,8103,2)
 ;;=^5151451
 ;;^UTILITY(U,$J,358.3,8104,0)
 ;;=L97.318^^39^391^229
 ;;^UTILITY(U,$J,358.3,8104,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8104,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Ankle w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,8104,1,4,0)
 ;;=4^L97.318
 ;;^UTILITY(U,$J,358.3,8104,2)
 ;;=^5151453
 ;;^UTILITY(U,$J,358.3,8105,0)
 ;;=L97.216^^39^391^235
 ;;^UTILITY(U,$J,358.3,8105,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8105,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Calf w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,8105,1,4,0)
 ;;=4^L97.216
 ;;^UTILITY(U,$J,358.3,8105,2)
 ;;=^5151443
 ;;^UTILITY(U,$J,358.3,8106,0)
 ;;=L97.215^^39^391^236
 ;;^UTILITY(U,$J,358.3,8106,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8106,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Calf w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,8106,1,4,0)
 ;;=4^L97.215
 ;;^UTILITY(U,$J,358.3,8106,2)
 ;;=^5151442
 ;;^UTILITY(U,$J,358.3,8107,0)
 ;;=L97.218^^39^391^237
 ;;^UTILITY(U,$J,358.3,8107,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8107,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Calf w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,8107,1,4,0)
 ;;=4^L97.218
 ;;^UTILITY(U,$J,358.3,8107,2)
 ;;=^5151444
 ;;^UTILITY(U,$J,358.3,8108,0)
 ;;=L97.516^^39^391^243
 ;;^UTILITY(U,$J,358.3,8108,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8108,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,8108,1,4,0)
 ;;=4^L97.516
 ;;^UTILITY(U,$J,358.3,8108,2)
 ;;=^5151470
 ;;^UTILITY(U,$J,358.3,8109,0)
 ;;=L97.515^^39^391^244
 ;;^UTILITY(U,$J,358.3,8109,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8109,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,8109,1,4,0)
 ;;=4^L97.515
 ;;^UTILITY(U,$J,358.3,8109,2)
 ;;=^5151469
 ;;^UTILITY(U,$J,358.3,8110,0)
 ;;=L97.518^^39^391^245
 ;;^UTILITY(U,$J,358.3,8110,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8110,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,8110,1,4,0)
 ;;=4^L97.518
 ;;^UTILITY(U,$J,358.3,8110,2)
 ;;=^5151471
 ;;^UTILITY(U,$J,358.3,8111,0)
 ;;=L97.416^^39^391^251
 ;;^UTILITY(U,$J,358.3,8111,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8111,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Heel/Midft w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,8111,1,4,0)
 ;;=4^L97.416
 ;;^UTILITY(U,$J,358.3,8111,2)
 ;;=^5151461
 ;;^UTILITY(U,$J,358.3,8112,0)
 ;;=L97.415^^39^391^252
 ;;^UTILITY(U,$J,358.3,8112,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8112,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Heel/Midft w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,8112,1,4,0)
 ;;=4^L97.415
 ;;^UTILITY(U,$J,358.3,8112,2)
 ;;=^5151460
 ;;^UTILITY(U,$J,358.3,8113,0)
 ;;=L97.418^^39^391^253
 ;;^UTILITY(U,$J,358.3,8113,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8113,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Hell/Midft w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,8113,1,4,0)
 ;;=4^L97.418
 ;;^UTILITY(U,$J,358.3,8113,2)
 ;;=^5151462