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

IBDEI2CY.m

Go to the documentation of this file.
IBDEI2CY ; ; 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,37651,1,4,0)
 ;;=4^S92.501K
 ;;^UTILITY(U,$J,358.3,37651,2)
 ;;=^5045407
 ;;^UTILITY(U,$J,358.3,37652,0)
 ;;=S92.492K^^146^1917^196
 ;;^UTILITY(U,$J,358.3,37652,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37652,1,3,0)
 ;;=3^Fx of lft grt toe, subs w/ nonunion, oth
 ;;^UTILITY(U,$J,358.3,37652,1,4,0)
 ;;=4^S92.492K
 ;;^UTILITY(U,$J,358.3,37652,2)
 ;;=^5045393
 ;;^UTILITY(U,$J,358.3,37653,0)
 ;;=S92.491K^^146^1917^213
 ;;^UTILITY(U,$J,358.3,37653,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37653,1,3,0)
 ;;=3^Fx of rt grt toe, subs w/ nonunion, oth
 ;;^UTILITY(U,$J,358.3,37653,1,4,0)
 ;;=4^S92.491K
 ;;^UTILITY(U,$J,358.3,37653,2)
 ;;=^5045386
 ;;^UTILITY(U,$J,358.3,37654,0)
 ;;=S92.425K^^146^1917^312
 ;;^UTILITY(U,$J,358.3,37654,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37654,1,3,0)
 ;;=3^Nondisp fx of dist phalanx lft 1st grt toe, subs w/ nonunion
 ;;^UTILITY(U,$J,358.3,37654,1,4,0)
 ;;=4^S92.425K
 ;;^UTILITY(U,$J,358.3,37654,2)
 ;;=^5045372
 ;;^UTILITY(U,$J,358.3,37655,0)
 ;;=S92.424K^^146^1917^317
 ;;^UTILITY(U,$J,358.3,37655,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37655,1,3,0)
 ;;=3^Nondisp fx of dist phalanx rt 1st grt toe, subs w/ nonunion
 ;;^UTILITY(U,$J,358.3,37655,1,4,0)
 ;;=4^S92.424K
 ;;^UTILITY(U,$J,358.3,37655,2)
 ;;=^5045365
 ;;^UTILITY(U,$J,358.3,37656,0)
 ;;=S92.422K^^146^1917^88
 ;;^UTILITY(U,$J,358.3,37656,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37656,1,3,0)
 ;;=3^Disp fx of dist phalanx lft grt toe, subs w/ nonunion
 ;;^UTILITY(U,$J,358.3,37656,1,4,0)
 ;;=4^S92.422K
 ;;^UTILITY(U,$J,358.3,37656,2)
 ;;=^5045351
 ;;^UTILITY(U,$J,358.3,37657,0)
 ;;=S92.421K^^146^1917^94
 ;;^UTILITY(U,$J,358.3,37657,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37657,1,3,0)
 ;;=3^Disp fx of dist phalanx rt grt toe, subs 2/ nonunion
 ;;^UTILITY(U,$J,358.3,37657,1,4,0)
 ;;=4^S92.421K
 ;;^UTILITY(U,$J,358.3,37657,2)
 ;;=^5045344
 ;;^UTILITY(U,$J,358.3,37658,0)
 ;;=S92.415K^^146^1917^343
 ;;^UTILITY(U,$J,358.3,37658,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37658,1,3,0)
 ;;=3^Nondisp fx of prox phalanx lft grt toe, subs w/ nonunion
 ;;^UTILITY(U,$J,358.3,37658,1,4,0)
 ;;=4^S92.415K
 ;;^UTILITY(U,$J,358.3,37658,2)
 ;;=^5045330
 ;;^UTILITY(U,$J,358.3,37659,0)
 ;;=S92.414K^^146^1917^351
 ;;^UTILITY(U,$J,358.3,37659,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37659,1,3,0)
 ;;=3^Nondisp fx of prox phalanx rt grt toe, subs w/ nonunion
 ;;^UTILITY(U,$J,358.3,37659,1,4,0)
 ;;=4^S92.414K
 ;;^UTILITY(U,$J,358.3,37659,2)
 ;;=^5045323
 ;;^UTILITY(U,$J,358.3,37660,0)
 ;;=S92.412K^^146^1917^118
 ;;^UTILITY(U,$J,358.3,37660,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37660,1,3,0)
 ;;=3^Disp fx of prox phalanx lft grt toe, subs w/ nonunion
 ;;^UTILITY(U,$J,358.3,37660,1,4,0)
 ;;=4^S92.412K
 ;;^UTILITY(U,$J,358.3,37660,2)
 ;;=^5045309
 ;;^UTILITY(U,$J,358.3,37661,0)
 ;;=S92.411K^^146^1917^125
 ;;^UTILITY(U,$J,358.3,37661,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37661,1,3,0)
 ;;=3^Disp fx of prox phalanx rt grt toe, subs w/ nonunion
 ;;^UTILITY(U,$J,358.3,37661,1,4,0)
 ;;=4^S92.411K
 ;;^UTILITY(U,$J,358.3,37661,2)
 ;;=^5045302
 ;;^UTILITY(U,$J,358.3,37662,0)
 ;;=S92.405K^^146^1917^265
 ;;^UTILITY(U,$J,358.3,37662,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37662,1,3,0)
 ;;=3^Nondisp fx lft grt toe, subs w/ nonunion, unspec
 ;;^UTILITY(U,$J,358.3,37662,1,4,0)
 ;;=4^S92.405K
 ;;^UTILITY(U,$J,358.3,37662,2)
 ;;=^5045295