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

IBDEI1EP.m

Go to the documentation of this file.
  1. IBDEI1EP ; ; 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,22748,2)
  1. ;;=^5001059
  1. ;;^UTILITY(U,$J,358.3,22749,0)
  1. ;;=C44.622^^76^978^15
  1. ;;^UTILITY(U,$J,358.3,22749,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22749,1,3,0)
  1. ;;=3^SCC Skin Right Upper Limb
  1. ;;^UTILITY(U,$J,358.3,22749,1,4,0)
  1. ;;=4^C44.622
  1. ;;^UTILITY(U,$J,358.3,22749,2)
  1. ;;=^5001070
  1. ;;^UTILITY(U,$J,358.3,22750,0)
  1. ;;=C44.629^^76^978^6
  1. ;;^UTILITY(U,$J,358.3,22750,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22750,1,3,0)
  1. ;;=3^SCC Skin Left Upper Limb
  1. ;;^UTILITY(U,$J,358.3,22750,1,4,0)
  1. ;;=4^C44.629
  1. ;;^UTILITY(U,$J,358.3,22750,2)
  1. ;;=^5001071
  1. ;;^UTILITY(U,$J,358.3,22751,0)
  1. ;;=C44.722^^76^978^14
  1. ;;^UTILITY(U,$J,358.3,22751,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22751,1,3,0)
  1. ;;=3^SCC Skin Right Lower Limb
  1. ;;^UTILITY(U,$J,358.3,22751,1,4,0)
  1. ;;=4^C44.722
  1. ;;^UTILITY(U,$J,358.3,22751,2)
  1. ;;=^5001082
  1. ;;^UTILITY(U,$J,358.3,22752,0)
  1. ;;=C44.729^^76^978^5
  1. ;;^UTILITY(U,$J,358.3,22752,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22752,1,3,0)
  1. ;;=3^SCC Skin Left Lower Limb
  1. ;;^UTILITY(U,$J,358.3,22752,1,4,0)
  1. ;;=4^C44.729
  1. ;;^UTILITY(U,$J,358.3,22752,2)
  1. ;;=^5001083
  1. ;;^UTILITY(U,$J,358.3,22753,0)
  1. ;;=C44.82^^76^978^10
  1. ;;^UTILITY(U,$J,358.3,22753,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22753,1,3,0)
  1. ;;=3^SCC Skin Overlapping Sites
  1. ;;^UTILITY(U,$J,358.3,22753,1,4,0)
  1. ;;=4^C44.82
  1. ;;^UTILITY(U,$J,358.3,22753,2)
  1. ;;=^5001089
  1. ;;^UTILITY(U,$J,358.3,22754,0)
  1. ;;=L57.8^^76^978^36
  1. ;;^UTILITY(U,$J,358.3,22754,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22754,1,3,0)
  1. ;;=3^Skin Changes d/t Chr Exposure to Nonionizing Radiation
  1. ;;^UTILITY(U,$J,358.3,22754,1,4,0)
  1. ;;=4^L57.8
  1. ;;^UTILITY(U,$J,358.3,22754,2)
  1. ;;=^5009226
  1. ;;^UTILITY(U,$J,358.3,22755,0)
  1. ;;=L27.0^^76^978^37
  1. ;;^UTILITY(U,$J,358.3,22755,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22755,1,3,0)
  1. ;;=3^Skin Eruption,Generalized d/t Drugs/Meds Taken Internally
  1. ;;^UTILITY(U,$J,358.3,22755,1,4,0)
  1. ;;=4^L27.0
  1. ;;^UTILITY(U,$J,358.3,22755,2)
  1. ;;=^5009144
  1. ;;^UTILITY(U,$J,358.3,22756,0)
  1. ;;=L27.1^^76^978^38
  1. ;;^UTILITY(U,$J,358.3,22756,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22756,1,3,0)
  1. ;;=3^Skin Eruption,Localized d/t Drugs/Meds Taken Internally
  1. ;;^UTILITY(U,$J,358.3,22756,1,4,0)
  1. ;;=4^L27.1
  1. ;;^UTILITY(U,$J,358.3,22756,2)
  1. ;;=^5009145
  1. ;;^UTILITY(U,$J,358.3,22757,0)
  1. ;;=L51.1^^76^978^44
  1. ;;^UTILITY(U,$J,358.3,22757,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22757,1,3,0)
  1. ;;=3^Stevens-Johnson Syndrome
  1. ;;^UTILITY(U,$J,358.3,22757,1,4,0)
  1. ;;=4^L51.1
  1. ;;^UTILITY(U,$J,358.3,22757,2)
  1. ;;=^336636
  1. ;;^UTILITY(U,$J,358.3,22758,0)
  1. ;;=L51.3^^76^978^45
  1. ;;^UTILITY(U,$J,358.3,22758,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22758,1,3,0)
  1. ;;=3^Stevens-Johnson Syndrome-Toxic Epdrml Necrolysis Overlap Syndrome
  1. ;;^UTILITY(U,$J,358.3,22758,1,4,0)
  1. ;;=4^L51.3
  1. ;;^UTILITY(U,$J,358.3,22758,2)
  1. ;;=^336637
  1. ;;^UTILITY(U,$J,358.3,22759,0)
  1. ;;=Z12.83^^76^978^21
  1. ;;^UTILITY(U,$J,358.3,22759,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22759,1,3,0)
  1. ;;=3^Screening for Malig Neop of Skin
  1. ;;^UTILITY(U,$J,358.3,22759,1,4,0)
  1. ;;=4^Z12.83
  1. ;;^UTILITY(U,$J,358.3,22759,2)
  1. ;;=^5062696
  1. ;;^UTILITY(U,$J,358.3,22760,0)
  1. ;;=Z48.817^^76^978^48
  1. ;;^UTILITY(U,$J,358.3,22760,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22760,1,3,0)
  1. ;;=3^Surgical Aftercare Following Skin Surgery
  1. ;;^UTILITY(U,$J,358.3,22760,1,4,0)
  1. ;;=4^Z48.817
  1. ;;^UTILITY(U,$J,358.3,22760,2)
  1. ;;=^5063054