IBDEI08P ; ; 01-AUG-2022
;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 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,21246,0)
;;=57500^^69^877^2^^^^1
;;^UTILITY(U,$J,358.3,21246,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21246,1,2,0)
;;=2^57500
;;^UTILITY(U,$J,358.3,21246,1,3,0)
;;=3^CERVICAL BIOPSY
;;^UTILITY(U,$J,358.3,21247,0)
;;=58300^^69^877^8^^^^1
;;^UTILITY(U,$J,358.3,21247,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21247,1,2,0)
;;=2^58300
;;^UTILITY(U,$J,358.3,21247,1,3,0)
;;=3^INSERT IUD
;;^UTILITY(U,$J,358.3,21248,0)
;;=58301^^69^877^12^^^^1
;;^UTILITY(U,$J,358.3,21248,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21248,1,2,0)
;;=2^58301
;;^UTILITY(U,$J,358.3,21248,1,3,0)
;;=3^REMOVE IUD
;;^UTILITY(U,$J,358.3,21249,0)
;;=57460^^69^877^1^^^^1
;;^UTILITY(U,$J,358.3,21249,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21249,1,2,0)
;;=2^57460
;;^UTILITY(U,$J,358.3,21249,1,3,0)
;;=3^BX OF CERVIX W/SCOPE LEEP
;;^UTILITY(U,$J,358.3,21250,0)
;;=57461^^69^877^4^^^^1
;;^UTILITY(U,$J,358.3,21250,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21250,1,2,0)
;;=2^57461
;;^UTILITY(U,$J,358.3,21250,1,3,0)
;;=3^CONZ OF CERVIX W/SCOPE LEEP
;;^UTILITY(U,$J,358.3,21251,0)
;;=76830^^69^877^13^^^^1
;;^UTILITY(U,$J,358.3,21251,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21251,1,2,0)
;;=2^76830
;;^UTILITY(U,$J,358.3,21251,1,3,0)
;;=3^TRANSVAGINAL US NON-OB
;;^UTILITY(U,$J,358.3,21252,0)
;;=57520^^69^877^3^^^^1
;;^UTILITY(U,$J,358.3,21252,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21252,1,2,0)
;;=2^57520
;;^UTILITY(U,$J,358.3,21252,1,3,0)
;;=3^CONIZATION OF CERVIX
;;^UTILITY(U,$J,358.3,21253,0)
;;=11981^^69^877^9^^^^1
;;^UTILITY(U,$J,358.3,21253,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21253,1,2,0)
;;=2^11981
;;^UTILITY(U,$J,358.3,21253,1,3,0)
;;=3^INSERT NON-BIODEGRD DRUG IMPLT SQ
;;^UTILITY(U,$J,358.3,21254,0)
;;=57465^^69^877^5^^^^1
;;^UTILITY(U,$J,358.3,21254,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21254,1,2,0)
;;=2^57465
;;^UTILITY(U,$J,358.3,21254,1,3,0)
;;=3^COMPUTER AIDED COLPOSCOPY,ADD-ON
;;^UTILITY(U,$J,358.3,21255,0)
;;=99401^^69^878^1^^^^1
;;^UTILITY(U,$J,358.3,21255,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21255,1,2,0)
;;=2^99401
;;^UTILITY(U,$J,358.3,21255,1,3,0)
;;=3^PREVENTIVE COUNSELING 15 MIN
;;^UTILITY(U,$J,358.3,21256,0)
;;=99402^^69^878^2^^^^1
;;^UTILITY(U,$J,358.3,21256,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21256,1,2,0)
;;=2^99402
;;^UTILITY(U,$J,358.3,21256,1,3,0)
;;=3^PREVENTIVE COUNSELING 30 MIN
;;^UTILITY(U,$J,358.3,21257,0)
;;=99403^^69^878^3^^^^1
;;^UTILITY(U,$J,358.3,21257,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21257,1,2,0)
;;=2^99403
;;^UTILITY(U,$J,358.3,21257,1,3,0)
;;=3^PREVENTIVE COUNSELING 45 MIN
;;^UTILITY(U,$J,358.3,21258,0)
;;=99411^^69^879^1^^^^1
;;^UTILITY(U,$J,358.3,21258,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21258,1,2,0)
;;=2^99411
;;^UTILITY(U,$J,358.3,21258,1,3,0)
;;=3^PREVENTIVE COUNSELING,GRP 30MIN
;;^UTILITY(U,$J,358.3,21259,0)
;;=99412^^69^879^2^^^^1
;;^UTILITY(U,$J,358.3,21259,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21259,1,2,0)
;;=2^99412
;;^UTILITY(U,$J,358.3,21259,1,3,0)
;;=3^PREVENTIVE COUNSELING,GRP 60MIN
;;^UTILITY(U,$J,358.3,21260,0)
;;=99354^^69^880^4^^^^1
;;^UTILITY(U,$J,358.3,21260,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21260,1,2,0)
;;=2^99354
;;^UTILITY(U,$J,358.3,21260,1,3,0)
;;=3^PROLONGED SVC,PT CONTACT,1ST HR
;;^UTILITY(U,$J,358.3,21261,0)
;;=99355^^69^880^5^^^^1
;;^UTILITY(U,$J,358.3,21261,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21261,1,2,0)
;;=2^99355
;;^UTILITY(U,$J,358.3,21261,1,3,0)
;;=3^PROLONGED SVC,PT CONTACT,EA ADDL 30 MIN
;;^UTILITY(U,$J,358.3,21262,0)
;;=99358^^69^880^2^^^^1
;;^UTILITY(U,$J,358.3,21262,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21262,1,2,0)
;;=2^99358
;;^UTILITY(U,$J,358.3,21262,1,3,0)
;;=3^PROLONGED SVC W/O PT CONTACT,1ST HR
;;^UTILITY(U,$J,358.3,21263,0)
;;=99359^^69^880^3^^^^1
;;^UTILITY(U,$J,358.3,21263,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21263,1,2,0)
;;=2^99359
;;^UTILITY(U,$J,358.3,21263,1,3,0)
;;=3^PROLONGED SVC W/O PT CONTACT,EA ADDL 30 MIN
;;^UTILITY(U,$J,358.3,21264,0)
;;=99417^^69^880^1^^^^1
;;^UTILITY(U,$J,358.3,21264,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21264,1,2,0)
;;=2^99417
;;^UTILITY(U,$J,358.3,21264,1,3,0)
;;=3^PROLONGED SVC USE W/ OUTPT E/M,EA 15 MIN
;;^UTILITY(U,$J,358.3,21265,0)
;;=90471^^69^881^1^^^^1
;;^UTILITY(U,$J,358.3,21265,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21265,1,2,0)
;;=2^90471
;;^UTILITY(U,$J,358.3,21265,1,3,0)
;;=3^IMMUNIZATION ADMIN,1 VACCINE
;;^UTILITY(U,$J,358.3,21266,0)
;;=90472^^69^881^2^^^^1
;;^UTILITY(U,$J,358.3,21266,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21266,1,2,0)
;;=2^90472
;;^UTILITY(U,$J,358.3,21266,1,3,0)
;;=3^IMMUNIZATION ADMIN,EA ADDL
;;^UTILITY(U,$J,358.3,21267,0)
;;=12011^^69^882^1^^^^1
;;^UTILITY(U,$J,358.3,21267,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21267,1,2,0)
;;=2^12011
;;^UTILITY(U,$J,358.3,21267,1,3,0)
;;=3^SIMPLE REPAIR;2.5CM OR LESS
;;^UTILITY(U,$J,358.3,21268,0)
;;=12013^^69^882^2^^^^1
;;^UTILITY(U,$J,358.3,21268,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21268,1,2,0)
;;=2^12013
;;^UTILITY(U,$J,358.3,21268,1,3,0)
;;=3^SIMPLE REPAIR;2.6-5.0CM
;;^UTILITY(U,$J,358.3,21269,0)
;;=12014^^69^882^3^^^^1
;;^UTILITY(U,$J,358.3,21269,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21269,1,2,0)
;;=2^12014
;;^UTILITY(U,$J,358.3,21269,1,3,0)
;;=3^SIMPLE REPAIR;5.1-7.5CM
;;^UTILITY(U,$J,358.3,21270,0)
;;=12015^^69^882^4^^^^1
;;^UTILITY(U,$J,358.3,21270,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21270,1,2,0)
;;=2^12015
;;^UTILITY(U,$J,358.3,21270,1,3,0)
;;=3^SIMPLE REPAIR;7.6-12.5CM
;;^UTILITY(U,$J,358.3,21271,0)
;;=12016^^69^882^5^^^^1
;;^UTILITY(U,$J,358.3,21271,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21271,1,2,0)
;;=2^12016
;;^UTILITY(U,$J,358.3,21271,1,3,0)
;;=3^SIMPLE REPAIR;12.6-20.0CM
;;^UTILITY(U,$J,358.3,21272,0)
;;=12017^^69^882^6^^^^1
;;^UTILITY(U,$J,358.3,21272,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21272,1,2,0)
;;=2^12017
;;^UTILITY(U,$J,358.3,21272,1,3,0)
;;=3^SIMPLE REPAIR;20.1-30.0CM
;;^UTILITY(U,$J,358.3,21273,0)
;;=12018^^69^882^7^^^^1
;;^UTILITY(U,$J,358.3,21273,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21273,1,2,0)
;;=2^12018
;;^UTILITY(U,$J,358.3,21273,1,3,0)
;;=3^SIMPLE REPAIR;OVER 30.0CM
;;^UTILITY(U,$J,358.3,21274,0)
;;=12001^^69^883^1^^^^1
;;^UTILITY(U,$J,358.3,21274,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21274,1,2,0)
;;=2^12001
;;^UTILITY(U,$J,358.3,21274,1,3,0)
;;=3^SIMPLE REPAIR;2.5CM OR LESS
;;^UTILITY(U,$J,358.3,21275,0)
;;=12002^^69^883^2^^^^1
;;^UTILITY(U,$J,358.3,21275,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21275,1,2,0)
;;=2^12002
;;^UTILITY(U,$J,358.3,21275,1,3,0)
;;=3^SIMPLE REPAIR;2.6-7.5CM
;;^UTILITY(U,$J,358.3,21276,0)
;;=12004^^69^883^3^^^^1
;;^UTILITY(U,$J,358.3,21276,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21276,1,2,0)
;;=2^12004
;;^UTILITY(U,$J,358.3,21276,1,3,0)
;;=3^SIMPLE REPAIR;7.6-12.5CM
;;^UTILITY(U,$J,358.3,21277,0)
;;=12005^^69^883^4^^^^1
;;^UTILITY(U,$J,358.3,21277,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21277,1,2,0)
;;=2^12005
;;^UTILITY(U,$J,358.3,21277,1,3,0)
;;=3^SIMPLE REPAIR;12.6-20.0CM
;;^UTILITY(U,$J,358.3,21278,0)
;;=12006^^69^883^5^^^^1
;;^UTILITY(U,$J,358.3,21278,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21278,1,2,0)
;;=2^12006
;;^UTILITY(U,$J,358.3,21278,1,3,0)
;;=3^SIMPLE REPAIR;20.1-30.0CM
;;^UTILITY(U,$J,358.3,21279,0)
;;=12007^^69^883^6^^^^1
;;^UTILITY(U,$J,358.3,21279,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21279,1,2,0)
;;=2^12007
;;^UTILITY(U,$J,358.3,21279,1,3,0)
;;=3^SIMPLE REPAIR;OVER 30.0CM
;;^UTILITY(U,$J,358.3,21280,0)
;;=99395^^69^884^1^^^^1
;;^UTILITY(U,$J,358.3,21280,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21280,1,2,0)
;;=2^99395
;;^UTILITY(U,$J,358.3,21280,1,3,0)
;;=3^PREVENTIVE MED,EST PT 18-39
;;^UTILITY(U,$J,358.3,21281,0)
;;=99396^^69^884^2^^^^1
;;^UTILITY(U,$J,358.3,21281,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21281,1,2,0)
;;=2^99396
;;^UTILITY(U,$J,358.3,21281,1,3,0)
;;=3^PREVENTIVE MED,EST PT 40-64
;;^UTILITY(U,$J,358.3,21282,0)
;;=99397^^69^884^3^^^^1
;;^UTILITY(U,$J,358.3,21282,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21282,1,2,0)
;;=2^99397
;;^UTILITY(U,$J,358.3,21282,1,3,0)
;;=3^PREVENTIVE MED,EST PT > 64
;;^UTILITY(U,$J,358.3,21283,0)
;;=99385^^69^885^1^^^^1
;;^UTILITY(U,$J,358.3,21283,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21283,1,2,0)
;;=2^99385
;;^UTILITY(U,$J,358.3,21283,1,3,0)
;;=3^PREVENTIVE MED,NEW PT 18-39
;;^UTILITY(U,$J,358.3,21284,0)
;;=99386^^69^885^2^^^^1
;;^UTILITY(U,$J,358.3,21284,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21284,1,2,0)
;;=2^99386
;;^UTILITY(U,$J,358.3,21284,1,3,0)
;;=3^PREVENTIVE MED,NEW PT 40-64
;;^UTILITY(U,$J,358.3,21285,0)
;;=99387^^69^885^3^^^^1
;;^UTILITY(U,$J,358.3,21285,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21285,1,2,0)
;;=2^99387
;;^UTILITY(U,$J,358.3,21285,1,3,0)
;;=3^PREVENTIVE MED,NEW PT > 64
;;^UTILITY(U,$J,358.3,21286,0)
;;=99497^^69^886^1^^^^1
;;^UTILITY(U,$J,358.3,21286,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21286,1,2,0)
;;=2^99497
;;^UTILITY(U,$J,358.3,21286,1,3,0)
;;=3^ADV CARE PLANNING,1ST 30 MIN
;;^UTILITY(U,$J,358.3,21287,0)
;;=99498^^69^886^2^^^^1
;;^UTILITY(U,$J,358.3,21287,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21287,1,2,0)
;;=2^99498
;;^UTILITY(U,$J,358.3,21287,1,3,0)
;;=3^ADV CARE PLANNING,EA ADDL 30 MIN
;;^UTILITY(U,$J,358.3,21288,0)
;;=96156^^69^887^1^^^^1
;;^UTILITY(U,$J,358.3,21288,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21288,1,2,0)
;;=2^96156
;;^UTILITY(U,$J,358.3,21288,1,3,0)
;;=3^HLTH/BEHAV ASSESS/REASSESS
;;^UTILITY(U,$J,358.3,21289,0)
;;=96164^^69^887^2^^^^1
;;^UTILITY(U,$J,358.3,21289,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21289,1,2,0)
;;=2^96164
;;^UTILITY(U,$J,358.3,21289,1,3,0)
;;=3^HLTH/BEHAV INTVN,GRP,1ST 30 MIN
;;^UTILITY(U,$J,358.3,21290,0)
;;=96165^^69^887^3^^^^1
;;^UTILITY(U,$J,358.3,21290,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21290,1,2,0)
;;=2^96165
;;^UTILITY(U,$J,358.3,21290,1,3,0)
;;=3^HLTH/BEHAV INTVN,GRP,EA ADDL 15 MIN
;;^UTILITY(U,$J,358.3,21291,0)
;;=96158^^69^887^4^^^^1
;;^UTILITY(U,$J,358.3,21291,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21291,1,2,0)
;;=2^96158
;;^UTILITY(U,$J,358.3,21291,1,3,0)
;;=3^HLTH/BEHAV INTVN,IND,1ST 30 MIN
;;^UTILITY(U,$J,358.3,21292,0)
;;=96159^^69^887^5^^^^1
;;^UTILITY(U,$J,358.3,21292,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21292,1,2,0)
;;=2^96159
;;^UTILITY(U,$J,358.3,21292,1,3,0)
;;=3^HLTH/BEHAV INTVN,IND,EA ADDL 15 MIN
;;^UTILITY(U,$J,358.3,21293,0)
;;=96167^^69^887^6^^^^1
;;^UTILITY(U,$J,358.3,21293,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21293,1,2,0)
;;=2^96167
;;^UTILITY(U,$J,358.3,21293,1,3,0)
;;=3^HLTH/BEHAV INTVN,FAM & PT,1ST 30 MIN
;;^UTILITY(U,$J,358.3,21294,0)
;;=96168^^69^887^7^^^^1
;;^UTILITY(U,$J,358.3,21294,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21294,1,2,0)
;;=2^96168
;;^UTILITY(U,$J,358.3,21294,1,3,0)
;;=3^HLTH/BEHAV INTVN,FAM & PT,EA ADDL 15 MIN
;;^UTILITY(U,$J,358.3,21295,0)
;;=96170^^69^887^8^^^^1
;;^UTILITY(U,$J,358.3,21295,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21295,1,2,0)
;;=2^96170
;;^UTILITY(U,$J,358.3,21295,1,3,0)
;;=3^HLTH/BEHAV INTVN,FAM W/O PT,1ST 30 MIN
;;^UTILITY(U,$J,358.3,21296,0)
;;=96171^^69^887^9^^^^1
;;^UTILITY(U,$J,358.3,21296,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21296,1,2,0)
;;=2^96171
;;^UTILITY(U,$J,358.3,21296,1,3,0)
;;=3^HLTH/BEHAV INTVN,FAM W/O PT,EA ADDL 15 MIN
;;^UTILITY(U,$J,358.3,21297,0)
;;=36416^^69^888^1^^^^1
;;^UTILITY(U,$J,358.3,21297,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21297,1,2,0)
;;=2^36416
;;^UTILITY(U,$J,358.3,21297,1,3,0)
;;=3^CAPILLARY BLOOD DRAW
;;^UTILITY(U,$J,358.3,21298,0)
;;=99606^^69^888^2^^^^1
;;^UTILITY(U,$J,358.3,21298,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21298,1,2,0)
;;=2^99606
;;^UTILITY(U,$J,358.3,21298,1,3,0)
;;=3^MTMS BY PHARM,EST,15 MIN
;;^UTILITY(U,$J,358.3,21299,0)
;;=99606^^69^888^3^^^^1
;;^UTILITY(U,$J,358.3,21299,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21299,1,2,0)
;;=2^99606
;;^UTILITY(U,$J,358.3,21299,1,3,0)
;;=3^MTMS BY PHARM,NP,15 MIN
;;^UTILITY(U,$J,358.3,21300,0)
;;=99607^^69^888^4^^^^1
;;^UTILITY(U,$J,358.3,21300,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21300,1,2,0)
;;=2^99607
;;^UTILITY(U,$J,358.3,21300,1,3,0)
;;=3^MTMS BY PHARM,ADDL 15 MIN
;;^UTILITY(U,$J,358.3,21301,0)
;;=90732^^69^889^30^^^^1
;;^UTILITY(U,$J,358.3,21301,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21301,1,2,0)
;;=2^90732
;;^UTILITY(U,$J,358.3,21301,1,3,0)
;;=3^PNEUMOVAX 23 (PNEUMOCOCCAL VACCINE)
;;^UTILITY(U,$J,358.3,21302,0)
;;=90585^^69^889^1^^^^1
;;^UTILITY(U,$J,358.3,21302,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21302,1,2,0)
;;=2^90585
;;^UTILITY(U,$J,358.3,21302,1,3,0)
;;=3^BCG VACCINE, PERCUT
;;^UTILITY(U,$J,358.3,21303,0)
;;=90632^^69^889^16^^^^1
;;^UTILITY(U,$J,358.3,21303,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21303,1,2,0)
;;=2^90632
;;^UTILITY(U,$J,358.3,21303,1,3,0)
;;=3^HEP A VACCINE, ADULT IM
;;^UTILITY(U,$J,358.3,21304,0)
;;=90636^^69^889^17^^^^1
;;^UTILITY(U,$J,358.3,21304,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21304,1,2,0)
;;=2^90636
;;^UTILITY(U,$J,358.3,21304,1,3,0)
;;=3^HEP A/HEP B VACC, ADULT IM
;;^UTILITY(U,$J,358.3,21305,0)
;;=90647^^69^889^20^^^^1
;;^UTILITY(U,$J,358.3,21305,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21305,1,2,0)
;;=2^90647
;;^UTILITY(U,$J,358.3,21305,1,3,0)
;;=3^HIB VACCINE, PRP-OMP, IM
;;^UTILITY(U,$J,358.3,21306,0)
;;=90648^^69^889^21^^^^1
;;^UTILITY(U,$J,358.3,21306,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21306,1,2,0)
;;=2^90648
;;^UTILITY(U,$J,358.3,21306,1,3,0)
;;=3^HIB VACCINE, PRP-T, IM
;;^UTILITY(U,$J,358.3,21307,0)
;;=90649^^69^889^15^^^^1
;;^UTILITY(U,$J,358.3,21307,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21307,1,2,0)
;;=2^90649
;;^UTILITY(U,$J,358.3,21307,1,3,0)
;;=3^H PAPILLOMA VACC 3 DOSE IM
;;^UTILITY(U,$J,358.3,21308,0)
;;=90675^^69^889^34^^^^1
;;^UTILITY(U,$J,358.3,21308,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21308,1,2,0)
;;=2^90675
;;^UTILITY(U,$J,358.3,21308,1,3,0)
;;=3^RABIES VACCINE, IM
;;^UTILITY(U,$J,358.3,21309,0)
;;=90676^^69^889^33^^^^1
;;^UTILITY(U,$J,358.3,21309,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21309,1,2,0)
;;=2^90676
;;^UTILITY(U,$J,358.3,21309,1,3,0)
;;=3^RABIES VACCINE, ID
;;^UTILITY(U,$J,358.3,21310,0)
;;=90680^^69^889^35^^^^1
;;^UTILITY(U,$J,358.3,21310,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21310,1,2,0)
;;=2^90680
;;^UTILITY(U,$J,358.3,21310,1,3,0)
;;=3^ROTOVIRUS VACC 3 DOSE, ORAL
;;^UTILITY(U,$J,358.3,21311,0)
;;=90698^^69^889^4^^^^1
;;^UTILITY(U,$J,358.3,21311,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21311,1,2,0)
;;=2^90698
;;^UTILITY(U,$J,358.3,21311,1,3,0)
;;=3^DTAP-HIB-IP VACCINE, IM
;;^UTILITY(U,$J,358.3,21312,0)
;;=90707^^69^889^26^^^^1
;;^UTILITY(U,$J,358.3,21312,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21312,1,2,0)
;;=2^90707
;;^UTILITY(U,$J,358.3,21312,1,3,0)
;;=3^MMR VACCINE, SC
;;^UTILITY(U,$J,358.3,21313,0)
;;=90710^^69^889^27^^^^1
;;^UTILITY(U,$J,358.3,21313,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21313,1,2,0)
;;=2^90710
;;^UTILITY(U,$J,358.3,21313,1,3,0)
;;=3^MMRV VACCINE, SC
;;^UTILITY(U,$J,358.3,21314,0)
;;=90713^^69^889^31^^^^1
;;^UTILITY(U,$J,358.3,21314,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21314,1,2,0)
;;=2^90713
;;^UTILITY(U,$J,358.3,21314,1,3,0)
;;=3^POLIOVIRUS, IPV, SC/IM
;;^UTILITY(U,$J,358.3,21315,0)
;;=90714^^69^889^36^^^^1
;;^UTILITY(U,$J,358.3,21315,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21315,1,2,0)
;;=2^90714
;;^UTILITY(U,$J,358.3,21315,1,3,0)
;;=3^TD VACCINE NO PRSRV IM
;;^UTILITY(U,$J,358.3,21316,0)
;;=90723^^69^889^3^^^^1
;;^UTILITY(U,$J,358.3,21316,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21316,1,2,0)
;;=2^90723
;;^UTILITY(U,$J,358.3,21316,1,3,0)
;;=3^DTAP-HEP B-IPV VACCINE, IM
;;^UTILITY(U,$J,358.3,21317,0)
;;=90734^^69^889^22^^^^1
;;^UTILITY(U,$J,358.3,21317,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21317,1,2,0)
;;=2^90734
;;^UTILITY(U,$J,358.3,21317,1,3,0)
;;=3^MENINGOCOCCAL VACCINE, IM
;;^UTILITY(U,$J,358.3,21318,0)
;;=90733^^69^889^23^^^^1
;;^UTILITY(U,$J,358.3,21318,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21318,1,2,0)
;;=2^90733
;;^UTILITY(U,$J,358.3,21318,1,3,0)
;;=3^MENINGOCOCCAL VACCINE, SC
;;^UTILITY(U,$J,358.3,21319,0)
;;=90736^^69^889^40^^^^1
;;^UTILITY(U,$J,358.3,21319,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21319,1,2,0)
;;=2^90736
;;^UTILITY(U,$J,358.3,21319,1,3,0)
;;=3^ZOSTER (SHINGLES) VACCINE
;;^UTILITY(U,$J,358.3,21320,0)
;;=90746^^69^889^18^^^^1
;;^UTILITY(U,$J,358.3,21320,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21320,1,2,0)
;;=2^90746
;;^UTILITY(U,$J,358.3,21320,1,3,0)
;;=3^HEP B VACCINE, ADULT, IM
;;^UTILITY(U,$J,358.3,21321,0)
;;=90748^^69^889^19^^^^1
;;^UTILITY(U,$J,358.3,21321,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21321,1,2,0)
;;=2^90748
;;^UTILITY(U,$J,358.3,21321,1,3,0)
;;=3^HEP B/HIB VACCINE, IM
;;^UTILITY(U,$J,358.3,21322,0)
;;=90715^^69^889^37^^^^1
;;^UTILITY(U,$J,358.3,21322,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21322,1,2,0)
;;=2^90715
;;^UTILITY(U,$J,358.3,21322,1,3,0)
;;=3^TDAP VACCINE
;;^UTILITY(U,$J,358.3,21323,0)
;;=90716^^69^889^39^^^^1
;;^UTILITY(U,$J,358.3,21323,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21323,1,2,0)
;;=2^90716
;;^UTILITY(U,$J,358.3,21323,1,3,0)
;;=3^VARIVAX (CHICKEN POX) VACCINE
;;^UTILITY(U,$J,358.3,21324,0)
;;=90664^^69^889^9^^^^1
;;^UTILITY(U,$J,358.3,21324,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21324,1,2,0)
;;=2^90664
;;^UTILITY(U,$J,358.3,21324,1,3,0)
;;=3^FLU VACCINE INTRANASAL,PANDEMIC,LIVE
;;^UTILITY(U,$J,358.3,21325,0)
;;=90749^^69^889^6^^^^1
;;^UTILITY(U,$J,358.3,21325,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21325,1,2,0)
;;=2^90749
;;^UTILITY(U,$J,358.3,21325,1,3,0)
;;=3^DTP VACCINE, IM
;;^UTILITY(U,$J,358.3,21326,0)
;;=90691^^69^889^38^^^^1
;;^UTILITY(U,$J,358.3,21326,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21326,1,2,0)
;;=2^90691
;;^UTILITY(U,$J,358.3,21326,1,3,0)
;;=3^TYPHOID VACCINE IM
;;^UTILITY(U,$J,358.3,21327,0)
;;=90670^^69^889^32^^^^1
;;^UTILITY(U,$J,358.3,21327,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21327,1,2,0)
;;=2^90670
;;^UTILITY(U,$J,358.3,21327,1,3,0)
;;=3^PREVNAR 13 (PNEUMOCOCCAL VACCINE)
;;^UTILITY(U,$J,358.3,21328,0)
;;=90662^^69^889^8^^^^1
;;^UTILITY(U,$J,358.3,21328,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21328,1,2,0)
;;=2^90662
;;^UTILITY(U,$J,358.3,21328,1,3,0)
;;=3^FLU VACCINE HIGH DOSE SYRINGE (FLUZONE)
;;^UTILITY(U,$J,358.3,21329,0)
;;=90697^^69^889^5^^^^1
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI08P 19797 printed Sep 23, 2025@19:19:49 Page 2
IBDEI08P ; ; 01-AUG-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
+2 if 'DIFQR(358.3)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.3,21246,0)
+2 ;;=57500^^69^877^2^^^^1
+3 ;;^UTILITY(U,$J,358.3,21246,1,0)
+4 ;;=^358.31IA^3^2
+5 ;;^UTILITY(U,$J,358.3,21246,1,2,0)
+6 ;;=2^57500
+7 ;;^UTILITY(U,$J,358.3,21246,1,3,0)
+8 ;;=3^CERVICAL BIOPSY
+9 ;;^UTILITY(U,$J,358.3,21247,0)
+10 ;;=58300^^69^877^8^^^^1
+11 ;;^UTILITY(U,$J,358.3,21247,1,0)
+12 ;;=^358.31IA^3^2
+13 ;;^UTILITY(U,$J,358.3,21247,1,2,0)
+14 ;;=2^58300
+15 ;;^UTILITY(U,$J,358.3,21247,1,3,0)
+16 ;;=3^INSERT IUD
+17 ;;^UTILITY(U,$J,358.3,21248,0)
+18 ;;=58301^^69^877^12^^^^1
+19 ;;^UTILITY(U,$J,358.3,21248,1,0)
+20 ;;=^358.31IA^3^2
+21 ;;^UTILITY(U,$J,358.3,21248,1,2,0)
+22 ;;=2^58301
+23 ;;^UTILITY(U,$J,358.3,21248,1,3,0)
+24 ;;=3^REMOVE IUD
+25 ;;^UTILITY(U,$J,358.3,21249,0)
+26 ;;=57460^^69^877^1^^^^1
+27 ;;^UTILITY(U,$J,358.3,21249,1,0)
+28 ;;=^358.31IA^3^2
+29 ;;^UTILITY(U,$J,358.3,21249,1,2,0)
+30 ;;=2^57460
+31 ;;^UTILITY(U,$J,358.3,21249,1,3,0)
+32 ;;=3^BX OF CERVIX W/SCOPE LEEP
+33 ;;^UTILITY(U,$J,358.3,21250,0)
+34 ;;=57461^^69^877^4^^^^1
+35 ;;^UTILITY(U,$J,358.3,21250,1,0)
+36 ;;=^358.31IA^3^2
+37 ;;^UTILITY(U,$J,358.3,21250,1,2,0)
+38 ;;=2^57461
+39 ;;^UTILITY(U,$J,358.3,21250,1,3,0)
+40 ;;=3^CONZ OF CERVIX W/SCOPE LEEP
+41 ;;^UTILITY(U,$J,358.3,21251,0)
+42 ;;=76830^^69^877^13^^^^1
+43 ;;^UTILITY(U,$J,358.3,21251,1,0)
+44 ;;=^358.31IA^3^2
+45 ;;^UTILITY(U,$J,358.3,21251,1,2,0)
+46 ;;=2^76830
+47 ;;^UTILITY(U,$J,358.3,21251,1,3,0)
+48 ;;=3^TRANSVAGINAL US NON-OB
+49 ;;^UTILITY(U,$J,358.3,21252,0)
+50 ;;=57520^^69^877^3^^^^1
+51 ;;^UTILITY(U,$J,358.3,21252,1,0)
+52 ;;=^358.31IA^3^2
+53 ;;^UTILITY(U,$J,358.3,21252,1,2,0)
+54 ;;=2^57520
+55 ;;^UTILITY(U,$J,358.3,21252,1,3,0)
+56 ;;=3^CONIZATION OF CERVIX
+57 ;;^UTILITY(U,$J,358.3,21253,0)
+58 ;;=11981^^69^877^9^^^^1
+59 ;;^UTILITY(U,$J,358.3,21253,1,0)
+60 ;;=^358.31IA^3^2
+61 ;;^UTILITY(U,$J,358.3,21253,1,2,0)
+62 ;;=2^11981
+63 ;;^UTILITY(U,$J,358.3,21253,1,3,0)
+64 ;;=3^INSERT NON-BIODEGRD DRUG IMPLT SQ
+65 ;;^UTILITY(U,$J,358.3,21254,0)
+66 ;;=57465^^69^877^5^^^^1
+67 ;;^UTILITY(U,$J,358.3,21254,1,0)
+68 ;;=^358.31IA^3^2
+69 ;;^UTILITY(U,$J,358.3,21254,1,2,0)
+70 ;;=2^57465
+71 ;;^UTILITY(U,$J,358.3,21254,1,3,0)
+72 ;;=3^COMPUTER AIDED COLPOSCOPY,ADD-ON
+73 ;;^UTILITY(U,$J,358.3,21255,0)
+74 ;;=99401^^69^878^1^^^^1
+75 ;;^UTILITY(U,$J,358.3,21255,1,0)
+76 ;;=^358.31IA^3^2
+77 ;;^UTILITY(U,$J,358.3,21255,1,2,0)
+78 ;;=2^99401
+79 ;;^UTILITY(U,$J,358.3,21255,1,3,0)
+80 ;;=3^PREVENTIVE COUNSELING 15 MIN
+81 ;;^UTILITY(U,$J,358.3,21256,0)
+82 ;;=99402^^69^878^2^^^^1
+83 ;;^UTILITY(U,$J,358.3,21256,1,0)
+84 ;;=^358.31IA^3^2
+85 ;;^UTILITY(U,$J,358.3,21256,1,2,0)
+86 ;;=2^99402
+87 ;;^UTILITY(U,$J,358.3,21256,1,3,0)
+88 ;;=3^PREVENTIVE COUNSELING 30 MIN
+89 ;;^UTILITY(U,$J,358.3,21257,0)
+90 ;;=99403^^69^878^3^^^^1
+91 ;;^UTILITY(U,$J,358.3,21257,1,0)
+92 ;;=^358.31IA^3^2
+93 ;;^UTILITY(U,$J,358.3,21257,1,2,0)
+94 ;;=2^99403
+95 ;;^UTILITY(U,$J,358.3,21257,1,3,0)
+96 ;;=3^PREVENTIVE COUNSELING 45 MIN
+97 ;;^UTILITY(U,$J,358.3,21258,0)
+98 ;;=99411^^69^879^1^^^^1
+99 ;;^UTILITY(U,$J,358.3,21258,1,0)
+100 ;;=^358.31IA^3^2
+101 ;;^UTILITY(U,$J,358.3,21258,1,2,0)
+102 ;;=2^99411
+103 ;;^UTILITY(U,$J,358.3,21258,1,3,0)
+104 ;;=3^PREVENTIVE COUNSELING,GRP 30MIN
+105 ;;^UTILITY(U,$J,358.3,21259,0)
+106 ;;=99412^^69^879^2^^^^1
+107 ;;^UTILITY(U,$J,358.3,21259,1,0)
+108 ;;=^358.31IA^3^2
+109 ;;^UTILITY(U,$J,358.3,21259,1,2,0)
+110 ;;=2^99412
+111 ;;^UTILITY(U,$J,358.3,21259,1,3,0)
+112 ;;=3^PREVENTIVE COUNSELING,GRP 60MIN
+113 ;;^UTILITY(U,$J,358.3,21260,0)
+114 ;;=99354^^69^880^4^^^^1
+115 ;;^UTILITY(U,$J,358.3,21260,1,0)
+116 ;;=^358.31IA^3^2
+117 ;;^UTILITY(U,$J,358.3,21260,1,2,0)
+118 ;;=2^99354
+119 ;;^UTILITY(U,$J,358.3,21260,1,3,0)
+120 ;;=3^PROLONGED SVC,PT CONTACT,1ST HR
+121 ;;^UTILITY(U,$J,358.3,21261,0)
+122 ;;=99355^^69^880^5^^^^1
+123 ;;^UTILITY(U,$J,358.3,21261,1,0)
+124 ;;=^358.31IA^3^2
+125 ;;^UTILITY(U,$J,358.3,21261,1,2,0)
+126 ;;=2^99355
+127 ;;^UTILITY(U,$J,358.3,21261,1,3,0)
+128 ;;=3^PROLONGED SVC,PT CONTACT,EA ADDL 30 MIN
+129 ;;^UTILITY(U,$J,358.3,21262,0)
+130 ;;=99358^^69^880^2^^^^1
+131 ;;^UTILITY(U,$J,358.3,21262,1,0)
+132 ;;=^358.31IA^3^2
+133 ;;^UTILITY(U,$J,358.3,21262,1,2,0)
+134 ;;=2^99358
+135 ;;^UTILITY(U,$J,358.3,21262,1,3,0)
+136 ;;=3^PROLONGED SVC W/O PT CONTACT,1ST HR
+137 ;;^UTILITY(U,$J,358.3,21263,0)
+138 ;;=99359^^69^880^3^^^^1
+139 ;;^UTILITY(U,$J,358.3,21263,1,0)
+140 ;;=^358.31IA^3^2
+141 ;;^UTILITY(U,$J,358.3,21263,1,2,0)
+142 ;;=2^99359
+143 ;;^UTILITY(U,$J,358.3,21263,1,3,0)
+144 ;;=3^PROLONGED SVC W/O PT CONTACT,EA ADDL 30 MIN
+145 ;;^UTILITY(U,$J,358.3,21264,0)
+146 ;;=99417^^69^880^1^^^^1
+147 ;;^UTILITY(U,$J,358.3,21264,1,0)
+148 ;;=^358.31IA^3^2
+149 ;;^UTILITY(U,$J,358.3,21264,1,2,0)
+150 ;;=2^99417
+151 ;;^UTILITY(U,$J,358.3,21264,1,3,0)
+152 ;;=3^PROLONGED SVC USE W/ OUTPT E/M,EA 15 MIN
+153 ;;^UTILITY(U,$J,358.3,21265,0)
+154 ;;=90471^^69^881^1^^^^1
+155 ;;^UTILITY(U,$J,358.3,21265,1,0)
+156 ;;=^358.31IA^3^2
+157 ;;^UTILITY(U,$J,358.3,21265,1,2,0)
+158 ;;=2^90471
+159 ;;^UTILITY(U,$J,358.3,21265,1,3,0)
+160 ;;=3^IMMUNIZATION ADMIN,1 VACCINE
+161 ;;^UTILITY(U,$J,358.3,21266,0)
+162 ;;=90472^^69^881^2^^^^1
+163 ;;^UTILITY(U,$J,358.3,21266,1,0)
+164 ;;=^358.31IA^3^2
+165 ;;^UTILITY(U,$J,358.3,21266,1,2,0)
+166 ;;=2^90472
+167 ;;^UTILITY(U,$J,358.3,21266,1,3,0)
+168 ;;=3^IMMUNIZATION ADMIN,EA ADDL
+169 ;;^UTILITY(U,$J,358.3,21267,0)
+170 ;;=12011^^69^882^1^^^^1
+171 ;;^UTILITY(U,$J,358.3,21267,1,0)
+172 ;;=^358.31IA^3^2
+173 ;;^UTILITY(U,$J,358.3,21267,1,2,0)
+174 ;;=2^12011
+175 ;;^UTILITY(U,$J,358.3,21267,1,3,0)
+176 ;;=3^SIMPLE REPAIR;2.5CM OR LESS
+177 ;;^UTILITY(U,$J,358.3,21268,0)
+178 ;;=12013^^69^882^2^^^^1
+179 ;;^UTILITY(U,$J,358.3,21268,1,0)
+180 ;;=^358.31IA^3^2
+181 ;;^UTILITY(U,$J,358.3,21268,1,2,0)
+182 ;;=2^12013
+183 ;;^UTILITY(U,$J,358.3,21268,1,3,0)
+184 ;;=3^SIMPLE REPAIR;2.6-5.0CM
+185 ;;^UTILITY(U,$J,358.3,21269,0)
+186 ;;=12014^^69^882^3^^^^1
+187 ;;^UTILITY(U,$J,358.3,21269,1,0)
+188 ;;=^358.31IA^3^2
+189 ;;^UTILITY(U,$J,358.3,21269,1,2,0)
+190 ;;=2^12014
+191 ;;^UTILITY(U,$J,358.3,21269,1,3,0)
+192 ;;=3^SIMPLE REPAIR;5.1-7.5CM
+193 ;;^UTILITY(U,$J,358.3,21270,0)
+194 ;;=12015^^69^882^4^^^^1
+195 ;;^UTILITY(U,$J,358.3,21270,1,0)
+196 ;;=^358.31IA^3^2
+197 ;;^UTILITY(U,$J,358.3,21270,1,2,0)
+198 ;;=2^12015
+199 ;;^UTILITY(U,$J,358.3,21270,1,3,0)
+200 ;;=3^SIMPLE REPAIR;7.6-12.5CM
+201 ;;^UTILITY(U,$J,358.3,21271,0)
+202 ;;=12016^^69^882^5^^^^1
+203 ;;^UTILITY(U,$J,358.3,21271,1,0)
+204 ;;=^358.31IA^3^2
+205 ;;^UTILITY(U,$J,358.3,21271,1,2,0)
+206 ;;=2^12016
+207 ;;^UTILITY(U,$J,358.3,21271,1,3,0)
+208 ;;=3^SIMPLE REPAIR;12.6-20.0CM
+209 ;;^UTILITY(U,$J,358.3,21272,0)
+210 ;;=12017^^69^882^6^^^^1
+211 ;;^UTILITY(U,$J,358.3,21272,1,0)
+212 ;;=^358.31IA^3^2
+213 ;;^UTILITY(U,$J,358.3,21272,1,2,0)
+214 ;;=2^12017
+215 ;;^UTILITY(U,$J,358.3,21272,1,3,0)
+216 ;;=3^SIMPLE REPAIR;20.1-30.0CM
+217 ;;^UTILITY(U,$J,358.3,21273,0)
+218 ;;=12018^^69^882^7^^^^1
+219 ;;^UTILITY(U,$J,358.3,21273,1,0)
+220 ;;=^358.31IA^3^2
+221 ;;^UTILITY(U,$J,358.3,21273,1,2,0)
+222 ;;=2^12018
+223 ;;^UTILITY(U,$J,358.3,21273,1,3,0)
+224 ;;=3^SIMPLE REPAIR;OVER 30.0CM
+225 ;;^UTILITY(U,$J,358.3,21274,0)
+226 ;;=12001^^69^883^1^^^^1
+227 ;;^UTILITY(U,$J,358.3,21274,1,0)
+228 ;;=^358.31IA^3^2
+229 ;;^UTILITY(U,$J,358.3,21274,1,2,0)
+230 ;;=2^12001
+231 ;;^UTILITY(U,$J,358.3,21274,1,3,0)
+232 ;;=3^SIMPLE REPAIR;2.5CM OR LESS
+233 ;;^UTILITY(U,$J,358.3,21275,0)
+234 ;;=12002^^69^883^2^^^^1
+235 ;;^UTILITY(U,$J,358.3,21275,1,0)
+236 ;;=^358.31IA^3^2
+237 ;;^UTILITY(U,$J,358.3,21275,1,2,0)
+238 ;;=2^12002
+239 ;;^UTILITY(U,$J,358.3,21275,1,3,0)
+240 ;;=3^SIMPLE REPAIR;2.6-7.5CM
+241 ;;^UTILITY(U,$J,358.3,21276,0)
+242 ;;=12004^^69^883^3^^^^1
+243 ;;^UTILITY(U,$J,358.3,21276,1,0)
+244 ;;=^358.31IA^3^2
+245 ;;^UTILITY(U,$J,358.3,21276,1,2,0)
+246 ;;=2^12004
+247 ;;^UTILITY(U,$J,358.3,21276,1,3,0)
+248 ;;=3^SIMPLE REPAIR;7.6-12.5CM
+249 ;;^UTILITY(U,$J,358.3,21277,0)
+250 ;;=12005^^69^883^4^^^^1
+251 ;;^UTILITY(U,$J,358.3,21277,1,0)
+252 ;;=^358.31IA^3^2
+253 ;;^UTILITY(U,$J,358.3,21277,1,2,0)
+254 ;;=2^12005
+255 ;;^UTILITY(U,$J,358.3,21277,1,3,0)
+256 ;;=3^SIMPLE REPAIR;12.6-20.0CM
+257 ;;^UTILITY(U,$J,358.3,21278,0)
+258 ;;=12006^^69^883^5^^^^1
+259 ;;^UTILITY(U,$J,358.3,21278,1,0)
+260 ;;=^358.31IA^3^2
+261 ;;^UTILITY(U,$J,358.3,21278,1,2,0)
+262 ;;=2^12006
+263 ;;^UTILITY(U,$J,358.3,21278,1,3,0)
+264 ;;=3^SIMPLE REPAIR;20.1-30.0CM
+265 ;;^UTILITY(U,$J,358.3,21279,0)
+266 ;;=12007^^69^883^6^^^^1
+267 ;;^UTILITY(U,$J,358.3,21279,1,0)
+268 ;;=^358.31IA^3^2
+269 ;;^UTILITY(U,$J,358.3,21279,1,2,0)
+270 ;;=2^12007
+271 ;;^UTILITY(U,$J,358.3,21279,1,3,0)
+272 ;;=3^SIMPLE REPAIR;OVER 30.0CM
+273 ;;^UTILITY(U,$J,358.3,21280,0)
+274 ;;=99395^^69^884^1^^^^1
+275 ;;^UTILITY(U,$J,358.3,21280,1,0)
+276 ;;=^358.31IA^3^2
+277 ;;^UTILITY(U,$J,358.3,21280,1,2,0)
+278 ;;=2^99395
+279 ;;^UTILITY(U,$J,358.3,21280,1,3,0)
+280 ;;=3^PREVENTIVE MED,EST PT 18-39
+281 ;;^UTILITY(U,$J,358.3,21281,0)
+282 ;;=99396^^69^884^2^^^^1
+283 ;;^UTILITY(U,$J,358.3,21281,1,0)
+284 ;;=^358.31IA^3^2
+285 ;;^UTILITY(U,$J,358.3,21281,1,2,0)
+286 ;;=2^99396
+287 ;;^UTILITY(U,$J,358.3,21281,1,3,0)
+288 ;;=3^PREVENTIVE MED,EST PT 40-64
+289 ;;^UTILITY(U,$J,358.3,21282,0)
+290 ;;=99397^^69^884^3^^^^1
+291 ;;^UTILITY(U,$J,358.3,21282,1,0)
+292 ;;=^358.31IA^3^2
+293 ;;^UTILITY(U,$J,358.3,21282,1,2,0)
+294 ;;=2^99397
+295 ;;^UTILITY(U,$J,358.3,21282,1,3,0)
+296 ;;=3^PREVENTIVE MED,EST PT > 64
+297 ;;^UTILITY(U,$J,358.3,21283,0)
+298 ;;=99385^^69^885^1^^^^1
+299 ;;^UTILITY(U,$J,358.3,21283,1,0)
+300 ;;=^358.31IA^3^2
+301 ;;^UTILITY(U,$J,358.3,21283,1,2,0)
+302 ;;=2^99385
+303 ;;^UTILITY(U,$J,358.3,21283,1,3,0)
+304 ;;=3^PREVENTIVE MED,NEW PT 18-39
+305 ;;^UTILITY(U,$J,358.3,21284,0)
+306 ;;=99386^^69^885^2^^^^1
+307 ;;^UTILITY(U,$J,358.3,21284,1,0)
+308 ;;=^358.31IA^3^2
+309 ;;^UTILITY(U,$J,358.3,21284,1,2,0)
+310 ;;=2^99386
+311 ;;^UTILITY(U,$J,358.3,21284,1,3,0)
+312 ;;=3^PREVENTIVE MED,NEW PT 40-64
+313 ;;^UTILITY(U,$J,358.3,21285,0)
+314 ;;=99387^^69^885^3^^^^1
+315 ;;^UTILITY(U,$J,358.3,21285,1,0)
+316 ;;=^358.31IA^3^2
+317 ;;^UTILITY(U,$J,358.3,21285,1,2,0)
+318 ;;=2^99387
+319 ;;^UTILITY(U,$J,358.3,21285,1,3,0)
+320 ;;=3^PREVENTIVE MED,NEW PT > 64
+321 ;;^UTILITY(U,$J,358.3,21286,0)
+322 ;;=99497^^69^886^1^^^^1
+323 ;;^UTILITY(U,$J,358.3,21286,1,0)
+324 ;;=^358.31IA^3^2
+325 ;;^UTILITY(U,$J,358.3,21286,1,2,0)
+326 ;;=2^99497
+327 ;;^UTILITY(U,$J,358.3,21286,1,3,0)
+328 ;;=3^ADV CARE PLANNING,1ST 30 MIN
+329 ;;^UTILITY(U,$J,358.3,21287,0)
+330 ;;=99498^^69^886^2^^^^1
+331 ;;^UTILITY(U,$J,358.3,21287,1,0)
+332 ;;=^358.31IA^3^2
+333 ;;^UTILITY(U,$J,358.3,21287,1,2,0)
+334 ;;=2^99498
+335 ;;^UTILITY(U,$J,358.3,21287,1,3,0)
+336 ;;=3^ADV CARE PLANNING,EA ADDL 30 MIN
+337 ;;^UTILITY(U,$J,358.3,21288,0)
+338 ;;=96156^^69^887^1^^^^1
+339 ;;^UTILITY(U,$J,358.3,21288,1,0)
+340 ;;=^358.31IA^3^2
+341 ;;^UTILITY(U,$J,358.3,21288,1,2,0)
+342 ;;=2^96156
+343 ;;^UTILITY(U,$J,358.3,21288,1,3,0)
+344 ;;=3^HLTH/BEHAV ASSESS/REASSESS
+345 ;;^UTILITY(U,$J,358.3,21289,0)
+346 ;;=96164^^69^887^2^^^^1
+347 ;;^UTILITY(U,$J,358.3,21289,1,0)
+348 ;;=^358.31IA^3^2
+349 ;;^UTILITY(U,$J,358.3,21289,1,2,0)
+350 ;;=2^96164
+351 ;;^UTILITY(U,$J,358.3,21289,1,3,0)
+352 ;;=3^HLTH/BEHAV INTVN,GRP,1ST 30 MIN
+353 ;;^UTILITY(U,$J,358.3,21290,0)
+354 ;;=96165^^69^887^3^^^^1
+355 ;;^UTILITY(U,$J,358.3,21290,1,0)
+356 ;;=^358.31IA^3^2
+357 ;;^UTILITY(U,$J,358.3,21290,1,2,0)
+358 ;;=2^96165
+359 ;;^UTILITY(U,$J,358.3,21290,1,3,0)
+360 ;;=3^HLTH/BEHAV INTVN,GRP,EA ADDL 15 MIN
+361 ;;^UTILITY(U,$J,358.3,21291,0)
+362 ;;=96158^^69^887^4^^^^1
+363 ;;^UTILITY(U,$J,358.3,21291,1,0)
+364 ;;=^358.31IA^3^2
+365 ;;^UTILITY(U,$J,358.3,21291,1,2,0)
+366 ;;=2^96158
+367 ;;^UTILITY(U,$J,358.3,21291,1,3,0)
+368 ;;=3^HLTH/BEHAV INTVN,IND,1ST 30 MIN
+369 ;;^UTILITY(U,$J,358.3,21292,0)
+370 ;;=96159^^69^887^5^^^^1
+371 ;;^UTILITY(U,$J,358.3,21292,1,0)
+372 ;;=^358.31IA^3^2
+373 ;;^UTILITY(U,$J,358.3,21292,1,2,0)
+374 ;;=2^96159
+375 ;;^UTILITY(U,$J,358.3,21292,1,3,0)
+376 ;;=3^HLTH/BEHAV INTVN,IND,EA ADDL 15 MIN
+377 ;;^UTILITY(U,$J,358.3,21293,0)
+378 ;;=96167^^69^887^6^^^^1
+379 ;;^UTILITY(U,$J,358.3,21293,1,0)
+380 ;;=^358.31IA^3^2
+381 ;;^UTILITY(U,$J,358.3,21293,1,2,0)
+382 ;;=2^96167
+383 ;;^UTILITY(U,$J,358.3,21293,1,3,0)
+384 ;;=3^HLTH/BEHAV INTVN,FAM & PT,1ST 30 MIN
+385 ;;^UTILITY(U,$J,358.3,21294,0)
+386 ;;=96168^^69^887^7^^^^1
+387 ;;^UTILITY(U,$J,358.3,21294,1,0)
+388 ;;=^358.31IA^3^2
+389 ;;^UTILITY(U,$J,358.3,21294,1,2,0)
+390 ;;=2^96168
+391 ;;^UTILITY(U,$J,358.3,21294,1,3,0)
+392 ;;=3^HLTH/BEHAV INTVN,FAM & PT,EA ADDL 15 MIN
+393 ;;^UTILITY(U,$J,358.3,21295,0)
+394 ;;=96170^^69^887^8^^^^1
+395 ;;^UTILITY(U,$J,358.3,21295,1,0)
+396 ;;=^358.31IA^3^2
+397 ;;^UTILITY(U,$J,358.3,21295,1,2,0)
+398 ;;=2^96170
+399 ;;^UTILITY(U,$J,358.3,21295,1,3,0)
+400 ;;=3^HLTH/BEHAV INTVN,FAM W/O PT,1ST 30 MIN
+401 ;;^UTILITY(U,$J,358.3,21296,0)
+402 ;;=96171^^69^887^9^^^^1
+403 ;;^UTILITY(U,$J,358.3,21296,1,0)
+404 ;;=^358.31IA^3^2
+405 ;;^UTILITY(U,$J,358.3,21296,1,2,0)
+406 ;;=2^96171
+407 ;;^UTILITY(U,$J,358.3,21296,1,3,0)
+408 ;;=3^HLTH/BEHAV INTVN,FAM W/O PT,EA ADDL 15 MIN
+409 ;;^UTILITY(U,$J,358.3,21297,0)
+410 ;;=36416^^69^888^1^^^^1
+411 ;;^UTILITY(U,$J,358.3,21297,1,0)
+412 ;;=^358.31IA^3^2
+413 ;;^UTILITY(U,$J,358.3,21297,1,2,0)
+414 ;;=2^36416
+415 ;;^UTILITY(U,$J,358.3,21297,1,3,0)
+416 ;;=3^CAPILLARY BLOOD DRAW
+417 ;;^UTILITY(U,$J,358.3,21298,0)
+418 ;;=99606^^69^888^2^^^^1
+419 ;;^UTILITY(U,$J,358.3,21298,1,0)
+420 ;;=^358.31IA^3^2
+421 ;;^UTILITY(U,$J,358.3,21298,1,2,0)
+422 ;;=2^99606
+423 ;;^UTILITY(U,$J,358.3,21298,1,3,0)
+424 ;;=3^MTMS BY PHARM,EST,15 MIN
+425 ;;^UTILITY(U,$J,358.3,21299,0)
+426 ;;=99606^^69^888^3^^^^1
+427 ;;^UTILITY(U,$J,358.3,21299,1,0)
+428 ;;=^358.31IA^3^2
+429 ;;^UTILITY(U,$J,358.3,21299,1,2,0)
+430 ;;=2^99606
+431 ;;^UTILITY(U,$J,358.3,21299,1,3,0)
+432 ;;=3^MTMS BY PHARM,NP,15 MIN
+433 ;;^UTILITY(U,$J,358.3,21300,0)
+434 ;;=99607^^69^888^4^^^^1
+435 ;;^UTILITY(U,$J,358.3,21300,1,0)
+436 ;;=^358.31IA^3^2
+437 ;;^UTILITY(U,$J,358.3,21300,1,2,0)
+438 ;;=2^99607
+439 ;;^UTILITY(U,$J,358.3,21300,1,3,0)
+440 ;;=3^MTMS BY PHARM,ADDL 15 MIN
+441 ;;^UTILITY(U,$J,358.3,21301,0)
+442 ;;=90732^^69^889^30^^^^1
+443 ;;^UTILITY(U,$J,358.3,21301,1,0)
+444 ;;=^358.31IA^3^2
+445 ;;^UTILITY(U,$J,358.3,21301,1,2,0)
+446 ;;=2^90732
+447 ;;^UTILITY(U,$J,358.3,21301,1,3,0)
+448 ;;=3^PNEUMOVAX 23 (PNEUMOCOCCAL VACCINE)
+449 ;;^UTILITY(U,$J,358.3,21302,0)
+450 ;;=90585^^69^889^1^^^^1
+451 ;;^UTILITY(U,$J,358.3,21302,1,0)
+452 ;;=^358.31IA^3^2
+453 ;;^UTILITY(U,$J,358.3,21302,1,2,0)
+454 ;;=2^90585
+455 ;;^UTILITY(U,$J,358.3,21302,1,3,0)
+456 ;;=3^BCG VACCINE, PERCUT
+457 ;;^UTILITY(U,$J,358.3,21303,0)
+458 ;;=90632^^69^889^16^^^^1
+459 ;;^UTILITY(U,$J,358.3,21303,1,0)
+460 ;;=^358.31IA^3^2
+461 ;;^UTILITY(U,$J,358.3,21303,1,2,0)
+462 ;;=2^90632
+463 ;;^UTILITY(U,$J,358.3,21303,1,3,0)
+464 ;;=3^HEP A VACCINE, ADULT IM
+465 ;;^UTILITY(U,$J,358.3,21304,0)
+466 ;;=90636^^69^889^17^^^^1
+467 ;;^UTILITY(U,$J,358.3,21304,1,0)
+468 ;;=^358.31IA^3^2
+469 ;;^UTILITY(U,$J,358.3,21304,1,2,0)
+470 ;;=2^90636
+471 ;;^UTILITY(U,$J,358.3,21304,1,3,0)
+472 ;;=3^HEP A/HEP B VACC, ADULT IM
+473 ;;^UTILITY(U,$J,358.3,21305,0)
+474 ;;=90647^^69^889^20^^^^1
+475 ;;^UTILITY(U,$J,358.3,21305,1,0)
+476 ;;=^358.31IA^3^2
+477 ;;^UTILITY(U,$J,358.3,21305,1,2,0)
+478 ;;=2^90647
+479 ;;^UTILITY(U,$J,358.3,21305,1,3,0)
+480 ;;=3^HIB VACCINE, PRP-OMP, IM
+481 ;;^UTILITY(U,$J,358.3,21306,0)
+482 ;;=90648^^69^889^21^^^^1
+483 ;;^UTILITY(U,$J,358.3,21306,1,0)
+484 ;;=^358.31IA^3^2
+485 ;;^UTILITY(U,$J,358.3,21306,1,2,0)
+486 ;;=2^90648
+487 ;;^UTILITY(U,$J,358.3,21306,1,3,0)
+488 ;;=3^HIB VACCINE, PRP-T, IM
+489 ;;^UTILITY(U,$J,358.3,21307,0)
+490 ;;=90649^^69^889^15^^^^1
+491 ;;^UTILITY(U,$J,358.3,21307,1,0)
+492 ;;=^358.31IA^3^2
+493 ;;^UTILITY(U,$J,358.3,21307,1,2,0)
+494 ;;=2^90649
+495 ;;^UTILITY(U,$J,358.3,21307,1,3,0)
+496 ;;=3^H PAPILLOMA VACC 3 DOSE IM
+497 ;;^UTILITY(U,$J,358.3,21308,0)
+498 ;;=90675^^69^889^34^^^^1
+499 ;;^UTILITY(U,$J,358.3,21308,1,0)
+500 ;;=^358.31IA^3^2
+501 ;;^UTILITY(U,$J,358.3,21308,1,2,0)
+502 ;;=2^90675
+503 ;;^UTILITY(U,$J,358.3,21308,1,3,0)
+504 ;;=3^RABIES VACCINE, IM
+505 ;;^UTILITY(U,$J,358.3,21309,0)
+506 ;;=90676^^69^889^33^^^^1
+507 ;;^UTILITY(U,$J,358.3,21309,1,0)
+508 ;;=^358.31IA^3^2
+509 ;;^UTILITY(U,$J,358.3,21309,1,2,0)
+510 ;;=2^90676
+511 ;;^UTILITY(U,$J,358.3,21309,1,3,0)
+512 ;;=3^RABIES VACCINE, ID
+513 ;;^UTILITY(U,$J,358.3,21310,0)
+514 ;;=90680^^69^889^35^^^^1
+515 ;;^UTILITY(U,$J,358.3,21310,1,0)
+516 ;;=^358.31IA^3^2
+517 ;;^UTILITY(U,$J,358.3,21310,1,2,0)
+518 ;;=2^90680
+519 ;;^UTILITY(U,$J,358.3,21310,1,3,0)
+520 ;;=3^ROTOVIRUS VACC 3 DOSE, ORAL
+521 ;;^UTILITY(U,$J,358.3,21311,0)
+522 ;;=90698^^69^889^4^^^^1
+523 ;;^UTILITY(U,$J,358.3,21311,1,0)
+524 ;;=^358.31IA^3^2
+525 ;;^UTILITY(U,$J,358.3,21311,1,2,0)
+526 ;;=2^90698
+527 ;;^UTILITY(U,$J,358.3,21311,1,3,0)
+528 ;;=3^DTAP-HIB-IP VACCINE, IM
+529 ;;^UTILITY(U,$J,358.3,21312,0)
+530 ;;=90707^^69^889^26^^^^1
+531 ;;^UTILITY(U,$J,358.3,21312,1,0)
+532 ;;=^358.31IA^3^2
+533 ;;^UTILITY(U,$J,358.3,21312,1,2,0)
+534 ;;=2^90707
+535 ;;^UTILITY(U,$J,358.3,21312,1,3,0)
+536 ;;=3^MMR VACCINE, SC
+537 ;;^UTILITY(U,$J,358.3,21313,0)
+538 ;;=90710^^69^889^27^^^^1
+539 ;;^UTILITY(U,$J,358.3,21313,1,0)
+540 ;;=^358.31IA^3^2
+541 ;;^UTILITY(U,$J,358.3,21313,1,2,0)
+542 ;;=2^90710
+543 ;;^UTILITY(U,$J,358.3,21313,1,3,0)
+544 ;;=3^MMRV VACCINE, SC
+545 ;;^UTILITY(U,$J,358.3,21314,0)
+546 ;;=90713^^69^889^31^^^^1
+547 ;;^UTILITY(U,$J,358.3,21314,1,0)
+548 ;;=^358.31IA^3^2
+549 ;;^UTILITY(U,$J,358.3,21314,1,2,0)
+550 ;;=2^90713
+551 ;;^UTILITY(U,$J,358.3,21314,1,3,0)
+552 ;;=3^POLIOVIRUS, IPV, SC/IM
+553 ;;^UTILITY(U,$J,358.3,21315,0)
+554 ;;=90714^^69^889^36^^^^1
+555 ;;^UTILITY(U,$J,358.3,21315,1,0)
+556 ;;=^358.31IA^3^2
+557 ;;^UTILITY(U,$J,358.3,21315,1,2,0)
+558 ;;=2^90714
+559 ;;^UTILITY(U,$J,358.3,21315,1,3,0)
+560 ;;=3^TD VACCINE NO PRSRV IM
+561 ;;^UTILITY(U,$J,358.3,21316,0)
+562 ;;=90723^^69^889^3^^^^1
+563 ;;^UTILITY(U,$J,358.3,21316,1,0)
+564 ;;=^358.31IA^3^2
+565 ;;^UTILITY(U,$J,358.3,21316,1,2,0)
+566 ;;=2^90723
+567 ;;^UTILITY(U,$J,358.3,21316,1,3,0)
+568 ;;=3^DTAP-HEP B-IPV VACCINE, IM
+569 ;;^UTILITY(U,$J,358.3,21317,0)
+570 ;;=90734^^69^889^22^^^^1
+571 ;;^UTILITY(U,$J,358.3,21317,1,0)
+572 ;;=^358.31IA^3^2
+573 ;;^UTILITY(U,$J,358.3,21317,1,2,0)
+574 ;;=2^90734
+575 ;;^UTILITY(U,$J,358.3,21317,1,3,0)
+576 ;;=3^MENINGOCOCCAL VACCINE, IM
+577 ;;^UTILITY(U,$J,358.3,21318,0)
+578 ;;=90733^^69^889^23^^^^1
+579 ;;^UTILITY(U,$J,358.3,21318,1,0)
+580 ;;=^358.31IA^3^2
+581 ;;^UTILITY(U,$J,358.3,21318,1,2,0)
+582 ;;=2^90733
+583 ;;^UTILITY(U,$J,358.3,21318,1,3,0)
+584 ;;=3^MENINGOCOCCAL VACCINE, SC
+585 ;;^UTILITY(U,$J,358.3,21319,0)
+586 ;;=90736^^69^889^40^^^^1
+587 ;;^UTILITY(U,$J,358.3,21319,1,0)
+588 ;;=^358.31IA^3^2
+589 ;;^UTILITY(U,$J,358.3,21319,1,2,0)
+590 ;;=2^90736
+591 ;;^UTILITY(U,$J,358.3,21319,1,3,0)
+592 ;;=3^ZOSTER (SHINGLES) VACCINE
+593 ;;^UTILITY(U,$J,358.3,21320,0)
+594 ;;=90746^^69^889^18^^^^1
+595 ;;^UTILITY(U,$J,358.3,21320,1,0)
+596 ;;=^358.31IA^3^2
+597 ;;^UTILITY(U,$J,358.3,21320,1,2,0)
+598 ;;=2^90746
+599 ;;^UTILITY(U,$J,358.3,21320,1,3,0)
+600 ;;=3^HEP B VACCINE, ADULT, IM
+601 ;;^UTILITY(U,$J,358.3,21321,0)
+602 ;;=90748^^69^889^19^^^^1
+603 ;;^UTILITY(U,$J,358.3,21321,1,0)
+604 ;;=^358.31IA^3^2
+605 ;;^UTILITY(U,$J,358.3,21321,1,2,0)
+606 ;;=2^90748
+607 ;;^UTILITY(U,$J,358.3,21321,1,3,0)
+608 ;;=3^HEP B/HIB VACCINE, IM
+609 ;;^UTILITY(U,$J,358.3,21322,0)
+610 ;;=90715^^69^889^37^^^^1
+611 ;;^UTILITY(U,$J,358.3,21322,1,0)
+612 ;;=^358.31IA^3^2
+613 ;;^UTILITY(U,$J,358.3,21322,1,2,0)
+614 ;;=2^90715
+615 ;;^UTILITY(U,$J,358.3,21322,1,3,0)
+616 ;;=3^TDAP VACCINE
+617 ;;^UTILITY(U,$J,358.3,21323,0)
+618 ;;=90716^^69^889^39^^^^1
+619 ;;^UTILITY(U,$J,358.3,21323,1,0)
+620 ;;=^358.31IA^3^2
+621 ;;^UTILITY(U,$J,358.3,21323,1,2,0)
+622 ;;=2^90716
+623 ;;^UTILITY(U,$J,358.3,21323,1,3,0)
+624 ;;=3^VARIVAX (CHICKEN POX) VACCINE
+625 ;;^UTILITY(U,$J,358.3,21324,0)
+626 ;;=90664^^69^889^9^^^^1
+627 ;;^UTILITY(U,$J,358.3,21324,1,0)
+628 ;;=^358.31IA^3^2
+629 ;;^UTILITY(U,$J,358.3,21324,1,2,0)
+630 ;;=2^90664
+631 ;;^UTILITY(U,$J,358.3,21324,1,3,0)
+632 ;;=3^FLU VACCINE INTRANASAL,PANDEMIC,LIVE
+633 ;;^UTILITY(U,$J,358.3,21325,0)
+634 ;;=90749^^69^889^6^^^^1
+635 ;;^UTILITY(U,$J,358.3,21325,1,0)
+636 ;;=^358.31IA^3^2
+637 ;;^UTILITY(U,$J,358.3,21325,1,2,0)
+638 ;;=2^90749
+639 ;;^UTILITY(U,$J,358.3,21325,1,3,0)
+640 ;;=3^DTP VACCINE, IM
+641 ;;^UTILITY(U,$J,358.3,21326,0)
+642 ;;=90691^^69^889^38^^^^1
+643 ;;^UTILITY(U,$J,358.3,21326,1,0)
+644 ;;=^358.31IA^3^2
+645 ;;^UTILITY(U,$J,358.3,21326,1,2,0)
+646 ;;=2^90691
+647 ;;^UTILITY(U,$J,358.3,21326,1,3,0)
+648 ;;=3^TYPHOID VACCINE IM
+649 ;;^UTILITY(U,$J,358.3,21327,0)
+650 ;;=90670^^69^889^32^^^^1
+651 ;;^UTILITY(U,$J,358.3,21327,1,0)
+652 ;;=^358.31IA^3^2
+653 ;;^UTILITY(U,$J,358.3,21327,1,2,0)
+654 ;;=2^90670
+655 ;;^UTILITY(U,$J,358.3,21327,1,3,0)
+656 ;;=3^PREVNAR 13 (PNEUMOCOCCAL VACCINE)
+657 ;;^UTILITY(U,$J,358.3,21328,0)
+658 ;;=90662^^69^889^8^^^^1
+659 ;;^UTILITY(U,$J,358.3,21328,1,0)
+660 ;;=^358.31IA^3^2
+661 ;;^UTILITY(U,$J,358.3,21328,1,2,0)
+662 ;;=2^90662
+663 ;;^UTILITY(U,$J,358.3,21328,1,3,0)
+664 ;;=3^FLU VACCINE HIGH DOSE SYRINGE (FLUZONE)
+665 ;;^UTILITY(U,$J,358.3,21329,0)
+666 ;;=90697^^69^889^5^^^^1
