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

IBDEI070.m

Go to the documentation of this file.
IBDEI070 ; ; 04-NOV-2021
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;NOV 04, 2021
 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,16815,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16815,1,3,0)
 ;;=3^Benign Neopl,Skin,Right Ear & EAC
 ;;^UTILITY(U,$J,358.3,16815,1,4,0)
 ;;=4^D23.21
 ;;^UTILITY(U,$J,358.3,16815,2)
 ;;=^5002064
 ;;^UTILITY(U,$J,358.3,16816,0)
 ;;=D23.22^^105^1017^20
 ;;^UTILITY(U,$J,358.3,16816,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16816,1,3,0)
 ;;=3^Benign Neopl,Skin,Left Ear & EAC
 ;;^UTILITY(U,$J,358.3,16816,1,4,0)
 ;;=4^D23.22
 ;;^UTILITY(U,$J,358.3,16816,2)
 ;;=^5002065
 ;;^UTILITY(U,$J,358.3,16817,0)
 ;;=C44.202^^105^1017^73
 ;;^UTILITY(U,$J,358.3,16817,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16817,1,3,0)
 ;;=3^Malig Neopl,Unspec Type,Skin,Ear & EAC,Right
 ;;^UTILITY(U,$J,358.3,16817,1,4,0)
 ;;=4^C44.202
 ;;^UTILITY(U,$J,358.3,16817,2)
 ;;=^5001029
 ;;^UTILITY(U,$J,358.3,16818,0)
 ;;=C44.209^^105^1017^74
 ;;^UTILITY(U,$J,358.3,16818,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16818,1,3,0)
 ;;=3^Malig Neopl,Unspec Type,Skin,Ear & EAC,Left
 ;;^UTILITY(U,$J,358.3,16818,1,4,0)
 ;;=4^C44.209
 ;;^UTILITY(U,$J,358.3,16818,2)
 ;;=^5001030
 ;;^UTILITY(U,$J,358.3,16819,0)
 ;;=C44.300^^105^1017^30
 ;;^UTILITY(U,$J,358.3,16819,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16819,1,3,0)
 ;;=3^Malig Neopl,Face,Unspec Parts
 ;;^UTILITY(U,$J,358.3,16819,1,4,0)
 ;;=4^C44.300
 ;;^UTILITY(U,$J,358.3,16819,2)
 ;;=^5001040
 ;;^UTILITY(U,$J,358.3,16820,0)
 ;;=C44.82^^105^1017^90
 ;;^UTILITY(U,$J,358.3,16820,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16820,1,3,0)
 ;;=3^SCC,Skin,Overlapping Sites
 ;;^UTILITY(U,$J,358.3,16820,1,4,0)
 ;;=4^C44.82
 ;;^UTILITY(U,$J,358.3,16820,2)
 ;;=^5001089
 ;;^UTILITY(U,$J,358.3,16821,0)
 ;;=C44.01^^105^1017^10
 ;;^UTILITY(U,$J,358.3,16821,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16821,1,3,0)
 ;;=3^BCC Skin,Lip
 ;;^UTILITY(U,$J,358.3,16821,1,4,0)
 ;;=4^C44.01
 ;;^UTILITY(U,$J,358.3,16821,2)
 ;;=^340464
 ;;^UTILITY(U,$J,358.3,16822,0)
 ;;=C44.1121^^105^1017^7
 ;;^UTILITY(U,$J,358.3,16822,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16822,1,3,0)
 ;;=3^BCC Skin,Eyelid,Upper Right
 ;;^UTILITY(U,$J,358.3,16822,1,4,0)
 ;;=4^C44.1121
 ;;^UTILITY(U,$J,358.3,16822,2)
 ;;=^5157257
 ;;^UTILITY(U,$J,358.3,16823,0)
 ;;=C44.1122^^105^1017^5
 ;;^UTILITY(U,$J,358.3,16823,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16823,1,3,0)
 ;;=3^BCC Skin,Eyelid,Lower Right
 ;;^UTILITY(U,$J,358.3,16823,1,4,0)
 ;;=4^C44.1122
 ;;^UTILITY(U,$J,358.3,16823,2)
 ;;=^5157258
 ;;^UTILITY(U,$J,358.3,16824,0)
 ;;=C44.1191^^105^1017^6
 ;;^UTILITY(U,$J,358.3,16824,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16824,1,3,0)
 ;;=3^BCC Skin,Eyelid,Upper Left
 ;;^UTILITY(U,$J,358.3,16824,1,4,0)
 ;;=4^C44.1191
 ;;^UTILITY(U,$J,358.3,16824,2)
 ;;=^5157259
 ;;^UTILITY(U,$J,358.3,16825,0)
 ;;=C44.1192^^105^1017^4
 ;;^UTILITY(U,$J,358.3,16825,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16825,1,3,0)
 ;;=3^BCC Skin,Eyelid,Lower Left
 ;;^UTILITY(U,$J,358.3,16825,1,4,0)
 ;;=4^C44.1192
 ;;^UTILITY(U,$J,358.3,16825,2)
 ;;=^5157260
 ;;^UTILITY(U,$J,358.3,16826,0)
 ;;=C44.311^^105^1017^11
 ;;^UTILITY(U,$J,358.3,16826,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16826,1,3,0)
 ;;=3^BCC Skin,Nose
 ;;^UTILITY(U,$J,358.3,16826,1,4,0)
 ;;=4^C44.311
 ;;^UTILITY(U,$J,358.3,16826,2)
 ;;=^5001044
 ;;^UTILITY(U,$J,358.3,16827,0)
 ;;=C44.319^^105^1017^8
 ;;^UTILITY(U,$J,358.3,16827,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16827,1,3,0)
 ;;=3^BCC Skin,Face,Other Part
 ;;^UTILITY(U,$J,358.3,16827,1,4,0)
 ;;=4^C44.319
 ;;^UTILITY(U,$J,358.3,16827,2)
 ;;=^5001045
 ;;^UTILITY(U,$J,358.3,16828,0)
 ;;=C44.81^^105^1017^12
 ;;^UTILITY(U,$J,358.3,16828,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16828,1,3,0)
 ;;=3^BCC Skin,Overlapping Sites
 ;;^UTILITY(U,$J,358.3,16828,1,4,0)
 ;;=4^C44.81
 ;;^UTILITY(U,$J,358.3,16828,2)
 ;;=^5001088
 ;;^UTILITY(U,$J,358.3,16829,0)
 ;;=C44.301^^105^1017^76
 ;;^UTILITY(U,$J,358.3,16829,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16829,1,3,0)
 ;;=3^Malig Neopl,Unspec Type,Skin,Nose
 ;;^UTILITY(U,$J,358.3,16829,1,4,0)
 ;;=4^C44.301
 ;;^UTILITY(U,$J,358.3,16829,2)
 ;;=^5001041
 ;;^UTILITY(U,$J,358.3,16830,0)
 ;;=C44.309^^105^1017^75
 ;;^UTILITY(U,$J,358.3,16830,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16830,1,3,0)
 ;;=3^Malig Neopl,Unspec Type,Skin,Face,Other Parts
 ;;^UTILITY(U,$J,358.3,16830,1,4,0)
 ;;=4^C44.309
 ;;^UTILITY(U,$J,358.3,16830,2)
 ;;=^5001042
 ;;^UTILITY(U,$J,358.3,16831,0)
 ;;=C31.0^^105^1017^54
 ;;^UTILITY(U,$J,358.3,16831,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16831,1,3,0)
 ;;=3^Malig Neopl,Sinus,Maxillary
 ;;^UTILITY(U,$J,358.3,16831,1,4,0)
 ;;=4^C31.0
 ;;^UTILITY(U,$J,358.3,16831,2)
 ;;=^267122
 ;;^UTILITY(U,$J,358.3,16832,0)
 ;;=C31.1^^105^1017^52
 ;;^UTILITY(U,$J,358.3,16832,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16832,1,3,0)
 ;;=3^Malig Neopl,Sinus,Ethmoidal
 ;;^UTILITY(U,$J,358.3,16832,1,4,0)
 ;;=4^C31.1
 ;;^UTILITY(U,$J,358.3,16832,2)
 ;;=^267123
 ;;^UTILITY(U,$J,358.3,16833,0)
 ;;=C31.2^^105^1017^53
 ;;^UTILITY(U,$J,358.3,16833,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16833,1,3,0)
 ;;=3^Malig Neopl,Sinus,Frontal
 ;;^UTILITY(U,$J,358.3,16833,1,4,0)
 ;;=4^C31.2
 ;;^UTILITY(U,$J,358.3,16833,2)
 ;;=^267124
 ;;^UTILITY(U,$J,358.3,16834,0)
 ;;=C31.3^^105^1017^57
 ;;^UTILITY(U,$J,358.3,16834,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16834,1,3,0)
 ;;=3^Malig Neopl,Sinus,Sphenoid
 ;;^UTILITY(U,$J,358.3,16834,1,4,0)
 ;;=4^C31.3
 ;;^UTILITY(U,$J,358.3,16834,2)
 ;;=^5000951
 ;;^UTILITY(U,$J,358.3,16835,0)
 ;;=C31.8^^105^1017^55
 ;;^UTILITY(U,$J,358.3,16835,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16835,1,3,0)
 ;;=3^Malig Neopl,Sinus,Overlapping Sites
 ;;^UTILITY(U,$J,358.3,16835,1,4,0)
 ;;=4^C31.8
 ;;^UTILITY(U,$J,358.3,16835,2)
 ;;=^5000952
 ;;^UTILITY(U,$J,358.3,16836,0)
 ;;=C00.0^^105^1017^29
 ;;^UTILITY(U,$J,358.3,16836,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16836,1,3,0)
 ;;=3^Malig Neopl,External Upper Lip
 ;;^UTILITY(U,$J,358.3,16836,1,4,0)
 ;;=4^C00.0
 ;;^UTILITY(U,$J,358.3,16836,2)
 ;;=^5000882
 ;;^UTILITY(U,$J,358.3,16837,0)
 ;;=C00.1^^105^1017^28
 ;;^UTILITY(U,$J,358.3,16837,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16837,1,3,0)
 ;;=3^Malig Neopl,External Lower Lip
 ;;^UTILITY(U,$J,358.3,16837,1,4,0)
 ;;=4^C00.1
 ;;^UTILITY(U,$J,358.3,16837,2)
 ;;=^5000883
 ;;^UTILITY(U,$J,358.3,16838,0)
 ;;=C00.3^^105^1017^77
 ;;^UTILITY(U,$J,358.3,16838,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16838,1,3,0)
 ;;=3^Malig Neopl,Upper Lip,Inner
 ;;^UTILITY(U,$J,358.3,16838,1,4,0)
 ;;=4^C00.3
 ;;^UTILITY(U,$J,358.3,16838,2)
 ;;=^266989
 ;;^UTILITY(U,$J,358.3,16839,0)
 ;;=C00.4^^105^1017^41
 ;;^UTILITY(U,$J,358.3,16839,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16839,1,3,0)
 ;;=3^Malig Neopl,Lower Lip,Inner
 ;;^UTILITY(U,$J,358.3,16839,1,4,0)
 ;;=4^C00.4
 ;;^UTILITY(U,$J,358.3,16839,2)
 ;;=^266990
 ;;^UTILITY(U,$J,358.3,16840,0)
 ;;=C00.8^^105^1017^39
 ;;^UTILITY(U,$J,358.3,16840,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16840,1,3,0)
 ;;=3^Malig Neopl,Lip,Overlapping Sites
 ;;^UTILITY(U,$J,358.3,16840,1,4,0)
 ;;=4^C00.8
 ;;^UTILITY(U,$J,358.3,16840,2)
 ;;=^5000886
 ;;^UTILITY(U,$J,358.3,16841,0)
 ;;=C00.9^^105^1017^40
 ;;^UTILITY(U,$J,358.3,16841,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16841,1,3,0)
 ;;=3^Malig Neopl,Lip,Unspec
 ;;^UTILITY(U,$J,358.3,16841,1,4,0)
 ;;=4^C00.9
 ;;^UTILITY(U,$J,358.3,16841,2)
 ;;=^5000887
 ;;^UTILITY(U,$J,358.3,16842,0)
 ;;=C30.1^^105^1017^43
 ;;^UTILITY(U,$J,358.3,16842,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16842,1,3,0)
 ;;=3^Malig Neopl,Middle Ear
 ;;^UTILITY(U,$J,358.3,16842,1,4,0)
 ;;=4^C30.1
 ;;^UTILITY(U,$J,358.3,16842,2)
 ;;=^5000950
 ;;^UTILITY(U,$J,358.3,16843,0)
 ;;=C32.8^^105^1017^37
 ;;^UTILITY(U,$J,358.3,16843,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16843,1,3,0)
 ;;=3^Malig Neopl,Larynx,Overlapping Sites
 ;;^UTILITY(U,$J,358.3,16843,1,4,0)
 ;;=4^C32.8
 ;;^UTILITY(U,$J,358.3,16843,2)
 ;;=^5000955
 ;;^UTILITY(U,$J,358.3,16844,0)
 ;;=C32.9^^105^1017^38
 ;;^UTILITY(U,$J,358.3,16844,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16844,1,3,0)
 ;;=3^Malig Neopl,Larynx,Unspec
 ;;^UTILITY(U,$J,358.3,16844,1,4,0)
 ;;=4^C32.9
 ;;^UTILITY(U,$J,358.3,16844,2)
 ;;=^5000956
 ;;^UTILITY(U,$J,358.3,16845,0)
 ;;=C33.^^105^1017^72
 ;;^UTILITY(U,$J,358.3,16845,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16845,1,3,0)
 ;;=3^Malig Neopl,Trachea
 ;;^UTILITY(U,$J,358.3,16845,1,4,0)
 ;;=4^C33.
 ;;^UTILITY(U,$J,358.3,16845,2)
 ;;=^267135
 ;;^UTILITY(U,$J,358.3,16846,0)
 ;;=C01.^^105^1017^64
 ;;^UTILITY(U,$J,358.3,16846,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16846,1,3,0)
 ;;=3^Malig Neopl,Tongue,Base
 ;;^UTILITY(U,$J,358.3,16846,1,4,0)
 ;;=4^C01.
 ;;^UTILITY(U,$J,358.3,16846,2)
 ;;=^266996
 ;;^UTILITY(U,$J,358.3,16847,0)
 ;;=C02.0^^105^1017^66
 ;;^UTILITY(U,$J,358.3,16847,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16847,1,3,0)
 ;;=3^Malig Neopl,Tongue,Dorsal Surface
 ;;^UTILITY(U,$J,358.3,16847,1,4,0)
 ;;=4^C02.0
 ;;^UTILITY(U,$J,358.3,16847,2)
 ;;=^266997
 ;;^UTILITY(U,$J,358.3,16848,0)
 ;;=C02.1^^105^1017^65
 ;;^UTILITY(U,$J,358.3,16848,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16848,1,3,0)
 ;;=3^Malig Neopl,Tongue,Border
 ;;^UTILITY(U,$J,358.3,16848,1,4,0)
 ;;=4^C02.1
 ;;^UTILITY(U,$J,358.3,16848,2)
 ;;=^5000888
 ;;^UTILITY(U,$J,358.3,16849,0)
 ;;=C02.2^^105^1017^69
 ;;^UTILITY(U,$J,358.3,16849,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16849,1,3,0)
 ;;=3^Malig Neopl,Tongue,Ventral Surface
 ;;^UTILITY(U,$J,358.3,16849,1,4,0)
 ;;=4^C02.2
 ;;^UTILITY(U,$J,358.3,16849,2)
 ;;=^266999
 ;;^UTILITY(U,$J,358.3,16850,0)
 ;;=C02.4^^105^1017^70
 ;;^UTILITY(U,$J,358.3,16850,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16850,1,3,0)
 ;;=3^Malig Neopl,Tonsil,Lingual
 ;;^UTILITY(U,$J,358.3,16850,1,4,0)
 ;;=4^C02.4
 ;;^UTILITY(U,$J,358.3,16850,2)
 ;;=^267002
 ;;^UTILITY(U,$J,358.3,16851,0)
 ;;=C02.8^^105^1017^67
 ;;^UTILITY(U,$J,358.3,16851,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16851,1,3,0)
 ;;=3^Malig Neopl,Tongue,Overlapping Sites
 ;;^UTILITY(U,$J,358.3,16851,1,4,0)
 ;;=4^C02.8
 ;;^UTILITY(U,$J,358.3,16851,2)
 ;;=^5000890
 ;;^UTILITY(U,$J,358.3,16852,0)
 ;;=C05.0^^105^1017^34
 ;;^UTILITY(U,$J,358.3,16852,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16852,1,3,0)
 ;;=3^Malig Neopl,Hard Palate
 ;;^UTILITY(U,$J,358.3,16852,1,4,0)
 ;;=4^C05.0
 ;;^UTILITY(U,$J,358.3,16852,2)
 ;;=^267021
 ;;^UTILITY(U,$J,358.3,16853,0)
 ;;=C05.1^^105^1017^59
 ;;^UTILITY(U,$J,358.3,16853,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16853,1,3,0)
 ;;=3^Malig Neopl,Soft Palate
 ;;^UTILITY(U,$J,358.3,16853,1,4,0)
 ;;=4^C05.1
 ;;^UTILITY(U,$J,358.3,16853,2)
 ;;=^267022
 ;;^UTILITY(U,$J,358.3,16854,0)
 ;;=C05.8^^105^1017^48
 ;;^UTILITY(U,$J,358.3,16854,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16854,1,3,0)
 ;;=3^Malig Neopl,Palate,Overlapping Sites
 ;;^UTILITY(U,$J,358.3,16854,1,4,0)
 ;;=4^C05.8
 ;;^UTILITY(U,$J,358.3,16854,2)
 ;;=^5000897
 ;;^UTILITY(U,$J,358.3,16855,0)
 ;;=C05.9^^105^1017^49
 ;;^UTILITY(U,$J,358.3,16855,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16855,1,3,0)
 ;;=3^Malig Neopl,Palate,Unspec
 ;;^UTILITY(U,$J,358.3,16855,1,4,0)
 ;;=4^C05.9
 ;;^UTILITY(U,$J,358.3,16855,2)
 ;;=^5000898
 ;;^UTILITY(U,$J,358.3,16856,0)
 ;;=C15.3^^105^1017^26
 ;;^UTILITY(U,$J,358.3,16856,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16856,1,3,0)
 ;;=3^Malig Neopl,Esophagus,Upper Third
 ;;^UTILITY(U,$J,358.3,16856,1,4,0)
 ;;=4^C15.3
 ;;^UTILITY(U,$J,358.3,16856,2)
 ;;=^267059
 ;;^UTILITY(U,$J,358.3,16857,0)
 ;;=C15.8^^105^1017^24
 ;;^UTILITY(U,$J,358.3,16857,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16857,1,3,0)
 ;;=3^Malig Neopl,Esophagus,Overlapping Sites
 ;;^UTILITY(U,$J,358.3,16857,1,4,0)
 ;;=4^C15.8
 ;;^UTILITY(U,$J,358.3,16857,2)
 ;;=^5000918
 ;;^UTILITY(U,$J,358.3,16858,0)
 ;;=C15.9^^105^1017^25
 ;;^UTILITY(U,$J,358.3,16858,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16858,1,3,0)
 ;;=3^Malig Neopl,Esophagus,Unspec
 ;;^UTILITY(U,$J,358.3,16858,1,4,0)
 ;;=4^C15.9
 ;;^UTILITY(U,$J,358.3,16858,2)
 ;;=^5000919
 ;;^UTILITY(U,$J,358.3,16859,0)
 ;;=C44.02^^105^1017^88
 ;;^UTILITY(U,$J,358.3,16859,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16859,1,3,0)
 ;;=3^SCC,Skin,Lip
 ;;^UTILITY(U,$J,358.3,16859,1,4,0)
 ;;=4^C44.02
 ;;^UTILITY(U,$J,358.3,16859,2)
 ;;=^340465
 ;;^UTILITY(U,$J,358.3,16860,0)
 ;;=C44.1221^^105^1017^85
 ;;^UTILITY(U,$J,358.3,16860,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16860,1,3,0)
 ;;=3^SCC,Skin,Eyelid,Upper Right
 ;;^UTILITY(U,$J,358.3,16860,1,4,0)
 ;;=4^C44.1221
 ;;^UTILITY(U,$J,358.3,16860,2)
 ;;=^5157261
 ;;^UTILITY(U,$J,358.3,16861,0)
 ;;=C44.1222^^105^1017^83
 ;;^UTILITY(U,$J,358.3,16861,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16861,1,3,0)
 ;;=3^SCC,Skin,Eyelid,Right Lower
 ;;^UTILITY(U,$J,358.3,16861,1,4,0)
 ;;=4^C44.1222
 ;;^UTILITY(U,$J,358.3,16861,2)
 ;;=^5157262
 ;;^UTILITY(U,$J,358.3,16862,0)
 ;;=C44.1291^^105^1017^84
 ;;^UTILITY(U,$J,358.3,16862,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16862,1,3,0)
 ;;=3^SCC,Skin,Eyelid,Upper Left
 ;;^UTILITY(U,$J,358.3,16862,1,4,0)
 ;;=4^C44.1291
 ;;^UTILITY(U,$J,358.3,16862,2)
 ;;=^5157263
 ;;^UTILITY(U,$J,358.3,16863,0)
 ;;=C44.1292^^105^1017^82
 ;;^UTILITY(U,$J,358.3,16863,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16863,1,3,0)
 ;;=3^SCC,Skin,Eyelid,Lower Left
 ;;^UTILITY(U,$J,358.3,16863,1,4,0)
 ;;=4^C44.1292
 ;;^UTILITY(U,$J,358.3,16863,2)
 ;;=^5157264
 ;;^UTILITY(U,$J,358.3,16864,0)
 ;;=C44.321^^105^1017^89
 ;;^UTILITY(U,$J,358.3,16864,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16864,1,3,0)
 ;;=3^SCC,Skin,Nose
 ;;^UTILITY(U,$J,358.3,16864,1,4,0)
 ;;=4^C44.321
 ;;^UTILITY(U,$J,358.3,16864,2)
 ;;=^5001047
 ;;^UTILITY(U,$J,358.3,16865,0)
 ;;=C44.329^^105^1017^86
 ;;^UTILITY(U,$J,358.3,16865,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16865,1,3,0)
 ;;=3^SCC,Skin,Face,Other Parts
 ;;^UTILITY(U,$J,358.3,16865,1,4,0)
 ;;=4^C44.329
 ;;^UTILITY(U,$J,358.3,16865,2)
 ;;=^5001048
 ;;^UTILITY(U,$J,358.3,16866,0)
 ;;=C44.09^^105^1017^58
 ;;^UTILITY(U,$J,358.3,16866,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16866,1,3,0)
 ;;=3^Malig Neopl,Skin,Lip,Oth Spec
 ;;^UTILITY(U,$J,358.3,16866,1,4,0)
 ;;=4^C44.09
 ;;^UTILITY(U,$J,358.3,16866,2)
 ;;=^340466
 ;;^UTILITY(U,$J,358.3,16867,0)
 ;;=J34.2^^105^1018^11
 ;;^UTILITY(U,$J,358.3,16867,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16867,1,3,0)
 ;;=3^Deviated nasal septum
 ;;^UTILITY(U,$J,358.3,16867,1,4,0)
 ;;=4^J34.2
 ;;^UTILITY(U,$J,358.3,16867,2)
 ;;=^259087
 ;;^UTILITY(U,$J,358.3,16868,0)
 ;;=J33.0^^105^1018^20
 ;;^UTILITY(U,$J,358.3,16868,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16868,1,3,0)
 ;;=3^Polyp of nasal cavity
 ;;^UTILITY(U,$J,358.3,16868,1,4,0)
 ;;=4^J33.0
 ;;^UTILITY(U,$J,358.3,16868,2)
 ;;=^269880
 ;;^UTILITY(U,$J,358.3,16869,0)
 ;;=J33.8^^105^1018^21
 ;;^UTILITY(U,$J,358.3,16869,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16869,1,3,0)
 ;;=3^Polyp of sinus NEC
 ;;^UTILITY(U,$J,358.3,16869,1,4,0)
 ;;=4^J33.8
 ;;^UTILITY(U,$J,358.3,16869,2)
 ;;=^269884
 ;;^UTILITY(U,$J,358.3,16870,0)
 ;;=J31.0^^105^1018^8
 ;;^UTILITY(U,$J,358.3,16870,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16870,1,3,0)
 ;;=3^Chronic rhinitis
 ;;^UTILITY(U,$J,358.3,16870,1,4,0)
 ;;=4^J31.0
 ;;^UTILITY(U,$J,358.3,16870,2)
 ;;=^24434
 ;;^UTILITY(U,$J,358.3,16871,0)
 ;;=J31.2^^105^1018^7
 ;;^UTILITY(U,$J,358.3,16871,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16871,1,3,0)
 ;;=3^Chronic pharyngitis
 ;;^UTILITY(U,$J,358.3,16871,1,4,0)
 ;;=4^J31.2
 ;;^UTILITY(U,$J,358.3,16871,2)
 ;;=^269886
 ;;^UTILITY(U,$J,358.3,16872,0)
 ;;=J31.1^^105^1018^5
 ;;^UTILITY(U,$J,358.3,16872,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16872,1,3,0)
 ;;=3^Chronic nasopharyngitis
 ;;^UTILITY(U,$J,358.3,16872,1,4,0)
 ;;=4^J31.1
 ;;^UTILITY(U,$J,358.3,16872,2)
 ;;=^269888
 ;;^UTILITY(U,$J,358.3,16873,0)
 ;;=J32.9^^105^1018^9
 ;;^UTILITY(U,$J,358.3,16873,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16873,1,3,0)
 ;;=3^Chronic sinusitis, unspecified
 ;;^UTILITY(U,$J,358.3,16873,1,4,0)
 ;;=4^J32.9
 ;;^UTILITY(U,$J,358.3,16873,2)
 ;;=^5008207
 ;;^UTILITY(U,$J,358.3,16874,0)
 ;;=J32.4^^105^1018^6
 ;;^UTILITY(U,$J,358.3,16874,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16874,1,3,0)
 ;;=3^Chronic pansinusitis
 ;;^UTILITY(U,$J,358.3,16874,1,4,0)
 ;;=4^J32.4
 ;;^UTILITY(U,$J,358.3,16874,2)
 ;;=^5008206
 ;;^UTILITY(U,$J,358.3,16875,0)
 ;;=J35.01^^105^1018^10
 ;;^UTILITY(U,$J,358.3,16875,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16875,1,3,0)
 ;;=3^Chronic tonsillitis
 ;;^UTILITY(U,$J,358.3,16875,1,4,0)
 ;;=4^J35.01
 ;;^UTILITY(U,$J,358.3,16875,2)
 ;;=^259089
 ;;^UTILITY(U,$J,358.3,16876,0)
 ;;=J36.^^105^1018^19
 ;;^UTILITY(U,$J,358.3,16876,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16876,1,3,0)
 ;;=3^Peritonsillar abscess
 ;;^UTILITY(U,$J,358.3,16876,1,4,0)
 ;;=4^J36.
 ;;^UTILITY(U,$J,358.3,16876,2)
 ;;=^92333
 ;;^UTILITY(U,$J,358.3,16877,0)
 ;;=J37.0^^105^1018^4
 ;;^UTILITY(U,$J,358.3,16877,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16877,1,3,0)
 ;;=3^Chronic laryngitis
 ;;^UTILITY(U,$J,358.3,16877,1,4,0)
 ;;=4^J37.0
 ;;^UTILITY(U,$J,358.3,16877,2)
 ;;=^269902
 ;;^UTILITY(U,$J,358.3,16878,0)
 ;;=J30.9^^105^1018^2
 ;;^UTILITY(U,$J,358.3,16878,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16878,1,3,0)
 ;;=3^Allergic rhinitis, unspecified
 ;;^UTILITY(U,$J,358.3,16878,1,4,0)
 ;;=4^J30.9
 ;;^UTILITY(U,$J,358.3,16878,2)
 ;;=^5008205
 ;;^UTILITY(U,$J,358.3,16879,0)
 ;;=J30.0^^105^1018^24
 ;;^UTILITY(U,$J,358.3,16879,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16879,1,3,0)
 ;;=3^Vasomotor rhinitis
 ;;^UTILITY(U,$J,358.3,16879,1,4,0)
 ;;=4^J30.0
 ;;^UTILITY(U,$J,358.3,16879,2)
 ;;=^5008201
 ;;^UTILITY(U,$J,358.3,16880,0)
 ;;=J34.3^^105^1018^14
 ;;^UTILITY(U,$J,358.3,16880,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16880,1,3,0)
 ;;=3^Hypertrophy of nasal turbinates
 ;;^UTILITY(U,$J,358.3,16880,1,4,0)
 ;;=4^J34.3
 ;;^UTILITY(U,$J,358.3,16880,2)
 ;;=^269909
 ;;^UTILITY(U,$J,358.3,16881,0)
 ;;=M95.0^^105^1018^1
 ;;^UTILITY(U,$J,358.3,16881,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16881,1,3,0)
 ;;=3^Acquired deformity of nose
 ;;^UTILITY(U,$J,358.3,16881,1,4,0)
 ;;=4^M95.0
 ;;^UTILITY(U,$J,358.3,16881,2)
 ;;=^5015367
 ;;^UTILITY(U,$J,358.3,16882,0)
 ;;=J38.00^^105^1018^18
 ;;^UTILITY(U,$J,358.3,16882,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16882,1,3,0)
 ;;=3^Paralysis of vocal cords and larynx, unspecified
 ;;^UTILITY(U,$J,358.3,16882,1,4,0)
 ;;=4^J38.00
 ;;^UTILITY(U,$J,358.3,16882,2)
 ;;=^5008219
 ;;^UTILITY(U,$J,358.3,16883,0)
 ;;=J38.1^^105^1018^22
 ;;^UTILITY(U,$J,358.3,16883,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16883,1,3,0)
 ;;=3^Polyp of vocal cord and larynx
 ;;^UTILITY(U,$J,358.3,16883,1,4,0)
 ;;=4^J38.1
 ;;^UTILITY(U,$J,358.3,16883,2)
 ;;=^5008222
 ;;^UTILITY(U,$J,358.3,16884,0)
 ;;=J38.7^^105^1018^15
 ;;^UTILITY(U,$J,358.3,16884,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16884,1,3,0)
 ;;=3^Larynx Diseases NEC
 ;;^UTILITY(U,$J,358.3,16884,1,4,0)
 ;;=4^J38.7