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

IBDEI0RA.m

Go to the documentation of this file.
IBDEI0RA ; ; 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,12285,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12285,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Foot,Oth Part w/ Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,12285,1,4,0)
 ;;=4^L97.514
 ;;^UTILITY(U,$J,358.3,12285,2)
 ;;=^5009548
 ;;^UTILITY(U,$J,358.3,12286,0)
 ;;=L97.515^^49^596^103
 ;;^UTILITY(U,$J,358.3,12286,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12286,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Foot,Oth Part w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,12286,1,4,0)
 ;;=4^L97.515
 ;;^UTILITY(U,$J,358.3,12286,2)
 ;;=^5151469
 ;;^UTILITY(U,$J,358.3,12287,0)
 ;;=L97.516^^49^596^104
 ;;^UTILITY(U,$J,358.3,12287,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12287,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Foot,Oth Part w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,12287,1,4,0)
 ;;=4^L97.516
 ;;^UTILITY(U,$J,358.3,12287,2)
 ;;=^5151470
 ;;^UTILITY(U,$J,358.3,12288,0)
 ;;=L97.518^^49^596^105
 ;;^UTILITY(U,$J,358.3,12288,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12288,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Foot,Oth Part w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,12288,1,4,0)
 ;;=4^L97.518
 ;;^UTILITY(U,$J,358.3,12288,2)
 ;;=^5151471
 ;;^UTILITY(U,$J,358.3,12289,0)
 ;;=L97.411^^49^596^106
 ;;^UTILITY(U,$J,358.3,12289,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12289,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Heel & Midft Limited to Brkdwn of Skin
 ;;^UTILITY(U,$J,358.3,12289,1,4,0)
 ;;=4^L97.411
 ;;^UTILITY(U,$J,358.3,12289,2)
 ;;=^5009530
 ;;^UTILITY(U,$J,358.3,12290,0)
 ;;=L97.412^^49^596^107
 ;;^UTILITY(U,$J,358.3,12290,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12290,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Heel & Midft w/ Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,12290,1,4,0)
 ;;=4^L97.412
 ;;^UTILITY(U,$J,358.3,12290,2)
 ;;=^5009531
 ;;^UTILITY(U,$J,358.3,12291,0)
 ;;=L97.413^^49^596^108
 ;;^UTILITY(U,$J,358.3,12291,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12291,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Heel & Midft w/ Necrosis of Msl
 ;;^UTILITY(U,$J,358.3,12291,1,4,0)
 ;;=4^L97.413
 ;;^UTILITY(U,$J,358.3,12291,2)
 ;;=^5009532
 ;;^UTILITY(U,$J,358.3,12292,0)
 ;;=L97.414^^49^596^109
 ;;^UTILITY(U,$J,358.3,12292,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12292,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Heel & Midft w/ Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,12292,1,4,0)
 ;;=4^L97.414
 ;;^UTILITY(U,$J,358.3,12292,2)
 ;;=^5009533
 ;;^UTILITY(U,$J,358.3,12293,0)
 ;;=L97.415^^49^596^110
 ;;^UTILITY(U,$J,358.3,12293,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12293,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Heel & Midft w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,12293,1,4,0)
 ;;=4^L97.415
 ;;^UTILITY(U,$J,358.3,12293,2)
 ;;=^5151460
 ;;^UTILITY(U,$J,358.3,12294,0)
 ;;=L97.416^^49^596^111
 ;;^UTILITY(U,$J,358.3,12294,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12294,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Heel & Midft w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,12294,1,4,0)
 ;;=4^L97.416
 ;;^UTILITY(U,$J,358.3,12294,2)
 ;;=^5151461
 ;;^UTILITY(U,$J,358.3,12295,0)
 ;;=L97.418^^49^596^112
 ;;^UTILITY(U,$J,358.3,12295,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,12295,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer Rt Heel & Midft w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,12295,1,4,0)
 ;;=4^L97.418
 ;;^UTILITY(U,$J,358.3,12295,2)
 ;;=^5151462
 ;;^UTILITY(U,$J,358.3,12296,0)
 ;;=L97.911^^49^596^114
 ;;^UTILITY(U,$J,358.3,12296,1,0)
 ;;=^358.31IA^4^2