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

IBDEI1AM.m

Go to the documentation of this file.
  1. IBDEI1AM ; ; 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,20888,1,3,0)
  1. ;;=3^Disp fx of right radial styloid process, sequela
  1. ;;^UTILITY(U,$J,358.3,20888,1,4,0)
  1. ;;=4^S52.511S
  1. ;;^UTILITY(U,$J,358.3,20888,2)
  1. ;;=^5030634
  1. ;;^UTILITY(U,$J,358.3,20889,0)
  1. ;;=S52.514S^^67^890^109
  1. ;;^UTILITY(U,$J,358.3,20889,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20889,1,3,0)
  1. ;;=3^Nondisp fx of right radial styloid process, sequela
  1. ;;^UTILITY(U,$J,358.3,20889,1,4,0)
  1. ;;=4^S52.514S
  1. ;;^UTILITY(U,$J,358.3,20889,2)
  1. ;;=^5030682
  1. ;;^UTILITY(U,$J,358.3,20890,0)
  1. ;;=S22.22XS^^67^891^2
  1. ;;^UTILITY(U,$J,358.3,20890,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20890,1,3,0)
  1. ;;=3^Fracture of body of sternum, sequela
  1. ;;^UTILITY(U,$J,358.3,20890,1,4,0)
  1. ;;=4^S22.22XS
  1. ;;^UTILITY(U,$J,358.3,20890,2)
  1. ;;=^5023092
  1. ;;^UTILITY(U,$J,358.3,20891,0)
  1. ;;=S22.21XS^^67^891^3
  1. ;;^UTILITY(U,$J,358.3,20891,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20891,1,3,0)
  1. ;;=3^Fracture of manubrium, sequela
  1. ;;^UTILITY(U,$J,358.3,20891,1,4,0)
  1. ;;=4^S22.21XS
  1. ;;^UTILITY(U,$J,358.3,20891,2)
  1. ;;=^5023086
  1. ;;^UTILITY(U,$J,358.3,20892,0)
  1. ;;=S22.32XS^^67^891^5
  1. ;;^UTILITY(U,$J,358.3,20892,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20892,1,3,0)
  1. ;;=3^Fracture of one rib, left side, sequela
  1. ;;^UTILITY(U,$J,358.3,20892,1,4,0)
  1. ;;=4^S22.32XS
  1. ;;^UTILITY(U,$J,358.3,20892,2)
  1. ;;=^5023116
  1. ;;^UTILITY(U,$J,358.3,20893,0)
  1. ;;=S22.31XS^^67^891^6
  1. ;;^UTILITY(U,$J,358.3,20893,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20893,1,3,0)
  1. ;;=3^Fracture of one rib, right side, sequela
  1. ;;^UTILITY(U,$J,358.3,20893,1,4,0)
  1. ;;=4^S22.31XS
  1. ;;^UTILITY(U,$J,358.3,20893,2)
  1. ;;=^5023110
  1. ;;^UTILITY(U,$J,358.3,20894,0)
  1. ;;=S22.24XS^^67^891^8
  1. ;;^UTILITY(U,$J,358.3,20894,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20894,1,3,0)
  1. ;;=3^Fracture of xiphoid process, sequela
  1. ;;^UTILITY(U,$J,358.3,20894,1,4,0)
  1. ;;=4^S22.24XS
  1. ;;^UTILITY(U,$J,358.3,20894,2)
  1. ;;=^5023104
  1. ;;^UTILITY(U,$J,358.3,20895,0)
  1. ;;=S02.42XS^^67^891^1
  1. ;;^UTILITY(U,$J,358.3,20895,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20895,1,3,0)
  1. ;;=3^Fracture of alveolus of maxilla, sequela
  1. ;;^UTILITY(U,$J,358.3,20895,1,4,0)
  1. ;;=4^S02.42XS
  1. ;;^UTILITY(U,$J,358.3,20895,2)
  1. ;;=^5020359
  1. ;;^UTILITY(U,$J,358.3,20896,0)
  1. ;;=S02.2XXS^^67^891^4
  1. ;;^UTILITY(U,$J,358.3,20896,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20896,1,3,0)
  1. ;;=3^Fracture of nasal bones, sequela
  1. ;;^UTILITY(U,$J,358.3,20896,1,4,0)
  1. ;;=4^S02.2XXS
  1. ;;^UTILITY(U,$J,358.3,20896,2)
  1. ;;=^5020311
  1. ;;^UTILITY(U,$J,358.3,20897,0)
  1. ;;=S02.66XS^^67^891^7
  1. ;;^UTILITY(U,$J,358.3,20897,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20897,1,3,0)
  1. ;;=3^Fracture of symphysis of mandible, sequela
  1. ;;^UTILITY(U,$J,358.3,20897,1,4,0)
  1. ;;=4^S02.66XS
  1. ;;^UTILITY(U,$J,358.3,20897,2)
  1. ;;=^5020413
  1. ;;^UTILITY(U,$J,358.3,20898,0)
  1. ;;=S22.43XS^^67^891^9
  1. ;;^UTILITY(U,$J,358.3,20898,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20898,1,3,0)
  1. ;;=3^Multiple fractures of ribs, bilateral, sequela
  1. ;;^UTILITY(U,$J,358.3,20898,1,4,0)
  1. ;;=4^S22.43XS
  1. ;;^UTILITY(U,$J,358.3,20898,2)
  1. ;;=^5023140
  1. ;;^UTILITY(U,$J,358.3,20899,0)
  1. ;;=S22.42XS^^67^891^10
  1. ;;^UTILITY(U,$J,358.3,20899,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20899,1,3,0)
  1. ;;=3^Multiple fractures of ribs, left side, sequela
  1. ;;^UTILITY(U,$J,358.3,20899,1,4,0)
  1. ;;=4^S22.42XS
  1. ;;^UTILITY(U,$J,358.3,20899,2)
  1. ;;=^5023134
  1. ;;^UTILITY(U,$J,358.3,20900,0)
  1. ;;=S22.41XS^^67^891^11