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

IBDEI0XI.m

Go to the documentation of this file.
  1. IBDEI0XI ; ; 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,15097,1,3,0)
  1. ;;=3^Carpal Tunnel Syndrome,Left Upper Limb
  1. ;;^UTILITY(U,$J,358.3,15097,1,4,0)
  1. ;;=4^G56.02
  1. ;;^UTILITY(U,$J,358.3,15097,2)
  1. ;;=^5004019
  1. ;;^UTILITY(U,$J,358.3,15098,0)
  1. ;;=S06.0X0A^^58^715^8
  1. ;;^UTILITY(U,$J,358.3,15098,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,15098,1,3,0)
  1. ;;=3^Concussion,Acute
  1. ;;^UTILITY(U,$J,358.3,15098,1,4,0)
  1. ;;=4^S06.0X0A
  1. ;;^UTILITY(U,$J,358.3,15098,2)
  1. ;;=^5020666
  1. ;;^UTILITY(U,$J,358.3,15099,0)
  1. ;;=S06.0X0S^^58^715^9
  1. ;;^UTILITY(U,$J,358.3,15099,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,15099,1,3,0)
  1. ;;=3^Concussion,Sequela
  1. ;;^UTILITY(U,$J,358.3,15099,1,4,0)
  1. ;;=4^S06.0X0S
  1. ;;^UTILITY(U,$J,358.3,15099,2)
  1. ;;=^5020668
  1. ;;^UTILITY(U,$J,358.3,15100,0)
  1. ;;=R42.^^58^715^11
  1. ;;^UTILITY(U,$J,358.3,15100,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,15100,1,3,0)
  1. ;;=3^Dizziness
  1. ;;^UTILITY(U,$J,358.3,15100,1,4,0)
  1. ;;=4^R42.
  1. ;;^UTILITY(U,$J,358.3,15100,2)
  1. ;;=^5019450
  1. ;;^UTILITY(U,$J,358.3,15101,0)
  1. ;;=G57.11^^58^715^24
  1. ;;^UTILITY(U,$J,358.3,15101,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,15101,1,3,0)
  1. ;;=3^Meralgia Paresthetica,Right Lower Limb
  1. ;;^UTILITY(U,$J,358.3,15101,1,4,0)
  1. ;;=4^G57.11
  1. ;;^UTILITY(U,$J,358.3,15101,2)
  1. ;;=^5004042
  1. ;;^UTILITY(U,$J,358.3,15102,0)
  1. ;;=G57.12^^58^715^23
  1. ;;^UTILITY(U,$J,358.3,15102,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,15102,1,3,0)
  1. ;;=3^Meralgia Paresthetica,Left Lower Limb
  1. ;;^UTILITY(U,$J,358.3,15102,1,4,0)
  1. ;;=4^G57.12
  1. ;;^UTILITY(U,$J,358.3,15102,2)
  1. ;;=^5004043
  1. ;;^UTILITY(U,$J,358.3,15103,0)
  1. ;;=G43.901^^58^715^25
  1. ;;^UTILITY(U,$J,358.3,15103,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,15103,1,3,0)
  1. ;;=3^Migraine w/ Status Migrainosus
  1. ;;^UTILITY(U,$J,358.3,15103,1,4,0)
  1. ;;=4^G43.901
  1. ;;^UTILITY(U,$J,358.3,15103,2)
  1. ;;=^5003908
  1. ;;^UTILITY(U,$J,358.3,15104,0)
  1. ;;=M79.601^^58^715^40
  1. ;;^UTILITY(U,$J,358.3,15104,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,15104,1,3,0)
  1. ;;=3^Pain,Arm,Right
  1. ;;^UTILITY(U,$J,358.3,15104,1,4,0)
  1. ;;=4^M79.601
  1. ;;^UTILITY(U,$J,358.3,15104,2)
  1. ;;=^5013325
  1. ;;^UTILITY(U,$J,358.3,15105,0)
  1. ;;=M79.602^^58^715^39
  1. ;;^UTILITY(U,$J,358.3,15105,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,15105,1,3,0)
  1. ;;=3^Pain,Arm,Left
  1. ;;^UTILITY(U,$J,358.3,15105,1,4,0)
  1. ;;=4^M79.602
  1. ;;^UTILITY(U,$J,358.3,15105,2)
  1. ;;=^5013326
  1. ;;^UTILITY(U,$J,358.3,15106,0)
  1. ;;=M25.511^^58^715^54
  1. ;;^UTILITY(U,$J,358.3,15106,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,15106,1,3,0)
  1. ;;=3^Pain,Shoulder,Right
  1. ;;^UTILITY(U,$J,358.3,15106,1,4,0)
  1. ;;=4^M25.511
  1. ;;^UTILITY(U,$J,358.3,15106,2)
  1. ;;=^5011602
  1. ;;^UTILITY(U,$J,358.3,15107,0)
  1. ;;=M25.512^^58^715^53
  1. ;;^UTILITY(U,$J,358.3,15107,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,15107,1,3,0)
  1. ;;=3^Pain,Shoulder,Left
  1. ;;^UTILITY(U,$J,358.3,15107,1,4,0)
  1. ;;=4^M25.512
  1. ;;^UTILITY(U,$J,358.3,15107,2)
  1. ;;=^5011603
  1. ;;^UTILITY(U,$J,358.3,15108,0)
  1. ;;=M25.521^^58^715^42
  1. ;;^UTILITY(U,$J,358.3,15108,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,15108,1,3,0)
  1. ;;=3^Pain,Elbow,Right
  1. ;;^UTILITY(U,$J,358.3,15108,1,4,0)
  1. ;;=4^M25.521
  1. ;;^UTILITY(U,$J,358.3,15108,2)
  1. ;;=^5011605
  1. ;;^UTILITY(U,$J,358.3,15109,0)
  1. ;;=M25.522^^58^715^41
  1. ;;^UTILITY(U,$J,358.3,15109,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,15109,1,3,0)
  1. ;;=3^Pain,Elbow,Left
  1. ;;^UTILITY(U,$J,358.3,15109,1,4,0)
  1. ;;=4^M25.522
  1. ;;^UTILITY(U,$J,358.3,15109,2)
  1. ;;=^5011606
  1. ;;^UTILITY(U,$J,358.3,15110,0)
  1. ;;=M25.531^^58^715^56