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

IBDEI2D8.m

Go to the documentation of this file.
  1. IBDEI2D8 ; ; 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,37764,1,4,0)
  1. ;;=4^S92.154K
  1. ;;^UTILITY(U,$J,358.3,37764,2)
  1. ;;=^5044798
  1. ;;^UTILITY(U,$J,358.3,37765,0)
  1. ;;=S92.152K^^146^1917^3
  1. ;;^UTILITY(U,$J,358.3,37765,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,37765,1,3,0)
  1. ;;=3^Disp avuls fx (chip) lft talus, subs w/ nonunion
  1. ;;^UTILITY(U,$J,358.3,37765,1,4,0)
  1. ;;=4^S92.152K
  1. ;;^UTILITY(U,$J,358.3,37765,2)
  1. ;;=^5044784
  1. ;;^UTILITY(U,$J,358.3,37766,0)
  1. ;;=S92.151K^^146^1917^4
  1. ;;^UTILITY(U,$J,358.3,37766,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,37766,1,3,0)
  1. ;;=3^Disp avuls fx (chip) of rt talus, subs w/ nonunion
  1. ;;^UTILITY(U,$J,358.3,37766,1,4,0)
  1. ;;=4^S92.151K
  1. ;;^UTILITY(U,$J,358.3,37766,2)
  1. ;;=^5044777
  1. ;;^UTILITY(U,$J,358.3,37767,0)
  1. ;;=S92.145K^^146^1917^244
  1. ;;^UTILITY(U,$J,358.3,37767,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,37767,1,3,0)
  1. ;;=3^Nondisp dome fx lft tauls, subs w/ nonunion
  1. ;;^UTILITY(U,$J,358.3,37767,1,4,0)
  1. ;;=4^S92.145K
  1. ;;^UTILITY(U,$J,358.3,37767,2)
  1. ;;=^5044763
  1. ;;^UTILITY(U,$J,358.3,37768,0)
  1. ;;=S92.055K^^146^1917^249
  1. ;;^UTILITY(U,$J,358.3,37768,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,37768,1,3,0)
  1. ;;=3^Nondisp extrartic fx lft calcaneus, subs w/ nonunion, oth
  1. ;;^UTILITY(U,$J,358.3,37768,1,4,0)
  1. ;;=4^S92.055K
  1. ;;^UTILITY(U,$J,358.3,37768,2)
  1. ;;=^5044539
  1. ;;^UTILITY(U,$J,358.3,37769,0)
  1. ;;=S92.054K^^146^1917^252
  1. ;;^UTILITY(U,$J,358.3,37769,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,37769,1,3,0)
  1. ;;=3^Nondisp extrartic fx rt calcaneus, subs w/ nonunion, oth
  1. ;;^UTILITY(U,$J,358.3,37769,1,4,0)
  1. ;;=4^S92.054K
  1. ;;^UTILITY(U,$J,358.3,37769,2)
  1. ;;=^5044532
  1. ;;^UTILITY(U,$J,358.3,37770,0)
  1. ;;=S92.052K^^146^1917^24
  1. ;;^UTILITY(U,$J,358.3,37770,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,37770,1,3,0)
  1. ;;=3^Disp extrartic fx lft calcaneus, subs w/ nonunion, oth
  1. ;;^UTILITY(U,$J,358.3,37770,1,4,0)
  1. ;;=4^S92.052K
  1. ;;^UTILITY(U,$J,358.3,37770,2)
  1. ;;=^5044518
  1. ;;^UTILITY(U,$J,358.3,37771,0)
  1. ;;=S92.051K^^146^1917^27
  1. ;;^UTILITY(U,$J,358.3,37771,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,37771,1,3,0)
  1. ;;=3^Disp extrartic fx rt calcaneus, subs w/ nonunion, oth
  1. ;;^UTILITY(U,$J,358.3,37771,1,4,0)
  1. ;;=4^S92.051K
  1. ;;^UTILITY(U,$J,358.3,37771,2)
  1. ;;=^5044511
  1. ;;^UTILITY(U,$J,358.3,37772,0)
  1. ;;=S92.045K^^146^1917^360
  1. ;;^UTILITY(U,$J,358.3,37772,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,37772,1,3,0)
  1. ;;=3^Nondisp fx tuberosity lft calcaneus, subs w/ nonunion, oth
  1. ;;^UTILITY(U,$J,358.3,37772,1,4,0)
  1. ;;=4^S92.045K
  1. ;;^UTILITY(U,$J,358.3,37772,2)
  1. ;;=^5137564
  1. ;;^UTILITY(U,$J,358.3,37773,0)
  1. ;;=S92.044K^^146^1917^361
  1. ;;^UTILITY(U,$J,358.3,37773,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,37773,1,3,0)
  1. ;;=3^Nondisp fx tuberosity rt calcaneu, subs w/ nonunion, oth
  1. ;;^UTILITY(U,$J,358.3,37773,1,4,0)
  1. ;;=4^S92.044K
  1. ;;^UTILITY(U,$J,358.3,37773,2)
  1. ;;=^5044504
  1. ;;^UTILITY(U,$J,358.3,37774,0)
  1. ;;=S92.042K^^146^1917^134
  1. ;;^UTILITY(U,$J,358.3,37774,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,37774,1,3,0)
  1. ;;=3^Disp fx tuberosity lft calcaneus, subs w/ nonunion, oth
  1. ;;^UTILITY(U,$J,358.3,37774,1,4,0)
  1. ;;=4^S92.042K
  1. ;;^UTILITY(U,$J,358.3,37774,2)
  1. ;;=^5137550
  1. ;;^UTILITY(U,$J,358.3,37775,0)
  1. ;;=S92.041K^^146^1917^135
  1. ;;^UTILITY(U,$J,358.3,37775,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,37775,1,3,0)
  1. ;;=3^Disp fx tuberosity rt calcaneus, subs w/ nonunion, oth
  1. ;;^UTILITY(U,$J,358.3,37775,1,4,0)
  1. ;;=4^S92.041K