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

IBDEI2ED.m

Go to the documentation of this file.
IBDEI2ED ; ; 04-FEB-2020
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
 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,38254,1,3,0)
 ;;=3^PT EVALUATION,MODERATE COMPLEXITY
 ;;^UTILITY(U,$J,358.3,38255,0)
 ;;=97163^^148^1939^14^^^^1
 ;;^UTILITY(U,$J,358.3,38255,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38255,1,2,0)
 ;;=2^97163
 ;;^UTILITY(U,$J,358.3,38255,1,3,0)
 ;;=3^PT EVALUATION,HIGH COMPLEXITY
 ;;^UTILITY(U,$J,358.3,38256,0)
 ;;=97165^^148^1939^11^^^^1
 ;;^UTILITY(U,$J,358.3,38256,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38256,1,2,0)
 ;;=2^97165
 ;;^UTILITY(U,$J,358.3,38256,1,3,0)
 ;;=3^OT Evaluation,Low Complexity
 ;;^UTILITY(U,$J,358.3,38257,0)
 ;;=97166^^148^1939^12^^^^1
 ;;^UTILITY(U,$J,358.3,38257,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38257,1,2,0)
 ;;=2^97166
 ;;^UTILITY(U,$J,358.3,38257,1,3,0)
 ;;=3^OT Evaluation,Moderate Complexity
 ;;^UTILITY(U,$J,358.3,38258,0)
 ;;=97167^^148^1939^10^^^^1
 ;;^UTILITY(U,$J,358.3,38258,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38258,1,2,0)
 ;;=2^97167
 ;;^UTILITY(U,$J,358.3,38258,1,3,0)
 ;;=3^OT Evaluation,High Complexity
 ;;^UTILITY(U,$J,358.3,38259,0)
 ;;=97129^^148^1939^20^^^^1
 ;;^UTILITY(U,$J,358.3,38259,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38259,1,2,0)
 ;;=2^97129
 ;;^UTILITY(U,$J,358.3,38259,1,3,0)
 ;;=3^THERAPEUTIC INTVN,COG FUNC,1ST 15 MIN
 ;;^UTILITY(U,$J,358.3,38260,0)
 ;;=97130^^148^1939^21^^^^1
 ;;^UTILITY(U,$J,358.3,38260,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38260,1,2,0)
 ;;=2^97130
 ;;^UTILITY(U,$J,358.3,38260,1,3,0)
 ;;=3^THERAPEUTIC INTVN,COG FUNC,EA ADDL 15 MIN
 ;;^UTILITY(U,$J,358.3,38261,0)
 ;;=95851^^148^1940^17^^^^1
 ;;^UTILITY(U,$J,358.3,38261,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38261,1,2,0)
 ;;=2^95851
 ;;^UTILITY(U,$J,358.3,38261,1,3,0)
 ;;=3^ROM MEASURE,EACH EXT/SPINE
 ;;^UTILITY(U,$J,358.3,38262,0)
 ;;=95852^^148^1940^18^^^^1
 ;;^UTILITY(U,$J,358.3,38262,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38262,1,2,0)
 ;;=2^95852
 ;;^UTILITY(U,$J,358.3,38262,1,3,0)
 ;;=3^ROM MEASUREMENT,HANDS
 ;;^UTILITY(U,$J,358.3,38263,0)
 ;;=95857^^148^1940^1^^^^1
 ;;^UTILITY(U,$J,358.3,38263,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38263,1,2,0)
 ;;=2^95857
 ;;^UTILITY(U,$J,358.3,38263,1,3,0)
 ;;=3^CHOLINESTERASE INHIB CHALLENGE
 ;;^UTILITY(U,$J,358.3,38264,0)
 ;;=95860^^148^1940^5^^^^1
 ;;^UTILITY(U,$J,358.3,38264,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38264,1,2,0)
 ;;=2^95860
 ;;^UTILITY(U,$J,358.3,38264,1,3,0)
 ;;=3^EMG,ONE EXTREMITY
 ;;^UTILITY(U,$J,358.3,38265,0)
 ;;=95861^^148^1940^8^^^^1
 ;;^UTILITY(U,$J,358.3,38265,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38265,1,2,0)
 ;;=2^95861
 ;;^UTILITY(U,$J,358.3,38265,1,3,0)
 ;;=3^EMG,TWO EXTREMITIES
 ;;^UTILITY(U,$J,358.3,38266,0)
 ;;=95863^^148^1940^7^^^^1
 ;;^UTILITY(U,$J,358.3,38266,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38266,1,2,0)
 ;;=2^95863
 ;;^UTILITY(U,$J,358.3,38266,1,3,0)
 ;;=3^EMG,THREE EXTREMITIES
 ;;^UTILITY(U,$J,358.3,38267,0)
 ;;=95864^^148^1940^4^^^^1
 ;;^UTILITY(U,$J,358.3,38267,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38267,1,2,0)
 ;;=2^95864
 ;;^UTILITY(U,$J,358.3,38267,1,3,0)
 ;;=3^EMG,FOUR EXTREMITIES
 ;;^UTILITY(U,$J,358.3,38268,0)
 ;;=95867^^148^1940^3^^^^1
 ;;^UTILITY(U,$J,358.3,38268,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38268,1,2,0)
 ;;=2^95867
 ;;^UTILITY(U,$J,358.3,38268,1,3,0)
 ;;=3^EMG,CRANIAL NERVE,UNILAT
 ;;^UTILITY(U,$J,358.3,38269,0)
 ;;=95868^^148^1940^2^^^^1
 ;;^UTILITY(U,$J,358.3,38269,1,0)
 ;;=^358.31IA^3^2