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

IBDEI0D6.m

Go to the documentation of this file. 
  1. IBDEI0D6 ; ; 03-MAY-2022
  1.  ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 2022
  1.  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
  1. Q Q
  1.  ;;^UTILITY(U,$J,358.3,33057,1,3,0)
  1.  ;;=3^Neopl,Unspec Behav,Right Kidney
  1.  ;;^UTILITY(U,$J,358.3,33057,1,4,0)
  1.  ;;=4^D49.511
  1.  ;;^UTILITY(U,$J,358.3,33057,2)
  1.  ;;=^5138160
  1.  ;;^UTILITY(U,$J,358.3,33058,0)
  1.  ;;=D49.512^^102^1377^9
  1.  ;;^UTILITY(U,$J,358.3,33058,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33058,1,3,0)
  1.  ;;=3^Neopl,Unspec Behav,Left Kidney
  1.  ;;^UTILITY(U,$J,358.3,33058,1,4,0)
  1.  ;;=4^D49.512
  1.  ;;^UTILITY(U,$J,358.3,33058,2)
  1.  ;;=^5138161
  1.  ;;^UTILITY(U,$J,358.3,33059,0)
  1.  ;;=Z48.22^^102^1377^2
  1.  ;;^UTILITY(U,$J,358.3,33059,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33059,1,3,0)
  1.  ;;=3^Aftercare Following Kidney Transplant
  1.  ;;^UTILITY(U,$J,358.3,33059,1,4,0)
  1.  ;;=4^Z48.22
  1.  ;;^UTILITY(U,$J,358.3,33059,2)
  1.  ;;=^5063039
  1.  ;;^UTILITY(U,$J,358.3,33060,0)
  1.  ;;=Z94.83^^102^1377^11
  1.  ;;^UTILITY(U,$J,358.3,33060,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33060,1,3,0)
  1.  ;;=3^Pancreas Transplant Status
  1.  ;;^UTILITY(U,$J,358.3,33060,1,4,0)
  1.  ;;=4^Z94.83
  1.  ;;^UTILITY(U,$J,358.3,33060,2)
  1.  ;;=^5063664
  1.  ;;^UTILITY(U,$J,358.3,33061,0)
  1.  ;;=B17.11^^102^1378^2
  1.  ;;^UTILITY(U,$J,358.3,33061,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33061,1,3,0)
  1.  ;;=3^Acute hepatitis C with hepatic coma
  1.  ;;^UTILITY(U,$J,358.3,33061,1,4,0)
  1.  ;;=4^B17.11
  1.  ;;^UTILITY(U,$J,358.3,33061,2)
  1.  ;;=^331777
  1.  ;;^UTILITY(U,$J,358.3,33062,0)
  1.  ;;=B18.2^^102^1378^10
  1.  ;;^UTILITY(U,$J,358.3,33062,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33062,1,3,0)
  1.  ;;=3^Chronic viral hepatitis C
  1.  ;;^UTILITY(U,$J,358.3,33062,1,4,0)
  1.  ;;=4^B18.2
  1.  ;;^UTILITY(U,$J,358.3,33062,2)
  1.  ;;=^5000548
  1.  ;;^UTILITY(U,$J,358.3,33063,0)
  1.  ;;=B17.10^^102^1378^3
  1.  ;;^UTILITY(U,$J,358.3,33063,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33063,1,3,0)
  1.  ;;=3^Acute hepatitis C without hepatic coma
  1.  ;;^UTILITY(U,$J,358.3,33063,1,4,0)
  1.  ;;=4^B17.10
  1.  ;;^UTILITY(U,$J,358.3,33063,2)
  1.  ;;=^5000542
  1.  ;;^UTILITY(U,$J,358.3,33064,0)
  1.  ;;=B19.20^^102^1378^24
  1.  ;;^UTILITY(U,$J,358.3,33064,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33064,1,3,0)
  1.  ;;=3^Viral hepatitis C without hepatic coma,Unspec
  1.  ;;^UTILITY(U,$J,358.3,33064,1,4,0)
  1.  ;;=4^B19.20
  1.  ;;^UTILITY(U,$J,358.3,33064,2)
  1.  ;;=^331436
  1.  ;;^UTILITY(U,$J,358.3,33065,0)
  1.  ;;=B19.21^^102^1378^23
  1.  ;;^UTILITY(U,$J,358.3,33065,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33065,1,3,0)
  1.  ;;=3^Viral hepatitis C with hepatic coma,Unspec
  1.  ;;^UTILITY(U,$J,358.3,33065,1,4,0)
  1.  ;;=4^B19.21
  1.  ;;^UTILITY(U,$J,358.3,33065,2)
  1.  ;;=^331437
  1.  ;;^UTILITY(U,$J,358.3,33066,0)
  1.  ;;=C22.0^^102^1378^16
  1.  ;;^UTILITY(U,$J,358.3,33066,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33066,1,3,0)
  1.  ;;=3^Liver cell carcinoma
  1.  ;;^UTILITY(U,$J,358.3,33066,1,4,0)
  1.  ;;=4^C22.0
  1.  ;;^UTILITY(U,$J,358.3,33066,2)
  1.  ;;=^5000933
  1.  ;;^UTILITY(U,$J,358.3,33067,0)
  1.  ;;=C22.7^^102^1378^8
  1.  ;;^UTILITY(U,$J,358.3,33067,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33067,1,3,0)
  1.  ;;=3^Carcinomas of liver NEC
  1.  ;;^UTILITY(U,$J,358.3,33067,1,4,0)
  1.  ;;=4^C22.7
  1.  ;;^UTILITY(U,$J,358.3,33067,2)
  1.  ;;=^5000938
  1.  ;;^UTILITY(U,$J,358.3,33068,0)
  1.  ;;=C22.8^^102^1378^19
  1.  ;;^UTILITY(U,$J,358.3,33068,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33068,1,3,0)
  1.  ;;=3^Malignant neoplasm of liver, primary
  1.  ;;^UTILITY(U,$J,358.3,33068,1,4,0)
  1.  ;;=4^C22.8
  1.  ;;^UTILITY(U,$J,358.3,33068,2)
  1.  ;;=^5000939
  1.  ;;^UTILITY(U,$J,358.3,33069,0)
  1.  ;;=C22.1^^102^1378^14
  1.  ;;^UTILITY(U,$J,358.3,33069,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33069,1,3,0)
  1.  ;;=3^Intrahepatic bile duct carcinoma
  1.  ;;^UTILITY(U,$J,358.3,33069,1,4,0)
  1.  ;;=4^C22.1
  1.  ;;^UTILITY(U,$J,358.3,33069,2)
  1.  ;;=^5000934
  1.  ;;^UTILITY(U,$J,358.3,33070,0)
  1.  ;;=C22.9^^102^1378^18
  1.  ;;^UTILITY(U,$J,358.3,33070,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33070,1,3,0)
  1.  ;;=3^Malignant neoplasm of liver
  1.  ;;^UTILITY(U,$J,358.3,33070,1,4,0)
  1.  ;;=4^C22.9
  1.  ;;^UTILITY(U,$J,358.3,33070,2)
  1.  ;;=^267096
  1.  ;;^UTILITY(U,$J,358.3,33071,0)
  1.  ;;=C78.7^^102^1378^22
  1.  ;;^UTILITY(U,$J,358.3,33071,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33071,1,3,0)
  1.  ;;=3^Secondary malig neoplasm of liver and intrahepatic bile duct
  1.  ;;^UTILITY(U,$J,358.3,33071,1,4,0)
  1.  ;;=4^C78.7
  1.  ;;^UTILITY(U,$J,358.3,33071,2)
  1.  ;;=^5001339
  1.  ;;^UTILITY(U,$J,358.3,33072,0)
  1.  ;;=K74.60^^102^1378^12
  1.  ;;^UTILITY(U,$J,358.3,33072,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33072,1,3,0)
  1.  ;;=3^Cirrhosis of liver,Unspec
  1.  ;;^UTILITY(U,$J,358.3,33072,1,4,0)
  1.  ;;=4^K74.60
  1.  ;;^UTILITY(U,$J,358.3,33072,2)
  1.  ;;=^5008822
  1.  ;;^UTILITY(U,$J,358.3,33073,0)
  1.  ;;=K76.0^^102^1378^13
  1.  ;;^UTILITY(U,$J,358.3,33073,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33073,1,3,0)
  1.  ;;=3^Fatty (change of) liver, not elsewhere classified
  1.  ;;^UTILITY(U,$J,358.3,33073,1,4,0)
  1.  ;;=4^K76.0
  1.  ;;^UTILITY(U,$J,358.3,33073,2)
  1.  ;;=^5008831
  1.  ;;^UTILITY(U,$J,358.3,33074,0)
  1.  ;;=K76.89^^102^1378^15
  1.  ;;^UTILITY(U,$J,358.3,33074,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33074,1,3,0)
  1.  ;;=3^Liver Disease NEC
  1.  ;;^UTILITY(U,$J,358.3,33074,1,4,0)
  1.  ;;=4^K76.89
  1.  ;;^UTILITY(U,$J,358.3,33074,2)
  1.  ;;=^5008835
  1.  ;;^UTILITY(U,$J,358.3,33075,0)
  1.  ;;=K70.30^^102^1378^6
  1.  ;;^UTILITY(U,$J,358.3,33075,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33075,1,3,0)
  1.  ;;=3^Alcoholic cirrhosis of liver without ascites
  1.  ;;^UTILITY(U,$J,358.3,33075,1,4,0)
  1.  ;;=4^K70.30
  1.  ;;^UTILITY(U,$J,358.3,33075,2)
  1.  ;;=^5008788
  1.  ;;^UTILITY(U,$J,358.3,33076,0)
  1.  ;;=K70.31^^102^1378^5
  1.  ;;^UTILITY(U,$J,358.3,33076,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33076,1,3,0)
  1.  ;;=3^Alcoholic cirrhosis of liver with ascites
  1.  ;;^UTILITY(U,$J,358.3,33076,1,4,0)
  1.  ;;=4^K70.31
  1.  ;;^UTILITY(U,$J,358.3,33076,2)
  1.  ;;=^5008789
  1.  ;;^UTILITY(U,$J,358.3,33077,0)
  1.  ;;=K75.4^^102^1378^7
  1.  ;;^UTILITY(U,$J,358.3,33077,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33077,1,3,0)
  1.  ;;=3^Autoimmune hepatitis
  1.  ;;^UTILITY(U,$J,358.3,33077,1,4,0)
  1.  ;;=4^K75.4
  1.  ;;^UTILITY(U,$J,358.3,33077,2)
  1.  ;;=^336610
  1.  ;;^UTILITY(U,$J,358.3,33078,0)
  1.  ;;=K74.69^^102^1378^11
  1.  ;;^UTILITY(U,$J,358.3,33078,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33078,1,3,0)
  1.  ;;=3^Cirrhosis of liver NEC
  1.  ;;^UTILITY(U,$J,358.3,33078,1,4,0)
  1.  ;;=4^K74.69
  1.  ;;^UTILITY(U,$J,358.3,33078,2)
  1.  ;;=^5008823
  1.  ;;^UTILITY(U,$J,358.3,33079,0)
  1.  ;;=K74.3^^102^1378^21
  1.  ;;^UTILITY(U,$J,358.3,33079,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33079,1,3,0)
  1.  ;;=3^Primary biliary cirrhosis
  1.  ;;^UTILITY(U,$J,358.3,33079,1,4,0)
  1.  ;;=4^K74.3
  1.  ;;^UTILITY(U,$J,358.3,33079,2)
  1.  ;;=^5008819
  1.  ;;^UTILITY(U,$J,358.3,33080,0)
  1.  ;;=K75.81^^102^1378^20
  1.  ;;^UTILITY(U,$J,358.3,33080,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33080,1,3,0)
  1.  ;;=3^Nonalcoholic steatohepatitis (NASH)
  1.  ;;^UTILITY(U,$J,358.3,33080,1,4,0)
  1.  ;;=4^K75.81
  1.  ;;^UTILITY(U,$J,358.3,33080,2)
  1.  ;;=K830^5008828
  1.  ;;^UTILITY(U,$J,358.3,33081,0)
  1.  ;;=B16.9^^102^1378^1
  1.  ;;^UTILITY(U,$J,358.3,33081,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33081,1,3,0)
  1.  ;;=3^Acute hepatitis B w/o delta-agent and without hepatic coma
  1.  ;;^UTILITY(U,$J,358.3,33081,1,4,0)
  1.  ;;=4^B16.9
  1.  ;;^UTILITY(U,$J,358.3,33081,2)
  1.  ;;=^5000540
  1.  ;;^UTILITY(U,$J,358.3,33082,0)
  1.  ;;=B18.1^^102^1378^9
  1.  ;;^UTILITY(U,$J,358.3,33082,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33082,1,3,0)
  1.  ;;=3^Chronic viral hepatitis B without delta-agent
  1.  ;;^UTILITY(U,$J,358.3,33082,1,4,0)
  1.  ;;=4^B18.1
  1.  ;;^UTILITY(U,$J,358.3,33082,2)
  1.  ;;=^5000547
  1.  ;;^UTILITY(U,$J,358.3,33083,0)
  1.  ;;=Z94.4^^102^1378^17
  1.  ;;^UTILITY(U,$J,358.3,33083,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33083,1,3,0)
  1.  ;;=3^Liver transplant status
  1.  ;;^UTILITY(U,$J,358.3,33083,1,4,0)
  1.  ;;=4^Z94.4
  1.  ;;^UTILITY(U,$J,358.3,33083,2)
  1.  ;;=^5063658
  1.  ;;^UTILITY(U,$J,358.3,33084,0)
  1.  ;;=Z48.23^^102^1378^4
  1.  ;;^UTILITY(U,$J,358.3,33084,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33084,1,3,0)
  1.  ;;=3^Aftercare Following Liver Transplant
  1.  ;;^UTILITY(U,$J,358.3,33084,1,4,0)
  1.  ;;=4^Z48.23
  1.  ;;^UTILITY(U,$J,358.3,33084,2)
  1.  ;;=^5063040
  1.  ;;^UTILITY(U,$J,358.3,33085,0)
  1.  ;;=J90.^^102^1379^16
  1.  ;;^UTILITY(U,$J,358.3,33085,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33085,1,3,0)
  1.  ;;=3^Pleural effusion, not elsewhere classified
  1.  ;;^UTILITY(U,$J,358.3,33085,1,4,0)
  1.  ;;=4^J90.
  1.  ;;^UTILITY(U,$J,358.3,33085,2)
  1.  ;;=^5008310
  1.  ;;^UTILITY(U,$J,358.3,33086,0)
  1.  ;;=C34.91^^102^1379^13
  1.  ;;^UTILITY(U,$J,358.3,33086,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33086,1,3,0)
  1.  ;;=3^Malignant neoplasm of unsp part of right bronchus or lung
  1.  ;;^UTILITY(U,$J,358.3,33086,1,4,0)
  1.  ;;=4^C34.91
  1.  ;;^UTILITY(U,$J,358.3,33086,2)
  1.  ;;=^5000967
  1.  ;;^UTILITY(U,$J,358.3,33087,0)
  1.  ;;=C34.92^^102^1379^12
  1.  ;;^UTILITY(U,$J,358.3,33087,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33087,1,3,0)
  1.  ;;=3^Malignant neoplasm of unsp part of left bronchus or lung
  1.  ;;^UTILITY(U,$J,358.3,33087,1,4,0)
  1.  ;;=4^C34.92
  1.  ;;^UTILITY(U,$J,358.3,33087,2)
  1.  ;;=^5000968
  1.  ;;^UTILITY(U,$J,358.3,33088,0)
  1.  ;;=C34.01^^102^1379^11
  1.  ;;^UTILITY(U,$J,358.3,33088,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33088,1,3,0)
  1.  ;;=3^Malignant neoplasm of right main bronchus
  1.  ;;^UTILITY(U,$J,358.3,33088,1,4,0)
  1.  ;;=4^C34.01
  1.  ;;^UTILITY(U,$J,358.3,33088,2)
  1.  ;;=^5000958
  1.  ;;^UTILITY(U,$J,358.3,33089,0)
  1.  ;;=C34.02^^102^1379^5
  1.  ;;^UTILITY(U,$J,358.3,33089,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33089,1,3,0)
  1.  ;;=3^Malignant neoplasm of left main bronchus
  1.  ;;^UTILITY(U,$J,358.3,33089,1,4,0)
  1.  ;;=4^C34.02
  1.  ;;^UTILITY(U,$J,358.3,33089,2)
  1.  ;;=^5000959
  1.  ;;^UTILITY(U,$J,358.3,33090,0)
  1.  ;;=C34.11^^102^1379^15
  1.  ;;^UTILITY(U,$J,358.3,33090,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33090,1,3,0)
  1.  ;;=3^Malignant neoplasm of upper lobe, right bronchus or lung
  1.  ;;^UTILITY(U,$J,358.3,33090,1,4,0)
  1.  ;;=4^C34.11
  1.  ;;^UTILITY(U,$J,358.3,33090,2)
  1.  ;;=^5000961
  1.  ;;^UTILITY(U,$J,358.3,33091,0)
  1.  ;;=C34.12^^102^1379^14
  1.  ;;^UTILITY(U,$J,358.3,33091,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33091,1,3,0)
  1.  ;;=3^Malignant neoplasm of upper lobe, left bronchus or lung
  1.  ;;^UTILITY(U,$J,358.3,33091,1,4,0)
  1.  ;;=4^C34.12
  1.  ;;^UTILITY(U,$J,358.3,33091,2)
  1.  ;;=^5000962
  1.  ;;^UTILITY(U,$J,358.3,33092,0)
  1.  ;;=C34.2^^102^1379^8
  1.  ;;^UTILITY(U,$J,358.3,33092,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33092,1,3,0)
  1.  ;;=3^Malignant neoplasm of middle lobe, bronchus or lung
  1.  ;;^UTILITY(U,$J,358.3,33092,1,4,0)
  1.  ;;=4^C34.2
  1.  ;;^UTILITY(U,$J,358.3,33092,2)
  1.  ;;=^267137
  1.  ;;^UTILITY(U,$J,358.3,33093,0)
  1.  ;;=C34.31^^102^1379^7
  1.  ;;^UTILITY(U,$J,358.3,33093,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33093,1,3,0)
  1.  ;;=3^Malignant neoplasm of lower lobe, right bronchus or lung
  1.  ;;^UTILITY(U,$J,358.3,33093,1,4,0)
  1.  ;;=4^C34.31
  1.  ;;^UTILITY(U,$J,358.3,33093,2)
  1.  ;;=^5133321
  1.  ;;^UTILITY(U,$J,358.3,33094,0)
  1.  ;;=C34.32^^102^1379^6
  1.  ;;^UTILITY(U,$J,358.3,33094,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33094,1,3,0)
  1.  ;;=3^Malignant neoplasm of lower lobe, left bronchus or lung
  1.  ;;^UTILITY(U,$J,358.3,33094,1,4,0)
  1.  ;;=4^C34.32
  1.  ;;^UTILITY(U,$J,358.3,33094,2)
  1.  ;;=^5133322
  1.  ;;^UTILITY(U,$J,358.3,33095,0)
  1.  ;;=C34.81^^102^1379^10
  1.  ;;^UTILITY(U,$J,358.3,33095,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33095,1,3,0)
  1.  ;;=3^Malignant neoplasm of ovrlp sites of right bronchus and lung
  1.  ;;^UTILITY(U,$J,358.3,33095,1,4,0)
  1.  ;;=4^C34.81
  1.  ;;^UTILITY(U,$J,358.3,33095,2)
  1.  ;;=^5000964
  1.  ;;^UTILITY(U,$J,358.3,33096,0)
  1.  ;;=C34.82^^102^1379^9
  1.  ;;^UTILITY(U,$J,358.3,33096,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33096,1,3,0)
  1.  ;;=3^Malignant neoplasm of ovrlp sites of left bronchus and lung
  1.  ;;^UTILITY(U,$J,358.3,33096,1,4,0)
  1.  ;;=4^C34.82
  1.  ;;^UTILITY(U,$J,358.3,33096,2)
  1.  ;;=^5000965
  1.  ;;^UTILITY(U,$J,358.3,33097,0)
  1.  ;;=Z48.24^^102^1379^2
  1.  ;;^UTILITY(U,$J,358.3,33097,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33097,1,3,0)
  1.  ;;=3^Aftercare Following Lung Transplant
  1.  ;;^UTILITY(U,$J,358.3,33097,1,4,0)
  1.  ;;=4^Z48.24
  1.  ;;^UTILITY(U,$J,358.3,33097,2)
  1.  ;;=^5063041
  1.  ;;^UTILITY(U,$J,358.3,33098,0)
  1.  ;;=Z48.280^^102^1379^1
  1.  ;;^UTILITY(U,$J,358.3,33098,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33098,1,3,0)
  1.  ;;=3^Aftercare Following Heart & Lung Transplant
  1.  ;;^UTILITY(U,$J,358.3,33098,1,4,0)
  1.  ;;=4^Z48.280
  1.  ;;^UTILITY(U,$J,358.3,33098,2)
  1.  ;;=^5063042
  1.  ;;^UTILITY(U,$J,358.3,33099,0)
  1.  ;;=Z94.3^^102^1379^3
  1.  ;;^UTILITY(U,$J,358.3,33099,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33099,1,3,0)
  1.  ;;=3^Heart & Lungs Transplant Status
  1.  ;;^UTILITY(U,$J,358.3,33099,1,4,0)
  1.  ;;=4^Z94.3
  1.  ;;^UTILITY(U,$J,358.3,33099,2)
  1.  ;;=^5063657
  1.  ;;^UTILITY(U,$J,358.3,33100,0)
  1.  ;;=Z94.2^^102^1379^4
  1.  ;;^UTILITY(U,$J,358.3,33100,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33100,1,3,0)
  1.  ;;=3^Lung Transplant Status
  1.  ;;^UTILITY(U,$J,358.3,33100,1,4,0)
  1.  ;;=4^Z94.2
  1.  ;;^UTILITY(U,$J,358.3,33100,2)
  1.  ;;=^5063656
  1.  ;;^UTILITY(U,$J,358.3,33101,0)
  1.  ;;=C83.38^^102^1380^22
  1.  ;;^UTILITY(U,$J,358.3,33101,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33101,1,3,0)
  1.  ;;=3^Diffuse large B-cell lymphoma, lymph nodes of multiple sites
  1.  ;;^UTILITY(U,$J,358.3,33101,1,4,0)
  1.  ;;=4^C83.38
  1.  ;;^UTILITY(U,$J,358.3,33101,2)
  1.  ;;=^5001579
  1.  ;;^UTILITY(U,$J,358.3,33102,0)
  1.  ;;=C83.58^^102^1380^28
  1.  ;;^UTILITY(U,$J,358.3,33102,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33102,1,3,0)
  1.  ;;=3^Lymphoblastic (diffuse) lymphoma, lymph nodes mult site
  1.  ;;^UTILITY(U,$J,358.3,33102,1,4,0)
  1.  ;;=4^C83.58
  1.  ;;^UTILITY(U,$J,358.3,33102,2)
  1.  ;;=^5001589
  1.  ;;^UTILITY(U,$J,358.3,33103,0)
  1.  ;;=C83.78^^102^1380^15
  1.  ;;^UTILITY(U,$J,358.3,33103,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33103,1,3,0)
  1.  ;;=3^Burkitt lymphoma, lymph nodes of multiple sites
  1.  ;;^UTILITY(U,$J,358.3,33103,1,4,0)
  1.  ;;=4^C83.78
  1.  ;;^UTILITY(U,$J,358.3,33103,2)
  1.  ;;=^5001599
  1.  ;;^UTILITY(U,$J,358.3,33104,0)
  1.  ;;=C83.18^^102^1380^34
  1.  ;;^UTILITY(U,$J,358.3,33104,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33104,1,3,0)
  1.  ;;=3^Mantle cell lymphoma, lymph nodes of multiple sites
  1.  ;;^UTILITY(U,$J,358.3,33104,1,4,0)
  1.  ;;=4^C83.18
  1.  ;;^UTILITY(U,$J,358.3,33104,2)
  1.  ;;=^5001569
  1.  ;;^UTILITY(U,$J,358.3,33105,0)
  1.  ;;=C84.68^^102^1380^12
  1.  ;;^UTILITY(U,$J,358.3,33105,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33105,1,3,0)
  1.  ;;=3^Anaplastic large cell lymphoma, ALK-pos, nodes mult site
  1.  ;;^UTILITY(U,$J,358.3,33105,1,4,0)
  1.  ;;=4^C84.68
  1.  ;;^UTILITY(U,$J,358.3,33105,2)
  1.  ;;=^5001659
  1.  ;;^UTILITY(U,$J,358.3,33106,0)
  1.  ;;=C84.78^^102^1380^11
  1.  ;;^UTILITY(U,$J,358.3,33106,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33106,1,3,0)
  1.  ;;=3^Anaplastic large cell lymphoma, ALK-neg, nodes mult site
  1.  ;;^UTILITY(U,$J,358.3,33106,1,4,0)
  1.  ;;=4^C84.78
  1.  ;;^UTILITY(U,$J,358.3,33106,2)
  1.  ;;=^5001669
  1.  ;;^UTILITY(U,$J,358.3,33107,0)
  1.  ;;=C81.08^^102^1380^47
  1.  ;;^UTILITY(U,$J,358.3,33107,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33107,1,3,0)
  1.  ;;=3^Nodular lymphocyte predom Hodgkin lymphoma, nodes mult site
  1.  ;;^UTILITY(U,$J,358.3,33107,1,4,0)
  1.  ;;=4^C81.08
  1.  ;;^UTILITY(U,$J,358.3,33107,2)
  1.  ;;=^5001399
  1.  ;;^UTILITY(U,$J,358.3,33108,0)
  1.  ;;=C81.48^^102^1380^27
  1.  ;;^UTILITY(U,$J,358.3,33108,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33108,1,3,0)
  1.  ;;=3^Lymp-rich classical Hodgkin lymphoma, lymph nodes mult site
  1.  ;;^UTILITY(U,$J,358.3,33108,1,4,0)
  1.  ;;=4^C81.48
  1.  ;;^UTILITY(U,$J,358.3,33108,2)
  1.  ;;=^5001439
  1.  ;;^UTILITY(U,$J,358.3,33109,0)
  1.  ;;=C81.18^^102^1380^48
  1.  ;;^UTILITY(U,$J,358.3,33109,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33109,1,3,0)
  1.  ;;=3^Nodular sclerosis class Hodgkin lymphoma, nodes mult site
  1.  ;;^UTILITY(U,$J,358.3,33109,1,4,0)
  1.  ;;=4^C81.18
  1.  ;;^UTILITY(U,$J,358.3,33109,2)
  1.  ;;=^5001409
  1.  ;;^UTILITY(U,$J,358.3,33110,0)
  1.  ;;=C81.28^^102^1380^38
  1.  ;;^UTILITY(U,$J,358.3,33110,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33110,1,3,0)
  1.  ;;=3^Mixed cellular classical Hodgkin lymphoma, nodes mult site
  1.  ;;^UTILITY(U,$J,358.3,33110,1,4,0)
  1.  ;;=4^C81.28
  1.  ;;^UTILITY(U,$J,358.3,33110,2)
  1.  ;;=^5001419
  1.  ;;^UTILITY(U,$J,358.3,33111,0)
  1.  ;;=C81.38^^102^1380^29
  1.  ;;^UTILITY(U,$J,358.3,33111,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33111,1,3,0)
  1.  ;;=3^Lymphocy depleted class Hodgkin lymphoma, nodes mult site
  1.  ;;^UTILITY(U,$J,358.3,33111,1,4,0)
  1.  ;;=4^C81.38
  1.  ;;^UTILITY(U,$J,358.3,33111,2)
  1.  ;;=^5001429
  1.  ;;^UTILITY(U,$J,358.3,33112,0)
  1.  ;;=C82.98^^102^1380^25
  1.  ;;^UTILITY(U,$J,358.3,33112,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33112,1,3,0)
  1.  ;;=3^Follicular lymphoma, unsp, lymph nodes of multiple sites
  1.  ;;^UTILITY(U,$J,358.3,33112,1,4,0)
  1.  ;;=4^C82.98
  1.  ;;^UTILITY(U,$J,358.3,33112,2)
  1.  ;;=^5001549
  1.  ;;^UTILITY(U,$J,358.3,33113,0)
  1.  ;;=C84.08^^102^1380^44
  1.  ;;^UTILITY(U,$J,358.3,33113,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33113,1,3,0)
  1.  ;;=3^Mycosis fungoides, lymph nodes of multiple sites
  1.  ;;^UTILITY(U,$J,358.3,33113,1,4,0)
  1.  ;;=4^C84.08
  1.  ;;^UTILITY(U,$J,358.3,33113,2)
  1.  ;;=^5001629
  1.  ;;^UTILITY(U,$J,358.3,33114,0)
  1.  ;;=C84.18^^102^1380^53
  1.  ;;^UTILITY(U,$J,358.3,33114,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33114,1,3,0)
  1.  ;;=3^Sezary disease, lymph nodes of multiple sites
  1.  ;;^UTILITY(U,$J,358.3,33114,1,4,0)
  1.  ;;=4^C84.18
  1.  ;;^UTILITY(U,$J,358.3,33114,2)
  1.  ;;=^5001639
  1.  ;;^UTILITY(U,$J,358.3,33115,0)
  1.  ;;=C91.40^^102^1380^26
  1.  ;;^UTILITY(U,$J,358.3,33115,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33115,1,3,0)
  1.  ;;=3^Hairy cell leukemia not having achieved remission
  1.  ;;^UTILITY(U,$J,358.3,33115,1,4,0)
  1.  ;;=4^C91.40
  1.  ;;^UTILITY(U,$J,358.3,33115,2)
  1.  ;;=^5001771
  1.  ;;^UTILITY(U,$J,358.3,33116,0)
  1.  ;;=C96.0^^102^1380^41
  1.  ;;^UTILITY(U,$J,358.3,33116,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33116,1,3,0)
  1.  ;;=3^Multifocal and multisystemic Langerhans-cell histiocytosis
  1.  ;;^UTILITY(U,$J,358.3,33116,1,4,0)
  1.  ;;=4^C96.0
  1.  ;;^UTILITY(U,$J,358.3,33116,2)
  1.  ;;=^5001859
  1.  ;;^UTILITY(U,$J,358.3,33117,0)
  1.  ;;=C84.48^^102^1380^49
  1.  ;;^UTILITY(U,$J,358.3,33117,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33117,1,3,0)
  1.  ;;=3^Peripheral T-cell lymphoma, not classified, nodes mult site
  1.  ;;^UTILITY(U,$J,358.3,33117,1,4,0)
  1.  ;;=4^C84.48
  1.  ;;^UTILITY(U,$J,358.3,33117,2)
  1.  ;;=^5001649
  1.  ;;^UTILITY(U,$J,358.3,33118,0)
  1.  ;;=C90.01^^102^1380^43
  1.  ;;^UTILITY(U,$J,358.3,33118,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33118,1,3,0)
  1.  ;;=3^Multiple myeloma in remission
  1.  ;;^UTILITY(U,$J,358.3,33118,1,4,0)
  1.  ;;=4^C90.01
  1.  ;;^UTILITY(U,$J,358.3,33118,2)
  1.  ;;=^267515
  1.  ;;^UTILITY(U,$J,358.3,33119,0)
  1.  ;;=C90.02^^102^1380^42
  1.  ;;^UTILITY(U,$J,358.3,33119,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33119,1,3,0)
  1.  ;;=3^Multiple myeloma in relapse
  1.  ;;^UTILITY(U,$J,358.3,33119,1,4,0)
  1.  ;;=4^C90.02
  1.  ;;^UTILITY(U,$J,358.3,33119,2)
  1.  ;;=^5001753
  1.  ;;^UTILITY(U,$J,358.3,33120,0)
  1.  ;;=C90.11^^102^1380^51
  1.  ;;^UTILITY(U,$J,358.3,33120,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33120,1,3,0)
  1.  ;;=3^Plasma cell leukemia in remission
  1.  ;;^UTILITY(U,$J,358.3,33120,1,4,0)
  1.  ;;=4^C90.11
  1.  ;;^UTILITY(U,$J,358.3,33120,2)
  1.  ;;=^267517
  1.  ;;^UTILITY(U,$J,358.3,33121,0)
  1.  ;;=C90.12^^102^1380^50
  1.  ;;^UTILITY(U,$J,358.3,33121,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33121,1,3,0)
  1.  ;;=3^Plasma cell leukemia in relapse
  1.  ;;^UTILITY(U,$J,358.3,33121,1,4,0)
  1.  ;;=4^C90.12
  1.  ;;^UTILITY(U,$J,358.3,33121,2)
  1.  ;;=^5001755
  1.  ;;^UTILITY(U,$J,358.3,33122,0)
  1.  ;;=C90.21^^102^1380^24
  1.  ;;^UTILITY(U,$J,358.3,33122,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,33122,1,3,0)
  1.  ;;=3^Extramedullary plasmacytoma in remission
  1.  ;;^UTILITY(U,$J,358.3,33122,1,4,0)
  1.  ;;=4^C90.21
  1.  ;;^UTILITY(U,$J,358.3,33122,2)
  1.  ;;=^5001757
  1.  ;;^UTILITY(U,$J,358.3,33123,0)
  1.  ;;=C90.31^^102^1380^55