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