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

IBDEI1XE.m

Go to the documentation of this file.
IBDEI1XE ; ; 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,30761,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30761,1,3,0)
 ;;=3^Orthostatic Proteinuria,Unspec
 ;;^UTILITY(U,$J,358.3,30761,1,4,0)
 ;;=4^R80.2
 ;;^UTILITY(U,$J,358.3,30761,2)
 ;;=^5019597
 ;;^UTILITY(U,$J,358.3,30762,0)
 ;;=R80.8^^123^1585^16
 ;;^UTILITY(U,$J,358.3,30762,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30762,1,3,0)
 ;;=3^Proteinuria,Other
 ;;^UTILITY(U,$J,358.3,30762,1,4,0)
 ;;=4^R80.8
 ;;^UTILITY(U,$J,358.3,30762,2)
 ;;=^5019598
 ;;^UTILITY(U,$J,358.3,30763,0)
 ;;=R39.16^^123^1585^18
 ;;^UTILITY(U,$J,358.3,30763,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30763,1,3,0)
 ;;=3^Straining on Urination
 ;;^UTILITY(U,$J,358.3,30763,1,4,0)
 ;;=4^R39.16
 ;;^UTILITY(U,$J,358.3,30763,2)
 ;;=^5019346
 ;;^UTILITY(U,$J,358.3,30764,0)
 ;;=R35.0^^123^1585^20
 ;;^UTILITY(U,$J,358.3,30764,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30764,1,3,0)
 ;;=3^Urinary Frequency
 ;;^UTILITY(U,$J,358.3,30764,1,4,0)
 ;;=4^R35.0
 ;;^UTILITY(U,$J,358.3,30764,2)
 ;;=^5019334
 ;;^UTILITY(U,$J,358.3,30765,0)
 ;;=R39.11^^123^1585^21
 ;;^UTILITY(U,$J,358.3,30765,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30765,1,3,0)
 ;;=3^Urinary Hesitancy
 ;;^UTILITY(U,$J,358.3,30765,1,4,0)
 ;;=4^R39.11
 ;;^UTILITY(U,$J,358.3,30765,2)
 ;;=^5019341
 ;;^UTILITY(U,$J,358.3,30766,0)
 ;;=N39.41^^123^1585^25
 ;;^UTILITY(U,$J,358.3,30766,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30766,1,3,0)
 ;;=3^Urinary Urge Incontinence
 ;;^UTILITY(U,$J,358.3,30766,1,4,0)
 ;;=4^N39.41
 ;;^UTILITY(U,$J,358.3,30766,2)
 ;;=^5015680
 ;;^UTILITY(U,$J,358.3,30767,0)
 ;;=N13.8^^123^1585^22
 ;;^UTILITY(U,$J,358.3,30767,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30767,1,3,0)
 ;;=3^Urinary Obstruction
 ;;^UTILITY(U,$J,358.3,30767,1,4,0)
 ;;=4^N13.8
 ;;^UTILITY(U,$J,358.3,30767,2)
 ;;=^5015588
 ;;^UTILITY(U,$J,358.3,30768,0)
 ;;=R33.8^^123^1585^23
 ;;^UTILITY(U,$J,358.3,30768,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30768,1,3,0)
 ;;=3^Urinary Retention,Other
 ;;^UTILITY(U,$J,358.3,30768,1,4,0)
 ;;=4^R33.8
 ;;^UTILITY(U,$J,358.3,30768,2)
 ;;=^5019331
 ;;^UTILITY(U,$J,358.3,30769,0)
 ;;=R39.15^^123^1585^26
 ;;^UTILITY(U,$J,358.3,30769,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30769,1,3,0)
 ;;=3^Urinary Urgency
 ;;^UTILITY(U,$J,358.3,30769,1,4,0)
 ;;=4^R39.15
 ;;^UTILITY(U,$J,358.3,30769,2)
 ;;=^5019345
 ;;^UTILITY(U,$J,358.3,30770,0)
 ;;=R39.12^^123^1585^27
 ;;^UTILITY(U,$J,358.3,30770,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30770,1,3,0)
 ;;=3^Weak Urinary Stream
 ;;^UTILITY(U,$J,358.3,30770,1,4,0)
 ;;=4^R39.12
 ;;^UTILITY(U,$J,358.3,30770,2)
 ;;=^5019342
 ;;^UTILITY(U,$J,358.3,30771,0)
 ;;=R80.9^^123^1585^17
 ;;^UTILITY(U,$J,358.3,30771,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30771,1,3,0)
 ;;=3^Proteinuria,Unspec
 ;;^UTILITY(U,$J,358.3,30771,1,4,0)
 ;;=4^R80.9
 ;;^UTILITY(U,$J,358.3,30771,2)
 ;;=^5019599
 ;;^UTILITY(U,$J,358.3,30772,0)
 ;;=R31.21^^123^1585^10
 ;;^UTILITY(U,$J,358.3,30772,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30772,1,3,0)
 ;;=3^Microscopic Hematuria,Asymptomatic
 ;;^UTILITY(U,$J,358.3,30772,1,4,0)
 ;;=4^R31.21
 ;;^UTILITY(U,$J,358.3,30772,2)
 ;;=^5139198
 ;;^UTILITY(U,$J,358.3,30773,0)
 ;;=R31.29^^123^1585^11
 ;;^UTILITY(U,$J,358.3,30773,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30773,1,3,0)
 ;;=3^Microscopic Hematuria,Other
 ;;^UTILITY(U,$J,358.3,30773,1,4,0)
 ;;=4^R31.29
 ;;^UTILITY(U,$J,358.3,30773,2)
 ;;=^5019327