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

IBDEI2CM.m

Go to the documentation of this file.
IBDEI2CM ; ; 04-FEB-2020
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
 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
Q Q
 ;;^UTILITY(U,$J,358.3,37513,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37513,1,3,0)
 ;;=3^Nondisp fx of cuboid bone of rt ft, init
 ;;^UTILITY(U,$J,358.3,37513,1,4,0)
 ;;=4^S92.214A
 ;;^UTILITY(U,$J,358.3,37513,2)
 ;;=^5044857
 ;;^UTILITY(U,$J,358.3,37514,0)
 ;;=S92.215A^^146^1917^310
 ;;^UTILITY(U,$J,358.3,37514,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37514,1,3,0)
 ;;=3^Nondisp fx of cuboid bone of lft ft, init
 ;;^UTILITY(U,$J,358.3,37514,1,4,0)
 ;;=4^S92.215A
 ;;^UTILITY(U,$J,358.3,37514,2)
 ;;=^5044864
 ;;^UTILITY(U,$J,358.3,37515,0)
 ;;=S92.244A^^146^1917^335
 ;;^UTILITY(U,$J,358.3,37515,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37515,1,3,0)
 ;;=3^Nondisp fx of medial cuneiform of rt ft, init
 ;;^UTILITY(U,$J,358.3,37515,1,4,0)
 ;;=4^S92.244A
 ;;^UTILITY(U,$J,358.3,37515,2)
 ;;=^5044983
 ;;^UTILITY(U,$J,358.3,37516,0)
 ;;=S92.245A^^146^1917^334
 ;;^UTILITY(U,$J,358.3,37516,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37516,1,3,0)
 ;;=3^Nondisp fx of medial cuneiform of lft ft, init
 ;;^UTILITY(U,$J,358.3,37516,1,4,0)
 ;;=4^S92.245A
 ;;^UTILITY(U,$J,358.3,37516,2)
 ;;=^5044990
 ;;^UTILITY(U,$J,358.3,37517,0)
 ;;=S92.221A^^146^1917^100
 ;;^UTILITY(U,$J,358.3,37517,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37517,1,3,0)
 ;;=3^Disp fx of ltrl cuneiform of rt ft, init
 ;;^UTILITY(U,$J,358.3,37517,1,4,0)
 ;;=4^S92.221A
 ;;^UTILITY(U,$J,358.3,37517,2)
 ;;=^5044878
 ;;^UTILITY(U,$J,358.3,37518,0)
 ;;=S92.222A^^146^1917^99
 ;;^UTILITY(U,$J,358.3,37518,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37518,1,3,0)
 ;;=3^Disp fx of ltrl cuneiform of lft ft, init
 ;;^UTILITY(U,$J,358.3,37518,1,4,0)
 ;;=4^S92.222A
 ;;^UTILITY(U,$J,358.3,37518,2)
 ;;=^5044885
 ;;^UTILITY(U,$J,358.3,37519,0)
 ;;=S92.224A^^146^1917^325
 ;;^UTILITY(U,$J,358.3,37519,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37519,1,3,0)
 ;;=3^Nondisp fx of ltrl cuneiform of rt ft, init
 ;;^UTILITY(U,$J,358.3,37519,1,4,0)
 ;;=4^S92.224A
 ;;^UTILITY(U,$J,358.3,37519,2)
 ;;=^5044899
 ;;^UTILITY(U,$J,358.3,37520,0)
 ;;=S92.225A^^146^1917^324
 ;;^UTILITY(U,$J,358.3,37520,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37520,1,3,0)
 ;;=3^Nondisp fx of ltrl cuneiform of lft ft, init
 ;;^UTILITY(U,$J,358.3,37520,1,4,0)
 ;;=4^S92.225A
 ;;^UTILITY(U,$J,358.3,37520,2)
 ;;=^5044906
 ;;^UTILITY(U,$J,358.3,37521,0)
 ;;=S92.231A^^146^1917^96
 ;;^UTILITY(U,$J,358.3,37521,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37521,1,3,0)
 ;;=3^Disp fx of intermed cuneiform of rt ft, init
 ;;^UTILITY(U,$J,358.3,37521,1,4,0)
 ;;=4^S92.231A
 ;;^UTILITY(U,$J,358.3,37521,2)
 ;;=^5044920
 ;;^UTILITY(U,$J,358.3,37522,0)
 ;;=S92.232A^^146^1917^95
 ;;^UTILITY(U,$J,358.3,37522,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37522,1,3,0)
 ;;=3^Disp fx of intermed cuneiform of lft ft, init
 ;;^UTILITY(U,$J,358.3,37522,1,4,0)
 ;;=4^S92.232A
 ;;^UTILITY(U,$J,358.3,37522,2)
 ;;=^5044927
 ;;^UTILITY(U,$J,358.3,37523,0)
 ;;=S92.234A^^146^1917^319
 ;;^UTILITY(U,$J,358.3,37523,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37523,1,3,0)
 ;;=3^Nondisp fx of intermed cuneiform of rt ft, init
 ;;^UTILITY(U,$J,358.3,37523,1,4,0)
 ;;=4^S92.234A
 ;;^UTILITY(U,$J,358.3,37523,2)
 ;;=^5044941
 ;;^UTILITY(U,$J,358.3,37524,0)
 ;;=S92.235A^^146^1917^318
 ;;^UTILITY(U,$J,358.3,37524,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37524,1,3,0)
 ;;=3^Nondisp fx of intermed cuneiform of lft ft, init
 ;;^UTILITY(U,$J,358.3,37524,1,4,0)
 ;;=4^S92.235A