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

IBDEI0ZG.m

Go to the documentation of this file.
  1. IBDEI0ZG ; ; 01-FEB-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
  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,16000,2)
  1. ;;=^5009531
  1. ;;^UTILITY(U,$J,358.3,16001,0)
  1. ;;=L97.413^^61^765^248
  1. ;;^UTILITY(U,$J,358.3,16001,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16001,1,3,0)
  1. ;;=3^Non-Pressure Chr Ulcer of Right Heel/Midfoot w/ Necrosis of Muscle
  1. ;;^UTILITY(U,$J,358.3,16001,1,4,0)
  1. ;;=4^L97.413
  1. ;;^UTILITY(U,$J,358.3,16001,2)
  1. ;;=^5009532
  1. ;;^UTILITY(U,$J,358.3,16002,0)
  1. ;;=L97.414^^61^765^249
  1. ;;^UTILITY(U,$J,358.3,16002,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16002,1,3,0)
  1. ;;=3^Non-Pressure Chr Ulcer of Right Heel/Midfoot w/ Necrosis of Bone
  1. ;;^UTILITY(U,$J,358.3,16002,1,4,0)
  1. ;;=4^L97.414
  1. ;;^UTILITY(U,$J,358.3,16002,2)
  1. ;;=^5009533
  1. ;;^UTILITY(U,$J,358.3,16003,0)
  1. ;;=L97.419^^61^765^250
  1. ;;^UTILITY(U,$J,358.3,16003,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16003,1,3,0)
  1. ;;=3^Non-Pressure Chr Ulcer of Right Heel/Midfoot w/ Unspec Severity
  1. ;;^UTILITY(U,$J,358.3,16003,1,4,0)
  1. ;;=4^L97.419
  1. ;;^UTILITY(U,$J,358.3,16003,2)
  1. ;;=^5009534
  1. ;;^UTILITY(U,$J,358.3,16004,0)
  1. ;;=L97.421^^61^765^201
  1. ;;^UTILITY(U,$J,358.3,16004,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16004,1,3,0)
  1. ;;=3^Non-Pressure Chr Ulcer of Left Heel/Midfoot w/ Breakdown of Skin
  1. ;;^UTILITY(U,$J,358.3,16004,1,4,0)
  1. ;;=4^L97.421
  1. ;;^UTILITY(U,$J,358.3,16004,2)
  1. ;;=^5009535
  1. ;;^UTILITY(U,$J,358.3,16005,0)
  1. ;;=L97.422^^61^765^202
  1. ;;^UTILITY(U,$J,358.3,16005,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16005,1,3,0)
  1. ;;=3^Non-Pressure Chr Ulcer of Left Heel/Midfoot w/ Fat Layer Exposed
  1. ;;^UTILITY(U,$J,358.3,16005,1,4,0)
  1. ;;=4^L97.422
  1. ;;^UTILITY(U,$J,358.3,16005,2)
  1. ;;=^5009536
  1. ;;^UTILITY(U,$J,358.3,16006,0)
  1. ;;=L97.423^^61^765^203
  1. ;;^UTILITY(U,$J,358.3,16006,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16006,1,3,0)
  1. ;;=3^Non-Pressure Chr Ulcer of Left Heel/Midfoot w/ Necrosis of Muscle
  1. ;;^UTILITY(U,$J,358.3,16006,1,4,0)
  1. ;;=4^L97.423
  1. ;;^UTILITY(U,$J,358.3,16006,2)
  1. ;;=^5009537
  1. ;;^UTILITY(U,$J,358.3,16007,0)
  1. ;;=L97.424^^61^765^204
  1. ;;^UTILITY(U,$J,358.3,16007,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16007,1,3,0)
  1. ;;=3^Non-Pressure Chr Ulcer of Left Heel/Midfoot w/ Necrosis of Bone
  1. ;;^UTILITY(U,$J,358.3,16007,1,4,0)
  1. ;;=4^L97.424
  1. ;;^UTILITY(U,$J,358.3,16007,2)
  1. ;;=^5009538
  1. ;;^UTILITY(U,$J,358.3,16008,0)
  1. ;;=L97.429^^61^765^205
  1. ;;^UTILITY(U,$J,358.3,16008,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16008,1,3,0)
  1. ;;=3^Non-Pressure Chr Ulcer of Left Heel/Midfoot w/ Unspec Severity
  1. ;;^UTILITY(U,$J,358.3,16008,1,4,0)
  1. ;;=4^L97.429
  1. ;;^UTILITY(U,$J,358.3,16008,2)
  1. ;;=^5009539
  1. ;;^UTILITY(U,$J,358.3,16009,0)
  1. ;;=L97.511^^61^765^238
  1. ;;^UTILITY(U,$J,358.3,16009,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16009,1,3,0)
  1. ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Breakdown of Skin
  1. ;;^UTILITY(U,$J,358.3,16009,1,4,0)
  1. ;;=4^L97.511
  1. ;;^UTILITY(U,$J,358.3,16009,2)
  1. ;;=^5009545
  1. ;;^UTILITY(U,$J,358.3,16010,0)
  1. ;;=L97.512^^61^765^239
  1. ;;^UTILITY(U,$J,358.3,16010,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16010,1,3,0)
  1. ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Fat Layer Exposed
  1. ;;^UTILITY(U,$J,358.3,16010,1,4,0)
  1. ;;=4^L97.512
  1. ;;^UTILITY(U,$J,358.3,16010,2)
  1. ;;=^5009546
  1. ;;^UTILITY(U,$J,358.3,16011,0)
  1. ;;=L97.513^^61^765^240
  1. ;;^UTILITY(U,$J,358.3,16011,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16011,1,3,0)
  1. ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Necrosis of Muscle
  1. ;;^UTILITY(U,$J,358.3,16011,1,4,0)
  1. ;;=4^L97.513