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

IBDEI30D.m

Go to the documentation of this file.
  1. IBDEI30D ; ; 04-FEB-2020
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
  1. 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
  1. Q Q
  1. ;;^UTILITY(U,$J,358.3,48041,1,4,0)
  1. ;;=4^H81.313
  1. ;;^UTILITY(U,$J,358.3,48041,2)
  1. ;;=^5006874
  1. ;;^UTILITY(U,$J,358.3,48042,0)
  1. ;;=H81.11^^185^2416^13
  1. ;;^UTILITY(U,$J,358.3,48042,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48042,1,3,0)
  1. ;;=3^Vertigo,Benign Paroxysmal,Right Ear
  1. ;;^UTILITY(U,$J,358.3,48042,1,4,0)
  1. ;;=4^H81.11
  1. ;;^UTILITY(U,$J,358.3,48042,2)
  1. ;;=^5006865
  1. ;;^UTILITY(U,$J,358.3,48043,0)
  1. ;;=H81.12^^185^2416^12
  1. ;;^UTILITY(U,$J,358.3,48043,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48043,1,3,0)
  1. ;;=3^Vertigo,Benign Paroxysmal,Left Ear
  1. ;;^UTILITY(U,$J,358.3,48043,1,4,0)
  1. ;;=4^H81.12
  1. ;;^UTILITY(U,$J,358.3,48043,2)
  1. ;;=^5006866
  1. ;;^UTILITY(U,$J,358.3,48044,0)
  1. ;;=H81.13^^185^2416^11
  1. ;;^UTILITY(U,$J,358.3,48044,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48044,1,3,0)
  1. ;;=3^Vertigo,Benign Paroxysmal,Bilateral
  1. ;;^UTILITY(U,$J,358.3,48044,1,4,0)
  1. ;;=4^H81.13
  1. ;;^UTILITY(U,$J,358.3,48044,2)
  1. ;;=^5006867
  1. ;;^UTILITY(U,$J,358.3,48045,0)
  1. ;;=H81.391^^185^2416^16
  1. ;;^UTILITY(U,$J,358.3,48045,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48045,1,3,0)
  1. ;;=3^Vertigo,Peripheral,Right Ear
  1. ;;^UTILITY(U,$J,358.3,48045,1,4,0)
  1. ;;=4^H81.391
  1. ;;^UTILITY(U,$J,358.3,48045,2)
  1. ;;=^5006876
  1. ;;^UTILITY(U,$J,358.3,48046,0)
  1. ;;=H81.392^^185^2416^15
  1. ;;^UTILITY(U,$J,358.3,48046,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48046,1,3,0)
  1. ;;=3^Vertigo,Peripheral,Left Ear
  1. ;;^UTILITY(U,$J,358.3,48046,1,4,0)
  1. ;;=4^H81.392
  1. ;;^UTILITY(U,$J,358.3,48046,2)
  1. ;;=^5006877
  1. ;;^UTILITY(U,$J,358.3,48047,0)
  1. ;;=H81.393^^185^2416^14
  1. ;;^UTILITY(U,$J,358.3,48047,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48047,1,3,0)
  1. ;;=3^Vertigo,Peripheral,Bilateral
  1. ;;^UTILITY(U,$J,358.3,48047,1,4,0)
  1. ;;=4^H81.393
  1. ;;^UTILITY(U,$J,358.3,48047,2)
  1. ;;=^5006878
  1. ;;^UTILITY(U,$J,358.3,48048,0)
  1. ;;=H81.91^^185^2416^19
  1. ;;^UTILITY(U,$J,358.3,48048,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48048,1,3,0)
  1. ;;=3^Vestibular Function Disorder,Right Ear
  1. ;;^UTILITY(U,$J,358.3,48048,1,4,0)
  1. ;;=4^H81.91
  1. ;;^UTILITY(U,$J,358.3,48048,2)
  1. ;;=^5133551
  1. ;;^UTILITY(U,$J,358.3,48049,0)
  1. ;;=H81.92^^185^2416^18
  1. ;;^UTILITY(U,$J,358.3,48049,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48049,1,3,0)
  1. ;;=3^Vestibular Function Disorder,Left Ear
  1. ;;^UTILITY(U,$J,358.3,48049,1,4,0)
  1. ;;=4^H81.92
  1. ;;^UTILITY(U,$J,358.3,48049,2)
  1. ;;=^5133552
  1. ;;^UTILITY(U,$J,358.3,48050,0)
  1. ;;=H81.93^^185^2416^17
  1. ;;^UTILITY(U,$J,358.3,48050,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48050,1,3,0)
  1. ;;=3^Vestibular Function Disorder,Bilateral
  1. ;;^UTILITY(U,$J,358.3,48050,1,4,0)
  1. ;;=4^H81.93
  1. ;;^UTILITY(U,$J,358.3,48050,2)
  1. ;;=^5006889
  1. ;;^UTILITY(U,$J,358.3,48051,0)
  1. ;;=H81.4^^185^2416^7
  1. ;;^UTILITY(U,$J,358.3,48051,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48051,1,3,0)
  1. ;;=3^Vertigo of Central Origin
  1. ;;^UTILITY(U,$J,358.3,48051,1,4,0)
  1. ;;=4^H81.4
  1. ;;^UTILITY(U,$J,358.3,48051,2)
  1. ;;=^269484
  1. ;;^UTILITY(U,$J,358.3,48052,0)
  1. ;;=R63.0^^185^2417^1
  1. ;;^UTILITY(U,$J,358.3,48052,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48052,1,3,0)
  1. ;;=3^Anorexia
  1. ;;^UTILITY(U,$J,358.3,48052,1,4,0)
  1. ;;=4^R63.0
  1. ;;^UTILITY(U,$J,358.3,48052,2)
  1. ;;=^7939
  1. ;;^UTILITY(U,$J,358.3,48053,0)
  1. ;;=R64.^^185^2417^2
  1. ;;^UTILITY(U,$J,358.3,48053,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48053,1,3,0)
  1. ;;=3^Cachexia
  1. ;;^UTILITY(U,$J,358.3,48053,1,4,0)
  1. ;;=4^R64.
  1. ;;^UTILITY(U,$J,358.3,48053,2)
  1. ;;=^17920