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

IBDEI2OO.m

Go to the documentation of this file.
  1. IBDEI2OO ; ; 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,42772,1,4,0)
  1. ;;=4^S22.071S
  1. ;;^UTILITY(U,$J,358.3,42772,2)
  1. ;;=^5023026
  1. ;;^UTILITY(U,$J,358.3,42773,0)
  1. ;;=S32.031S^^155^2073^45
  1. ;;^UTILITY(U,$J,358.3,42773,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,42773,1,3,0)
  1. ;;=3^Stable burst fracture of third lumbar vertebra, sequela
  1. ;;^UTILITY(U,$J,358.3,42773,1,4,0)
  1. ;;=4^S32.031S
  1. ;;^UTILITY(U,$J,358.3,42773,2)
  1. ;;=^5024442
  1. ;;^UTILITY(U,$J,358.3,42774,0)
  1. ;;=S22.031S^^155^2073^46
  1. ;;^UTILITY(U,$J,358.3,42774,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,42774,1,3,0)
  1. ;;=3^Stable burst fracture of third thoracic vertebra, sequela
  1. ;;^UTILITY(U,$J,358.3,42774,1,4,0)
  1. ;;=4^S22.031S
  1. ;;^UTILITY(U,$J,358.3,42774,2)
  1. ;;=^5022906
  1. ;;^UTILITY(U,$J,358.3,42775,0)
  1. ;;=S32.111S^^155^2073^20
  1. ;;^UTILITY(U,$J,358.3,42775,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,42775,1,3,0)
  1. ;;=3^Minimally displaced Zone I fracture of sacrum, sequela
  1. ;;^UTILITY(U,$J,358.3,42775,1,4,0)
  1. ;;=4^S32.111S
  1. ;;^UTILITY(U,$J,358.3,42775,2)
  1. ;;=^5024538
  1. ;;^UTILITY(U,$J,358.3,42776,0)
  1. ;;=S32.121S^^155^2073^21
  1. ;;^UTILITY(U,$J,358.3,42776,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,42776,1,3,0)
  1. ;;=3^Minimally displaced Zone II fracture of sacrum, sequela
  1. ;;^UTILITY(U,$J,358.3,42776,1,4,0)
  1. ;;=4^S32.121S
  1. ;;^UTILITY(U,$J,358.3,42776,2)
  1. ;;=^5024562
  1. ;;^UTILITY(U,$J,358.3,42777,0)
  1. ;;=S32.131S^^155^2073^22
  1. ;;^UTILITY(U,$J,358.3,42777,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,42777,1,3,0)
  1. ;;=3^Minimally displaced Zone III fracture of sacrum, sequela
  1. ;;^UTILITY(U,$J,358.3,42777,1,4,0)
  1. ;;=4^S32.131S
  1. ;;^UTILITY(U,$J,358.3,42777,2)
  1. ;;=^5024586
  1. ;;^UTILITY(U,$J,358.3,42778,0)
  1. ;;=S32.110S^^155^2073^24
  1. ;;^UTILITY(U,$J,358.3,42778,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,42778,1,3,0)
  1. ;;=3^Nondisp Zone I fracture of sacrum, sequela
  1. ;;^UTILITY(U,$J,358.3,42778,1,4,0)
  1. ;;=4^S32.110S
  1. ;;^UTILITY(U,$J,358.3,42778,2)
  1. ;;=^5024532
  1. ;;^UTILITY(U,$J,358.3,42779,0)
  1. ;;=S32.120S^^155^2073^25
  1. ;;^UTILITY(U,$J,358.3,42779,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,42779,1,3,0)
  1. ;;=3^Nondisp Zone II fracture of sacrum, sequela
  1. ;;^UTILITY(U,$J,358.3,42779,1,4,0)
  1. ;;=4^S32.120S
  1. ;;^UTILITY(U,$J,358.3,42779,2)
  1. ;;=^5024556
  1. ;;^UTILITY(U,$J,358.3,42780,0)
  1. ;;=S32.130S^^155^2073^26
  1. ;;^UTILITY(U,$J,358.3,42780,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,42780,1,3,0)
  1. ;;=3^Nondisp Zone III fracture of sacrum, sequela
  1. ;;^UTILITY(U,$J,358.3,42780,1,4,0)
  1. ;;=4^S32.130S
  1. ;;^UTILITY(U,$J,358.3,42780,2)
  1. ;;=^5024580
  1. ;;^UTILITY(U,$J,358.3,42781,0)
  1. ;;=S32.112S^^155^2073^30
  1. ;;^UTILITY(U,$J,358.3,42781,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,42781,1,3,0)
  1. ;;=3^Severely displaced Zone I fracture of sacrum, sequela
  1. ;;^UTILITY(U,$J,358.3,42781,1,4,0)
  1. ;;=4^S32.112S
  1. ;;^UTILITY(U,$J,358.3,42781,2)
  1. ;;=^5024544
  1. ;;^UTILITY(U,$J,358.3,42782,0)
  1. ;;=S32.122S^^155^2073^31
  1. ;;^UTILITY(U,$J,358.3,42782,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,42782,1,3,0)
  1. ;;=3^Severely displaced Zone II fracture of sacrum, sequela
  1. ;;^UTILITY(U,$J,358.3,42782,1,4,0)
  1. ;;=4^S32.122S
  1. ;;^UTILITY(U,$J,358.3,42782,2)
  1. ;;=^5024568
  1. ;;^UTILITY(U,$J,358.3,42783,0)
  1. ;;=S32.132S^^155^2073^32
  1. ;;^UTILITY(U,$J,358.3,42783,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,42783,1,3,0)
  1. ;;=3^Severely displaced Zone III fracture of sacrum, sequela
  1. ;;^UTILITY(U,$J,358.3,42783,1,4,0)
  1. ;;=4^S32.132S
  1. ;;^UTILITY(U,$J,358.3,42783,2)
  1. ;;=^5024592