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

IBDEI0U7.m

Go to the documentation of this file.
IBDEI0U7 ; ; 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,13601,1,2,0)
 ;;=2^76511
 ;;^UTILITY(U,$J,358.3,13601,1,3,0)
 ;;=3^U/S A-Scan Only
 ;;^UTILITY(U,$J,358.3,13602,0)
 ;;=76513^^52^645^22^^^^1
 ;;^UTILITY(U,$J,358.3,13602,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,13602,1,2,0)
 ;;=2^76513
 ;;^UTILITY(U,$J,358.3,13602,1,3,0)
 ;;=3^U/S B-Scan,Ant Seg,Water Immersion
 ;;^UTILITY(U,$J,358.3,13603,0)
 ;;=92499^^52^645^24^^^^1
 ;;^UTILITY(U,$J,358.3,13603,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,13603,1,2,0)
 ;;=2^92499
 ;;^UTILITY(U,$J,358.3,13603,1,3,0)
 ;;=3^Hertel's Exophthalmometry
 ;;^UTILITY(U,$J,358.3,13604,0)
 ;;=92081^^52^645^27^^^^1
 ;;^UTILITY(U,$J,358.3,13604,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,13604,1,2,0)
 ;;=2^92081
 ;;^UTILITY(U,$J,358.3,13604,1,3,0)
 ;;=3^Visual Field Exam w/ Interp & Rpt;Limited
 ;;^UTILITY(U,$J,358.3,13605,0)
 ;;=92534^^52^645^11^^^^11
 ;;^UTILITY(U,$J,358.3,13605,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,13605,1,2,0)
 ;;=2^92534
 ;;^UTILITY(U,$J,358.3,13605,1,3,0)
 ;;=3^Optokinetic Nystagmus Test
 ;;^UTILITY(U,$J,358.3,13606,0)
 ;;=99174^^52^645^16^^^^1
 ;;^UTILITY(U,$J,358.3,13606,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,13606,1,2,0)
 ;;=2^99174
 ;;^UTILITY(U,$J,358.3,13606,1,3,0)
 ;;=3^Autorefraction,Bilateral
 ;;^UTILITY(U,$J,358.3,13607,0)
 ;;=92242^^52^645^18^^^^1
 ;;^UTILITY(U,$J,358.3,13607,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,13607,1,2,0)
 ;;=2^92242
 ;;^UTILITY(U,$J,358.3,13607,1,3,0)
 ;;=3^Fluorescein & ICG Angiography,Unilat/Bilat
 ;;^UTILITY(U,$J,358.3,13608,0)
 ;;=92240^^52^645^20^^^^1
 ;;^UTILITY(U,$J,358.3,13608,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,13608,1,2,0)
 ;;=2^92240
 ;;^UTILITY(U,$J,358.3,13608,1,3,0)
 ;;=3^ICG Angiography,Unilat/Bilat
 ;;^UTILITY(U,$J,358.3,13609,0)
 ;;=76519^^52^645^21^^^^1
 ;;^UTILITY(U,$J,358.3,13609,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,13609,1,2,0)
 ;;=2^76519
 ;;^UTILITY(U,$J,358.3,13609,1,3,0)
 ;;=3^IOL Calc w/ A-Scan
 ;;^UTILITY(U,$J,358.3,13610,0)
 ;;=99080^^52^645^28^^^^1
 ;;^UTILITY(U,$J,358.3,13610,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,13610,1,2,0)
 ;;=2^99080
 ;;^UTILITY(U,$J,358.3,13610,1,3,0)
 ;;=3^Special Reports or Forms
 ;;^UTILITY(U,$J,358.3,13611,0)
 ;;=92201^^52^645^5^^^^1
 ;;^UTILITY(U,$J,358.3,13611,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,13611,1,2,0)
 ;;=2^92201
 ;;^UTILITY(U,$J,358.3,13611,1,3,0)
 ;;=3^Ext Ophthalmoscopy w/ Ret Drawing,Unilat/Bilat 
 ;;^UTILITY(U,$J,358.3,13612,0)
 ;;=92202^^52^645^6^^^^1
 ;;^UTILITY(U,$J,358.3,13612,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,13612,1,2,0)
 ;;=2^92202
 ;;^UTILITY(U,$J,358.3,13612,1,3,0)
 ;;=3^Ext Ophthalmoscopy w/ Optic Nerve/Macula Drawing
 ;;^UTILITY(U,$J,358.3,13613,0)
 ;;=99366^^52^646^2^^^^1
 ;;^UTILITY(U,$J,358.3,13613,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,13613,1,2,0)
 ;;=2^99366
 ;;^UTILITY(U,$J,358.3,13613,1,3,0)
 ;;=3^Interdisc Team Mtg w/ Pt HC Pro,+30 min
 ;;^UTILITY(U,$J,358.3,13614,0)
 ;;=99368^^52^646^3^^^^1
 ;;^UTILITY(U,$J,358.3,13614,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,13614,1,2,0)
 ;;=2^99368
 ;;^UTILITY(U,$J,358.3,13614,1,3,0)
 ;;=3^Interdisc Team Mtg w/o Pt HC Pro,+30 min
 ;;^UTILITY(U,$J,358.3,13615,0)
 ;;=T1016^^52^646^1^^^^1
 ;;^UTILITY(U,$J,358.3,13615,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,13615,1,2,0)
 ;;=2^T1016
 ;;^UTILITY(U,$J,358.3,13615,1,3,0)
 ;;=3^Case Management,Ea 15 min