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

IBDEI355.m

Go to the documentation of this file.
  1. IBDEI355 ; ; 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,50163,1,4,0)
  1. ;;=4^L97.419
  1. ;;^UTILITY(U,$J,358.3,50163,2)
  1. ;;=^5009534
  1. ;;^UTILITY(U,$J,358.3,50164,0)
  1. ;;=L97.421^^193^2487^201
  1. ;;^UTILITY(U,$J,358.3,50164,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,50164,1,3,0)
  1. ;;=3^Non-Pressure Chr Ulcer of Left Heel/Midfoot w/ Breakdown of Skin
  1. ;;^UTILITY(U,$J,358.3,50164,1,4,0)
  1. ;;=4^L97.421
  1. ;;^UTILITY(U,$J,358.3,50164,2)
  1. ;;=^5009535
  1. ;;^UTILITY(U,$J,358.3,50165,0)
  1. ;;=L97.422^^193^2487^202
  1. ;;^UTILITY(U,$J,358.3,50165,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,50165,1,3,0)
  1. ;;=3^Non-Pressure Chr Ulcer of Left Heel/Midfoot w/ Fat Layer Exposed
  1. ;;^UTILITY(U,$J,358.3,50165,1,4,0)
  1. ;;=4^L97.422
  1. ;;^UTILITY(U,$J,358.3,50165,2)
  1. ;;=^5009536
  1. ;;^UTILITY(U,$J,358.3,50166,0)
  1. ;;=L97.423^^193^2487^203
  1. ;;^UTILITY(U,$J,358.3,50166,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,50166,1,3,0)
  1. ;;=3^Non-Pressure Chr Ulcer of Left Heel/Midfoot w/ Necrosis of Muscle
  1. ;;^UTILITY(U,$J,358.3,50166,1,4,0)
  1. ;;=4^L97.423
  1. ;;^UTILITY(U,$J,358.3,50166,2)
  1. ;;=^5009537
  1. ;;^UTILITY(U,$J,358.3,50167,0)
  1. ;;=L97.424^^193^2487^204
  1. ;;^UTILITY(U,$J,358.3,50167,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,50167,1,3,0)
  1. ;;=3^Non-Pressure Chr Ulcer of Left Heel/Midfoot w/ Necrosis of Bone
  1. ;;^UTILITY(U,$J,358.3,50167,1,4,0)
  1. ;;=4^L97.424
  1. ;;^UTILITY(U,$J,358.3,50167,2)
  1. ;;=^5009538
  1. ;;^UTILITY(U,$J,358.3,50168,0)
  1. ;;=L97.429^^193^2487^205
  1. ;;^UTILITY(U,$J,358.3,50168,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,50168,1,3,0)
  1. ;;=3^Non-Pressure Chr Ulcer of Left Heel/Midfoot w/ Unspec Severity
  1. ;;^UTILITY(U,$J,358.3,50168,1,4,0)
  1. ;;=4^L97.429
  1. ;;^UTILITY(U,$J,358.3,50168,2)
  1. ;;=^5009539
  1. ;;^UTILITY(U,$J,358.3,50169,0)
  1. ;;=L97.511^^193^2487^238
  1. ;;^UTILITY(U,$J,358.3,50169,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,50169,1,3,0)
  1. ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Breakdown of Skin
  1. ;;^UTILITY(U,$J,358.3,50169,1,4,0)
  1. ;;=4^L97.511
  1. ;;^UTILITY(U,$J,358.3,50169,2)
  1. ;;=^5009545
  1. ;;^UTILITY(U,$J,358.3,50170,0)
  1. ;;=L97.512^^193^2487^239
  1. ;;^UTILITY(U,$J,358.3,50170,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,50170,1,3,0)
  1. ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Fat Layer Exposed
  1. ;;^UTILITY(U,$J,358.3,50170,1,4,0)
  1. ;;=4^L97.512
  1. ;;^UTILITY(U,$J,358.3,50170,2)
  1. ;;=^5009546
  1. ;;^UTILITY(U,$J,358.3,50171,0)
  1. ;;=L97.513^^193^2487^240
  1. ;;^UTILITY(U,$J,358.3,50171,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,50171,1,3,0)
  1. ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Necrosis of Muscle
  1. ;;^UTILITY(U,$J,358.3,50171,1,4,0)
  1. ;;=4^L97.513
  1. ;;^UTILITY(U,$J,358.3,50171,2)
  1. ;;=^5009547
  1. ;;^UTILITY(U,$J,358.3,50172,0)
  1. ;;=L97.514^^193^2487^241
  1. ;;^UTILITY(U,$J,358.3,50172,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,50172,1,3,0)
  1. ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Necrosis of Bone
  1. ;;^UTILITY(U,$J,358.3,50172,1,4,0)
  1. ;;=4^L97.514
  1. ;;^UTILITY(U,$J,358.3,50172,2)
  1. ;;=^5009548
  1. ;;^UTILITY(U,$J,358.3,50173,0)
  1. ;;=L97.519^^193^2487^242
  1. ;;^UTILITY(U,$J,358.3,50173,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,50173,1,3,0)
  1. ;;=3^Non-Pressure Chr Ulcer of Right Foot w/ Unspec Severity
  1. ;;^UTILITY(U,$J,358.3,50173,1,4,0)
  1. ;;=4^L97.519
  1. ;;^UTILITY(U,$J,358.3,50173,2)
  1. ;;=^5009549
  1. ;;^UTILITY(U,$J,358.3,50174,0)
  1. ;;=L97.521^^193^2487^193
  1. ;;^UTILITY(U,$J,358.3,50174,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,50174,1,3,0)
  1. ;;=3^Non-Pressure Chr Ulcer of Left Foot w/ Breakdown of Skin