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

IBDEI3HS.m

Go to the documentation of this file.
  1. IBDEI3HS ; ; 19-NOV-2015
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
  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,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
  1. Q Q
  1. ;;^UTILITY(U,$J,358.3,58728,2)
  1. ;;=^265435
  1. ;;^UTILITY(U,$J,358.3,58729,0)
  1. ;;=H50.52^^272^2911^7
  1. ;;^UTILITY(U,$J,358.3,58729,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58729,1,3,0)
  1. ;;=3^Exophoria
  1. ;;^UTILITY(U,$J,358.3,58729,1,4,0)
  1. ;;=4^H50.52
  1. ;;^UTILITY(U,$J,358.3,58729,2)
  1. ;;=^265436
  1. ;;^UTILITY(U,$J,358.3,58730,0)
  1. ;;=H51.11^^272^2911^4
  1. ;;^UTILITY(U,$J,358.3,58730,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58730,1,3,0)
  1. ;;=3^Convergence Insufficiency
  1. ;;^UTILITY(U,$J,358.3,58730,1,4,0)
  1. ;;=4^H51.11
  1. ;;^UTILITY(U,$J,358.3,58730,2)
  1. ;;=^5006251
  1. ;;^UTILITY(U,$J,358.3,58731,0)
  1. ;;=H51.12^^272^2911^3
  1. ;;^UTILITY(U,$J,358.3,58731,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58731,1,3,0)
  1. ;;=3^Convergence Excess
  1. ;;^UTILITY(U,$J,358.3,58731,1,4,0)
  1. ;;=4^H51.12
  1. ;;^UTILITY(U,$J,358.3,58731,2)
  1. ;;=^5006252
  1. ;;^UTILITY(U,$J,358.3,58732,0)
  1. ;;=H53.033^^272^2911^11
  1. ;;^UTILITY(U,$J,358.3,58732,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58732,1,3,0)
  1. ;;=3^Strabismic Amblyopia,Bilateral
  1. ;;^UTILITY(U,$J,358.3,58732,1,4,0)
  1. ;;=4^H53.033
  1. ;;^UTILITY(U,$J,358.3,58732,2)
  1. ;;=^5006305
  1. ;;^UTILITY(U,$J,358.3,58733,0)
  1. ;;=H53.032^^272^2911^12
  1. ;;^UTILITY(U,$J,358.3,58733,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58733,1,3,0)
  1. ;;=3^Strabismic Amblyopia,Left Eye
  1. ;;^UTILITY(U,$J,358.3,58733,1,4,0)
  1. ;;=4^H53.032
  1. ;;^UTILITY(U,$J,358.3,58733,2)
  1. ;;=^5006304
  1. ;;^UTILITY(U,$J,358.3,58734,0)
  1. ;;=H53.031^^272^2911^13
  1. ;;^UTILITY(U,$J,358.3,58734,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58734,1,3,0)
  1. ;;=3^Strabismic Amblyopia,Right Eye
  1. ;;^UTILITY(U,$J,358.3,58734,1,4,0)
  1. ;;=4^H53.031
  1. ;;^UTILITY(U,$J,358.3,58734,2)
  1. ;;=^5006303
  1. ;;^UTILITY(U,$J,358.3,58735,0)
  1. ;;=D86.83^^272^2912^20
  1. ;;^UTILITY(U,$J,358.3,58735,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58735,1,3,0)
  1. ;;=3^Sarcoid Iridocyclitis
  1. ;;^UTILITY(U,$J,358.3,58735,1,4,0)
  1. ;;=4^D86.83
  1. ;;^UTILITY(U,$J,358.3,58735,2)
  1. ;;=^5002448
  1. ;;^UTILITY(U,$J,358.3,58736,0)
  1. ;;=H53.71^^272^2912^7
  1. ;;^UTILITY(U,$J,358.3,58736,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58736,1,3,0)
  1. ;;=3^Glare Sensitivity
  1. ;;^UTILITY(U,$J,358.3,58736,1,4,0)
  1. ;;=4^H53.71
  1. ;;^UTILITY(U,$J,358.3,58736,2)
  1. ;;=^5006354
  1. ;;^UTILITY(U,$J,358.3,58737,0)
  1. ;;=H53.72^^272^2912^9
  1. ;;^UTILITY(U,$J,358.3,58737,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58737,1,3,0)
  1. ;;=3^Impaired Contrast Sensitivity
  1. ;;^UTILITY(U,$J,358.3,58737,1,4,0)
  1. ;;=4^H53.72
  1. ;;^UTILITY(U,$J,358.3,58737,2)
  1. ;;=^5006355
  1. ;;^UTILITY(U,$J,358.3,58738,0)
  1. ;;=H57.13^^272^2912^14
  1. ;;^UTILITY(U,$J,358.3,58738,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58738,1,3,0)
  1. ;;=3^Ocular Pain,Bilateral
  1. ;;^UTILITY(U,$J,358.3,58738,1,4,0)
  1. ;;=4^H57.13
  1. ;;^UTILITY(U,$J,358.3,58738,2)
  1. ;;=^5006384
  1. ;;^UTILITY(U,$J,358.3,58739,0)
  1. ;;=H57.11^^272^2912^16
  1. ;;^UTILITY(U,$J,358.3,58739,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58739,1,3,0)
  1. ;;=3^Ocular Pain,Right Eye
  1. ;;^UTILITY(U,$J,358.3,58739,1,4,0)
  1. ;;=4^H57.11
  1. ;;^UTILITY(U,$J,358.3,58739,2)
  1. ;;=^5006382
  1. ;;^UTILITY(U,$J,358.3,58740,0)
  1. ;;=H57.12^^272^2912^15
  1. ;;^UTILITY(U,$J,358.3,58740,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58740,1,3,0)
  1. ;;=3^Ocular Pain,Left Eye
  1. ;;^UTILITY(U,$J,358.3,58740,1,4,0)
  1. ;;=4^H57.12
  1. ;;^UTILITY(U,$J,358.3,58740,2)
  1. ;;=^5006383
  1. ;;^UTILITY(U,$J,358.3,58741,0)
  1. ;;=I10.^^272^2912^8
  1. ;;^UTILITY(U,$J,358.3,58741,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58741,1,3,0)
  1. ;;=3^Hypertension,Essential
  1. ;;^UTILITY(U,$J,358.3,58741,1,4,0)
  1. ;;=4^I10.
  1. ;;^UTILITY(U,$J,358.3,58741,2)
  1. ;;=^5007062
  1. ;;^UTILITY(U,$J,358.3,58742,0)
  1. ;;=L71.9^^272^2912^19