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

IBDEI18Y.m

Go to the documentation of this file.
IBDEI18Y ; ; 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,20205,2)
 ;;=^5044576
 ;;^UTILITY(U,$J,358.3,20206,0)
 ;;=S92.065S^^67^884^88
 ;;^UTILITY(U,$J,358.3,20206,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20206,1,3,0)
 ;;=3^Nondisp intraarticular fx of left calcaneus, sequela
 ;;^UTILITY(U,$J,358.3,20206,1,4,0)
 ;;=4^S92.065S
 ;;^UTILITY(U,$J,358.3,20206,2)
 ;;=^5044583
 ;;^UTILITY(U,$J,358.3,20207,0)
 ;;=M84.472S^^67^884^108
 ;;^UTILITY(U,$J,358.3,20207,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20207,1,3,0)
 ;;=3^Pathological fracture, left ankle, sequela
 ;;^UTILITY(U,$J,358.3,20207,1,4,0)
 ;;=4^M84.472S
 ;;^UTILITY(U,$J,358.3,20207,2)
 ;;=^5013973
 ;;^UTILITY(U,$J,358.3,20208,0)
 ;;=M84.471S^^67^884^111
 ;;^UTILITY(U,$J,358.3,20208,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20208,1,3,0)
 ;;=3^Pathological fracture, right ankle, sequela
 ;;^UTILITY(U,$J,358.3,20208,1,4,0)
 ;;=4^M84.471S
 ;;^UTILITY(U,$J,358.3,20208,2)
 ;;=^5013967
 ;;^UTILITY(U,$J,358.3,20209,0)
 ;;=M84.372S^^67^884^114
 ;;^UTILITY(U,$J,358.3,20209,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20209,1,3,0)
 ;;=3^Stress fracture, left ankle, sequela
 ;;^UTILITY(U,$J,358.3,20209,1,4,0)
 ;;=4^M84.372S
 ;;^UTILITY(U,$J,358.3,20209,2)
 ;;=^5013745
 ;;^UTILITY(U,$J,358.3,20210,0)
 ;;=M84.371S^^67^884^117
 ;;^UTILITY(U,$J,358.3,20210,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20210,1,3,0)
 ;;=3^Stress fracture, right ankle, sequela
 ;;^UTILITY(U,$J,358.3,20210,1,4,0)
 ;;=4^M84.371S
 ;;^UTILITY(U,$J,358.3,20210,2)
 ;;=^5013739
 ;;^UTILITY(U,$J,358.3,20211,0)
 ;;=S82.855S^^67^884^106
 ;;^UTILITY(U,$J,358.3,20211,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20211,1,3,0)
 ;;=3^Nondisp trimalleolar fx of left lower leg, sequela
 ;;^UTILITY(U,$J,358.3,20211,1,4,0)
 ;;=4^S82.855S
 ;;^UTILITY(U,$J,358.3,20211,2)
 ;;=^5042654
 ;;^UTILITY(U,$J,358.3,20212,0)
 ;;=S82.854S^^67^884^107
 ;;^UTILITY(U,$J,358.3,20212,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20212,1,3,0)
 ;;=3^Nondisp trimalleolar fx of right lower leg, sequela
 ;;^UTILITY(U,$J,358.3,20212,1,4,0)
 ;;=4^S82.854S
 ;;^UTILITY(U,$J,358.3,20212,2)
 ;;=^5042638
 ;;^UTILITY(U,$J,358.3,20213,0)
 ;;=S82.842S^^67^884^17
 ;;^UTILITY(U,$J,358.3,20213,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20213,1,3,0)
 ;;=3^Disp bimalleolar fx of left lower leg, sequela
 ;;^UTILITY(U,$J,358.3,20213,1,4,0)
 ;;=4^S82.842S
 ;;^UTILITY(U,$J,358.3,20213,2)
 ;;=^5042510
 ;;^UTILITY(U,$J,358.3,20214,0)
 ;;=S82.841S^^67^884^18
 ;;^UTILITY(U,$J,358.3,20214,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20214,1,3,0)
 ;;=3^Disp bimalleolar fx of right lower leg, sequela
 ;;^UTILITY(U,$J,358.3,20214,1,4,0)
 ;;=4^S82.841S
 ;;^UTILITY(U,$J,358.3,20214,2)
 ;;=^5042494
 ;;^UTILITY(U,$J,358.3,20215,0)
 ;;=S82.862S^^67^884^37
 ;;^UTILITY(U,$J,358.3,20215,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20215,1,3,0)
 ;;=3^Disp maisonneuve's fx of left leg, sequela
 ;;^UTILITY(U,$J,358.3,20215,1,4,0)
 ;;=4^S82.862S
 ;;^UTILITY(U,$J,358.3,20215,2)
 ;;=^5042702
 ;;^UTILITY(U,$J,358.3,20216,0)
 ;;=S82.861S^^67^884^38
 ;;^UTILITY(U,$J,358.3,20216,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20216,1,3,0)
 ;;=3^Disp maisonneuve's fx of right leg, sequela
 ;;^UTILITY(U,$J,358.3,20216,1,4,0)
 ;;=4^S82.861S
 ;;^UTILITY(U,$J,358.3,20216,2)
 ;;=^5042686
 ;;^UTILITY(U,$J,358.3,20217,0)
 ;;=S82.852S^^67^884^54
 ;;^UTILITY(U,$J,358.3,20217,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20217,1,3,0)
 ;;=3^Disp trimalleolar fx of left lower leg, sequela