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

IBDEI2NJ.m

Go to the documentation of this file.
  1. IBDEI2NJ ; ; 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,42310,1,4,0)
  1. ;;=4^S62.331S
  1. ;;^UTILITY(U,$J,358.3,42310,2)
  1. ;;=^5033982
  1. ;;^UTILITY(U,$J,358.3,42311,0)
  1. ;;=S62.330S^^155^2069^32
  1. ;;^UTILITY(U,$J,358.3,42311,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,42311,1,3,0)
  1. ;;=3^Disp fx of neck of 2nd MC bone, right hand, sequela
  1. ;;^UTILITY(U,$J,358.3,42311,1,4,0)
  1. ;;=4^S62.330S
  1. ;;^UTILITY(U,$J,358.3,42311,2)
  1. ;;=^5033975
  1. ;;^UTILITY(U,$J,358.3,42312,0)
  1. ;;=S62.333S^^155^2069^33
  1. ;;^UTILITY(U,$J,358.3,42312,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,42312,1,3,0)
  1. ;;=3^Disp fx of neck of 3rd MC bone, left hand, sequela
  1. ;;^UTILITY(U,$J,358.3,42312,1,4,0)
  1. ;;=4^S62.333S
  1. ;;^UTILITY(U,$J,358.3,42312,2)
  1. ;;=^5033996
  1. ;;^UTILITY(U,$J,358.3,42313,0)
  1. ;;=S62.332S^^155^2069^34
  1. ;;^UTILITY(U,$J,358.3,42313,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,42313,1,3,0)
  1. ;;=3^Disp fx of neck of 3rd MC bone, right hand, sequela
  1. ;;^UTILITY(U,$J,358.3,42313,1,4,0)
  1. ;;=4^S62.332S
  1. ;;^UTILITY(U,$J,358.3,42313,2)
  1. ;;=^5033989
  1. ;;^UTILITY(U,$J,358.3,42314,0)
  1. ;;=S62.327S^^155^2069^57
  1. ;;^UTILITY(U,$J,358.3,42314,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,42314,1,3,0)
  1. ;;=3^Disp fx of shaft of 5th MC bone, left hand, sequela
  1. ;;^UTILITY(U,$J,358.3,42314,1,4,0)
  1. ;;=4^S62.327S
  1. ;;^UTILITY(U,$J,358.3,42314,2)
  1. ;;=^5033954
  1. ;;^UTILITY(U,$J,358.3,42315,0)
  1. ;;=S62.326S^^155^2069^58
  1. ;;^UTILITY(U,$J,358.3,42315,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,42315,1,3,0)
  1. ;;=3^Disp fx of shaft of 5th MC bone, right hand, sequela
  1. ;;^UTILITY(U,$J,358.3,42315,1,4,0)
  1. ;;=4^S62.326S
  1. ;;^UTILITY(U,$J,358.3,42315,2)
  1. ;;=^5033947
  1. ;;^UTILITY(U,$J,358.3,42316,0)
  1. ;;=S62.242S^^155^2069^49
  1. ;;^UTILITY(U,$J,358.3,42316,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,42316,1,3,0)
  1. ;;=3^Disp fx of shaft of 1st MC bone, left hand, sequela
  1. ;;^UTILITY(U,$J,358.3,42316,1,4,0)
  1. ;;=4^S62.242S
  1. ;;^UTILITY(U,$J,358.3,42316,2)
  1. ;;=^5033681
  1. ;;^UTILITY(U,$J,358.3,42317,0)
  1. ;;=S62.241S^^155^2069^50
  1. ;;^UTILITY(U,$J,358.3,42317,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,42317,1,3,0)
  1. ;;=3^Disp fx of shaft of 1st MC bone, right hand, sequela
  1. ;;^UTILITY(U,$J,358.3,42317,1,4,0)
  1. ;;=4^S62.241S
  1. ;;^UTILITY(U,$J,358.3,42317,2)
  1. ;;=^5033674
  1. ;;^UTILITY(U,$J,358.3,42318,0)
  1. ;;=S62.325S^^155^2069^55
  1. ;;^UTILITY(U,$J,358.3,42318,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,42318,1,3,0)
  1. ;;=3^Disp fx of shaft of 4th MC bone, left hand, sequela
  1. ;;^UTILITY(U,$J,358.3,42318,1,4,0)
  1. ;;=4^S62.325S
  1. ;;^UTILITY(U,$J,358.3,42318,2)
  1. ;;=^5033940
  1. ;;^UTILITY(U,$J,358.3,42319,0)
  1. ;;=S62.324S^^155^2069^56
  1. ;;^UTILITY(U,$J,358.3,42319,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,42319,1,3,0)
  1. ;;=3^Disp fx of shaft of 4th MC bone, right hand, sequela
  1. ;;^UTILITY(U,$J,358.3,42319,1,4,0)
  1. ;;=4^S62.324S
  1. ;;^UTILITY(U,$J,358.3,42319,2)
  1. ;;=^5033933
  1. ;;^UTILITY(U,$J,358.3,42320,0)
  1. ;;=S62.321S^^155^2069^51
  1. ;;^UTILITY(U,$J,358.3,42320,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,42320,1,3,0)
  1. ;;=3^Disp fx of shaft of 2nd MC bone, left hand, sequela
  1. ;;^UTILITY(U,$J,358.3,42320,1,4,0)
  1. ;;=4^S62.321S
  1. ;;^UTILITY(U,$J,358.3,42320,2)
  1. ;;=^5033912
  1. ;;^UTILITY(U,$J,358.3,42321,0)
  1. ;;=S62.320S^^155^2069^52
  1. ;;^UTILITY(U,$J,358.3,42321,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,42321,1,3,0)
  1. ;;=3^Disp fx of shaft of 2nd MC bone, right hand, sequela
  1. ;;^UTILITY(U,$J,358.3,42321,1,4,0)
  1. ;;=4^S62.320S
  1. ;;^UTILITY(U,$J,358.3,42321,2)
  1. ;;=^5033905