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

IBDEI0UG.m

Go to the documentation of this file.
  1. IBDEI0UG ; ; 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,13738,0)
  1. ;;=29799^^53^653^23^^^^1
  1. ;;^UTILITY(U,$J,358.3,13738,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13738,1,2,0)
  1. ;;=2^CASTING/STRAPPING, NEC
  1. ;;^UTILITY(U,$J,358.3,13738,1,3,0)
  1. ;;=3^29799
  1. ;;^UTILITY(U,$J,358.3,13739,0)
  1. ;;=29445^^53^653^16^^^^1
  1. ;;^UTILITY(U,$J,358.3,13739,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13739,1,2,0)
  1. ;;=2^APPLY RIGID LEG CAST
  1. ;;^UTILITY(U,$J,358.3,13739,1,3,0)
  1. ;;=3^29445
  1. ;;^UTILITY(U,$J,358.3,13740,0)
  1. ;;=29540^^53^653^25^^^^1
  1. ;;^UTILITY(U,$J,358.3,13740,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13740,1,2,0)
  1. ;;=2^STRAPPING OF ANKLE AND/OR FT
  1. ;;^UTILITY(U,$J,358.3,13740,1,3,0)
  1. ;;=3^29540
  1. ;;^UTILITY(U,$J,358.3,13741,0)
  1. ;;=29550^^53^653^26^^^^1
  1. ;;^UTILITY(U,$J,358.3,13741,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13741,1,2,0)
  1. ;;=2^STRAPPING OF TOES
  1. ;;^UTILITY(U,$J,358.3,13741,1,3,0)
  1. ;;=3^29550
  1. ;;^UTILITY(U,$J,358.3,13742,0)
  1. ;;=S0395^^53^653^24^^^^1
  1. ;;^UTILITY(U,$J,358.3,13742,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13742,1,2,0)
  1. ;;=2^IMPRESSION CASTING FT
  1. ;;^UTILITY(U,$J,358.3,13742,1,3,0)
  1. ;;=3^S0395
  1. ;;^UTILITY(U,$J,358.3,13743,0)
  1. ;;=29131^^53^653^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,13743,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13743,1,2,0)
  1. ;;=2^APPLY FINGER SPLINT,DYNAMIC
  1. ;;^UTILITY(U,$J,358.3,13743,1,3,0)
  1. ;;=3^29131
  1. ;;^UTILITY(U,$J,358.3,13744,0)
  1. ;;=29130^^53^653^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,13744,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13744,1,2,0)
  1. ;;=2^APPLY FINGER SPLINT,STATIC
  1. ;;^UTILITY(U,$J,358.3,13744,1,3,0)
  1. ;;=3^29130
  1. ;;^UTILITY(U,$J,358.3,13745,0)
  1. ;;=29126^^53^653^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,13745,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13745,1,2,0)
  1. ;;=2^APPLY FOREARM SPLINT,DYNAMIC
  1. ;;^UTILITY(U,$J,358.3,13745,1,3,0)
  1. ;;=3^29126
  1. ;;^UTILITY(U,$J,358.3,13746,0)
  1. ;;=29125^^53^653^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,13746,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13746,1,2,0)
  1. ;;=2^APPLY FOREARM SPLINT,STATIC
  1. ;;^UTILITY(U,$J,358.3,13746,1,3,0)
  1. ;;=3^29125
  1. ;;^UTILITY(U,$J,358.3,13747,0)
  1. ;;=29105^^53^653^9^^^^1
  1. ;;^UTILITY(U,$J,358.3,13747,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13747,1,2,0)
  1. ;;=2^APPLY LONG ARM SPLINT
  1. ;;^UTILITY(U,$J,358.3,13747,1,3,0)
  1. ;;=3^29105
  1. ;;^UTILITY(U,$J,358.3,13748,0)
  1. ;;=29505^^53^653^12^^^^1
  1. ;;^UTILITY(U,$J,358.3,13748,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13748,1,2,0)
  1. ;;=2^APPLY LONG LEG SPLINT
  1. ;;^UTILITY(U,$J,358.3,13748,1,3,0)
  1. ;;=3^29505
  1. ;;^UTILITY(U,$J,358.3,13749,0)
  1. ;;=29515^^53^653^13^^^^1
  1. ;;^UTILITY(U,$J,358.3,13749,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13749,1,2,0)
  1. ;;=2^APPLY LOWER LEG SPLINT
  1. ;;^UTILITY(U,$J,358.3,13749,1,3,0)
  1. ;;=3^29515
  1. ;;^UTILITY(U,$J,358.3,13750,0)
  1. ;;=29580^^53^654^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,13750,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13750,1,2,0)
  1. ;;=2^APPLICATION, UNNA BOOT
  1. ;;^UTILITY(U,$J,358.3,13750,1,3,0)
  1. ;;=3^29580
  1. ;;^UTILITY(U,$J,358.3,13751,0)
  1. ;;=29700^^53^654^8^^^^1
  1. ;;^UTILITY(U,$J,358.3,13751,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13751,1,2,0)
  1. ;;=2^REMOV/BIVALV; GAUNTLET/BOOT
  1. ;;^UTILITY(U,$J,358.3,13751,1,3,0)
  1. ;;=3^29700
  1. ;;^UTILITY(U,$J,358.3,13752,0)
  1. ;;=29705^^53^654^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,13752,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13752,1,2,0)
  1. ;;=2^REMOV/BIVALV;FULL ARM/LEG CAST
  1. ;;^UTILITY(U,$J,358.3,13752,1,3,0)
  1. ;;=3^29705
  1. ;;^UTILITY(U,$J,358.3,13753,0)
  1. ;;=29710^^53^654^9^^^^1