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

IBDEI1AH.m

Go to the documentation of this file.
IBDEI1AH ; ; 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,20831,1,4,0)
 ;;=4^S52.251S
 ;;^UTILITY(U,$J,358.3,20831,2)
 ;;=^5029618
 ;;^UTILITY(U,$J,358.3,20832,0)
 ;;=S52.042S^^67^890^18
 ;;^UTILITY(U,$J,358.3,20832,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20832,1,3,0)
 ;;=3^Disp fx of coronoid process of left ulna, sequela 
 ;;^UTILITY(U,$J,358.3,20832,1,4,0)
 ;;=4^S52.042S
 ;;^UTILITY(U,$J,358.3,20832,2)
 ;;=^5028906
 ;;^UTILITY(U,$J,358.3,20833,0)
 ;;=S52.041S^^67^890^19
 ;;^UTILITY(U,$J,358.3,20833,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20833,1,3,0)
 ;;=3^Disp fx of coronoid process of right ulna, sequela
 ;;^UTILITY(U,$J,358.3,20833,1,4,0)
 ;;=4^S52.041S
 ;;^UTILITY(U,$J,358.3,20833,2)
 ;;=^5028890
 ;;^UTILITY(U,$J,358.3,20834,0)
 ;;=S52.612S^^67^890^27
 ;;^UTILITY(U,$J,358.3,20834,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20834,1,3,0)
 ;;=3^Disp fx of left ulna styloid process, sequela 
 ;;^UTILITY(U,$J,358.3,20834,1,4,0)
 ;;=4^S52.612S
 ;;^UTILITY(U,$J,358.3,20834,2)
 ;;=^5031066
 ;;^UTILITY(U,$J,358.3,20835,0)
 ;;=S52.032S^^67^890^14
 ;;^UTILITY(U,$J,358.3,20835,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20835,1,3,0)
 ;;=3^Disp fx of comminuted shaft of radius, left arm, sequela 
 ;;^UTILITY(U,$J,358.3,20835,1,4,0)
 ;;=4^S52.032S
 ;;^UTILITY(U,$J,358.3,20835,2)
 ;;=^5135105
 ;;^UTILITY(U,$J,358.3,20836,0)
 ;;=S52.031S^^67^890^38
 ;;^UTILITY(U,$J,358.3,20836,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20836,1,3,0)
 ;;=3^Disp fx of olecran pro w intartic extn right ulna, sequela
 ;;^UTILITY(U,$J,358.3,20836,1,4,0)
 ;;=4^S52.031S
 ;;^UTILITY(U,$J,358.3,20836,2)
 ;;=^5028856
 ;;^UTILITY(U,$J,358.3,20837,0)
 ;;=S52.022S^^67^890^39
 ;;^UTILITY(U,$J,358.3,20837,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20837,1,3,0)
 ;;=3^Disp fx of olecran pro w/o intartic extn left ulna, sequela
 ;;^UTILITY(U,$J,358.3,20837,1,4,0)
 ;;=4^S52.022S
 ;;^UTILITY(U,$J,358.3,20837,2)
 ;;=^5028784
 ;;^UTILITY(U,$J,358.3,20838,0)
 ;;=S52.021S^^67^890^40
 ;;^UTILITY(U,$J,358.3,20838,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20838,1,3,0)
 ;;=3^Disp fx of olecran pro w/o intartic extn right ulna, sequela
 ;;^UTILITY(U,$J,358.3,20838,1,4,0)
 ;;=4^S52.021S
 ;;^UTILITY(U,$J,358.3,20838,2)
 ;;=^5028768
 ;;^UTILITY(U,$J,358.3,20839,0)
 ;;=S52.611S^^67^890^46
 ;;^UTILITY(U,$J,358.3,20839,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20839,1,3,0)
 ;;=3^Disp fx of right ulna styloid process, sequela 
 ;;^UTILITY(U,$J,358.3,20839,1,4,0)
 ;;=4^S52.611S
 ;;^UTILITY(U,$J,358.3,20839,2)
 ;;=^5031050
 ;;^UTILITY(U,$J,358.3,20840,0)
 ;;=S52.232S^^67^890^35
 ;;^UTILITY(U,$J,358.3,20840,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20840,1,3,0)
 ;;=3^Disp fx of oblique shaft of left ulna, sequela
 ;;^UTILITY(U,$J,358.3,20840,1,4,0)
 ;;=4^S52.232S
 ;;^UTILITY(U,$J,358.3,20840,2)
 ;;=^5029442
 ;;^UTILITY(U,$J,358.3,20841,0)
 ;;=S52.231S^^67^890^37
 ;;^UTILITY(U,$J,358.3,20841,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20841,1,3,0)
 ;;=3^Disp fx of oblique shaft of right ulna, sequela
 ;;^UTILITY(U,$J,358.3,20841,1,4,0)
 ;;=4^S52.231S
 ;;^UTILITY(U,$J,358.3,20841,2)
 ;;=^5029426
 ;;^UTILITY(U,$J,358.3,20842,0)
 ;;=S52.262S^^67^890^49
 ;;^UTILITY(U,$J,358.3,20842,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20842,1,3,0)
 ;;=3^Disp fx of segmental shaft of ulna, left arm, sequela
 ;;^UTILITY(U,$J,358.3,20842,1,4,0)
 ;;=4^S52.262S
 ;;^UTILITY(U,$J,358.3,20842,2)
 ;;=^5029730