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

IBDEI0SB.m

Go to the documentation of this file.
  1. IBDEI0SB ; ; 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,12745,1,3,0)
  1. ;;=3^LTG,OS,Moderate Stage
  1. ;;^UTILITY(U,$J,358.3,12745,1,4,0)
  1. ;;=4^H40.1222
  1. ;;^UTILITY(U,$J,358.3,12745,2)
  1. ;;=^5005765
  1. ;;^UTILITY(U,$J,358.3,12746,0)
  1. ;;=H40.1223^^51^619^8
  1. ;;^UTILITY(U,$J,358.3,12746,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12746,1,3,0)
  1. ;;=3^LTG,OS,Severe Stage
  1. ;;^UTILITY(U,$J,358.3,12746,1,4,0)
  1. ;;=4^H40.1223
  1. ;;^UTILITY(U,$J,358.3,12746,2)
  1. ;;=^5133492
  1. ;;^UTILITY(U,$J,358.3,12747,0)
  1. ;;=H40.1224^^51^619^9
  1. ;;^UTILITY(U,$J,358.3,12747,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12747,1,3,0)
  1. ;;=3^LTG,OS,Indeterminate Stage
  1. ;;^UTILITY(U,$J,358.3,12747,1,4,0)
  1. ;;=4^H40.1224
  1. ;;^UTILITY(U,$J,358.3,12747,2)
  1. ;;=^5005766
  1. ;;^UTILITY(U,$J,358.3,12748,0)
  1. ;;=H40.1230^^51^619^15
  1. ;;^UTILITY(U,$J,358.3,12748,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12748,1,3,0)
  1. ;;=3^LTG,OU,Stage Unspec
  1. ;;^UTILITY(U,$J,358.3,12748,1,4,0)
  1. ;;=4^H40.1230
  1. ;;^UTILITY(U,$J,358.3,12748,2)
  1. ;;=^5005767
  1. ;;^UTILITY(U,$J,358.3,12749,0)
  1. ;;=H40.1231^^51^619^11
  1. ;;^UTILITY(U,$J,358.3,12749,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12749,1,3,0)
  1. ;;=3^LTG,OU,Mild Stage
  1. ;;^UTILITY(U,$J,358.3,12749,1,4,0)
  1. ;;=4^H40.1231
  1. ;;^UTILITY(U,$J,358.3,12749,2)
  1. ;;=^5005768
  1. ;;^UTILITY(U,$J,358.3,12750,0)
  1. ;;=H40.1232^^51^619^12
  1. ;;^UTILITY(U,$J,358.3,12750,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12750,1,3,0)
  1. ;;=3^LTG,OU,Moderate Stage
  1. ;;^UTILITY(U,$J,358.3,12750,1,4,0)
  1. ;;=4^H40.1232
  1. ;;^UTILITY(U,$J,358.3,12750,2)
  1. ;;=^5005769
  1. ;;^UTILITY(U,$J,358.3,12751,0)
  1. ;;=H40.1233^^51^619^13
  1. ;;^UTILITY(U,$J,358.3,12751,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12751,1,3,0)
  1. ;;=3^LTG,OU,Severe Stage
  1. ;;^UTILITY(U,$J,358.3,12751,1,4,0)
  1. ;;=4^H40.1233
  1. ;;^UTILITY(U,$J,358.3,12751,2)
  1. ;;=^5005770
  1. ;;^UTILITY(U,$J,358.3,12752,0)
  1. ;;=H40.1234^^51^619^14
  1. ;;^UTILITY(U,$J,358.3,12752,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12752,1,3,0)
  1. ;;=3^LTG,OU,Indeterminate Stage
  1. ;;^UTILITY(U,$J,358.3,12752,1,4,0)
  1. ;;=4^H40.1234
  1. ;;^UTILITY(U,$J,358.3,12752,2)
  1. ;;=^5005771
  1. ;;^UTILITY(U,$J,358.3,12753,0)
  1. ;;=H40.1310^^51^619^20
  1. ;;^UTILITY(U,$J,358.3,12753,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12753,1,3,0)
  1. ;;=3^Pigmentary GLC,OD,Stage Unspec
  1. ;;^UTILITY(U,$J,358.3,12753,1,4,0)
  1. ;;=4^H40.1310
  1. ;;^UTILITY(U,$J,358.3,12753,2)
  1. ;;=^5005775
  1. ;;^UTILITY(U,$J,358.3,12754,0)
  1. ;;=H40.1311^^51^619^16
  1. ;;^UTILITY(U,$J,358.3,12754,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12754,1,3,0)
  1. ;;=3^Pigmentary GLC,OD,Mild Stage
  1. ;;^UTILITY(U,$J,358.3,12754,1,4,0)
  1. ;;=4^H40.1311
  1. ;;^UTILITY(U,$J,358.3,12754,2)
  1. ;;=^5005776
  1. ;;^UTILITY(U,$J,358.3,12755,0)
  1. ;;=H40.1312^^51^619^17
  1. ;;^UTILITY(U,$J,358.3,12755,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12755,1,3,0)
  1. ;;=3^Pigmentary GLC,OD,Moderate Stage
  1. ;;^UTILITY(U,$J,358.3,12755,1,4,0)
  1. ;;=4^H40.1312
  1. ;;^UTILITY(U,$J,358.3,12755,2)
  1. ;;=^5005777
  1. ;;^UTILITY(U,$J,358.3,12756,0)
  1. ;;=H40.1313^^51^619^18
  1. ;;^UTILITY(U,$J,358.3,12756,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12756,1,3,0)
  1. ;;=3^Pigmentary GLC,OD,Severe Stage
  1. ;;^UTILITY(U,$J,358.3,12756,1,4,0)
  1. ;;=4^H40.1313
  1. ;;^UTILITY(U,$J,358.3,12756,2)
  1. ;;=^5005778
  1. ;;^UTILITY(U,$J,358.3,12757,0)
  1. ;;=H40.1314^^51^619^19
  1. ;;^UTILITY(U,$J,358.3,12757,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12757,1,3,0)
  1. ;;=3^Pigmentary GLC,OD,Indeterminate Stage
  1. ;;^UTILITY(U,$J,358.3,12757,1,4,0)
  1. ;;=4^H40.1314