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

IBDEI0ZD.m

Go to the documentation of this file.
IBDEI0ZD ; ; 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,15966,1,4,0)
 ;;=4^L89.95
 ;;^UTILITY(U,$J,358.3,15966,2)
 ;;=^5133660
 ;;^UTILITY(U,$J,358.3,15967,0)
 ;;=L92.0^^61^765^159
 ;;^UTILITY(U,$J,358.3,15967,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15967,1,3,0)
 ;;=3^Granuloma Annulare
 ;;^UTILITY(U,$J,358.3,15967,1,4,0)
 ;;=4^L92.0
 ;;^UTILITY(U,$J,358.3,15967,2)
 ;;=^184052
 ;;^UTILITY(U,$J,358.3,15968,0)
 ;;=L95.1^^61^765^146
 ;;^UTILITY(U,$J,358.3,15968,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15968,1,3,0)
 ;;=3^Erythema Elevatum Diutinum
 ;;^UTILITY(U,$J,358.3,15968,1,4,0)
 ;;=4^L95.1
 ;;^UTILITY(U,$J,358.3,15968,2)
 ;;=^5009477
 ;;^UTILITY(U,$J,358.3,15969,0)
 ;;=L97.111^^61^765^262
 ;;^UTILITY(U,$J,358.3,15969,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15969,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Thigh w/ Breakdown of Skin
 ;;^UTILITY(U,$J,358.3,15969,1,4,0)
 ;;=4^L97.111
 ;;^UTILITY(U,$J,358.3,15969,2)
 ;;=^5009485
 ;;^UTILITY(U,$J,358.3,15970,0)
 ;;=L97.112^^61^765^263
 ;;^UTILITY(U,$J,358.3,15970,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15970,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Thigh w/ Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,15970,1,4,0)
 ;;=4^L97.112
 ;;^UTILITY(U,$J,358.3,15970,2)
 ;;=^5009486
 ;;^UTILITY(U,$J,358.3,15971,0)
 ;;=L97.113^^61^765^264
 ;;^UTILITY(U,$J,358.3,15971,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15971,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Thigh w/ Necrosis of Muscle
 ;;^UTILITY(U,$J,358.3,15971,1,4,0)
 ;;=4^L97.113
 ;;^UTILITY(U,$J,358.3,15971,2)
 ;;=^5009487
 ;;^UTILITY(U,$J,358.3,15972,0)
 ;;=L97.114^^61^765^265
 ;;^UTILITY(U,$J,358.3,15972,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15972,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Thigh w/ Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,15972,1,4,0)
 ;;=4^L97.114
 ;;^UTILITY(U,$J,358.3,15972,2)
 ;;=^5009488
 ;;^UTILITY(U,$J,358.3,15973,0)
 ;;=L97.119^^61^765^266
 ;;^UTILITY(U,$J,358.3,15973,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15973,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Right Thigh w/ Unspec Severity
 ;;^UTILITY(U,$J,358.3,15973,1,4,0)
 ;;=4^L97.119
 ;;^UTILITY(U,$J,358.3,15973,2)
 ;;=^5009489
 ;;^UTILITY(U,$J,358.3,15974,0)
 ;;=L97.121^^61^765^214
 ;;^UTILITY(U,$J,358.3,15974,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15974,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Thigh w/ Breakdown of Skin
 ;;^UTILITY(U,$J,358.3,15974,1,4,0)
 ;;=4^L97.121
 ;;^UTILITY(U,$J,358.3,15974,2)
 ;;=^5009490
 ;;^UTILITY(U,$J,358.3,15975,0)
 ;;=L97.122^^61^765^215
 ;;^UTILITY(U,$J,358.3,15975,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15975,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Thigh w/ Fat Layer Exposed
 ;;^UTILITY(U,$J,358.3,15975,1,4,0)
 ;;=4^L97.122
 ;;^UTILITY(U,$J,358.3,15975,2)
 ;;=^5009491
 ;;^UTILITY(U,$J,358.3,15976,0)
 ;;=L97.123^^61^765^216
 ;;^UTILITY(U,$J,358.3,15976,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15976,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Thigh w/ Necrosis of Muscle
 ;;^UTILITY(U,$J,358.3,15976,1,4,0)
 ;;=4^L97.123
 ;;^UTILITY(U,$J,358.3,15976,2)
 ;;=^5009492
 ;;^UTILITY(U,$J,358.3,15977,0)
 ;;=L97.124^^61^765^217
 ;;^UTILITY(U,$J,358.3,15977,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15977,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Thigh w/ Necrosis of Bone
 ;;^UTILITY(U,$J,358.3,15977,1,4,0)
 ;;=4^L97.124
 ;;^UTILITY(U,$J,358.3,15977,2)
 ;;=^5009493
 ;;^UTILITY(U,$J,358.3,15978,0)
 ;;=L97.129^^61^765^218