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

IBDEI2JB.m

Go to the documentation of this file.
  1. IBDEI2JB ; ; 04-FEB-2020
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
  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,40470,0)
  1. ;;=R19.8^^152^2012^63
  1. ;;^UTILITY(U,$J,358.3,40470,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40470,1,3,0)
  1. ;;=3^Digestive System/Abdomen Symptoms NEC
  1. ;;^UTILITY(U,$J,358.3,40470,1,4,0)
  1. ;;=4^R19.8
  1. ;;^UTILITY(U,$J,358.3,40470,2)
  1. ;;=^5019277
  1. ;;^UTILITY(U,$J,358.3,40471,0)
  1. ;;=R20.0^^152^2012^39
  1. ;;^UTILITY(U,$J,358.3,40471,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40471,1,3,0)
  1. ;;=3^Anesthesia of Skin
  1. ;;^UTILITY(U,$J,358.3,40471,1,4,0)
  1. ;;=4^R20.0
  1. ;;^UTILITY(U,$J,358.3,40471,2)
  1. ;;=^5019278
  1. ;;^UTILITY(U,$J,358.3,40472,0)
  1. ;;=R20.1^^152^2012^92
  1. ;;^UTILITY(U,$J,358.3,40472,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40472,1,3,0)
  1. ;;=3^Hypoesthesia of Skin
  1. ;;^UTILITY(U,$J,358.3,40472,1,4,0)
  1. ;;=4^R20.1
  1. ;;^UTILITY(U,$J,358.3,40472,2)
  1. ;;=^5019279
  1. ;;^UTILITY(U,$J,358.3,40473,0)
  1. ;;=R20.2^^152^2012^136
  1. ;;^UTILITY(U,$J,358.3,40473,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40473,1,3,0)
  1. ;;=3^Paresthesia of Skin
  1. ;;^UTILITY(U,$J,358.3,40473,1,4,0)
  1. ;;=4^R20.2
  1. ;;^UTILITY(U,$J,358.3,40473,2)
  1. ;;=^5019280
  1. ;;^UTILITY(U,$J,358.3,40474,0)
  1. ;;=R20.3^^152^2012^88
  1. ;;^UTILITY(U,$J,358.3,40474,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40474,1,3,0)
  1. ;;=3^Hyperesthesia
  1. ;;^UTILITY(U,$J,358.3,40474,1,4,0)
  1. ;;=4^R20.3
  1. ;;^UTILITY(U,$J,358.3,40474,2)
  1. ;;=^60011
  1. ;;^UTILITY(U,$J,358.3,40475,0)
  1. ;;=R21.^^152^2012^151
  1. ;;^UTILITY(U,$J,358.3,40475,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40475,1,3,0)
  1. ;;=3^Rash
  1. ;;^UTILITY(U,$J,358.3,40475,1,4,0)
  1. ;;=4^R21.
  1. ;;^UTILITY(U,$J,358.3,40475,2)
  1. ;;=^5019283
  1. ;;^UTILITY(U,$J,358.3,40476,0)
  1. ;;=R22.0^^152^2012^110
  1. ;;^UTILITY(U,$J,358.3,40476,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40476,1,3,0)
  1. ;;=3^Localized Swelling/Mass/Lump,Head
  1. ;;^UTILITY(U,$J,358.3,40476,1,4,0)
  1. ;;=4^R22.0
  1. ;;^UTILITY(U,$J,358.3,40476,2)
  1. ;;=^5019284
  1. ;;^UTILITY(U,$J,358.3,40477,0)
  1. ;;=R22.1^^152^2012^113
  1. ;;^UTILITY(U,$J,358.3,40477,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40477,1,3,0)
  1. ;;=3^Localized Swelling/Mass/Lump,Neck
  1. ;;^UTILITY(U,$J,358.3,40477,1,4,0)
  1. ;;=4^R22.1
  1. ;;^UTILITY(U,$J,358.3,40477,2)
  1. ;;=^5019285
  1. ;;^UTILITY(U,$J,358.3,40478,0)
  1. ;;=R22.2^^152^2012^116
  1. ;;^UTILITY(U,$J,358.3,40478,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40478,1,3,0)
  1. ;;=3^Localized Swelling/Mass/Lump,Trunk
  1. ;;^UTILITY(U,$J,358.3,40478,1,4,0)
  1. ;;=4^R22.2
  1. ;;^UTILITY(U,$J,358.3,40478,2)
  1. ;;=^5019286
  1. ;;^UTILITY(U,$J,358.3,40479,0)
  1. ;;=R22.31^^152^2012^115
  1. ;;^UTILITY(U,$J,358.3,40479,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40479,1,3,0)
  1. ;;=3^Localized Swelling/Mass/Lump,Right Upper Limb
  1. ;;^UTILITY(U,$J,358.3,40479,1,4,0)
  1. ;;=4^R22.31
  1. ;;^UTILITY(U,$J,358.3,40479,2)
  1. ;;=^5019288
  1. ;;^UTILITY(U,$J,358.3,40480,0)
  1. ;;=R22.32^^152^2012^112
  1. ;;^UTILITY(U,$J,358.3,40480,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40480,1,3,0)
  1. ;;=3^Localized Swelling/Mass/Lump,Left Upper Limb
  1. ;;^UTILITY(U,$J,358.3,40480,1,4,0)
  1. ;;=4^R22.32
  1. ;;^UTILITY(U,$J,358.3,40480,2)
  1. ;;=^5019289
  1. ;;^UTILITY(U,$J,358.3,40481,0)
  1. ;;=R22.33^^152^2012^108
  1. ;;^UTILITY(U,$J,358.3,40481,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40481,1,3,0)
  1. ;;=3^Localized Swelling/Mass/Lump,Bilateral Upper Limb
  1. ;;^UTILITY(U,$J,358.3,40481,1,4,0)
  1. ;;=4^R22.33
  1. ;;^UTILITY(U,$J,358.3,40481,2)
  1. ;;=^5019290
  1. ;;^UTILITY(U,$J,358.3,40482,0)
  1. ;;=R22.42^^152^2012^111
  1. ;;^UTILITY(U,$J,358.3,40482,1,0)
  1. ;;=^358.31IA^4^2