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

IBDEI0PS.m

Go to the documentation of this file.
IBDEI0PS ; ; 01-FEB-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 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,11590,2)
 ;;=^5015690
 ;;^UTILITY(U,$J,358.3,11591,0)
 ;;=R31.0^^46^561^6
 ;;^UTILITY(U,$J,358.3,11591,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11591,1,3,0)
 ;;=3^Gross Hematuria
 ;;^UTILITY(U,$J,358.3,11591,1,4,0)
 ;;=4^R31.0
 ;;^UTILITY(U,$J,358.3,11591,2)
 ;;=^5019325
 ;;^UTILITY(U,$J,358.3,11592,0)
 ;;=R31.9^^46^561^7
 ;;^UTILITY(U,$J,358.3,11592,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11592,1,3,0)
 ;;=3^Hematuria,Unspec
 ;;^UTILITY(U,$J,358.3,11592,1,4,0)
 ;;=4^R31.9
 ;;^UTILITY(U,$J,358.3,11592,2)
 ;;=^5019328
 ;;^UTILITY(U,$J,358.3,11593,0)
 ;;=R80.0^^46^561^9
 ;;^UTILITY(U,$J,358.3,11593,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11593,1,3,0)
 ;;=3^Isolated Proteinuria
 ;;^UTILITY(U,$J,358.3,11593,1,4,0)
 ;;=4^R80.0
 ;;^UTILITY(U,$J,358.3,11593,2)
 ;;=^5019595
 ;;^UTILITY(U,$J,358.3,11594,0)
 ;;=R39.14^^46^561^8
 ;;^UTILITY(U,$J,358.3,11594,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11594,1,3,0)
 ;;=3^Incomplete Bladder Emptying
 ;;^UTILITY(U,$J,358.3,11594,1,4,0)
 ;;=4^R39.14
 ;;^UTILITY(U,$J,358.3,11594,2)
 ;;=^5019344
 ;;^UTILITY(U,$J,358.3,11595,0)
 ;;=R35.1^^46^561^12
 ;;^UTILITY(U,$J,358.3,11595,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11595,1,3,0)
 ;;=3^Nocturia
 ;;^UTILITY(U,$J,358.3,11595,1,4,0)
 ;;=4^R35.1
 ;;^UTILITY(U,$J,358.3,11595,2)
 ;;=^5019335
 ;;^UTILITY(U,$J,358.3,11596,0)
 ;;=R80.1^^46^561^14
 ;;^UTILITY(U,$J,358.3,11596,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11596,1,3,0)
 ;;=3^Persistent Proteinuria,Unspec
 ;;^UTILITY(U,$J,358.3,11596,1,4,0)
 ;;=4^R80.1
 ;;^UTILITY(U,$J,358.3,11596,2)
 ;;=^5019596
 ;;^UTILITY(U,$J,358.3,11597,0)
 ;;=R80.2^^46^561^13
 ;;^UTILITY(U,$J,358.3,11597,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11597,1,3,0)
 ;;=3^Orthostatic Proteinuria,Unspec
 ;;^UTILITY(U,$J,358.3,11597,1,4,0)
 ;;=4^R80.2
 ;;^UTILITY(U,$J,358.3,11597,2)
 ;;=^5019597
 ;;^UTILITY(U,$J,358.3,11598,0)
 ;;=R80.8^^46^561^16
 ;;^UTILITY(U,$J,358.3,11598,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11598,1,3,0)
 ;;=3^Proteinuria,Other
 ;;^UTILITY(U,$J,358.3,11598,1,4,0)
 ;;=4^R80.8
 ;;^UTILITY(U,$J,358.3,11598,2)
 ;;=^5019598
 ;;^UTILITY(U,$J,358.3,11599,0)
 ;;=R39.16^^46^561^18
 ;;^UTILITY(U,$J,358.3,11599,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11599,1,3,0)
 ;;=3^Straining on Urination
 ;;^UTILITY(U,$J,358.3,11599,1,4,0)
 ;;=4^R39.16
 ;;^UTILITY(U,$J,358.3,11599,2)
 ;;=^5019346
 ;;^UTILITY(U,$J,358.3,11600,0)
 ;;=R35.0^^46^561^20
 ;;^UTILITY(U,$J,358.3,11600,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11600,1,3,0)
 ;;=3^Urinary Frequency
 ;;^UTILITY(U,$J,358.3,11600,1,4,0)
 ;;=4^R35.0
 ;;^UTILITY(U,$J,358.3,11600,2)
 ;;=^5019334
 ;;^UTILITY(U,$J,358.3,11601,0)
 ;;=R39.11^^46^561^21
 ;;^UTILITY(U,$J,358.3,11601,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11601,1,3,0)
 ;;=3^Urinary Hesitancy
 ;;^UTILITY(U,$J,358.3,11601,1,4,0)
 ;;=4^R39.11
 ;;^UTILITY(U,$J,358.3,11601,2)
 ;;=^5019341
 ;;^UTILITY(U,$J,358.3,11602,0)
 ;;=N39.41^^46^561^25
 ;;^UTILITY(U,$J,358.3,11602,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11602,1,3,0)
 ;;=3^Urinary Urge Incontinence
 ;;^UTILITY(U,$J,358.3,11602,1,4,0)
 ;;=4^N39.41
 ;;^UTILITY(U,$J,358.3,11602,2)
 ;;=^5015680
 ;;^UTILITY(U,$J,358.3,11603,0)
 ;;=N13.8^^46^561^22
 ;;^UTILITY(U,$J,358.3,11603,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11603,1,3,0)
 ;;=3^Urinary Obstruction
 ;;^UTILITY(U,$J,358.3,11603,1,4,0)
 ;;=4^N13.8