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

IBDEI19V.m

Go to the documentation of this file.
IBDEI19V ; ; 01-FEB-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
 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,20581,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20581,1,3,0)
 ;;=3^Sltr-haris Type III physeal fx lower end of l tibia, sequela
 ;;^UTILITY(U,$J,358.3,20581,1,4,0)
 ;;=4^S89.132S
 ;;^UTILITY(U,$J,358.3,20581,2)
 ;;=^5137306
 ;;^UTILITY(U,$J,358.3,20582,0)
 ;;=S89.131S^^67^888^96
 ;;^UTILITY(U,$J,358.3,20582,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20582,1,3,0)
 ;;=3^Sltr-haris Type III physeal fx lower end of r tibia, sequela
 ;;^UTILITY(U,$J,358.3,20582,1,4,0)
 ;;=4^S89.131S
 ;;^UTILITY(U,$J,358.3,20582,2)
 ;;=^5043750
 ;;^UTILITY(U,$J,358.3,20583,0)
 ;;=S89.032S^^67^888^97
 ;;^UTILITY(U,$J,358.3,20583,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20583,1,3,0)
 ;;=3^Sltr-haris Type III physeal fx upper end of l tibia, sequela
 ;;^UTILITY(U,$J,358.3,20583,1,4,0)
 ;;=4^S89.032S
 ;;^UTILITY(U,$J,358.3,20583,2)
 ;;=^5043690
 ;;^UTILITY(U,$J,358.3,20584,0)
 ;;=S89.031S^^67^888^98
 ;;^UTILITY(U,$J,358.3,20584,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20584,1,3,0)
 ;;=3^Sltr-haris Type III physeal fx upper end of r tibia, sequela
 ;;^UTILITY(U,$J,358.3,20584,1,4,0)
 ;;=4^S89.031S
 ;;^UTILITY(U,$J,358.3,20584,2)
 ;;=^5043684
 ;;^UTILITY(U,$J,358.3,20585,0)
 ;;=S89.142S^^67^888^99
 ;;^UTILITY(U,$J,358.3,20585,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20585,1,3,0)
 ;;=3^Sltr-haris Type IV physeal fx lower end of l tibia, sequela
 ;;^UTILITY(U,$J,358.3,20585,1,4,0)
 ;;=4^S89.142S
 ;;^UTILITY(U,$J,358.3,20585,2)
 ;;=^5137312
 ;;^UTILITY(U,$J,358.3,20586,0)
 ;;=S89.141S^^67^888^100
 ;;^UTILITY(U,$J,358.3,20586,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20586,1,3,0)
 ;;=3^Sltr-haris Type IV physeal fx lower end of r tibia, sequela
 ;;^UTILITY(U,$J,358.3,20586,1,4,0)
 ;;=4^S89.141S
 ;;^UTILITY(U,$J,358.3,20586,2)
 ;;=^5043756
 ;;^UTILITY(U,$J,358.3,20587,0)
 ;;=S89.041S^^67^888^101
 ;;^UTILITY(U,$J,358.3,20587,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20587,1,3,0)
 ;;=3^Sltr-haris Type IV physeal fx upper end of r tibia, sequela
 ;;^UTILITY(U,$J,358.3,20587,1,4,0)
 ;;=4^S89.041S
 ;;^UTILITY(U,$J,358.3,20587,2)
 ;;=^5043702
 ;;^UTILITY(U,$J,358.3,20588,0)
 ;;=S89.042S^^67^888^102
 ;;^UTILITY(U,$J,358.3,20588,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20588,1,3,0)
 ;;=3^Sltr-haris Type IV physeal fx upper end of l tibia, sequela
 ;;^UTILITY(U,$J,358.3,20588,1,4,0)
 ;;=4^S89.042S
 ;;^UTILITY(U,$J,358.3,20588,2)
 ;;=^5043708
 ;;^UTILITY(U,$J,358.3,20589,0)
 ;;=M84.362S^^67^888^104
 ;;^UTILITY(U,$J,358.3,20589,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20589,1,3,0)
 ;;=3^Stress fracture, left tibia, sequela
 ;;^UTILITY(U,$J,358.3,20589,1,4,0)
 ;;=4^M84.362S
 ;;^UTILITY(U,$J,358.3,20589,2)
 ;;=^5013715
 ;;^UTILITY(U,$J,358.3,20590,0)
 ;;=M84.361S^^67^888^106
 ;;^UTILITY(U,$J,358.3,20590,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20590,1,3,0)
 ;;=3^Stress fracture, right tibia, sequela
 ;;^UTILITY(U,$J,358.3,20590,1,4,0)
 ;;=4^M84.361S
 ;;^UTILITY(U,$J,358.3,20590,2)
 ;;=^5013709
 ;;^UTILITY(U,$J,358.3,20591,0)
 ;;=S82.311S^^67^888^110
 ;;^UTILITY(U,$J,358.3,20591,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20591,1,3,0)
 ;;=3^Torus fracture of lower end of right tibia, sequela
 ;;^UTILITY(U,$J,358.3,20591,1,4,0)
 ;;=4^S82.311S
 ;;^UTILITY(U,$J,358.3,20591,2)
 ;;=^5041671
 ;;^UTILITY(U,$J,358.3,20592,0)
 ;;=S82.162S^^67^888^112
 ;;^UTILITY(U,$J,358.3,20592,1,0)
 ;;=^358.31IA^4^2