IBDEI19F ; ; 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,20400,0)
;;=S42.241S^^67^887^7
;;^UTILITY(U,$J,358.3,20400,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20400,1,3,0)
;;=3^4-part fx of surgical neck of right humerus, sequela
;;^UTILITY(U,$J,358.3,20400,1,4,0)
;;=4^S42.241S
;;^UTILITY(U,$J,358.3,20400,2)
;;=^5026872
;;^UTILITY(U,$J,358.3,20401,0)
;;=S42.352S^^67^887^14
;;^UTILITY(U,$J,358.3,20401,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20401,1,3,0)
;;=3^Disp fx of comminuted shaft of humerus, left arm, sequela
;;^UTILITY(U,$J,358.3,20401,1,4,0)
;;=4^S42.352S
;;^UTILITY(U,$J,358.3,20401,2)
;;=^5027202
;;^UTILITY(U,$J,358.3,20402,0)
;;=S42.351S^^67^887^15
;;^UTILITY(U,$J,358.3,20402,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20402,1,3,0)
;;=3^Disp fx of comminuted shaft of humerus, right arm, sequela
;;^UTILITY(U,$J,358.3,20402,1,4,0)
;;=4^S42.351S
;;^UTILITY(U,$J,358.3,20402,2)
;;=^5027195
;;^UTILITY(U,$J,358.3,20403,0)
;;=S42.422S^^67^887^16
;;^UTILITY(U,$J,358.3,20403,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20403,1,3,0)
;;=3^Disp fx of commnt suprcndl w/o intrcndl fx l humerus, sequela
;;^UTILITY(U,$J,358.3,20403,1,4,0)
;;=4^S42.422S
;;^UTILITY(U,$J,358.3,20403,2)
;;=^5027356
;;^UTILITY(U,$J,358.3,20404,0)
;;=S42.421S^^67^887^17
;;^UTILITY(U,$J,358.3,20404,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20404,1,3,0)
;;=3^Disp fx of commnt suprcndl w/o intrcndl fx r humerus, sequela
;;^UTILITY(U,$J,358.3,20404,1,4,0)
;;=4^S42.421S
;;^UTILITY(U,$J,358.3,20404,2)
;;=^5027349
;;^UTILITY(U,$J,358.3,20405,0)
;;=S42.432S^^67^887^28
;;^UTILITY(U,$J,358.3,20405,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20405,1,3,0)
;;=3^Disp fx of lateral epicondyle of l humerus, sequela
;;^UTILITY(U,$J,358.3,20405,1,4,0)
;;=4^S42.432S
;;^UTILITY(U,$J,358.3,20405,2)
;;=^5027398
;;^UTILITY(U,$J,358.3,20406,0)
;;=S42.431S^^67^887^29
;;^UTILITY(U,$J,358.3,20406,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20406,1,3,0)
;;=3^Disp fx of lateral epicondyle of r humerus, sequela
;;^UTILITY(U,$J,358.3,20406,1,4,0)
;;=4^S42.431S
;;^UTILITY(U,$J,358.3,20406,2)
;;=^5027391
;;^UTILITY(U,$J,358.3,20407,0)
;;=S42.442S^^67^887^34
;;^UTILITY(U,$J,358.3,20407,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20407,1,3,0)
;;=3^Disp fx of medial epicondyle of l humerus, sequela
;;^UTILITY(U,$J,358.3,20407,1,4,0)
;;=4^S42.442S
;;^UTILITY(U,$J,358.3,20407,2)
;;=^5027440
;;^UTILITY(U,$J,358.3,20408,0)
;;=S42.441S^^67^887^35
;;^UTILITY(U,$J,358.3,20408,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20408,1,3,0)
;;=3^Disp fx of medial epicondyle of r humerus, sequela
;;^UTILITY(U,$J,358.3,20408,1,4,0)
;;=4^S42.441S
;;^UTILITY(U,$J,358.3,20408,2)
;;=^5027433
;;^UTILITY(U,$J,358.3,20409,0)
;;=S42.252S^^67^887^22
;;^UTILITY(U,$J,358.3,20409,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20409,1,3,0)
;;=3^Disp fx of greater tuberosity of left humerus, sequela
;;^UTILITY(U,$J,358.3,20409,1,4,0)
;;=4^S42.252S
;;^UTILITY(U,$J,358.3,20409,2)
;;=^5026900
;;^UTILITY(U,$J,358.3,20410,0)
;;=S42.251S^^67^887^23
;;^UTILITY(U,$J,358.3,20410,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,20410,1,3,0)
;;=3^Disp fx of greater tuberosity of right humerus, sequela
;;^UTILITY(U,$J,358.3,20410,1,4,0)
;;=4^S42.251S
;;^UTILITY(U,$J,358.3,20410,2)
;;=^5026893
;;^UTILITY(U,$J,358.3,20411,0)
;;=S42.452S^^67^887^24
;;^UTILITY(U,$J,358.3,20411,1,0)
;;=^358.31IA^4^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI19F 3794 printed Dec 13, 2024@02:04:19 Page 2
IBDEI19F ; ; 01-FEB-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
+2 if 'DIFQR(358.3)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.3,20400,0)
+2 ;;=S42.241S^^67^887^7
+3 ;;^UTILITY(U,$J,358.3,20400,1,0)
+4 ;;=^358.31IA^4^2
+5 ;;^UTILITY(U,$J,358.3,20400,1,3,0)
+6 ;;=3^4-part fx of surgical neck of right humerus, sequela
+7 ;;^UTILITY(U,$J,358.3,20400,1,4,0)
+8 ;;=4^S42.241S
+9 ;;^UTILITY(U,$J,358.3,20400,2)
+10 ;;=^5026872
+11 ;;^UTILITY(U,$J,358.3,20401,0)
+12 ;;=S42.352S^^67^887^14
+13 ;;^UTILITY(U,$J,358.3,20401,1,0)
+14 ;;=^358.31IA^4^2
+15 ;;^UTILITY(U,$J,358.3,20401,1,3,0)
+16 ;;=3^Disp fx of comminuted shaft of humerus, left arm, sequela
+17 ;;^UTILITY(U,$J,358.3,20401,1,4,0)
+18 ;;=4^S42.352S
+19 ;;^UTILITY(U,$J,358.3,20401,2)
+20 ;;=^5027202
+21 ;;^UTILITY(U,$J,358.3,20402,0)
+22 ;;=S42.351S^^67^887^15
+23 ;;^UTILITY(U,$J,358.3,20402,1,0)
+24 ;;=^358.31IA^4^2
+25 ;;^UTILITY(U,$J,358.3,20402,1,3,0)
+26 ;;=3^Disp fx of comminuted shaft of humerus, right arm, sequela
+27 ;;^UTILITY(U,$J,358.3,20402,1,4,0)
+28 ;;=4^S42.351S
+29 ;;^UTILITY(U,$J,358.3,20402,2)
+30 ;;=^5027195
+31 ;;^UTILITY(U,$J,358.3,20403,0)
+32 ;;=S42.422S^^67^887^16
+33 ;;^UTILITY(U,$J,358.3,20403,1,0)
+34 ;;=^358.31IA^4^2
+35 ;;^UTILITY(U,$J,358.3,20403,1,3,0)
+36 ;;=3^Disp fx of commnt suprcndl w/o intrcndl fx l humerus, sequela
+37 ;;^UTILITY(U,$J,358.3,20403,1,4,0)
+38 ;;=4^S42.422S
+39 ;;^UTILITY(U,$J,358.3,20403,2)
+40 ;;=^5027356
+41 ;;^UTILITY(U,$J,358.3,20404,0)
+42 ;;=S42.421S^^67^887^17
+43 ;;^UTILITY(U,$J,358.3,20404,1,0)
+44 ;;=^358.31IA^4^2
+45 ;;^UTILITY(U,$J,358.3,20404,1,3,0)
+46 ;;=3^Disp fx of commnt suprcndl w/o intrcndl fx r humerus, sequela
+47 ;;^UTILITY(U,$J,358.3,20404,1,4,0)
+48 ;;=4^S42.421S
+49 ;;^UTILITY(U,$J,358.3,20404,2)
+50 ;;=^5027349
+51 ;;^UTILITY(U,$J,358.3,20405,0)
+52 ;;=S42.432S^^67^887^28
+53 ;;^UTILITY(U,$J,358.3,20405,1,0)
+54 ;;=^358.31IA^4^2
+55 ;;^UTILITY(U,$J,358.3,20405,1,3,0)
+56 ;;=3^Disp fx of lateral epicondyle of l humerus, sequela
+57 ;;^UTILITY(U,$J,358.3,20405,1,4,0)
+58 ;;=4^S42.432S
+59 ;;^UTILITY(U,$J,358.3,20405,2)
+60 ;;=^5027398
+61 ;;^UTILITY(U,$J,358.3,20406,0)
+62 ;;=S42.431S^^67^887^29
+63 ;;^UTILITY(U,$J,358.3,20406,1,0)
+64 ;;=^358.31IA^4^2
+65 ;;^UTILITY(U,$J,358.3,20406,1,3,0)
+66 ;;=3^Disp fx of lateral epicondyle of r humerus, sequela
+67 ;;^UTILITY(U,$J,358.3,20406,1,4,0)
+68 ;;=4^S42.431S
+69 ;;^UTILITY(U,$J,358.3,20406,2)
+70 ;;=^5027391
+71 ;;^UTILITY(U,$J,358.3,20407,0)
+72 ;;=S42.442S^^67^887^34
+73 ;;^UTILITY(U,$J,358.3,20407,1,0)
+74 ;;=^358.31IA^4^2
+75 ;;^UTILITY(U,$J,358.3,20407,1,3,0)
+76 ;;=3^Disp fx of medial epicondyle of l humerus, sequela
+77 ;;^UTILITY(U,$J,358.3,20407,1,4,0)
+78 ;;=4^S42.442S
+79 ;;^UTILITY(U,$J,358.3,20407,2)
+80 ;;=^5027440
+81 ;;^UTILITY(U,$J,358.3,20408,0)
+82 ;;=S42.441S^^67^887^35
+83 ;;^UTILITY(U,$J,358.3,20408,1,0)
+84 ;;=^358.31IA^4^2
+85 ;;^UTILITY(U,$J,358.3,20408,1,3,0)
+86 ;;=3^Disp fx of medial epicondyle of r humerus, sequela
+87 ;;^UTILITY(U,$J,358.3,20408,1,4,0)
+88 ;;=4^S42.441S
+89 ;;^UTILITY(U,$J,358.3,20408,2)
+90 ;;=^5027433
+91 ;;^UTILITY(U,$J,358.3,20409,0)
+92 ;;=S42.252S^^67^887^22
+93 ;;^UTILITY(U,$J,358.3,20409,1,0)
+94 ;;=^358.31IA^4^2
+95 ;;^UTILITY(U,$J,358.3,20409,1,3,0)
+96 ;;=3^Disp fx of greater tuberosity of left humerus, sequela
+97 ;;^UTILITY(U,$J,358.3,20409,1,4,0)
+98 ;;=4^S42.252S
+99 ;;^UTILITY(U,$J,358.3,20409,2)
+100 ;;=^5026900
+101 ;;^UTILITY(U,$J,358.3,20410,0)
+102 ;;=S42.251S^^67^887^23
+103 ;;^UTILITY(U,$J,358.3,20410,1,0)
+104 ;;=^358.31IA^4^2
+105 ;;^UTILITY(U,$J,358.3,20410,1,3,0)
+106 ;;=3^Disp fx of greater tuberosity of right humerus, sequela
+107 ;;^UTILITY(U,$J,358.3,20410,1,4,0)
+108 ;;=4^S42.251S
+109 ;;^UTILITY(U,$J,358.3,20410,2)
+110 ;;=^5026893
+111 ;;^UTILITY(U,$J,358.3,20411,0)
+112 ;;=S42.452S^^67^887^24
+113 ;;^UTILITY(U,$J,358.3,20411,1,0)
+114 ;;=^358.31IA^4^2
