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

IBDEI19H.m

Go to the documentation of this file.
  1. IBDEI19H ; ; 01-FEB-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
  1. 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
  1. Q Q
  1. ;;^UTILITY(U,$J,358.3,20422,1,4,0)
  1. ;;=4^S42.411S
  1. ;;^UTILITY(U,$J,358.3,20422,2)
  1. ;;=^5027307
  1. ;;^UTILITY(U,$J,358.3,20423,0)
  1. ;;=S42.342S^^67^887^47
  1. ;;^UTILITY(U,$J,358.3,20423,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20423,1,3,0)
  1. ;;=3^Disp fx of spiral shaft of humerus, left arm, sequela
  1. ;;^UTILITY(U,$J,358.3,20423,1,4,0)
  1. ;;=4^S42.342S
  1. ;;^UTILITY(U,$J,358.3,20423,2)
  1. ;;=^5027160
  1. ;;^UTILITY(U,$J,358.3,20424,0)
  1. ;;=S42.341S^^67^887^48
  1. ;;^UTILITY(U,$J,358.3,20424,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20424,1,3,0)
  1. ;;=3^Disp fx of spiral shaft of humerus, right arm, sequela
  1. ;;^UTILITY(U,$J,358.3,20424,1,4,0)
  1. ;;=4^S42.341S
  1. ;;^UTILITY(U,$J,358.3,20424,2)
  1. ;;=^5027153
  1. ;;^UTILITY(U,$J,358.3,20425,0)
  1. ;;=S42.472S^^67^887^49
  1. ;;^UTILITY(U,$J,358.3,20425,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20425,1,3,0)
  1. ;;=3^Disp fx of transcondylar of left humerus, sequela
  1. ;;^UTILITY(U,$J,358.3,20425,1,4,0)
  1. ;;=4^S42.472S
  1. ;;^UTILITY(U,$J,358.3,20425,2)
  1. ;;=^5027587
  1. ;;^UTILITY(U,$J,358.3,20426,0)
  1. ;;=S42.471S^^67^887^50
  1. ;;^UTILITY(U,$J,358.3,20426,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20426,1,3,0)
  1. ;;=3^Disp fx of transcondylar of right humerus, sequela
  1. ;;^UTILITY(U,$J,358.3,20426,1,4,0)
  1. ;;=4^S42.471S
  1. ;;^UTILITY(U,$J,358.3,20426,2)
  1. ;;=^5027580
  1. ;;^UTILITY(U,$J,358.3,20427,0)
  1. ;;=S42.322S^^67^887^51
  1. ;;^UTILITY(U,$J,358.3,20427,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20427,1,3,0)
  1. ;;=3^Disp fx of transverse shaft of humerus, left arm, sequela
  1. ;;^UTILITY(U,$J,358.3,20427,1,4,0)
  1. ;;=4^S42.322S
  1. ;;^UTILITY(U,$J,358.3,20427,2)
  1. ;;=^5027076
  1. ;;^UTILITY(U,$J,358.3,20428,0)
  1. ;;=S42.321S^^67^887^52
  1. ;;^UTILITY(U,$J,358.3,20428,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20428,1,3,0)
  1. ;;=3^Disp fx of transverse shaft of humerus, right arm, sequela
  1. ;;^UTILITY(U,$J,358.3,20428,1,4,0)
  1. ;;=4^S42.321S
  1. ;;^UTILITY(U,$J,358.3,20428,2)
  1. ;;=^5027069
  1. ;;^UTILITY(U,$J,358.3,20429,0)
  1. ;;=S42.312S^^67^887^53
  1. ;;^UTILITY(U,$J,358.3,20429,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20429,1,3,0)
  1. ;;=3^Greenstick fracture of shaft of humerus, left arm, sequela
  1. ;;^UTILITY(U,$J,358.3,20429,1,4,0)
  1. ;;=4^S42.312S
  1. ;;^UTILITY(U,$J,358.3,20429,2)
  1. ;;=^5027056
  1. ;;^UTILITY(U,$J,358.3,20430,0)
  1. ;;=S42.311S^^67^887^54
  1. ;;^UTILITY(U,$J,358.3,20430,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20430,1,3,0)
  1. ;;=3^Greenstick fracture of shaft of humerus, right arm, sequela
  1. ;;^UTILITY(U,$J,358.3,20430,1,4,0)
  1. ;;=4^S42.311S
  1. ;;^UTILITY(U,$J,358.3,20430,2)
  1. ;;=^5027050
  1. ;;^UTILITY(U,$J,358.3,20431,0)
  1. ;;=S42.448S^^67^887^55
  1. ;;^UTILITY(U,$J,358.3,20431,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20431,1,3,0)
  1. ;;=3^Incarcerated fx of medial epicondyl of l humerus, sequela
  1. ;;^UTILITY(U,$J,358.3,20431,1,4,0)
  1. ;;=4^S42.448S
  1. ;;^UTILITY(U,$J,358.3,20431,2)
  1. ;;=^5027482
  1. ;;^UTILITY(U,$J,358.3,20432,0)
  1. ;;=S42.447S^^67^887^56
  1. ;;^UTILITY(U,$J,358.3,20432,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20432,1,3,0)
  1. ;;=3^Incarcerated fx of medial epicondyl of r humerus, sequela
  1. ;;^UTILITY(U,$J,358.3,20432,1,4,0)
  1. ;;=4^S42.447S
  1. ;;^UTILITY(U,$J,358.3,20432,2)
  1. ;;=^5027475
  1. ;;^UTILITY(U,$J,358.3,20433,0)
  1. ;;=S42.355S^^67^887^61
  1. ;;^UTILITY(U,$J,358.3,20433,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20433,1,3,0)
  1. ;;=3^Nondisp fx of commnt shaft of humerus, left arm, sequela
  1. ;;^UTILITY(U,$J,358.3,20433,1,4,0)
  1. ;;=4^S42.355S