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

IBDEI38H.m

Go to the documentation of this file.
IBDEI38H ; ; 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,51630,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,51630,1,3,0)
 ;;=3^Dry Mouth,Unspec
 ;;^UTILITY(U,$J,358.3,51630,1,4,0)
 ;;=4^R68.2
 ;;^UTILITY(U,$J,358.3,51630,2)
 ;;=^5019552
 ;;^UTILITY(U,$J,358.3,51631,0)
 ;;=R09.02^^193^2509^93
 ;;^UTILITY(U,$J,358.3,51631,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,51631,1,3,0)
 ;;=3^Hypoxemia
 ;;^UTILITY(U,$J,358.3,51631,1,4,0)
 ;;=4^R09.02
 ;;^UTILITY(U,$J,358.3,51631,2)
 ;;=^332831
 ;;^UTILITY(U,$J,358.3,51632,0)
 ;;=R39.81^^193^2509^97
 ;;^UTILITY(U,$J,358.3,51632,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,51632,1,3,0)
 ;;=3^Incontinence d/t Cognitive Imprmt/Svr Disability/Mobility
 ;;^UTILITY(U,$J,358.3,51632,1,4,0)
 ;;=4^R39.81
 ;;^UTILITY(U,$J,358.3,51632,2)
 ;;=^5019349
 ;;^UTILITY(U,$J,358.3,51633,0)
 ;;=R29.6^^193^2509^152
 ;;^UTILITY(U,$J,358.3,51633,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,51633,1,3,0)
 ;;=3^Repeated Falls
 ;;^UTILITY(U,$J,358.3,51633,1,4,0)
 ;;=4^R29.6
 ;;^UTILITY(U,$J,358.3,51633,2)
 ;;=^5019317
 ;;^UTILITY(U,$J,358.3,51634,0)
 ;;=R44.1^^193^2509^167
 ;;^UTILITY(U,$J,358.3,51634,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,51634,1,3,0)
 ;;=3^Visual Hallucinations
 ;;^UTILITY(U,$J,358.3,51634,1,4,0)
 ;;=4^R44.1
 ;;^UTILITY(U,$J,358.3,51634,2)
 ;;=^5019456
 ;;^UTILITY(U,$J,358.3,51635,0)
 ;;=R93.422^^193^2509^11
 ;;^UTILITY(U,$J,358.3,51635,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,51635,1,3,0)
 ;;=3^Abnormal Finding on Dx Image,Left Kidney
 ;;^UTILITY(U,$J,358.3,51635,1,4,0)
 ;;=4^R93.422
 ;;^UTILITY(U,$J,358.3,51635,2)
 ;;=^5139225
 ;;^UTILITY(U,$J,358.3,51636,0)
 ;;=R93.421^^193^2509^14
 ;;^UTILITY(U,$J,358.3,51636,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,51636,1,3,0)
 ;;=3^Abnormal Finding on Dx Image,Right Kidney
 ;;^UTILITY(U,$J,358.3,51636,1,4,0)
 ;;=4^R93.421
 ;;^UTILITY(U,$J,358.3,51636,2)
 ;;=^5139224
 ;;^UTILITY(U,$J,358.3,51637,0)
 ;;=R93.49^^193^2509^12
 ;;^UTILITY(U,$J,358.3,51637,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,51637,1,3,0)
 ;;=3^Abnormal Finding on Dx Image,Oth Urinary Organs
 ;;^UTILITY(U,$J,358.3,51637,1,4,0)
 ;;=4^R93.49
 ;;^UTILITY(U,$J,358.3,51637,2)
 ;;=^5139227
 ;;^UTILITY(U,$J,358.3,51638,0)
 ;;=R93.41^^193^2509^13
 ;;^UTILITY(U,$J,358.3,51638,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,51638,1,3,0)
 ;;=3^Abnormal Finding on Dx Image,Renal Pelvis/Ureter/Bladder
 ;;^UTILITY(U,$J,358.3,51638,1,4,0)
 ;;=4^R93.41
 ;;^UTILITY(U,$J,358.3,51638,2)
 ;;=^5139223
 ;;^UTILITY(U,$J,358.3,51639,0)
 ;;=R97.20^^193^2509^73
 ;;^UTILITY(U,$J,358.3,51639,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,51639,1,3,0)
 ;;=3^Elevated PSA
 ;;^UTILITY(U,$J,358.3,51639,1,4,0)
 ;;=4^R97.20
 ;;^UTILITY(U,$J,358.3,51639,2)
 ;;=^334262
 ;;^UTILITY(U,$J,358.3,51640,0)
 ;;=R97.21^^193^2509^153
 ;;^UTILITY(U,$J,358.3,51640,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,51640,1,3,0)
 ;;=3^Rising PSA After Tx of Prostate CA
 ;;^UTILITY(U,$J,358.3,51640,1,4,0)
 ;;=4^R97.21
 ;;^UTILITY(U,$J,358.3,51640,2)
 ;;=^5139228
 ;;^UTILITY(U,$J,358.3,51641,0)
 ;;=K08.89^^193^2509^64
 ;;^UTILITY(U,$J,358.3,51641,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,51641,1,3,0)
 ;;=3^Disorder of Teeth/Supporting Structures,Oth Specified
 ;;^UTILITY(U,$J,358.3,51641,1,4,0)
 ;;=4^K08.89
 ;;^UTILITY(U,$J,358.3,51641,2)
 ;;=^5008467
 ;;^UTILITY(U,$J,358.3,51642,0)
 ;;=R82.79^^193^2509^31
 ;;^UTILITY(U,$J,358.3,51642,1,0)
 ;;=^358.31IA^4^2