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

IBDEI032.m

Go to the documentation of this file.
IBDEI032 ; ; 28-OCT-2020
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;OCT 28, 2020
 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,6953,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6953,1,3,0)
 ;;=3^Melanoma in Situ of Left Lower Limb
 ;;^UTILITY(U,$J,358.3,6953,1,4,0)
 ;;=4^D03.72
 ;;^UTILITY(U,$J,358.3,6953,2)
 ;;=^5001906
 ;;^UTILITY(U,$J,358.3,6954,0)
 ;;=D03.8^^52^429^30
 ;;^UTILITY(U,$J,358.3,6954,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6954,1,3,0)
 ;;=3^Melanoma in Situ of Other Sites
 ;;^UTILITY(U,$J,358.3,6954,1,4,0)
 ;;=4^D03.8
 ;;^UTILITY(U,$J,358.3,6954,2)
 ;;=^5001907
 ;;^UTILITY(U,$J,358.3,6955,0)
 ;;=C43.121^^52^429^6
 ;;^UTILITY(U,$J,358.3,6955,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6955,1,3,0)
 ;;=3^Malig Melanoma of Left Upper Eyelid
 ;;^UTILITY(U,$J,358.3,6955,1,4,0)
 ;;=4^C43.121
 ;;^UTILITY(U,$J,358.3,6955,2)
 ;;=^5157251
 ;;^UTILITY(U,$J,358.3,6956,0)
 ;;=C43.122^^52^429^4
 ;;^UTILITY(U,$J,358.3,6956,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6956,1,3,0)
 ;;=3^Malig Melanoma of Left Lower Eyelid
 ;;^UTILITY(U,$J,358.3,6956,1,4,0)
 ;;=4^C43.122
 ;;^UTILITY(U,$J,358.3,6956,2)
 ;;=^5157252
 ;;^UTILITY(U,$J,358.3,6957,0)
 ;;=C43.111^^52^429^14
 ;;^UTILITY(U,$J,358.3,6957,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6957,1,3,0)
 ;;=3^Malig Melanoma of Right Upper Eyelid
 ;;^UTILITY(U,$J,358.3,6957,1,4,0)
 ;;=4^C43.111
 ;;^UTILITY(U,$J,358.3,6957,2)
 ;;=^5157249
 ;;^UTILITY(U,$J,358.3,6958,0)
 ;;=C43.112^^52^429^12
 ;;^UTILITY(U,$J,358.3,6958,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6958,1,3,0)
 ;;=3^Malig Melanoma of Right Lower Eyelid
 ;;^UTILITY(U,$J,358.3,6958,1,4,0)
 ;;=4^C43.112
 ;;^UTILITY(U,$J,358.3,6958,2)
 ;;=^5157250
 ;;^UTILITY(U,$J,358.3,6959,0)
 ;;=D03.121^^52^429^27
 ;;^UTILITY(U,$J,358.3,6959,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6959,1,3,0)
 ;;=3^Melanoma in Situ of Left Upper Eyelid
 ;;^UTILITY(U,$J,358.3,6959,1,4,0)
 ;;=4^D03.121
 ;;^UTILITY(U,$J,358.3,6959,2)
 ;;=^5157280
 ;;^UTILITY(U,$J,358.3,6960,0)
 ;;=D03.122^^52^429^25
 ;;^UTILITY(U,$J,358.3,6960,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6960,1,3,0)
 ;;=3^Melanoma in Situ of Left Lower Eyelid
 ;;^UTILITY(U,$J,358.3,6960,1,4,0)
 ;;=4^D03.122
 ;;^UTILITY(U,$J,358.3,6960,2)
 ;;=^5157281
 ;;^UTILITY(U,$J,358.3,6961,0)
 ;;=D03.111^^52^429^34
 ;;^UTILITY(U,$J,358.3,6961,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6961,1,3,0)
 ;;=3^Melanoma in Situ of Right Upper Eyelid
 ;;^UTILITY(U,$J,358.3,6961,1,4,0)
 ;;=4^D03.111
 ;;^UTILITY(U,$J,358.3,6961,2)
 ;;=^5157278
 ;;^UTILITY(U,$J,358.3,6962,0)
 ;;=D03.112^^52^429^32
 ;;^UTILITY(U,$J,358.3,6962,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6962,1,3,0)
 ;;=3^Melanoma in Situ of Right Lower Eyelid
 ;;^UTILITY(U,$J,358.3,6962,1,4,0)
 ;;=4^D03.112
 ;;^UTILITY(U,$J,358.3,6962,2)
 ;;=^5157279
 ;;^UTILITY(U,$J,358.3,6963,0)
 ;;=C4A.0^^52^430^9
 ;;^UTILITY(U,$J,358.3,6963,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6963,1,3,0)
 ;;=3^Merkel Cell Carcinoma of Lip
 ;;^UTILITY(U,$J,358.3,6963,1,4,0)
 ;;=4^C4A.0
 ;;^UTILITY(U,$J,358.3,6963,2)
 ;;=^5001137
 ;;^UTILITY(U,$J,358.3,6964,0)
 ;;=C4A.21^^52^430^12
 ;;^UTILITY(U,$J,358.3,6964,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6964,1,3,0)
 ;;=3^Merkel Cell Carcinoma of Right Ear/External Auric Canal
 ;;^UTILITY(U,$J,358.3,6964,1,4,0)
 ;;=4^C4A.21
 ;;^UTILITY(U,$J,358.3,6964,2)
 ;;=^5001142
 ;;^UTILITY(U,$J,358.3,6965,0)
 ;;=C4A.22^^52^430^4
 ;;^UTILITY(U,$J,358.3,6965,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6965,1,3,0)
 ;;=3^Merkel Cell Carcinoma of Left Ear/External Auric Canal
 ;;^UTILITY(U,$J,358.3,6965,1,4,0)
 ;;=4^C4A.22
 ;;^UTILITY(U,$J,358.3,6965,2)
 ;;=^5001143
 ;;^UTILITY(U,$J,358.3,6966,0)
 ;;=C4A.30^^52^430^3
 ;;^UTILITY(U,$J,358.3,6966,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6966,1,3,0)
 ;;=3^Merkel Cell Carcinoma of Face,Unspec
 ;;^UTILITY(U,$J,358.3,6966,1,4,0)
 ;;=4^C4A.30
 ;;^UTILITY(U,$J,358.3,6966,2)
 ;;=^5001144
 ;;^UTILITY(U,$J,358.3,6967,0)
 ;;=C4A.31^^52^430^10
 ;;^UTILITY(U,$J,358.3,6967,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6967,1,3,0)
 ;;=3^Merkel Cell Carcinoma of Nose
 ;;^UTILITY(U,$J,358.3,6967,1,4,0)
 ;;=4^C4A.31
 ;;^UTILITY(U,$J,358.3,6967,2)
 ;;=^5001145
 ;;^UTILITY(U,$J,358.3,6968,0)
 ;;=C4A.39^^52^430^2
 ;;^UTILITY(U,$J,358.3,6968,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6968,1,3,0)
 ;;=3^Merkel Cell Carcinoma of Face NEC
 ;;^UTILITY(U,$J,358.3,6968,1,4,0)
 ;;=4^C4A.39
 ;;^UTILITY(U,$J,358.3,6968,2)
 ;;=^5001146
 ;;^UTILITY(U,$J,358.3,6969,0)
 ;;=C4A.4^^52^430^17
 ;;^UTILITY(U,$J,358.3,6969,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6969,1,3,0)
 ;;=3^Merkel Cell Carcinoma of Scalp/Neck
 ;;^UTILITY(U,$J,358.3,6969,1,4,0)
 ;;=4^C4A.4
 ;;^UTILITY(U,$J,358.3,6969,2)
 ;;=^5001147
 ;;^UTILITY(U,$J,358.3,6970,0)
 ;;=C4A.51^^52^430^1
 ;;^UTILITY(U,$J,358.3,6970,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6970,1,3,0)
 ;;=3^Merkel Cell Carcinoma of Anal Skin
 ;;^UTILITY(U,$J,358.3,6970,1,4,0)
 ;;=4^C4A.51
 ;;^UTILITY(U,$J,358.3,6970,2)
 ;;=^5001148
 ;;^UTILITY(U,$J,358.3,6971,0)
 ;;=C4A.52^^52^430^18
 ;;^UTILITY(U,$J,358.3,6971,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6971,1,3,0)
 ;;=3^Merkel Cell Carcinoma of Skin of Breast
 ;;^UTILITY(U,$J,358.3,6971,1,4,0)
 ;;=4^C4A.52
 ;;^UTILITY(U,$J,358.3,6971,2)
 ;;=^5001149
 ;;^UTILITY(U,$J,358.3,6972,0)
 ;;=C4A.59^^52^430^19
 ;;^UTILITY(U,$J,358.3,6972,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6972,1,3,0)
 ;;=3^Merkel Cell Carcinoma of Trunk NEC
 ;;^UTILITY(U,$J,358.3,6972,1,4,0)
 ;;=4^C4A.59
 ;;^UTILITY(U,$J,358.3,6972,2)
 ;;=^5001150
 ;;^UTILITY(U,$J,358.3,6973,0)
 ;;=C4A.61^^52^430^16
 ;;^UTILITY(U,$J,358.3,6973,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6973,1,3,0)
 ;;=3^Merkel Cell Carcinoma of Right Upper Limb
 ;;^UTILITY(U,$J,358.3,6973,1,4,0)
 ;;=4^C4A.61
 ;;^UTILITY(U,$J,358.3,6973,2)
 ;;=^5001152
 ;;^UTILITY(U,$J,358.3,6974,0)
 ;;=C4A.62^^52^430^8
 ;;^UTILITY(U,$J,358.3,6974,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6974,1,3,0)
 ;;=3^Merkel Cell Carcinoma of Left Upper Limb
 ;;^UTILITY(U,$J,358.3,6974,1,4,0)
 ;;=4^C4A.62
 ;;^UTILITY(U,$J,358.3,6974,2)
 ;;=^5001153
 ;;^UTILITY(U,$J,358.3,6975,0)
 ;;=C4A.71^^52^430^14
 ;;^UTILITY(U,$J,358.3,6975,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6975,1,3,0)
 ;;=3^Merkel Cell Carcinoma of Right Lower Limb
 ;;^UTILITY(U,$J,358.3,6975,1,4,0)
 ;;=4^C4A.71
 ;;^UTILITY(U,$J,358.3,6975,2)
 ;;=^5001155
 ;;^UTILITY(U,$J,358.3,6976,0)
 ;;=C4A.72^^52^430^6
 ;;^UTILITY(U,$J,358.3,6976,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6976,1,3,0)
 ;;=3^Merkel Cell Carcinoma of Left Lower Limb
 ;;^UTILITY(U,$J,358.3,6976,1,4,0)
 ;;=4^C4A.72
 ;;^UTILITY(U,$J,358.3,6976,2)
 ;;=^5001156
 ;;^UTILITY(U,$J,358.3,6977,0)
 ;;=C4A.8^^52^430^11
 ;;^UTILITY(U,$J,358.3,6977,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6977,1,3,0)
 ;;=3^Merkel Cell Carcinoma of Overlapping Sites
 ;;^UTILITY(U,$J,358.3,6977,1,4,0)
 ;;=4^C4A.8
 ;;^UTILITY(U,$J,358.3,6977,2)
 ;;=^5001157
 ;;^UTILITY(U,$J,358.3,6978,0)
 ;;=C4A.9^^52^430^20
 ;;^UTILITY(U,$J,358.3,6978,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6978,1,3,0)
 ;;=3^Merkel Cell Carcinoma,Unspec
 ;;^UTILITY(U,$J,358.3,6978,1,4,0)
 ;;=4^C4A.9
 ;;^UTILITY(U,$J,358.3,6978,2)
 ;;=^5001158
 ;;^UTILITY(U,$J,358.3,6979,0)
 ;;=C4A.121^^52^430^7
 ;;^UTILITY(U,$J,358.3,6979,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6979,1,3,0)
 ;;=3^Merkel Cell Carcinoma of Left Upper Eyelid
 ;;^UTILITY(U,$J,358.3,6979,1,4,0)
 ;;=4^C4A.121
 ;;^UTILITY(U,$J,358.3,6979,2)
 ;;=^5157276
 ;;^UTILITY(U,$J,358.3,6980,0)
 ;;=C4A.122^^52^430^5
 ;;^UTILITY(U,$J,358.3,6980,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6980,1,3,0)
 ;;=3^Merkel Cell Carcinoma of Left Lower Eyelid
 ;;^UTILITY(U,$J,358.3,6980,1,4,0)
 ;;=4^C4A.122
 ;;^UTILITY(U,$J,358.3,6980,2)
 ;;=^5157277
 ;;^UTILITY(U,$J,358.3,6981,0)
 ;;=C4A.111^^52^430^15
 ;;^UTILITY(U,$J,358.3,6981,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6981,1,3,0)
 ;;=3^Merkel Cell Carcinoma of Right Upper Eyelid
 ;;^UTILITY(U,$J,358.3,6981,1,4,0)
 ;;=4^C4A.111
 ;;^UTILITY(U,$J,358.3,6981,2)
 ;;=^5157274
 ;;^UTILITY(U,$J,358.3,6982,0)
 ;;=C4A.112^^52^430^13
 ;;^UTILITY(U,$J,358.3,6982,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6982,1,3,0)
 ;;=3^Merkel Cell Carcinoma of Right Lower Eyelid
 ;;^UTILITY(U,$J,358.3,6982,1,4,0)
 ;;=4^C4A.112
 ;;^UTILITY(U,$J,358.3,6982,2)
 ;;=^5157275
 ;;^UTILITY(U,$J,358.3,6983,0)
 ;;=S01.20XA^^52^431^33
 ;;^UTILITY(U,$J,358.3,6983,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6983,1,3,0)
 ;;=3^Open Wound of Nose,Init Encntr
 ;;^UTILITY(U,$J,358.3,6983,1,4,0)
 ;;=4^S01.20XA
 ;;^UTILITY(U,$J,358.3,6983,2)
 ;;=^5020090
 ;;^UTILITY(U,$J,358.3,6984,0)
 ;;=S01.00XA^^52^431^62
 ;;^UTILITY(U,$J,358.3,6984,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6984,1,3,0)
 ;;=3^Open Wound of Scalp,Init Encntr
 ;;^UTILITY(U,$J,358.3,6984,1,4,0)
 ;;=4^S01.00XA
 ;;^UTILITY(U,$J,358.3,6984,2)
 ;;=^5020033
 ;;^UTILITY(U,$J,358.3,6985,0)
 ;;=S01.402A^^52^431^7
 ;;^UTILITY(U,$J,358.3,6985,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6985,1,3,0)
 ;;=3^Open Wound of Left Cheek/TMJ Area,Init Encntr
 ;;^UTILITY(U,$J,358.3,6985,1,4,0)
 ;;=4^S01.402A
 ;;^UTILITY(U,$J,358.3,6985,2)
 ;;=^5020150
 ;;^UTILITY(U,$J,358.3,6986,0)
 ;;=S01.401A^^52^431^38
 ;;^UTILITY(U,$J,358.3,6986,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6986,1,3,0)
 ;;=3^Open Wound of Right Cheek/TMJ Area,Init Encntr
 ;;^UTILITY(U,$J,358.3,6986,1,4,0)
 ;;=4^S01.401A
 ;;^UTILITY(U,$J,358.3,6986,2)
 ;;=^5020147
 ;;^UTILITY(U,$J,358.3,6987,0)
 ;;=S01.80XA^^52^431^1
 ;;^UTILITY(U,$J,358.3,6987,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6987,1,3,0)
 ;;=3^Open Wound of Head NEC,Init Encntr
 ;;^UTILITY(U,$J,358.3,6987,1,4,0)
 ;;=4^S01.80XA
 ;;^UTILITY(U,$J,358.3,6987,2)
 ;;=^5020222
 ;;^UTILITY(U,$J,358.3,6988,0)
 ;;=S01.90XA^^52^431^2
 ;;^UTILITY(U,$J,358.3,6988,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6988,1,3,0)
 ;;=3^Open Wound of Head,Unspec,Init Encntr
 ;;^UTILITY(U,$J,358.3,6988,1,4,0)
 ;;=4^S01.90XA
 ;;^UTILITY(U,$J,358.3,6988,2)
 ;;=^5020240
 ;;^UTILITY(U,$J,358.3,6989,0)
 ;;=S11.80XA^^52^431^31
 ;;^UTILITY(U,$J,358.3,6989,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6989,1,3,0)
 ;;=3^Open Wound of Neck NEC,Init Encntr
 ;;^UTILITY(U,$J,358.3,6989,1,4,0)
 ;;=4^S11.80XA
 ;;^UTILITY(U,$J,358.3,6989,2)
 ;;=^5021506
 ;;^UTILITY(U,$J,358.3,6990,0)
 ;;=S11.90XA^^52^431^32
 ;;^UTILITY(U,$J,358.3,6990,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6990,1,3,0)
 ;;=3^Open Wound of Neck,Unspec,Init Encntr
 ;;^UTILITY(U,$J,358.3,6990,1,4,0)
 ;;=4^S11.90XA
 ;;^UTILITY(U,$J,358.3,6990,2)
 ;;=^5021527
 ;;^UTILITY(U,$J,358.3,6991,0)
 ;;=S31.819A^^52^431^37
 ;;^UTILITY(U,$J,358.3,6991,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6991,1,3,0)
 ;;=3^Open Wound of Right Buttock,Init Encntr
 ;;^UTILITY(U,$J,358.3,6991,1,4,0)
 ;;=4^S31.819A
 ;;^UTILITY(U,$J,358.3,6991,2)
 ;;=^5024308
 ;;^UTILITY(U,$J,358.3,6992,0)
 ;;=S31.829A^^52^431^6
 ;;^UTILITY(U,$J,358.3,6992,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6992,1,3,0)
 ;;=3^Open Wound of Left Buttock,Init Encntr
 ;;^UTILITY(U,$J,358.3,6992,1,4,0)
 ;;=4^S31.829A
 ;;^UTILITY(U,$J,358.3,6992,2)
 ;;=^5024320
 ;;^UTILITY(U,$J,358.3,6993,0)
 ;;=S31.100A^^52^431^35
 ;;^UTILITY(U,$J,358.3,6993,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6993,1,3,0)
 ;;=3^Open Wound of RUQ of Abd Wall w/o Penet Perit Cav,Init Encntr
 ;;^UTILITY(U,$J,358.3,6993,1,4,0)
 ;;=4^S31.100A
 ;;^UTILITY(U,$J,358.3,6993,2)
 ;;=^5024023
 ;;^UTILITY(U,$J,358.3,6994,0)
 ;;=S31.101A^^52^431^4
 ;;^UTILITY(U,$J,358.3,6994,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6994,1,3,0)
 ;;=3^Open Wound of LUQ Abd Wall w/o Penet Perit Cav,Init Encntr
 ;;^UTILITY(U,$J,358.3,6994,1,4,0)
 ;;=4^S31.101A
 ;;^UTILITY(U,$J,358.3,6994,2)
 ;;=^5024026
 ;;^UTILITY(U,$J,358.3,6995,0)
 ;;=S31.103A^^52^431^34
 ;;^UTILITY(U,$J,358.3,6995,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6995,1,3,0)
 ;;=3^Open Wound of RLQ of Abd Wall w/o Penet Perit Cav,Init Encntr
 ;;^UTILITY(U,$J,358.3,6995,1,4,0)
 ;;=4^S31.103A
 ;;^UTILITY(U,$J,358.3,6995,2)
 ;;=^5024032
 ;;^UTILITY(U,$J,358.3,6996,0)
 ;;=S31.104A^^52^431^3
 ;;^UTILITY(U,$J,358.3,6996,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6996,1,3,0)
 ;;=3^Open Wound of LLQ of Abd Wall w/o Penet Perit Cav,Init Encntr
 ;;^UTILITY(U,$J,358.3,6996,1,4,0)
 ;;=4^S31.104A
 ;;^UTILITY(U,$J,358.3,6996,2)
 ;;=^5134415
 ;;^UTILITY(U,$J,358.3,6997,0)
 ;;=S41.001A^^52^431^57
 ;;^UTILITY(U,$J,358.3,6997,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6997,1,3,0)
 ;;=3^Open Wound of Right Shoulder,Init Encntr
 ;;^UTILITY(U,$J,358.3,6997,1,4,0)
 ;;=4^S41.001A
 ;;^UTILITY(U,$J,358.3,6997,2)
 ;;=^5026291
 ;;^UTILITY(U,$J,358.3,6998,0)
 ;;=S41.002A^^52^431^26
 ;;^UTILITY(U,$J,358.3,6998,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6998,1,3,0)
 ;;=3^Open Wound of Left Shoulder,Init Encntr
 ;;^UTILITY(U,$J,358.3,6998,1,4,0)
 ;;=4^S41.002A
 ;;^UTILITY(U,$J,358.3,6998,2)
 ;;=^5026294
 ;;^UTILITY(U,$J,358.3,6999,0)
 ;;=S51.001A^^52^431^39
 ;;^UTILITY(U,$J,358.3,6999,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6999,1,3,0)
 ;;=3^Open Wound of Right Elbow,Init Encntr
 ;;^UTILITY(U,$J,358.3,6999,1,4,0)
 ;;=4^S51.001A
 ;;^UTILITY(U,$J,358.3,6999,2)
 ;;=^5028620
 ;;^UTILITY(U,$J,358.3,7000,0)
 ;;=S51.002A^^52^431^8
 ;;^UTILITY(U,$J,358.3,7000,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7000,1,3,0)
 ;;=3^Open Wound of Left Elbow,Init Encntr
 ;;^UTILITY(U,$J,358.3,7000,1,4,0)
 ;;=4^S51.002A
 ;;^UTILITY(U,$J,358.3,7000,2)
 ;;=^5028623
 ;;^UTILITY(U,$J,358.3,7001,0)
 ;;=S61.501A^^52^431^61
 ;;^UTILITY(U,$J,358.3,7001,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7001,1,3,0)
 ;;=3^Open Wound of Right Wrist,Init Encntr
 ;;^UTILITY(U,$J,358.3,7001,1,4,0)
 ;;=4^S61.501A
 ;;^UTILITY(U,$J,358.3,7001,2)
 ;;=^5033020
 ;;^UTILITY(U,$J,358.3,7002,0)
 ;;=S61.502A^^52^431^30
 ;;^UTILITY(U,$J,358.3,7002,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7002,1,3,0)
 ;;=3^Open Wound of Left Wrist,Init Encntr
 ;;^UTILITY(U,$J,358.3,7002,1,4,0)
 ;;=4^S61.502A
 ;;^UTILITY(U,$J,358.3,7002,2)
 ;;=^5033023
 ;;^UTILITY(U,$J,358.3,7003,0)
 ;;=S61.401A^^52^431^43
 ;;^UTILITY(U,$J,358.3,7003,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7003,1,3,0)
 ;;=3^Open Wound of Right Hand,Init Encntr
 ;;^UTILITY(U,$J,358.3,7003,1,4,0)
 ;;=4^S61.401A
 ;;^UTILITY(U,$J,358.3,7003,2)
 ;;=^5032981
 ;;^UTILITY(U,$J,358.3,7004,0)
 ;;=S61.402A^^52^431^12
 ;;^UTILITY(U,$J,358.3,7004,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7004,1,3,0)
 ;;=3^Open Wound of Left Hand,Init Encntr
 ;;^UTILITY(U,$J,358.3,7004,1,4,0)
 ;;=4^S61.402A
 ;;^UTILITY(U,$J,358.3,7004,2)
 ;;=^5032984
 ;;^UTILITY(U,$J,358.3,7005,0)
 ;;=S61.001A^^52^431^60
 ;;^UTILITY(U,$J,358.3,7005,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7005,1,3,0)
 ;;=3^Open Wound of Right Thumb w/o Nail Damage,Init Encntr
 ;;^UTILITY(U,$J,358.3,7005,1,4,0)
 ;;=4^S61.001A
 ;;^UTILITY(U,$J,358.3,7005,2)
 ;;=^5032684
 ;;^UTILITY(U,$J,358.3,7006,0)
 ;;=S61.002A^^52^431^29
 ;;^UTILITY(U,$J,358.3,7006,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7006,1,3,0)
 ;;=3^Open Wound of Left Thumb w/o Nail Damage,Init Encntr
 ;;^UTILITY(U,$J,358.3,7006,1,4,0)
 ;;=4^S61.002A
 ;;^UTILITY(U,$J,358.3,7006,2)
 ;;=^5032687
 ;;^UTILITY(U,$J,358.3,7007,0)
 ;;=S61.101A^^52^431^59
 ;;^UTILITY(U,$J,358.3,7007,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7007,1,3,0)
 ;;=3^Open Wound of Right Thumb w/ Nail Damage,Init Encntr
 ;;^UTILITY(U,$J,358.3,7007,1,4,0)
 ;;=4^S61.101A
 ;;^UTILITY(U,$J,358.3,7007,2)
 ;;=^5032723
 ;;^UTILITY(U,$J,358.3,7008,0)
 ;;=S61.102A^^52^431^28
 ;;^UTILITY(U,$J,358.3,7008,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7008,1,3,0)
 ;;=3^Open Wound of Left Thumb w/ Nail Damage,Init Encntr
 ;;^UTILITY(U,$J,358.3,7008,1,4,0)
 ;;=4^S61.102A
 ;;^UTILITY(U,$J,358.3,7008,2)
 ;;=^5135687
 ;;^UTILITY(U,$J,358.3,7009,0)
 ;;=S61.200A^^52^431^46
 ;;^UTILITY(U,$J,358.3,7009,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7009,1,3,0)
 ;;=3^Open Wound of Right Index Finger w/o Nail Damage,Init Encntr
 ;;^UTILITY(U,$J,358.3,7009,1,4,0)
 ;;=4^S61.200A
 ;;^UTILITY(U,$J,358.3,7009,2)
 ;;=^5032741
 ;;^UTILITY(U,$J,358.3,7010,0)
 ;;=S61.201A^^52^431^15
 ;;^UTILITY(U,$J,358.3,7010,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7010,1,3,0)
 ;;=3^Open Wound of Left Index Finger w/o Nail Damage,Init Encntr
 ;;^UTILITY(U,$J,358.3,7010,1,4,0)
 ;;=4^S61.201A
 ;;^UTILITY(U,$J,358.3,7010,2)
 ;;=^5032744
 ;;^UTILITY(U,$J,358.3,7011,0)
 ;;=S61.202A^^52^431^54
 ;;^UTILITY(U,$J,358.3,7011,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7011,1,3,0)
 ;;=3^Open Wound of Right Middle Finger w/o Nail Damage,Init Encntr
 ;;^UTILITY(U,$J,358.3,7011,1,4,0)
 ;;=4^S61.202A
 ;;^UTILITY(U,$J,358.3,7011,2)
 ;;=^5032747
 ;;^UTILITY(U,$J,358.3,7012,0)
 ;;=S61.203A^^52^431^23
 ;;^UTILITY(U,$J,358.3,7012,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7012,1,3,0)
 ;;=3^Open Wound of Left Middle Finger w/o Nail Damage,Init Encntr
 ;;^UTILITY(U,$J,358.3,7012,1,4,0)
 ;;=4^S61.203A
 ;;^UTILITY(U,$J,358.3,7012,2)
 ;;=^5032750
 ;;^UTILITY(U,$J,358.3,7013,0)
 ;;=S61.204A^^52^431^56
 ;;^UTILITY(U,$J,358.3,7013,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7013,1,3,0)
 ;;=3^Open Wound of Right Ring Finger w/o Nail Damage,Init Encntr
 ;;^UTILITY(U,$J,358.3,7013,1,4,0)
 ;;=4^S61.204A
 ;;^UTILITY(U,$J,358.3,7013,2)
 ;;=^5032753
 ;;^UTILITY(U,$J,358.3,7014,0)
 ;;=S61.205A^^52^431^25
 ;;^UTILITY(U,$J,358.3,7014,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7014,1,3,0)
 ;;=3^Open Wound of Left Ring Finger w/o Nail Damage,Init Encntr
 ;;^UTILITY(U,$J,358.3,7014,1,4,0)
 ;;=4^S61.205A
 ;;^UTILITY(U,$J,358.3,7014,2)
 ;;=^5032756
 ;;^UTILITY(U,$J,358.3,7015,0)
 ;;=S61.206A^^52^431^51
 ;;^UTILITY(U,$J,358.3,7015,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7015,1,3,0)
 ;;=3^Open Wound of Right Little Finger w/o Nail Damage,Init Encntr
 ;;^UTILITY(U,$J,358.3,7015,1,4,0)
 ;;=4^S61.206A
 ;;^UTILITY(U,$J,358.3,7015,2)
 ;;=^5032759
 ;;^UTILITY(U,$J,358.3,7016,0)
 ;;=S61.207A^^52^431^20
 ;;^UTILITY(U,$J,358.3,7016,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7016,1,3,0)
 ;;=3^Open Wound of Left Little Finger w/o Nail Damage,Init Encntr
 ;;^UTILITY(U,$J,358.3,7016,1,4,0)
 ;;=4^S61.207A
 ;;^UTILITY(U,$J,358.3,7016,2)
 ;;=^5032762
 ;;^UTILITY(U,$J,358.3,7017,0)
 ;;=S61.300A^^52^431^45
 ;;^UTILITY(U,$J,358.3,7017,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7017,1,3,0)
 ;;=3^Open Wound of Right Index Finger w/ Nail Damage,Init Encntr
 ;;^UTILITY(U,$J,358.3,7017,1,4,0)
 ;;=4^S61.300A
 ;;^UTILITY(U,$J,358.3,7017,2)
 ;;=^5032891
 ;;^UTILITY(U,$J,358.3,7018,0)
 ;;=S61.301A^^52^431^14
 ;;^UTILITY(U,$J,358.3,7018,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7018,1,3,0)
 ;;=3^Open Wound of Left Index Finger w/ Damage to Nail,Init Encntr
 ;;^UTILITY(U,$J,358.3,7018,1,4,0)
 ;;=4^S61.301A
 ;;^UTILITY(U,$J,358.3,7018,2)
 ;;=^5135735
 ;;^UTILITY(U,$J,358.3,7019,0)
 ;;=S61.302A^^52^431^53
 ;;^UTILITY(U,$J,358.3,7019,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7019,1,3,0)
 ;;=3^Open Wound of Right Middle Finger w/ Nail Damage,Init Encntr