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

IBDEI2NH.m

Go to the documentation of this file.
IBDEI2NH ; ; 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,42287,2)
 ;;=^5042702
 ;;^UTILITY(U,$J,358.3,42288,0)
 ;;=S82.861S^^155^2068^38
 ;;^UTILITY(U,$J,358.3,42288,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42288,1,3,0)
 ;;=3^Disp maisonneuve's fx of right leg, sequela
 ;;^UTILITY(U,$J,358.3,42288,1,4,0)
 ;;=4^S82.861S
 ;;^UTILITY(U,$J,358.3,42288,2)
 ;;=^5042686
 ;;^UTILITY(U,$J,358.3,42289,0)
 ;;=S82.852S^^155^2068^54
 ;;^UTILITY(U,$J,358.3,42289,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42289,1,3,0)
 ;;=3^Disp trimalleolar fx of left lower leg, sequela
 ;;^UTILITY(U,$J,358.3,42289,1,4,0)
 ;;=4^S82.852S
 ;;^UTILITY(U,$J,358.3,42289,2)
 ;;=^5042606
 ;;^UTILITY(U,$J,358.3,42290,0)
 ;;=S82.851S^^155^2068^55
 ;;^UTILITY(U,$J,358.3,42290,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42290,1,3,0)
 ;;=3^Disp trimalleolar fx of right lower leg, sequela
 ;;^UTILITY(U,$J,358.3,42290,1,4,0)
 ;;=4^S82.851S
 ;;^UTILITY(U,$J,358.3,42290,2)
 ;;=^5042590
 ;;^UTILITY(U,$J,358.3,42291,0)
 ;;=S82.845S^^155^2068^72
 ;;^UTILITY(U,$J,358.3,42291,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42291,1,3,0)
 ;;=3^Nondisp bimalleolar fx of left lower leg, sequela
 ;;^UTILITY(U,$J,358.3,42291,1,4,0)
 ;;=4^S82.845S
 ;;^UTILITY(U,$J,358.3,42291,2)
 ;;=^5042558
 ;;^UTILITY(U,$J,358.3,42292,0)
 ;;=S82.844S^^155^2068^73
 ;;^UTILITY(U,$J,358.3,42292,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42292,1,3,0)
 ;;=3^Nondisp bimalleolar fx of right lower leg, sequela
 ;;^UTILITY(U,$J,358.3,42292,1,4,0)
 ;;=4^S82.844S
 ;;^UTILITY(U,$J,358.3,42292,2)
 ;;=^5042542
 ;;^UTILITY(U,$J,358.3,42293,0)
 ;;=S92.522S^^155^2068^42
 ;;^UTILITY(U,$J,358.3,42293,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42293,1,3,0)
 ;;=3^Disp medial phalanx fx of left lesser toe, sequela
 ;;^UTILITY(U,$J,358.3,42293,1,4,0)
 ;;=4^S92.522S
 ;;^UTILITY(U,$J,358.3,42293,2)
 ;;=^5045486
 ;;^UTILITY(U,$J,358.3,42294,0)
 ;;=S62.212S^^155^2069^1
 ;;^UTILITY(U,$J,358.3,42294,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42294,1,3,0)
 ;;=3^Bennett's fracture, left hand, sequela
 ;;^UTILITY(U,$J,358.3,42294,1,4,0)
 ;;=4^S62.212S
 ;;^UTILITY(U,$J,358.3,42294,2)
 ;;=^5033576
 ;;^UTILITY(U,$J,358.3,42295,0)
 ;;=S62.211S^^155^2069^2
 ;;^UTILITY(U,$J,358.3,42295,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42295,1,3,0)
 ;;=3^Bennett's fracture, right hand, sequela
 ;;^UTILITY(U,$J,358.3,42295,1,4,0)
 ;;=4^S62.211S
 ;;^UTILITY(U,$J,358.3,42295,2)
 ;;=^5033569
 ;;^UTILITY(U,$J,358.3,42296,0)
 ;;=S62.316S^^155^2069^10
 ;;^UTILITY(U,$J,358.3,42296,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42296,1,3,0)
 ;;=3^Disp fx of base of 5th MC bone, right hand, sequela
 ;;^UTILITY(U,$J,358.3,42296,1,4,0)
 ;;=4^S62.316S
 ;;^UTILITY(U,$J,358.3,42296,2)
 ;;=^5033877
 ;;^UTILITY(U,$J,358.3,42297,0)
 ;;=S62.317S^^155^2069^9
 ;;^UTILITY(U,$J,358.3,42297,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42297,1,3,0)
 ;;=3^Disp fx of base of 5th MC bone, left hand, sequela
 ;;^UTILITY(U,$J,358.3,42297,1,4,0)
 ;;=4^S62.317S
 ;;^UTILITY(U,$J,358.3,42297,2)
 ;;=^5033884
 ;;^UTILITY(U,$J,358.3,42298,0)
 ;;=S62.315S^^155^2069^7
 ;;^UTILITY(U,$J,358.3,42298,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42298,1,3,0)
 ;;=3^Disp fx of base of 4th MC bone, left hand, sequela
 ;;^UTILITY(U,$J,358.3,42298,1,4,0)
 ;;=4^S62.315S
 ;;^UTILITY(U,$J,358.3,42298,2)
 ;;=^5033870
 ;;^UTILITY(U,$J,358.3,42299,0)
 ;;=S62.314S^^155^2069^8
 ;;^UTILITY(U,$J,358.3,42299,1,0)
 ;;=^358.31IA^4^2