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

IBDEI30C.m

Go to the documentation of this file.
IBDEI30C ; ; 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,48029,1,4,0)
 ;;=4^H90.A21
 ;;^UTILITY(U,$J,358.3,48029,2)
 ;;=^5138586
 ;;^UTILITY(U,$J,358.3,48030,0)
 ;;=H90.A22^^185^2415^21
 ;;^UTILITY(U,$J,358.3,48030,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48030,1,3,0)
 ;;=3^Snsrnrl Hearing Loss,Uni,Left Ear,w/ Rstrcd Hearing Contra Side
 ;;^UTILITY(U,$J,358.3,48030,1,4,0)
 ;;=4^H90.A22
 ;;^UTILITY(U,$J,358.3,48030,2)
 ;;=^5138587
 ;;^UTILITY(U,$J,358.3,48031,0)
 ;;=H90.A31^^185^2415^14
 ;;^UTILITY(U,$J,358.3,48031,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48031,1,3,0)
 ;;=3^Mixed Hearing Loss,Uni,Right Ear,w/ Rstrcd Hearing Contra Side
 ;;^UTILITY(U,$J,358.3,48031,1,4,0)
 ;;=4^H90.A31
 ;;^UTILITY(U,$J,358.3,48031,2)
 ;;=^5138588
 ;;^UTILITY(U,$J,358.3,48032,0)
 ;;=H90.A32^^185^2415^13
 ;;^UTILITY(U,$J,358.3,48032,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48032,1,3,0)
 ;;=3^Mixed Hearing Loss,Uni,Left Ear,w/ Rstrcd Hearing Contra Side
 ;;^UTILITY(U,$J,358.3,48032,1,4,0)
 ;;=4^H90.A32
 ;;^UTILITY(U,$J,358.3,48032,2)
 ;;=^5138589
 ;;^UTILITY(U,$J,358.3,48033,0)
 ;;=H81.01^^185^2416^3
 ;;^UTILITY(U,$J,358.3,48033,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48033,1,3,0)
 ;;=3^Meniere's Disease,Right Ear
 ;;^UTILITY(U,$J,358.3,48033,1,4,0)
 ;;=4^H81.01
 ;;^UTILITY(U,$J,358.3,48033,2)
 ;;=^5006860
 ;;^UTILITY(U,$J,358.3,48034,0)
 ;;=H81.02^^185^2416^2
 ;;^UTILITY(U,$J,358.3,48034,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48034,1,3,0)
 ;;=3^Meniere's Disease,Left Ear
 ;;^UTILITY(U,$J,358.3,48034,1,4,0)
 ;;=4^H81.02
 ;;^UTILITY(U,$J,358.3,48034,2)
 ;;=^5006861
 ;;^UTILITY(U,$J,358.3,48035,0)
 ;;=H81.03^^185^2416^1
 ;;^UTILITY(U,$J,358.3,48035,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48035,1,3,0)
 ;;=3^Meniere's Disease,Bilateral
 ;;^UTILITY(U,$J,358.3,48035,1,4,0)
 ;;=4^H81.03
 ;;^UTILITY(U,$J,358.3,48035,2)
 ;;=^5006862
 ;;^UTILITY(U,$J,358.3,48036,0)
 ;;=H81.21^^185^2416^6
 ;;^UTILITY(U,$J,358.3,48036,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48036,1,3,0)
 ;;=3^Neuronitis,Vestibular,Right Ear
 ;;^UTILITY(U,$J,358.3,48036,1,4,0)
 ;;=4^H81.21
 ;;^UTILITY(U,$J,358.3,48036,2)
 ;;=^5006869
 ;;^UTILITY(U,$J,358.3,48037,0)
 ;;=H81.22^^185^2416^5
 ;;^UTILITY(U,$J,358.3,48037,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48037,1,3,0)
 ;;=3^Neuronitis,Vestibular,Left Ear
 ;;^UTILITY(U,$J,358.3,48037,1,4,0)
 ;;=4^H81.22
 ;;^UTILITY(U,$J,358.3,48037,2)
 ;;=^5006870
 ;;^UTILITY(U,$J,358.3,48038,0)
 ;;=H81.23^^185^2416^4
 ;;^UTILITY(U,$J,358.3,48038,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48038,1,3,0)
 ;;=3^Neuronitis,Vestibular,Bilateral
 ;;^UTILITY(U,$J,358.3,48038,1,4,0)
 ;;=4^H81.23
 ;;^UTILITY(U,$J,358.3,48038,2)
 ;;=^5006871
 ;;^UTILITY(U,$J,358.3,48039,0)
 ;;=H81.311^^185^2416^10
 ;;^UTILITY(U,$J,358.3,48039,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48039,1,3,0)
 ;;=3^Vertigo,Aural,Right Ear
 ;;^UTILITY(U,$J,358.3,48039,1,4,0)
 ;;=4^H81.311
 ;;^UTILITY(U,$J,358.3,48039,2)
 ;;=^5006872
 ;;^UTILITY(U,$J,358.3,48040,0)
 ;;=H81.312^^185^2416^9
 ;;^UTILITY(U,$J,358.3,48040,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48040,1,3,0)
 ;;=3^Vertigo,Aural,Left Ear
 ;;^UTILITY(U,$J,358.3,48040,1,4,0)
 ;;=4^H81.312
 ;;^UTILITY(U,$J,358.3,48040,2)
 ;;=^5006873
 ;;^UTILITY(U,$J,358.3,48041,0)
 ;;=H81.313^^185^2416^8
 ;;^UTILITY(U,$J,358.3,48041,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48041,1,3,0)
 ;;=3^Vertigo,Aural,Bilateral