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

IBDEI2D5.m

Go to the documentation of this file.
IBDEI2D5 ; ; 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,37730,1,3,0)
 ;;=3^Disp fx body rt talus, subs w/ nonunion
 ;;^UTILITY(U,$J,358.3,37730,1,4,0)
 ;;=4^S92.121K
 ;;^UTILITY(U,$J,358.3,37730,2)
 ;;=^5044651
 ;;^UTILITY(U,$J,358.3,37731,0)
 ;;=S92.002K^^146^1917^191
 ;;^UTILITY(U,$J,358.3,37731,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37731,1,3,0)
 ;;=3^Fx of lft calcaneus, subs w/ nonunion, unspec
 ;;^UTILITY(U,$J,358.3,37731,1,4,0)
 ;;=4^S92.002K
 ;;^UTILITY(U,$J,358.3,37731,2)
 ;;=^5044364
 ;;^UTILITY(U,$J,358.3,37732,0)
 ;;=S92.001K^^146^1917^208
 ;;^UTILITY(U,$J,358.3,37732,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37732,1,3,0)
 ;;=3^Fx of rt calcaneus, subs w/ nonunion, unspec
 ;;^UTILITY(U,$J,358.3,37732,1,4,0)
 ;;=4^S92.001K
 ;;^UTILITY(U,$J,358.3,37732,2)
 ;;=^5044357
 ;;^UTILITY(U,$J,358.3,37733,0)
 ;;=S92.102K^^146^1917^201
 ;;^UTILITY(U,$J,358.3,37733,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37733,1,3,0)
 ;;=3^Fx of lft talus, subs w/ nonunion, unspec
 ;;^UTILITY(U,$J,358.3,37733,1,4,0)
 ;;=4^S92.102K
 ;;^UTILITY(U,$J,358.3,37733,2)
 ;;=^5044602
 ;;^UTILITY(U,$J,358.3,37734,0)
 ;;=S92.101K^^146^1917^218
 ;;^UTILITY(U,$J,358.3,37734,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37734,1,3,0)
 ;;=3^Fx of rt talus, subs w/ nonunion, unspec
 ;;^UTILITY(U,$J,358.3,37734,1,4,0)
 ;;=4^S92.101K
 ;;^UTILITY(U,$J,358.3,37734,2)
 ;;=^5044595
 ;;^UTILITY(U,$J,358.3,37735,0)
 ;;=S92.065K^^146^1917^362
 ;;^UTILITY(U,$J,358.3,37735,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37735,1,3,0)
 ;;=3^Nondisp intartic fx lft calcaneus, subs w/ nonunion
 ;;^UTILITY(U,$J,358.3,37735,1,4,0)
 ;;=4^S92.065K
 ;;^UTILITY(U,$J,358.3,37735,2)
 ;;=^5044581
 ;;^UTILITY(U,$J,358.3,37736,0)
 ;;=S92.064K^^146^1917^363
 ;;^UTILITY(U,$J,358.3,37736,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37736,1,3,0)
 ;;=3^Nondisp intartic fx rt calcaneus, subs w/ nonunion
 ;;^UTILITY(U,$J,358.3,37736,1,4,0)
 ;;=4^S92.064K
 ;;^UTILITY(U,$J,358.3,37736,2)
 ;;=^5044574
 ;;^UTILITY(U,$J,358.3,37737,0)
 ;;=S92.062K^^146^1917^136
 ;;^UTILITY(U,$J,358.3,37737,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37737,1,3,0)
 ;;=3^Disp intraarticular fx lft calcaneus, subs w/ nonunion
 ;;^UTILITY(U,$J,358.3,37737,1,4,0)
 ;;=4^S92.062K
 ;;^UTILITY(U,$J,358.3,37737,2)
 ;;=^5044560
 ;;^UTILITY(U,$J,358.3,37738,0)
 ;;=S92.061K^^146^1917^139
 ;;^UTILITY(U,$J,358.3,37738,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37738,1,3,0)
 ;;=3^Disp intraarticular fx rt calcaneus, subs w/ nonunion
 ;;^UTILITY(U,$J,358.3,37738,1,4,0)
 ;;=4^S92.061K
 ;;^UTILITY(U,$J,358.3,37738,2)
 ;;=^5044553
 ;;^UTILITY(U,$J,358.3,37739,0)
 ;;=S92.252K^^146^1917^55
 ;;^UTILITY(U,$J,358.3,37739,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37739,1,3,0)
 ;;=3^Disp fx navicular lft ft, subs w/ nonunion
 ;;^UTILITY(U,$J,358.3,37739,1,4,0)
 ;;=4^S92.252K
 ;;^UTILITY(U,$J,358.3,37739,2)
 ;;=^5045015
 ;;^UTILITY(U,$J,358.3,37740,0)
 ;;=S92.251K^^146^1917^56
 ;;^UTILITY(U,$J,358.3,37740,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37740,1,3,0)
 ;;=3^Disp fx navicular rt ft, subs w/ nonunion
 ;;^UTILITY(U,$J,358.3,37740,1,4,0)
 ;;=4^S92.251K
 ;;^UTILITY(U,$J,358.3,37740,2)
 ;;=^5045008
 ;;^UTILITY(U,$J,358.3,37741,0)
 ;;=S92.245K^^146^1917^274
 ;;^UTILITY(U,$J,358.3,37741,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37741,1,3,0)
 ;;=3^Nondisp fx med cuneiform lft ft, subs w/ nonunion
 ;;^UTILITY(U,$J,358.3,37741,1,4,0)
 ;;=4^S92.245K