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

IBDEI0XG.m

Go to the documentation of this file.
  1. IBDEI0XG ; ; 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,15072,1,4,0)
  1. ;;=4^L59.9
  1. ;;^UTILITY(U,$J,358.3,15072,2)
  1. ;;=^5009233
  1. ;;^UTILITY(U,$J,358.3,15073,0)
  1. ;;=T65.91XS^^58^715^72
  1. ;;^UTILITY(U,$J,358.3,15073,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,15073,1,3,0)
  1. ;;=3^Toxic effect of unsp substance, accidental, sequela
  1. ;;^UTILITY(U,$J,358.3,15073,1,4,0)
  1. ;;=4^T65.91XS
  1. ;;^UTILITY(U,$J,358.3,15073,2)
  1. ;;=^5053908
  1. ;;^UTILITY(U,$J,358.3,15074,0)
  1. ;;=T65.92XS^^58^715^73
  1. ;;^UTILITY(U,$J,358.3,15074,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,15074,1,3,0)
  1. ;;=3^Toxic effect of unsp substance, self-harm, sequela
  1. ;;^UTILITY(U,$J,358.3,15074,1,4,0)
  1. ;;=4^T65.92XS
  1. ;;^UTILITY(U,$J,358.3,15074,2)
  1. ;;=^5053911
  1. ;;^UTILITY(U,$J,358.3,15075,0)
  1. ;;=T65.93XS^^58^715^74
  1. ;;^UTILITY(U,$J,358.3,15075,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,15075,1,3,0)
  1. ;;=3^Toxic effect of unspecified substance, assault, sequela
  1. ;;^UTILITY(U,$J,358.3,15075,1,4,0)
  1. ;;=4^T65.93XS
  1. ;;^UTILITY(U,$J,358.3,15075,2)
  1. ;;=^5053914
  1. ;;^UTILITY(U,$J,358.3,15076,0)
  1. ;;=T65.94XS^^58^715^75
  1. ;;^UTILITY(U,$J,358.3,15076,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,15076,1,3,0)
  1. ;;=3^Toxic effect of unspecified substance, undetermined, sequela
  1. ;;^UTILITY(U,$J,358.3,15076,1,4,0)
  1. ;;=4^T65.94XS
  1. ;;^UTILITY(U,$J,358.3,15076,2)
  1. ;;=^5053917
  1. ;;^UTILITY(U,$J,358.3,15077,0)
  1. ;;=R20.0^^58^715^34
  1. ;;^UTILITY(U,$J,358.3,15077,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,15077,1,3,0)
  1. ;;=3^Numbness of Skin
  1. ;;^UTILITY(U,$J,358.3,15077,1,4,0)
  1. ;;=4^R20.0
  1. ;;^UTILITY(U,$J,358.3,15077,2)
  1. ;;=^5019278
  1. ;;^UTILITY(U,$J,358.3,15078,0)
  1. ;;=R63.0^^58^715^1
  1. ;;^UTILITY(U,$J,358.3,15078,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,15078,1,3,0)
  1. ;;=3^Anorexia
  1. ;;^UTILITY(U,$J,358.3,15078,1,4,0)
  1. ;;=4^R63.0
  1. ;;^UTILITY(U,$J,358.3,15078,2)
  1. ;;=^7939
  1. ;;^UTILITY(U,$J,358.3,15079,0)
  1. ;;=R43.0^^58^715^2
  1. ;;^UTILITY(U,$J,358.3,15079,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,15079,1,3,0)
  1. ;;=3^Anosmia
  1. ;;^UTILITY(U,$J,358.3,15079,1,4,0)
  1. ;;=4^R43.0
  1. ;;^UTILITY(U,$J,358.3,15079,2)
  1. ;;=^7949
  1. ;;^UTILITY(U,$J,358.3,15080,0)
  1. ;;=T20.00XS^^58^715^4
  1. ;;^UTILITY(U,$J,358.3,15080,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,15080,1,3,0)
  1. ;;=3^Burn unsp degree of head, face, and neck, unsp site, sequela
  1. ;;^UTILITY(U,$J,358.3,15080,1,4,0)
  1. ;;=4^T20.00XS
  1. ;;^UTILITY(U,$J,358.3,15080,2)
  1. ;;=^5046644
  1. ;;^UTILITY(U,$J,358.3,15081,0)
  1. ;;=G89.21^^58^715^7
  1. ;;^UTILITY(U,$J,358.3,15081,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,15081,1,3,0)
  1. ;;=3^Chronic pain due to trauma
  1. ;;^UTILITY(U,$J,358.3,15081,1,4,0)
  1. ;;=4^G89.21
  1. ;;^UTILITY(U,$J,358.3,15081,2)
  1. ;;=^5004155
  1. ;;^UTILITY(U,$J,358.3,15082,0)
  1. ;;=R50.9^^58^715^14
  1. ;;^UTILITY(U,$J,358.3,15082,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,15082,1,3,0)
  1. ;;=3^Fever, unspecified
  1. ;;^UTILITY(U,$J,358.3,15082,1,4,0)
  1. ;;=4^R50.9
  1. ;;^UTILITY(U,$J,358.3,15082,2)
  1. ;;=^5019512
  1. ;;^UTILITY(U,$J,358.3,15083,0)
  1. ;;=R20.3^^58^715^20
  1. ;;^UTILITY(U,$J,358.3,15083,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,15083,1,3,0)
  1. ;;=3^Hyperesthesia
  1. ;;^UTILITY(U,$J,358.3,15083,1,4,0)
  1. ;;=4^R20.3
  1. ;;^UTILITY(U,$J,358.3,15083,2)
  1. ;;=^60011
  1. ;;^UTILITY(U,$J,358.3,15084,0)
  1. ;;=G47.00^^58^715^21
  1. ;;^UTILITY(U,$J,358.3,15084,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,15084,1,3,0)
  1. ;;=3^Insomnia, unspecified
  1. ;;^UTILITY(U,$J,358.3,15084,1,4,0)
  1. ;;=4^G47.00
  1. ;;^UTILITY(U,$J,358.3,15084,2)
  1. ;;=^332924