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

IBDEI3GK.m

Go to the documentation of this file.
  1. IBDEI3GK ; ; 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,58170,0)
  1. ;;=H40.1424^^272^2901^7
  1. ;;^UTILITY(U,$J,358.3,58170,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58170,1,3,0)
  1. ;;=3^Capsular Glaucoma w/ Pseudoxf Lens,Left Eye,Indeterminate Stage
  1. ;;^UTILITY(U,$J,358.3,58170,1,4,0)
  1. ;;=4^H40.1424
  1. ;;^UTILITY(U,$J,358.3,58170,2)
  1. ;;=^5138026
  1. ;;^UTILITY(U,$J,358.3,58171,0)
  1. ;;=H40.31X0^^272^2901^138
  1. ;;^UTILITY(U,$J,358.3,58171,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58171,1,3,0)
  1. ;;=3^Traumatic Glaucoma,Right Eye,Unspec Stage
  1. ;;^UTILITY(U,$J,358.3,58171,1,4,0)
  1. ;;=4^H40.31X0
  1. ;;^UTILITY(U,$J,358.3,58171,2)
  1. ;;=^5005852
  1. ;;^UTILITY(U,$J,358.3,58172,0)
  1. ;;=H40.31X1^^272^2901^135
  1. ;;^UTILITY(U,$J,358.3,58172,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58172,1,3,0)
  1. ;;=3^Traumatic Glaucoma,Right Eye,Mild Stage
  1. ;;^UTILITY(U,$J,358.3,58172,1,4,0)
  1. ;;=4^H40.31X1
  1. ;;^UTILITY(U,$J,358.3,58172,2)
  1. ;;=^5005853
  1. ;;^UTILITY(U,$J,358.3,58173,0)
  1. ;;=H40.31X2^^272^2901^136
  1. ;;^UTILITY(U,$J,358.3,58173,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58173,1,3,0)
  1. ;;=3^Traumatic Glaucoma,Right Eye,Moderate Stage
  1. ;;^UTILITY(U,$J,358.3,58173,1,4,0)
  1. ;;=4^H40.31X2
  1. ;;^UTILITY(U,$J,358.3,58173,2)
  1. ;;=^5005854
  1. ;;^UTILITY(U,$J,358.3,58174,0)
  1. ;;=H40.31X3^^272^2901^137
  1. ;;^UTILITY(U,$J,358.3,58174,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58174,1,3,0)
  1. ;;=3^Traumatic Glaucoma,Right Eye,Severe Stage
  1. ;;^UTILITY(U,$J,358.3,58174,1,4,0)
  1. ;;=4^H40.31X3
  1. ;;^UTILITY(U,$J,358.3,58174,2)
  1. ;;=^5133503
  1. ;;^UTILITY(U,$J,358.3,58175,0)
  1. ;;=H40.31X4^^272^2901^134
  1. ;;^UTILITY(U,$J,358.3,58175,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58175,1,3,0)
  1. ;;=3^Traumatic Glaucoma,Right Eye,Indeterminate Stage
  1. ;;^UTILITY(U,$J,358.3,58175,1,4,0)
  1. ;;=4^H40.31X4
  1. ;;^UTILITY(U,$J,358.3,58175,2)
  1. ;;=^5005855
  1. ;;^UTILITY(U,$J,358.3,58176,0)
  1. ;;=H40.32X0^^272^2901^133
  1. ;;^UTILITY(U,$J,358.3,58176,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58176,1,3,0)
  1. ;;=3^Traumatic Glaucoma,Left Eye,Unspec Stage
  1. ;;^UTILITY(U,$J,358.3,58176,1,4,0)
  1. ;;=4^H40.32X0
  1. ;;^UTILITY(U,$J,358.3,58176,2)
  1. ;;=^5005856
  1. ;;^UTILITY(U,$J,358.3,58177,0)
  1. ;;=H40.32X1^^272^2901^130
  1. ;;^UTILITY(U,$J,358.3,58177,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58177,1,3,0)
  1. ;;=3^Traumatic Glaucoma,Left Eye,Mild Stage
  1. ;;^UTILITY(U,$J,358.3,58177,1,4,0)
  1. ;;=4^H40.32X1
  1. ;;^UTILITY(U,$J,358.3,58177,2)
  1. ;;=^5005857
  1. ;;^UTILITY(U,$J,358.3,58178,0)
  1. ;;=H40.32X2^^272^2901^131
  1. ;;^UTILITY(U,$J,358.3,58178,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58178,1,3,0)
  1. ;;=3^Traumatic Glaucoma,Left Eye,Moderate Stage
  1. ;;^UTILITY(U,$J,358.3,58178,1,4,0)
  1. ;;=4^H40.32X2
  1. ;;^UTILITY(U,$J,358.3,58178,2)
  1. ;;=^5005858
  1. ;;^UTILITY(U,$J,358.3,58179,0)
  1. ;;=H40.32X3^^272^2901^132
  1. ;;^UTILITY(U,$J,358.3,58179,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58179,1,3,0)
  1. ;;=3^Traumatic Glaucoma,Left Eye,Severe Stage
  1. ;;^UTILITY(U,$J,358.3,58179,1,4,0)
  1. ;;=4^H40.32X3
  1. ;;^UTILITY(U,$J,358.3,58179,2)
  1. ;;=^5133504
  1. ;;^UTILITY(U,$J,358.3,58180,0)
  1. ;;=H40.32X4^^272^2901^129
  1. ;;^UTILITY(U,$J,358.3,58180,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58180,1,3,0)
  1. ;;=3^Traumatic Glaucoma,Left Eye,Indeterminate Stage
  1. ;;^UTILITY(U,$J,358.3,58180,1,4,0)
  1. ;;=4^H40.32X4
  1. ;;^UTILITY(U,$J,358.3,58180,2)
  1. ;;=^5005859
  1. ;;^UTILITY(U,$J,358.3,58181,0)
  1. ;;=H40.33X0^^272^2901^128
  1. ;;^UTILITY(U,$J,358.3,58181,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,58181,1,3,0)
  1. ;;=3^Traumatic Glaucoma,Bilateral,Unspec Stage
  1. ;;^UTILITY(U,$J,358.3,58181,1,4,0)
  1. ;;=4^H40.33X0
  1. ;;^UTILITY(U,$J,358.3,58181,2)
  1. ;;=^5005860
  1. ;;^UTILITY(U,$J,358.3,58182,0)
  1. ;;=H40.33X1^^272^2901^125