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

IBDEI202.m

Go to the documentation of this file.
IBDEI202 ; ; 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,31912,0)
 ;;=R93.422^^126^1634^2
 ;;^UTILITY(U,$J,358.3,31912,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31912,1,3,0)
 ;;=3^Abnormal Rad Find on Left Kidney Dx Image
 ;;^UTILITY(U,$J,358.3,31912,1,4,0)
 ;;=4^R93.422
 ;;^UTILITY(U,$J,358.3,31912,2)
 ;;=^5139225
 ;;^UTILITY(U,$J,358.3,31913,0)
 ;;=R39.82^^126^1634^8
 ;;^UTILITY(U,$J,358.3,31913,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31913,1,3,0)
 ;;=3^Bladder Pain,Chronic
 ;;^UTILITY(U,$J,358.3,31913,1,4,0)
 ;;=4^R39.82
 ;;^UTILITY(U,$J,358.3,31913,2)
 ;;=^5139201
 ;;^UTILITY(U,$J,358.3,31914,0)
 ;;=R82.71^^126^1634^7
 ;;^UTILITY(U,$J,358.3,31914,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31914,1,3,0)
 ;;=3^Bacteriuria
 ;;^UTILITY(U,$J,358.3,31914,1,4,0)
 ;;=4^R82.71
 ;;^UTILITY(U,$J,358.3,31914,2)
 ;;=^12474
 ;;^UTILITY(U,$J,358.3,31915,0)
 ;;=N39.491^^126^1634^9
 ;;^UTILITY(U,$J,358.3,31915,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31915,1,3,0)
 ;;=3^Coital Incontinence
 ;;^UTILITY(U,$J,358.3,31915,1,4,0)
 ;;=4^N39.491
 ;;^UTILITY(U,$J,358.3,31915,2)
 ;;=^5138920
 ;;^UTILITY(U,$J,358.3,31916,0)
 ;;=R31.21^^126^1634^26
 ;;^UTILITY(U,$J,358.3,31916,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31916,1,3,0)
 ;;=3^Microscopic Hematuria,Asymptomatic
 ;;^UTILITY(U,$J,358.3,31916,1,4,0)
 ;;=4^R31.21
 ;;^UTILITY(U,$J,358.3,31916,2)
 ;;=^5139198
 ;;^UTILITY(U,$J,358.3,31917,0)
 ;;=R31.29^^126^1634^27
 ;;^UTILITY(U,$J,358.3,31917,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31917,1,3,0)
 ;;=3^Microscopic Hematuria,Other
 ;;^UTILITY(U,$J,358.3,31917,1,4,0)
 ;;=4^R31.29
 ;;^UTILITY(U,$J,358.3,31917,2)
 ;;=^5019327
 ;;^UTILITY(U,$J,358.3,31918,0)
 ;;=R39.191^^126^1634^29
 ;;^UTILITY(U,$J,358.3,31918,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31918,1,3,0)
 ;;=3^Need to Immediately Re-Void
 ;;^UTILITY(U,$J,358.3,31918,1,4,0)
 ;;=4^R39.191
 ;;^UTILITY(U,$J,358.3,31918,2)
 ;;=^5139199
 ;;^UTILITY(U,$J,358.3,31919,0)
 ;;=R39.192^^126^1634^39
 ;;^UTILITY(U,$J,358.3,31919,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31919,1,3,0)
 ;;=3^Position Dependent Micturition
 ;;^UTILITY(U,$J,358.3,31919,1,4,0)
 ;;=4^R39.192
 ;;^UTILITY(U,$J,358.3,31919,2)
 ;;=^5139200
 ;;^UTILITY(U,$J,358.3,31920,0)
 ;;=N39.492^^126^1634^40
 ;;^UTILITY(U,$J,358.3,31920,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31920,1,3,0)
 ;;=3^Postural Urinary Incontinence
 ;;^UTILITY(U,$J,358.3,31920,1,4,0)
 ;;=4^N39.492
 ;;^UTILITY(U,$J,358.3,31920,2)
 ;;=^5138921
 ;;^UTILITY(U,$J,358.3,31921,0)
 ;;=N83.12^^126^1634^10
 ;;^UTILITY(U,$J,358.3,31921,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31921,1,3,0)
 ;;=3^Corpus Luteum Cyst,Left Ovary
 ;;^UTILITY(U,$J,358.3,31921,1,4,0)
 ;;=4^N83.12
 ;;^UTILITY(U,$J,358.3,31921,2)
 ;;=^5138943
 ;;^UTILITY(U,$J,358.3,31922,0)
 ;;=N83.11^^126^1634^11
 ;;^UTILITY(U,$J,358.3,31922,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31922,1,3,0)
 ;;=3^Corpus Luteum Cyst,Right Ovary
 ;;^UTILITY(U,$J,358.3,31922,1,4,0)
 ;;=4^N83.11
 ;;^UTILITY(U,$J,358.3,31922,2)
 ;;=^5138942
 ;;^UTILITY(U,$J,358.3,31923,0)
 ;;=N83.01^^126^1634^20
 ;;^UTILITY(U,$J,358.3,31923,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31923,1,3,0)
 ;;=3^Follicular Cyst,Right Ovary
 ;;^UTILITY(U,$J,358.3,31923,1,4,0)
 ;;=4^N83.01
 ;;^UTILITY(U,$J,358.3,31923,2)
 ;;=^5138939
 ;;^UTILITY(U,$J,358.3,31924,0)
 ;;=N83.02^^126^1634^19
 ;;^UTILITY(U,$J,358.3,31924,1,0)
 ;;=^358.31IA^4^2