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

IBDEI048.m

Go to the documentation of this file. 
  1. IBDEI048 ; ; 01-AUG-2022
  1.  ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 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,10188,1,4,0)
  1.  ;;=4^N60.32
  1.  ;;^UTILITY(U,$J,358.3,10188,2)
  1.  ;;=^5015780
  1.  ;;^UTILITY(U,$J,358.3,10189,0)
  1.  ;;=N60.31^^45^447^49
  1.  ;;^UTILITY(U,$J,358.3,10189,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10189,1,3,0)
  1.  ;;=3^Fibrosclerosis,Right Breast
  1.  ;;^UTILITY(U,$J,358.3,10189,1,4,0)
  1.  ;;=4^N60.31
  1.  ;;^UTILITY(U,$J,358.3,10189,2)
  1.  ;;=^5015779
  1.  ;;^UTILITY(U,$J,358.3,10190,0)
  1.  ;;=Z01.411^^45^447^50
  1.  ;;^UTILITY(U,$J,358.3,10190,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10190,1,3,0)
  1.  ;;=3^GYN Exam w/ Abnormal Findings
  1.  ;;^UTILITY(U,$J,358.3,10190,1,4,0)
  1.  ;;=4^Z01.411
  1.  ;;^UTILITY(U,$J,358.3,10190,2)
  1.  ;;=^5062622
  1.  ;;^UTILITY(U,$J,358.3,10191,0)
  1.  ;;=Z01.419^^45^447^1
  1.  ;;^UTILITY(U,$J,358.3,10191,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10191,1,3,0)
  1.  ;;=3
  1.  ;;^UTILITY(U,$J,358.3,10191,1,4,0)
  1.  ;;=4^Z01.419
  1.  ;;^UTILITY(U,$J,358.3,10191,2)
  1.  ;;=^5062623
  1.  ;;^UTILITY(U,$J,358.3,10192,0)
  1.  ;;=Z01.419^^45^447^51
  1.  ;;^UTILITY(U,$J,358.3,10192,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10192,1,3,0)
  1.  ;;=3^GYN Exam w/ Normal Findings
  1.  ;;^UTILITY(U,$J,358.3,10192,1,4,0)
  1.  ;;=4^Z01.419
  1.  ;;^UTILITY(U,$J,358.3,10192,2)
  1.  ;;=^5062623
  1.  ;;^UTILITY(U,$J,358.3,10193,0)
  1.  ;;=R87.613^^45^447^53
  1.  ;;^UTILITY(U,$J,358.3,10193,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10193,1,3,0)
  1.  ;;=3^HGSIL
  1.  ;;^UTILITY(U,$J,358.3,10193,1,4,0)
  1.  ;;=4^R87.613
  1.  ;;^UTILITY(U,$J,358.3,10193,2)
  1.  ;;=^5019671
  1.  ;;^UTILITY(U,$J,358.3,10194,0)
  1.  ;;=R87.612^^45^447^63
  1.  ;;^UTILITY(U,$J,358.3,10194,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10194,1,3,0)
  1.  ;;=3^LGSIL
  1.  ;;^UTILITY(U,$J,358.3,10194,1,4,0)
  1.  ;;=4^R87.612
  1.  ;;^UTILITY(U,$J,358.3,10194,2)
  1.  ;;=^5019670
  1.  ;;^UTILITY(U,$J,358.3,10195,0)
  1.  ;;=R92.1^^45^447^66
  1.  ;;^UTILITY(U,$J,358.3,10195,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10195,1,3,0)
  1.  ;;=3^Mammographic Calcification on Dx Breast Image
  1.  ;;^UTILITY(U,$J,358.3,10195,1,4,0)
  1.  ;;=4^R92.1
  1.  ;;^UTILITY(U,$J,358.3,10195,2)
  1.  ;;=^5019710
  1.  ;;^UTILITY(U,$J,358.3,10196,0)
  1.  ;;=R92.0^^45^447^67
  1.  ;;^UTILITY(U,$J,358.3,10196,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10196,1,3,0)
  1.  ;;=3^Mammographic Microcalcification on Dx Breast Image
  1.  ;;^UTILITY(U,$J,358.3,10196,1,4,0)
  1.  ;;=4^R92.0
  1.  ;;^UTILITY(U,$J,358.3,10196,2)
  1.  ;;=^5019709
  1.  ;;^UTILITY(U,$J,358.3,10197,0)
  1.  ;;=N89.8^^45^447^72
  1.  ;;^UTILITY(U,$J,358.3,10197,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10197,1,3,0)
  1.  ;;=3^Noninflammatory Vaginal Disorder,Oth Spec
  1.  ;;^UTILITY(U,$J,358.3,10197,1,4,0)
  1.  ;;=4^N89.8
  1.  ;;^UTILITY(U,$J,358.3,10197,2)
  1.  ;;=^88111
  1.  ;;^UTILITY(U,$J,358.3,10198,0)
  1.  ;;=R10.2^^45^447^82
  1.  ;;^UTILITY(U,$J,358.3,10198,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10198,1,3,0)
  1.  ;;=3^Pelvic & Perineal Pain
  1.  ;;^UTILITY(U,$J,358.3,10198,1,4,0)
  1.  ;;=4^R10.2
  1.  ;;^UTILITY(U,$J,358.3,10198,2)
  1.  ;;=^5019209
  1.  ;;^UTILITY(U,$J,358.3,10199,0)
  1.  ;;=N94.89^^45^447^83
  1.  ;;^UTILITY(U,$J,358.3,10199,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10199,1,3,0)
  1.  ;;=3^Pelvic Congestion Syndrome
  1.  ;;^UTILITY(U,$J,358.3,10199,1,4,0)
  1.  ;;=4^N94.89
  1.  ;;^UTILITY(U,$J,358.3,10199,2)
  1.  ;;=^5015925
  1.  ;;^UTILITY(U,$J,358.3,10200,0)
  1.  ;;=Z85.3^^45^447^57
  1.  ;;^UTILITY(U,$J,358.3,10200,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10200,1,3,0)
  1.  ;;=3^Hx of Breast CA
  1.  ;;^UTILITY(U,$J,358.3,10200,1,4,0)
  1.  ;;=4^Z85.3
  1.  ;;^UTILITY(U,$J,358.3,10200,2)
  1.  ;;=^5063416
  1.  ;;^UTILITY(U,$J,358.3,10201,0)
  1.  ;;=Z85.43^^45^447^58
  1.  ;;^UTILITY(U,$J,358.3,10201,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10201,1,3,0)
  1.  ;;=3^Hx of Ovarian CA
  1.  ;;^UTILITY(U,$J,358.3,10201,1,4,0)
  1.  ;;=4^Z85.43
  1.  ;;^UTILITY(U,$J,358.3,10201,2)
  1.  ;;=^5063420
  1.  ;;^UTILITY(U,$J,358.3,10202,0)
  1.  ;;=N94.3^^45^447^81
  1.  ;;^UTILITY(U,$J,358.3,10202,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10202,1,3,0)
  1.  ;;=3^PMS
  1.  ;;^UTILITY(U,$J,358.3,10202,1,4,0)
  1.  ;;=4^N94.3
  1.  ;;^UTILITY(U,$J,358.3,10202,2)
  1.  ;;=^5015919
  1.  ;;^UTILITY(U,$J,358.3,10203,0)
  1.  ;;=N93.0^^45^447^88
  1.  ;;^UTILITY(U,$J,358.3,10203,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10203,1,3,0)
  1.  ;;=3^Postcoital & Contact Bleeding
  1.  ;;^UTILITY(U,$J,358.3,10203,1,4,0)
  1.  ;;=4^N93.0
  1.  ;;^UTILITY(U,$J,358.3,10203,2)
  1.  ;;=^5015914
  1.  ;;^UTILITY(U,$J,358.3,10204,0)
  1.  ;;=Z32.02^^45^447^91
  1.  ;;^UTILITY(U,$J,358.3,10204,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10204,1,3,0)
  1.  ;;=3^Pregnancy Test,Negative
  1.  ;;^UTILITY(U,$J,358.3,10204,1,4,0)
  1.  ;;=4^Z32.02
  1.  ;;^UTILITY(U,$J,358.3,10204,2)
  1.  ;;=^5062850
  1.  ;;^UTILITY(U,$J,358.3,10205,0)
  1.  ;;=Z32.01^^45^447^92
  1.  ;;^UTILITY(U,$J,358.3,10205,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10205,1,3,0)
  1.  ;;=3^Pregnancy Test,Positive
  1.  ;;^UTILITY(U,$J,358.3,10205,1,4,0)
  1.  ;;=4^Z32.01
  1.  ;;^UTILITY(U,$J,358.3,10205,2)
  1.  ;;=^5062849
  1.  ;;^UTILITY(U,$J,358.3,10206,0)
  1.  ;;=Z32.00^^45^447^93
  1.  ;;^UTILITY(U,$J,358.3,10206,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10206,1,3,0)
  1.  ;;=3^Pregnancy Test,Unknown Result
  1.  ;;^UTILITY(U,$J,358.3,10206,1,4,0)
  1.  ;;=4^Z32.00
  1.  ;;^UTILITY(U,$J,358.3,10206,2)
  1.  ;;=^5062848
  1.  ;;^UTILITY(U,$J,358.3,10207,0)
  1.  ;;=N81.6^^45^447^97
  1.  ;;^UTILITY(U,$J,358.3,10207,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10207,1,3,0)
  1.  ;;=3^Rectocele w/o Uterine Prolapse
  1.  ;;^UTILITY(U,$J,358.3,10207,1,4,0)
  1.  ;;=4^N81.6
  1.  ;;^UTILITY(U,$J,358.3,10207,2)
  1.  ;;=^259590
  1.  ;;^UTILITY(U,$J,358.3,10208,0)
  1.  ;;=Z12.39^^45^447^101
  1.  ;;^UTILITY(U,$J,358.3,10208,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10208,1,3,0)
  1.  ;;=3^Screening for Malig Neop of Breast
  1.  ;;^UTILITY(U,$J,358.3,10208,1,4,0)
  1.  ;;=4^Z12.39
  1.  ;;^UTILITY(U,$J,358.3,10208,2)
  1.  ;;=^5062686
  1.  ;;^UTILITY(U,$J,358.3,10209,0)
  1.  ;;=Z12.72^^45^447^102
  1.  ;;^UTILITY(U,$J,358.3,10209,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10209,1,3,0)
  1.  ;;=3^Screening for Malig Neop of Vagina
  1.  ;;^UTILITY(U,$J,358.3,10209,1,4,0)
  1.  ;;=4^Z12.72
  1.  ;;^UTILITY(U,$J,358.3,10209,2)
  1.  ;;=^5062691
  1.  ;;^UTILITY(U,$J,358.3,10210,0)
  1.  ;;=Z12.31^^45^447^100
  1.  ;;^UTILITY(U,$J,358.3,10210,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10210,1,3,0)
  1.  ;;=3^Screening Mammogram for Malig Neop of Breast
  1.  ;;^UTILITY(U,$J,358.3,10210,1,4,0)
  1.  ;;=4^Z12.31
  1.  ;;^UTILITY(U,$J,358.3,10210,2)
  1.  ;;=^5062685
  1.  ;;^UTILITY(U,$J,358.3,10211,0)
  1.  ;;=A59.01^^45^447^109
  1.  ;;^UTILITY(U,$J,358.3,10211,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10211,1,3,0)
  1.  ;;=3^Trichomonal Vulvovaginitis
  1.  ;;^UTILITY(U,$J,358.3,10211,1,4,0)
  1.  ;;=4^A59.01
  1.  ;;^UTILITY(U,$J,358.3,10211,2)
  1.  ;;=^121763
  1.  ;;^UTILITY(U,$J,358.3,10212,0)
  1.  ;;=N81.3^^45^447^110
  1.  ;;^UTILITY(U,$J,358.3,10212,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10212,1,3,0)
  1.  ;;=3^Uterovaginal Prolapse,Complete
  1.  ;;^UTILITY(U,$J,358.3,10212,1,4,0)
  1.  ;;=4^N81.3
  1.  ;;^UTILITY(U,$J,358.3,10212,2)
  1.  ;;=^5015840
  1.  ;;^UTILITY(U,$J,358.3,10213,0)
  1.  ;;=N81.2^^45^447^111
  1.  ;;^UTILITY(U,$J,358.3,10213,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10213,1,3,0)
  1.  ;;=3^Uterovaginal Prolapse,Incomplete
  1.  ;;^UTILITY(U,$J,358.3,10213,1,4,0)
  1.  ;;=4^N81.2
  1.  ;;^UTILITY(U,$J,358.3,10213,2)
  1.  ;;=^5015839
  1.  ;;^UTILITY(U,$J,358.3,10214,0)
  1.  ;;=N76.0^^45^447^117
  1.  ;;^UTILITY(U,$J,358.3,10214,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10214,1,3,0)
  1.  ;;=3^Vaginitis,Acute
  1.  ;;^UTILITY(U,$J,358.3,10214,1,4,0)
  1.  ;;=4^N76.0
  1.  ;;^UTILITY(U,$J,358.3,10214,2)
  1.  ;;=^5015826
  1.  ;;^UTILITY(U,$J,358.3,10215,0)
  1.  ;;=N95.2^^45^447^118
  1.  ;;^UTILITY(U,$J,358.3,10215,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10215,1,3,0)
  1.  ;;=3^Vaginitis,Atrophic,Postmenopausal
  1.  ;;^UTILITY(U,$J,358.3,10215,1,4,0)
  1.  ;;=4^N95.2
  1.  ;;^UTILITY(U,$J,358.3,10215,2)
  1.  ;;=^270577
  1.  ;;^UTILITY(U,$J,358.3,10216,0)
  1.  ;;=N76.1^^45^447^119
  1.  ;;^UTILITY(U,$J,358.3,10216,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10216,1,3,0)
  1.  ;;=3^Vaginitis,Subacute & Chronic
  1.  ;;^UTILITY(U,$J,358.3,10216,1,4,0)
  1.  ;;=4^N76.1
  1.  ;;^UTILITY(U,$J,358.3,10216,2)
  1.  ;;=^5015827
  1.  ;;^UTILITY(U,$J,358.3,10217,0)
  1.  ;;=N94.810^^45^447^121
  1.  ;;^UTILITY(U,$J,358.3,10217,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10217,1,3,0)
  1.  ;;=3^Vulvar Vestibulitis
  1.  ;;^UTILITY(U,$J,358.3,10217,1,4,0)
  1.  ;;=4^N94.810
  1.  ;;^UTILITY(U,$J,358.3,10217,2)
  1.  ;;=^336618
  1.  ;;^UTILITY(U,$J,358.3,10218,0)
  1.  ;;=N76.2^^45^447^122
  1.  ;;^UTILITY(U,$J,358.3,10218,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10218,1,3,0)
  1.  ;;=3^Vulvitis,Acute
  1.  ;;^UTILITY(U,$J,358.3,10218,1,4,0)
  1.  ;;=4^N76.2
  1.  ;;^UTILITY(U,$J,358.3,10218,2)
  1.  ;;=^5015828
  1.  ;;^UTILITY(U,$J,358.3,10219,0)
  1.  ;;=N94.818^^45^447^120
  1.  ;;^UTILITY(U,$J,358.3,10219,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10219,1,3,0)
  1.  ;;=3^Vluvodynia,Other
  1.  ;;^UTILITY(U,$J,358.3,10219,1,4,0)
  1.  ;;=4^N94.818
  1.  ;;^UTILITY(U,$J,358.3,10219,2)
  1.  ;;=^5015923
  1.  ;;^UTILITY(U,$J,358.3,10220,0)
  1.  ;;=N94.819^^45^447^123
  1.  ;;^UTILITY(U,$J,358.3,10220,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10220,1,3,0)
  1.  ;;=3^Vulvodynia,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10220,1,4,0)
  1.  ;;=4^N94.819
  1.  ;;^UTILITY(U,$J,358.3,10220,2)
  1.  ;;=^5015924
  1.  ;;^UTILITY(U,$J,358.3,10221,0)
  1.  ;;=N94.12^^45^447^31
  1.  ;;^UTILITY(U,$J,358.3,10221,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10221,1,3,0)
  1.  ;;=3^Dyspareunia,Deep
  1.  ;;^UTILITY(U,$J,358.3,10221,1,4,0)
  1.  ;;=4^N94.12
  1.  ;;^UTILITY(U,$J,358.3,10221,2)
  1.  ;;=^5138974
  1.  ;;^UTILITY(U,$J,358.3,10222,0)
  1.  ;;=N94.19^^45^447^32
  1.  ;;^UTILITY(U,$J,358.3,10222,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10222,1,3,0)
  1.  ;;=3^Dyspareunia,Oth Spec
  1.  ;;^UTILITY(U,$J,358.3,10222,1,4,0)
  1.  ;;=4^N94.19
  1.  ;;^UTILITY(U,$J,358.3,10222,2)
  1.  ;;=^5138975
  1.  ;;^UTILITY(U,$J,358.3,10223,0)
  1.  ;;=N94.11^^45^447^33
  1.  ;;^UTILITY(U,$J,358.3,10223,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10223,1,3,0)
  1.  ;;=3^Dyspareunia,Superficial
  1.  ;;^UTILITY(U,$J,358.3,10223,1,4,0)
  1.  ;;=4^N94.11
  1.  ;;^UTILITY(U,$J,358.3,10223,2)
  1.  ;;=^5138973
  1.  ;;^UTILITY(U,$J,358.3,10224,0)
  1.  ;;=N94.10^^45^447^34
  1.  ;;^UTILITY(U,$J,358.3,10224,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10224,1,3,0)
  1.  ;;=3^Dyspareunia,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10224,1,4,0)
  1.  ;;=4^N94.10
  1.  ;;^UTILITY(U,$J,358.3,10224,2)
  1.  ;;=^5138972
  1.  ;;^UTILITY(U,$J,358.3,10225,0)
  1.  ;;=N83.292^^45^447^76
  1.  ;;^UTILITY(U,$J,358.3,10225,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10225,1,3,0)
  1.  ;;=3^Ovarian Cysts,Oth,Left Side
  1.  ;;^UTILITY(U,$J,358.3,10225,1,4,0)
  1.  ;;=4^N83.292
  1.  ;;^UTILITY(U,$J,358.3,10225,2)
  1.  ;;=^5138948
  1.  ;;^UTILITY(U,$J,358.3,10226,0)
  1.  ;;=N83.291^^45^447^77
  1.  ;;^UTILITY(U,$J,358.3,10226,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10226,1,3,0)
  1.  ;;=3^Ovarian Cysts,Oth,Right Side
  1.  ;;^UTILITY(U,$J,358.3,10226,1,4,0)
  1.  ;;=4^N83.291
  1.  ;;^UTILITY(U,$J,358.3,10226,2)
  1.  ;;=^5138947
  1.  ;;^UTILITY(U,$J,358.3,10227,0)
  1.  ;;=N83.202^^45^447^78
  1.  ;;^UTILITY(U,$J,358.3,10227,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10227,1,3,0)
  1.  ;;=3^Ovarian Cysts,Unspec,Left Side
  1.  ;;^UTILITY(U,$J,358.3,10227,1,4,0)
  1.  ;;=4^N83.202
  1.  ;;^UTILITY(U,$J,358.3,10227,2)
  1.  ;;=^5138945
  1.  ;;^UTILITY(U,$J,358.3,10228,0)
  1.  ;;=N83.201^^45^447^79
  1.  ;;^UTILITY(U,$J,358.3,10228,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10228,1,3,0)
  1.  ;;=3^Ovarian Cysts,Unspec,Right Side
  1.  ;;^UTILITY(U,$J,358.3,10228,1,4,0)
  1.  ;;=4^N83.201
  1.  ;;^UTILITY(U,$J,358.3,10228,2)
  1.  ;;=^5138944
  1.  ;;^UTILITY(U,$J,358.3,10229,0)
  1.  ;;=S31.000A^^45^448^3
  1.  ;;^UTILITY(U,$J,358.3,10229,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10229,1,3,0)
  1.  ;;=3^Open Wnd Low Back/Pelvis w/o Penet Retroperiton,Init,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10229,1,4,0)
  1.  ;;=4^S31.000A
  1.  ;;^UTILITY(U,$J,358.3,10229,2)
  1.  ;;=^5023993
  1.  ;;^UTILITY(U,$J,358.3,10230,0)
  1.  ;;=S31.010A^^45^448^1
  1.  ;;^UTILITY(U,$J,358.3,10230,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10230,1,3,0)
  1.  ;;=3^Laceration w/o FB Low Back/Pelvis w/o Penet Retroperiton,Init
  1.  ;;^UTILITY(U,$J,358.3,10230,1,4,0)
  1.  ;;=4^S31.010A
  1.  ;;^UTILITY(U,$J,358.3,10230,2)
  1.  ;;=^5023999
  1.  ;;^UTILITY(U,$J,358.3,10231,0)
  1.  ;;=L08.89^^45^448^2
  1.  ;;^UTILITY(U,$J,358.3,10231,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10231,1,3,0)
  1.  ;;=3^Local Infections Skin/Subcutaneous Tissue,Oth Spec
  1.  ;;^UTILITY(U,$J,358.3,10231,1,4,0)
  1.  ;;=4^L08.89
  1.  ;;^UTILITY(U,$J,358.3,10231,2)
  1.  ;;=^5009081
  1.  ;;^UTILITY(U,$J,358.3,10232,0)
  1.  ;;=S91.002A^^45^448^4
  1.  ;;^UTILITY(U,$J,358.3,10232,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10232,1,3,0)
  1.  ;;=3^Open Wound,Left Ankle,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10232,1,4,0)
  1.  ;;=4^S91.002A
  1.  ;;^UTILITY(U,$J,358.3,10232,2)
  1.  ;;=^5044132
  1.  ;;^UTILITY(U,$J,358.3,10233,0)
  1.  ;;=S91.302A^^45^448^5
  1.  ;;^UTILITY(U,$J,358.3,10233,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10233,1,3,0)
  1.  ;;=3^Open Wound,Left Foot,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10233,1,4,0)
  1.  ;;=4^S91.302A
  1.  ;;^UTILITY(U,$J,358.3,10233,2)
  1.  ;;=^5044317
  1.  ;;^UTILITY(U,$J,358.3,10234,0)
  1.  ;;=S51.802A^^45^448^6
  1.  ;;^UTILITY(U,$J,358.3,10234,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10234,1,3,0)
  1.  ;;=3^Open Wound,Left Forearm,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10234,1,4,0)
  1.  ;;=4^S51.802A
  1.  ;;^UTILITY(U,$J,358.3,10234,2)
  1.  ;;=^5028662
  1.  ;;^UTILITY(U,$J,358.3,10235,0)
  1.  ;;=S91.102A^^45^448^7
  1.  ;;^UTILITY(U,$J,358.3,10235,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10235,1,3,0)
  1.  ;;=3^Open Wound,Left Great Toe w/o Damage to Nail,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10235,1,4,0)
  1.  ;;=4^S91.102A
  1.  ;;^UTILITY(U,$J,358.3,10235,2)
  1.  ;;=^5044171
  1.  ;;^UTILITY(U,$J,358.3,10236,0)
  1.  ;;=S61.402A^^45^448^8
  1.  ;;^UTILITY(U,$J,358.3,10236,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10236,1,3,0)
  1.  ;;=3^Open Wound,Left Hand,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10236,1,4,0)
  1.  ;;=4^S61.402A
  1.  ;;^UTILITY(U,$J,358.3,10236,2)
  1.  ;;=^5032984
  1.  ;;^UTILITY(U,$J,358.3,10237,0)
  1.  ;;=S71.002A^^45^448^9
  1.  ;;^UTILITY(U,$J,358.3,10237,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10237,1,3,0)
  1.  ;;=3^Open Wound,Left Hip,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10237,1,4,0)
  1.  ;;=4^S71.002A
  1.  ;;^UTILITY(U,$J,358.3,10237,2)
  1.  ;;=^5036972
  1.  ;;^UTILITY(U,$J,358.3,10238,0)
  1.  ;;=S91.104A^^45^448^20
  1.  ;;^UTILITY(U,$J,358.3,10238,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10238,1,3,0)
  1.  ;;=3^Open Wound,Right Lesser Toe(s) w/o Damage to nail,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10238,1,4,0)
  1.  ;;=4^S91.104A
  1.  ;;^UTILITY(U,$J,358.3,10238,2)
  1.  ;;=^5044174
  1.  ;;^UTILITY(U,$J,358.3,10239,0)
  1.  ;;=S81.802A^^45^448^11
  1.  ;;^UTILITY(U,$J,358.3,10239,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10239,1,3,0)
  1.  ;;=3^Open Wound,Left Lower Leg,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10239,1,4,0)
  1.  ;;=4^S81.802A
  1.  ;;^UTILITY(U,$J,358.3,10239,2)
  1.  ;;=^5040068
  1.  ;;^UTILITY(U,$J,358.3,10240,0)
  1.  ;;=S41.102A^^45^448^13
  1.  ;;^UTILITY(U,$J,358.3,10240,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10240,1,3,0)
  1.  ;;=3^Open Wound,Left Upper Arm,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10240,1,4,0)
  1.  ;;=4^S41.102A
  1.  ;;^UTILITY(U,$J,358.3,10240,2)
  1.  ;;=^5026333
  1.  ;;^UTILITY(U,$J,358.3,10241,0)
  1.  ;;=S91.001A^^45^448^14
  1.  ;;^UTILITY(U,$J,358.3,10241,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10241,1,3,0)
  1.  ;;=3^Open Wound,Right Ankle,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10241,1,4,0)
  1.  ;;=4^S91.001A
  1.  ;;^UTILITY(U,$J,358.3,10241,2)
  1.  ;;=^5044129
  1.  ;;^UTILITY(U,$J,358.3,10242,0)
  1.  ;;=S91.301A^^45^448^15
  1.  ;;^UTILITY(U,$J,358.3,10242,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10242,1,3,0)
  1.  ;;=3^Open Wound,Right Foot,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10242,1,4,0)
  1.  ;;=4^S91.301A
  1.  ;;^UTILITY(U,$J,358.3,10242,2)
  1.  ;;=^5044314
  1.  ;;^UTILITY(U,$J,358.3,10243,0)
  1.  ;;=S51.801A^^45^448^16
  1.  ;;^UTILITY(U,$J,358.3,10243,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10243,1,3,0)
  1.  ;;=3^Open Wound,Right Forearm,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10243,1,4,0)
  1.  ;;=4^S51.801A
  1.  ;;^UTILITY(U,$J,358.3,10243,2)
  1.  ;;=^5028659
  1.  ;;^UTILITY(U,$J,358.3,10244,0)
  1.  ;;=S91.101A^^45^448^17
  1.  ;;^UTILITY(U,$J,358.3,10244,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10244,1,3,0)
  1.  ;;=3^Open Wound,Right Great Toe w/o Damage to Nail,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10244,1,4,0)
  1.  ;;=4^S91.101A
  1.  ;;^UTILITY(U,$J,358.3,10244,2)
  1.  ;;=^5044168
  1.  ;;^UTILITY(U,$J,358.3,10245,0)
  1.  ;;=S61.401A^^45^448^18
  1.  ;;^UTILITY(U,$J,358.3,10245,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10245,1,3,0)
  1.  ;;=3^Open Wound,Right Hand,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10245,1,4,0)
  1.  ;;=4^S61.401A
  1.  ;;^UTILITY(U,$J,358.3,10245,2)
  1.  ;;=^5032981
  1.  ;;^UTILITY(U,$J,358.3,10246,0)
  1.  ;;=S71.001A^^45^448^19
  1.  ;;^UTILITY(U,$J,358.3,10246,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10246,1,3,0)
  1.  ;;=3^Open Wound,Right Hip,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10246,1,4,0)
  1.  ;;=4^S71.001A
  1.  ;;^UTILITY(U,$J,358.3,10246,2)
  1.  ;;=^5036969
  1.  ;;^UTILITY(U,$J,358.3,10247,0)
  1.  ;;=S91.105A^^45^448^10
  1.  ;;^UTILITY(U,$J,358.3,10247,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10247,1,3,0)
  1.  ;;=3^Open Wound,Left Lesser Toe(s) w/o Damage to Nail,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10247,1,4,0)
  1.  ;;=4^S91.105A
  1.  ;;^UTILITY(U,$J,358.3,10247,2)
  1.  ;;=^5044177
  1.  ;;^UTILITY(U,$J,358.3,10248,0)
  1.  ;;=S81.801A^^45^448^21
  1.  ;;^UTILITY(U,$J,358.3,10248,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10248,1,3,0)
  1.  ;;=3^Open Wound,Right Lower Leg,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10248,1,4,0)
  1.  ;;=4^S81.801A
  1.  ;;^UTILITY(U,$J,358.3,10248,2)
  1.  ;;=^5040065
  1.  ;;^UTILITY(U,$J,358.3,10249,0)
  1.  ;;=S71.102A^^45^448^12
  1.  ;;^UTILITY(U,$J,358.3,10249,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10249,1,3,0)
  1.  ;;=3^Open Wound,Left Thigh,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10249,1,4,0)
  1.  ;;=4^S71.102A
  1.  ;;^UTILITY(U,$J,358.3,10249,2)
  1.  ;;=^5037011
  1.  ;;^UTILITY(U,$J,358.3,10250,0)
  1.  ;;=S71.101A^^45^448^22
  1.  ;;^UTILITY(U,$J,358.3,10250,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10250,1,3,0)
  1.  ;;=3^Open Wound,Right Thigh,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10250,1,4,0)
  1.  ;;=4^S71.101A
  1.  ;;^UTILITY(U,$J,358.3,10250,2)
  1.  ;;=^5037008
  1.  ;;^UTILITY(U,$J,358.3,10251,0)
  1.  ;;=S41.101A^^45^448^23
  1.  ;;^UTILITY(U,$J,358.3,10251,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10251,1,3,0)
  1.  ;;=3^Open Wound,Right Upper Arm,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10251,1,4,0)
  1.  ;;=4^S41.101A
  1.  ;;^UTILITY(U,$J,358.3,10251,2)
  1.  ;;=^5026330
  1.  ;;^UTILITY(U,$J,358.3,10252,0)
  1.  ;;=E03.5^^45^449^37
  1.  ;;^UTILITY(U,$J,358.3,10252,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10252,1,3,0)
  1.  ;;=3^Myxedema Coma
  1.  ;;^UTILITY(U,$J,358.3,10252,1,4,0)
  1.  ;;=4^E03.5
  1.  ;;^UTILITY(U,$J,358.3,10252,2)
  1.  ;;=^5002474
  1.  ;;^UTILITY(U,$J,358.3,10253,0)
  1.  ;;=R40.2121^^45^449^33
  1.  ;;^UTILITY(U,$J,358.3,10253,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10253,1,3,0)
  1.  ;;=3^Coma Scale,Eyes Open,to Pain,In the Field
  1.  ;;^UTILITY(U,$J,358.3,10253,1,4,0)
  1.  ;;=4^R40.2121
  1.  ;;^UTILITY(U,$J,358.3,10253,2)
  1.  ;;=^5019361
  1.  ;;^UTILITY(U,$J,358.3,10254,0)
  1.  ;;=R40.2120^^45^449^34
  1.  ;;^UTILITY(U,$J,358.3,10254,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10254,1,3,0)
  1.  ;;=3^Coma Scale,Eyes Open,to Pain,Unspec Time
  1.  ;;^UTILITY(U,$J,358.3,10254,1,4,0)
  1.  ;;=4^R40.2120
  1.  ;;^UTILITY(U,$J,358.3,10254,2)
  1.  ;;=^5019360
  1.  ;;^UTILITY(U,$J,358.3,10255,0)
  1.  ;;=R40.2114^^45^449^26
  1.  ;;^UTILITY(U,$J,358.3,10255,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10255,1,3,0)
  1.  ;;=3^Coma Scale,Eyes Open,Never,24+ hrs
  1.  ;;^UTILITY(U,$J,358.3,10255,1,4,0)
  1.  ;;=4^R40.2114
  1.  ;;^UTILITY(U,$J,358.3,10255,2)
  1.  ;;=^5019359
  1.  ;;^UTILITY(U,$J,358.3,10256,0)
  1.  ;;=R40.2113^^45^449^30
  1.  ;;^UTILITY(U,$J,358.3,10256,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10256,1,3,0)
  1.  ;;=3^Coma Scale,Eyes Open,Never,at Hospital Admission
  1.  ;;^UTILITY(U,$J,358.3,10256,1,4,0)
  1.  ;;=4^R40.2113
  1.  ;;^UTILITY(U,$J,358.3,10256,2)
  1.  ;;=^5019358
  1.  ;;^UTILITY(U,$J,358.3,10257,0)
  1.  ;;=R40.2112^^45^449^27
  1.  ;;^UTILITY(U,$J,358.3,10257,1,0)
  1.  ;;=^358.31IA^4^2