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

IBDEI0TF.m

Go to the documentation of this file.
  1. IBDEI0TF ; ; 01-FEB-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
  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,13239,2)
  1. ;;=^5005907
  1. ;;^UTILITY(U,$J,358.3,13240,0)
  1. ;;=H40.61X2^^51^632^49
  1. ;;^UTILITY(U,$J,358.3,13240,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13240,1,3,0)
  1. ;;=3^GLU 2nd to Drugs,OD,Moderate Stage
  1. ;;^UTILITY(U,$J,358.3,13240,1,4,0)
  1. ;;=4^H40.61X2
  1. ;;^UTILITY(U,$J,358.3,13240,2)
  1. ;;=^5005908
  1. ;;^UTILITY(U,$J,358.3,13241,0)
  1. ;;=H40.61X3^^51^632^50
  1. ;;^UTILITY(U,$J,358.3,13241,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13241,1,3,0)
  1. ;;=3^GLU 2nd to Drugs,OD,Severe Stage
  1. ;;^UTILITY(U,$J,358.3,13241,1,4,0)
  1. ;;=4^H40.61X3
  1. ;;^UTILITY(U,$J,358.3,13241,2)
  1. ;;=^5133509
  1. ;;^UTILITY(U,$J,358.3,13242,0)
  1. ;;=H40.61X4^^51^632^51
  1. ;;^UTILITY(U,$J,358.3,13242,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13242,1,3,0)
  1. ;;=3^GLU 2nd to Drugs,OD,Indeterminate Stage
  1. ;;^UTILITY(U,$J,358.3,13242,1,4,0)
  1. ;;=4^H40.61X4
  1. ;;^UTILITY(U,$J,358.3,13242,2)
  1. ;;=^5005909
  1. ;;^UTILITY(U,$J,358.3,13243,0)
  1. ;;=H40.813^^51^632^64
  1. ;;^UTILITY(U,$J,358.3,13243,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13243,1,3,0)
  1. ;;=3^GLC w/ Increased Episcleral Venous Pressure,OU
  1. ;;^UTILITY(U,$J,358.3,13243,1,4,0)
  1. ;;=4^H40.813
  1. ;;^UTILITY(U,$J,358.3,13243,2)
  1. ;;=^5005921
  1. ;;^UTILITY(U,$J,358.3,13244,0)
  1. ;;=H40.811^^51^632^62
  1. ;;^UTILITY(U,$J,358.3,13244,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13244,1,3,0)
  1. ;;=3^GLC w/ Increased Episcleral Venous Pressure,OD
  1. ;;^UTILITY(U,$J,358.3,13244,1,4,0)
  1. ;;=4^H40.811
  1. ;;^UTILITY(U,$J,358.3,13244,2)
  1. ;;=^5005919
  1. ;;^UTILITY(U,$J,358.3,13245,0)
  1. ;;=H40.812^^51^632^63
  1. ;;^UTILITY(U,$J,358.3,13245,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13245,1,3,0)
  1. ;;=3^GLC w/ Increased Episcleral Venous Pressure,OS
  1. ;;^UTILITY(U,$J,358.3,13245,1,4,0)
  1. ;;=4^H40.812
  1. ;;^UTILITY(U,$J,358.3,13245,2)
  1. ;;=^5005920
  1. ;;^UTILITY(U,$J,358.3,13246,0)
  1. ;;=H40.823^^51^632^67
  1. ;;^UTILITY(U,$J,358.3,13246,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13246,1,3,0)
  1. ;;=3^Hypersecretion GLC,OU
  1. ;;^UTILITY(U,$J,358.3,13246,1,4,0)
  1. ;;=4^H40.823
  1. ;;^UTILITY(U,$J,358.3,13246,2)
  1. ;;=^5005925
  1. ;;^UTILITY(U,$J,358.3,13247,0)
  1. ;;=H40.821^^51^632^65
  1. ;;^UTILITY(U,$J,358.3,13247,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13247,1,3,0)
  1. ;;=3^Hypersecretion GLC,OD
  1. ;;^UTILITY(U,$J,358.3,13247,1,4,0)
  1. ;;=4^H40.821
  1. ;;^UTILITY(U,$J,358.3,13247,2)
  1. ;;=^5005923
  1. ;;^UTILITY(U,$J,358.3,13248,0)
  1. ;;=H40.822^^51^632^66
  1. ;;^UTILITY(U,$J,358.3,13248,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13248,1,3,0)
  1. ;;=3^Hypersecretion GLC,OS
  1. ;;^UTILITY(U,$J,358.3,13248,1,4,0)
  1. ;;=4^H40.822
  1. ;;^UTILITY(U,$J,358.3,13248,2)
  1. ;;=^5005924
  1. ;;^UTILITY(U,$J,358.3,13249,0)
  1. ;;=H40.43X0^^51^632^27
  1. ;;^UTILITY(U,$J,358.3,13249,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13249,1,3,0)
  1. ;;=3^Inflam GLC,OU,Stage Unspec
  1. ;;^UTILITY(U,$J,358.3,13249,1,4,0)
  1. ;;=4^H40.43X0
  1. ;;^UTILITY(U,$J,358.3,13249,2)
  1. ;;=^5005878
  1. ;;^UTILITY(U,$J,358.3,13250,0)
  1. ;;=H40.43X1^^51^632^28
  1. ;;^UTILITY(U,$J,358.3,13250,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13250,1,3,0)
  1. ;;=3^Inflam GLC,OU,Mild Stage
  1. ;;^UTILITY(U,$J,358.3,13250,1,4,0)
  1. ;;=4^H40.43X1
  1. ;;^UTILITY(U,$J,358.3,13250,2)
  1. ;;=^5005879
  1. ;;^UTILITY(U,$J,358.3,13251,0)
  1. ;;=H40.43X2^^51^632^29
  1. ;;^UTILITY(U,$J,358.3,13251,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,13251,1,3,0)
  1. ;;=3^Inflam GLC,OU,Moderate Stage
  1. ;;^UTILITY(U,$J,358.3,13251,1,4,0)
  1. ;;=4^H40.43X2
  1. ;;^UTILITY(U,$J,358.3,13251,2)
  1. ;;=^5005880