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

IBDEI0HY.m

Go to the documentation of this file.
IBDEI0HY ; ; 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,8079,1,3,0)
 ;;=3^Athscl of Bypass Graft of Left Leg w/ Heel/Midfoot Ulcer
 ;;^UTILITY(U,$J,358.3,8079,1,4,0)
 ;;=4^I70.744
 ;;^UTILITY(U,$J,358.3,8079,2)
 ;;=^5133604
 ;;^UTILITY(U,$J,358.3,8080,0)
 ;;=I70.745^^39^391^79
 ;;^UTILITY(U,$J,358.3,8080,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8080,1,3,0)
 ;;=3^Athscl of Bypass Graft of Left Leg w/ Oth Part Foot Ulcer
 ;;^UTILITY(U,$J,358.3,8080,1,4,0)
 ;;=4^I70.745
 ;;^UTILITY(U,$J,358.3,8080,2)
 ;;=^5133605
 ;;^UTILITY(U,$J,358.3,8081,0)
 ;;=I83.009^^39^391^327
 ;;^UTILITY(U,$J,358.3,8081,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8081,1,3,0)
 ;;=3^Varicose Veins of Lower Extremity w/ Ulcer
 ;;^UTILITY(U,$J,358.3,8081,1,4,0)
 ;;=4^I83.009
 ;;^UTILITY(U,$J,358.3,8081,2)
 ;;=^5007972
 ;;^UTILITY(U,$J,358.3,8082,0)
 ;;=N61.1^^39^391^1
 ;;^UTILITY(U,$J,358.3,8082,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8082,1,3,0)
 ;;=3^Abscess of Breast & Nipple
 ;;^UTILITY(U,$J,358.3,8082,1,4,0)
 ;;=4^N61.1
 ;;^UTILITY(U,$J,358.3,8082,2)
 ;;=^5138937
 ;;^UTILITY(U,$J,358.3,8083,0)
 ;;=L03.213^^39^391^96
 ;;^UTILITY(U,$J,358.3,8083,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8083,1,3,0)
 ;;=3^Cellulitis Periorbital
 ;;^UTILITY(U,$J,358.3,8083,1,4,0)
 ;;=4^L03.213
 ;;^UTILITY(U,$J,358.3,8083,2)
 ;;=^259555
 ;;^UTILITY(U,$J,358.3,8084,0)
 ;;=L90.0^^39^391^170
 ;;^UTILITY(U,$J,358.3,8084,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8084,1,3,0)
 ;;=3^Lichen Sclerosus et Atrophicus
 ;;^UTILITY(U,$J,358.3,8084,1,4,0)
 ;;=4^L90.0
 ;;^UTILITY(U,$J,358.3,8084,2)
 ;;=^70699
 ;;^UTILITY(U,$J,358.3,8085,0)
 ;;=N63.20^^39^391^172
 ;;^UTILITY(U,$J,358.3,8085,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8085,1,3,0)
 ;;=3^Lump,Left Breast,Unspec Quadrant
 ;;^UTILITY(U,$J,358.3,8085,1,4,0)
 ;;=4^N63.20
 ;;^UTILITY(U,$J,358.3,8085,2)
 ;;=^5151524
 ;;^UTILITY(U,$J,358.3,8086,0)
 ;;=N63.10^^39^391^173
 ;;^UTILITY(U,$J,358.3,8086,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8086,1,3,0)
 ;;=3^Lump,Right Breast,Unspec Quadrant
 ;;^UTILITY(U,$J,358.3,8086,1,4,0)
 ;;=4^N63.10
 ;;^UTILITY(U,$J,358.3,8086,2)
 ;;=^5151519
 ;;^UTILITY(U,$J,358.3,8087,0)
 ;;=L97.326^^39^391^182
 ;;^UTILITY(U,$J,358.3,8087,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8087,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Ankle w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,8087,1,4,0)
 ;;=4^L97.326
 ;;^UTILITY(U,$J,358.3,8087,2)
 ;;=^5151455
 ;;^UTILITY(U,$J,358.3,8088,0)
 ;;=L97.325^^39^391^183
 ;;^UTILITY(U,$J,358.3,8088,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8088,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Ankle w/ Msl Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,8088,1,4,0)
 ;;=4^L97.325
 ;;^UTILITY(U,$J,358.3,8088,2)
 ;;=^5151454
 ;;^UTILITY(U,$J,358.3,8089,0)
 ;;=L97.328^^39^391^184
 ;;^UTILITY(U,$J,358.3,8089,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8089,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Ankle w/ Oth Severity
 ;;^UTILITY(U,$J,358.3,8089,1,4,0)
 ;;=4^L97.328
 ;;^UTILITY(U,$J,358.3,8089,2)
 ;;=^5151456
 ;;^UTILITY(U,$J,358.3,8090,0)
 ;;=L97.226^^39^391^190
 ;;^UTILITY(U,$J,358.3,8090,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8090,1,3,0)
 ;;=3^Non-Pressure Chr Ulcer of Left Calf w/ Bone Invl w/o Necrosis
 ;;^UTILITY(U,$J,358.3,8090,1,4,0)
 ;;=4^L97.226
 ;;^UTILITY(U,$J,358.3,8090,2)
 ;;=^5151446
 ;;^UTILITY(U,$J,358.3,8091,0)
 ;;=L97.225^^39^391^191
 ;;^UTILITY(U,$J,358.3,8091,1,0)
 ;;=^358.31IA^4^2