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

IBDEI30V.m

Go to the documentation of this file.
IBDEI30V ; ; 04-FEB-2020
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
 Q:'DIFQR(358.3)  F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
Q Q
 ;;^UTILITY(U,$J,358.3,48258,1,3,0)
 ;;=3^Calculus,Urinary,Unspec
 ;;^UTILITY(U,$J,358.3,48258,1,4,0)
 ;;=4^N20.9
 ;;^UTILITY(U,$J,358.3,48258,2)
 ;;=^5015610
 ;;^UTILITY(U,$J,358.3,48259,0)
 ;;=Z87.410^^185^2420^75
 ;;^UTILITY(U,$J,358.3,48259,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48259,1,3,0)
 ;;=3^Personal Hx of Cervical Dysplasia
 ;;^UTILITY(U,$J,358.3,48259,1,4,0)
 ;;=4^Z87.410
 ;;^UTILITY(U,$J,358.3,48259,2)
 ;;=^5063489
 ;;^UTILITY(U,$J,358.3,48260,0)
 ;;=N87.9^^185^2420^18
 ;;^UTILITY(U,$J,358.3,48260,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48260,1,3,0)
 ;;=3^Cervix Uteri,Dysplasia,Unspec
 ;;^UTILITY(U,$J,358.3,48260,1,4,0)
 ;;=4^N87.9
 ;;^UTILITY(U,$J,358.3,48260,2)
 ;;=^5015877
 ;;^UTILITY(U,$J,358.3,48261,0)
 ;;=N86.^^185^2420^19
 ;;^UTILITY(U,$J,358.3,48261,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48261,1,3,0)
 ;;=3^Cervix Uteri,Erosion & Ectropion
 ;;^UTILITY(U,$J,358.3,48261,1,4,0)
 ;;=4^N86.
 ;;^UTILITY(U,$J,358.3,48261,2)
 ;;=^5015874
 ;;^UTILITY(U,$J,358.3,48262,0)
 ;;=N72.^^185^2420^20
 ;;^UTILITY(U,$J,358.3,48262,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48262,1,3,0)
 ;;=3^Cervix Uteri,Inflammatory Disease
 ;;^UTILITY(U,$J,358.3,48262,1,4,0)
 ;;=4^N72.
 ;;^UTILITY(U,$J,358.3,48262,2)
 ;;=^5015812
 ;;^UTILITY(U,$J,358.3,48263,0)
 ;;=N88.9^^185^2420^21
 ;;^UTILITY(U,$J,358.3,48263,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48263,1,3,0)
 ;;=3^Cervix Uteri,Noninflammatory Disorder,Unspec
 ;;^UTILITY(U,$J,358.3,48263,1,4,0)
 ;;=4^N88.9
 ;;^UTILITY(U,$J,358.3,48263,2)
 ;;=^5015884
 ;;^UTILITY(U,$J,358.3,48264,0)
 ;;=N30.91^^185^2420^23
 ;;^UTILITY(U,$J,358.3,48264,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48264,1,3,0)
 ;;=3^Cystitis w/ Hematuria,Unspec
 ;;^UTILITY(U,$J,358.3,48264,1,4,0)
 ;;=4^N30.91
 ;;^UTILITY(U,$J,358.3,48264,2)
 ;;=^5015643
 ;;^UTILITY(U,$J,358.3,48265,0)
 ;;=N30.90^^185^2420^24
 ;;^UTILITY(U,$J,358.3,48265,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48265,1,3,0)
 ;;=3^Cystitis w/o Hematuria,Unspec
 ;;^UTILITY(U,$J,358.3,48265,1,4,0)
 ;;=4^N30.90
 ;;^UTILITY(U,$J,358.3,48265,2)
 ;;=^5015642
 ;;^UTILITY(U,$J,358.3,48266,0)
 ;;=R30.0^^185^2420^27
 ;;^UTILITY(U,$J,358.3,48266,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48266,1,3,0)
 ;;=3^Dysuria
 ;;^UTILITY(U,$J,358.3,48266,1,4,0)
 ;;=4^R30.0
 ;;^UTILITY(U,$J,358.3,48266,2)
 ;;=^5019322
 ;;^UTILITY(U,$J,358.3,48267,0)
 ;;=N80.9^^185^2420^30
 ;;^UTILITY(U,$J,358.3,48267,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48267,1,3,0)
 ;;=3^Endometriosis,Unspec
 ;;^UTILITY(U,$J,358.3,48267,1,4,0)
 ;;=4^N80.9
 ;;^UTILITY(U,$J,358.3,48267,2)
 ;;=^5015837
 ;;^UTILITY(U,$J,358.3,48268,0)
 ;;=N45.1^^185^2420^31
 ;;^UTILITY(U,$J,358.3,48268,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48268,1,3,0)
 ;;=3^Epididymitis
 ;;^UTILITY(U,$J,358.3,48268,1,4,0)
 ;;=4^N45.1
 ;;^UTILITY(U,$J,358.3,48268,2)
 ;;=^41396
 ;;^UTILITY(U,$J,358.3,48269,0)
 ;;=N45.3^^185^2420^33
 ;;^UTILITY(U,$J,358.3,48269,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48269,1,3,0)
 ;;=3^Epididymo-orchitis
 ;;^UTILITY(U,$J,358.3,48269,1,4,0)
 ;;=4^N45.3
 ;;^UTILITY(U,$J,358.3,48269,2)
 ;;=^5015707
 ;;^UTILITY(U,$J,358.3,48270,0)
 ;;=N52.9^^185^2420^37
 ;;^UTILITY(U,$J,358.3,48270,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48270,1,3,0)
 ;;=3^Erectile Dysfunction,Male,Unspec
 ;;^UTILITY(U,$J,358.3,48270,1,4,0)
 ;;=4^N52.9
 ;;^UTILITY(U,$J,358.3,48270,2)
 ;;=^5015763