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