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

IBDEI1AF.m

Go to the documentation of this file.
  1. IBDEI1AF ; ; 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,20808,1,4,0)
  1. ;;=4^S62.135S
  1. ;;^UTILITY(U,$J,358.3,20808,2)
  1. ;;=^5033331
  1. ;;^UTILITY(U,$J,358.3,20809,0)
  1. ;;=S62.134S^^67^890^76
  1. ;;^UTILITY(U,$J,358.3,20809,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20809,1,3,0)
  1. ;;=3^Nondisp fx of capitate bone, right wrist, sequela
  1. ;;^UTILITY(U,$J,358.3,20809,1,4,0)
  1. ;;=4^S62.134S
  1. ;;^UTILITY(U,$J,358.3,20809,2)
  1. ;;=^5033324
  1. ;;^UTILITY(U,$J,358.3,20810,0)
  1. ;;=S62.015S^^67^890^83
  1. ;;^UTILITY(U,$J,358.3,20810,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20810,1,3,0)
  1. ;;=3^Nondisp fx of distal pole of navic bone of left wrist, sequela
  1. ;;^UTILITY(U,$J,358.3,20810,1,4,0)
  1. ;;=4^S62.015S
  1. ;;^UTILITY(U,$J,358.3,20810,2)
  1. ;;=^5033107
  1. ;;^UTILITY(U,$J,358.3,20811,0)
  1. ;;=S62.014S^^67^890^84
  1. ;;^UTILITY(U,$J,358.3,20811,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20811,1,3,0)
  1. ;;=3^Nondisp fx of distal pole of navic bone of right wrist, sequela
  1. ;;^UTILITY(U,$J,358.3,20811,1,4,0)
  1. ;;=4^S62.014S
  1. ;;^UTILITY(U,$J,358.3,20811,2)
  1. ;;=^5033100
  1. ;;^UTILITY(U,$J,358.3,20812,0)
  1. ;;=S62.155S^^67^890^87
  1. ;;^UTILITY(U,$J,358.3,20812,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20812,1,3,0)
  1. ;;=3^Nondisp fx of hook process of hamate bone, left wrist, sequela
  1. ;;^UTILITY(U,$J,358.3,20812,1,4,0)
  1. ;;=4^S62.155S
  1. ;;^UTILITY(U,$J,358.3,20812,2)
  1. ;;=^5033415
  1. ;;^UTILITY(U,$J,358.3,20813,0)
  1. ;;=S62.154S^^67^890^88
  1. ;;^UTILITY(U,$J,358.3,20813,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20813,1,3,0)
  1. ;;=3^Nondisp fx of hook process of hamate bone, right wrist, sequela
  1. ;;^UTILITY(U,$J,358.3,20813,1,4,0)
  1. ;;=4^S62.154S
  1. ;;^UTILITY(U,$J,358.3,20813,2)
  1. ;;=^5033408
  1. ;;^UTILITY(U,$J,358.3,20814,0)
  1. ;;=S62.125S^^67^890^91
  1. ;;^UTILITY(U,$J,358.3,20814,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20814,1,3,0)
  1. ;;=3^Nondisp fx of lunate, left wrist, sequela
  1. ;;^UTILITY(U,$J,358.3,20814,1,4,0)
  1. ;;=4^S62.125S
  1. ;;^UTILITY(U,$J,358.3,20814,2)
  1. ;;=^5033289
  1. ;;^UTILITY(U,$J,358.3,20815,0)
  1. ;;=S62.124S^^67^890^92
  1. ;;^UTILITY(U,$J,358.3,20815,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20815,1,3,0)
  1. ;;=3^Nondisp fx of lunate, right wrist, sequela
  1. ;;^UTILITY(U,$J,358.3,20815,1,4,0)
  1. ;;=4^S62.124S
  1. ;;^UTILITY(U,$J,358.3,20815,2)
  1. ;;=^5033282
  1. ;;^UTILITY(U,$J,358.3,20816,0)
  1. ;;=S62.025S^^67^890^93
  1. ;;^UTILITY(U,$J,358.3,20816,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20816,1,3,0)
  1. ;;=3^Nondisp fx of middle third of navic bone of left wrist, sequela
  1. ;;^UTILITY(U,$J,358.3,20816,1,4,0)
  1. ;;=4^S62.025S
  1. ;;^UTILITY(U,$J,358.3,20816,2)
  1. ;;=^5033149
  1. ;;^UTILITY(U,$J,358.3,20817,0)
  1. ;;=S62.024S^^67^890^94
  1. ;;^UTILITY(U,$J,358.3,20817,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20817,1,3,0)
  1. ;;=3^Nondisp fx of middle third of navic bone of right wrist, sequela
  1. ;;^UTILITY(U,$J,358.3,20817,1,4,0)
  1. ;;=4^S62.024S
  1. ;;^UTILITY(U,$J,358.3,20817,2)
  1. ;;=^5033142
  1. ;;^UTILITY(U,$J,358.3,20818,0)
  1. ;;=S62.165S^^67^890^105
  1. ;;^UTILITY(U,$J,358.3,20818,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20818,1,3,0)
  1. ;;=3^Nondisp fx of pisiform, left wrist, sequela
  1. ;;^UTILITY(U,$J,358.3,20818,1,4,0)
  1. ;;=4^S62.165S
  1. ;;^UTILITY(U,$J,358.3,20818,2)
  1. ;;=^5033457
  1. ;;^UTILITY(U,$J,358.3,20819,0)
  1. ;;=S62.164S^^67^890^106
  1. ;;^UTILITY(U,$J,358.3,20819,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,20819,1,3,0)
  1. ;;=3^Nondisp fx of pisiform, right wrist, sequela
  1. ;;^UTILITY(U,$J,358.3,20819,1,4,0)
  1. ;;=4^S62.164S
  1. ;;^UTILITY(U,$J,358.3,20819,2)
  1. ;;=^5033450