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

IBDEI2GB.m

Go to the documentation of this file.
IBDEI2GB ; ; 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,39148,1,4,0)
 ;;=4^L97.325
 ;;^UTILITY(U,$J,358.3,39148,2)
 ;;=^5151454
 ;;^UTILITY(U,$J,358.3,39149,0)
 ;;=L97.328^^152^1990^184
 ;;^UTILITY(U,$J,358.3,39149,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,39149,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Ankle w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,39149,1,4,0)
 ;;=4^L97.328
 ;;^UTILITY(U,$J,358.3,39149,2)
 ;;=^5151456
 ;;^UTILITY(U,$J,358.3,39150,0)
 ;;=L97.226^^152^1990^190
 ;;^UTILITY(U,$J,358.3,39150,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,39150,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Calf w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,39150,1,4,0)
 ;;=4^L97.226
 ;;^UTILITY(U,$J,358.3,39150,2)
 ;;=^5151446
 ;;^UTILITY(U,$J,358.3,39151,0)
 ;;=L97.225^^152^1990^191
 ;;^UTILITY(U,$J,358.3,39151,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,39151,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Calf w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,39151,1,4,0)
 ;;=4^L97.225
 ;;^UTILITY(U,$J,358.3,39151,2)
 ;;=^5151445
 ;;^UTILITY(U,$J,358.3,39152,0)
 ;;=L97.228^^152^1990^192
 ;;^UTILITY(U,$J,358.3,39152,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,39152,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Calf w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,39152,1,4,0)
 ;;=4^L97.228
 ;;^UTILITY(U,$J,358.3,39152,2)
 ;;=^5151447
 ;;^UTILITY(U,$J,358.3,39153,0)
 ;;=L97.526^^152^1990^198
 ;;^UTILITY(U,$J,358.3,39153,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,39153,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Foot w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,39153,1,4,0)
 ;;=4^L97.526
 ;;^UTILITY(U,$J,358.3,39153,2)
 ;;=^5151473
 ;;^UTILITY(U,$J,358.3,39154,0)
 ;;=L97.525^^152^1990^199
 ;;^UTILITY(U,$J,358.3,39154,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,39154,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Foot w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,39154,1,4,0)
 ;;=4^L97.525
 ;;^UTILITY(U,$J,358.3,39154,2)
 ;;=^5151472
 ;;^UTILITY(U,$J,358.3,39155,0)
 ;;=L97.528^^152^1990^200
 ;;^UTILITY(U,$J,358.3,39155,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,39155,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Foot w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,39155,1,4,0)
 ;;=4^L97.528
 ;;^UTILITY(U,$J,358.3,39155,2)
 ;;=^5151474
 ;;^UTILITY(U,$J,358.3,39156,0)
 ;;=L97.426^^152^1990^206
 ;;^UTILITY(U,$J,358.3,39156,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,39156,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Heel/Midft w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,39156,1,4,0)
 ;;=4^L97.426
 ;;^UTILITY(U,$J,358.3,39156,2)
 ;;=^5151464
 ;;^UTILITY(U,$J,358.3,39157,0)
 ;;=L97.925^^152^1990^212
 ;;^UTILITY(U,$J,358.3,39157,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,39157,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Lower Leg w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,39157,1,4,0)
 ;;=4^L97.925
 ;;^UTILITY(U,$J,358.3,39157,2)
 ;;=^5151490
 ;;^UTILITY(U,$J,358.3,39158,0)
 ;;=L97.928^^152^1990^213
 ;;^UTILITY(U,$J,358.3,39158,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,39158,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Lower Leg w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,39158,1,4,0)
 ;;=4^L97.928
 ;;^UTILITY(U,$J,358.3,39158,2)
 ;;=^5151492
 ;;^UTILITY(U,$J,358.3,39159,0)
 ;;=L97.126^^152^1990^219
 ;;^UTILITY(U,$J,358.3,39159,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,39159,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Thigh w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,39159,1,4,0)
 ;;=4^L97.126