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

IBDEI2PF.m

Go to the documentation of this file.
IBDEI2PF ; ; 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,43095,0)
 ;;=90901^^156^2085^3^^^^1
 ;;^UTILITY(U,$J,358.3,43095,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43095,1,2,0)
 ;;=2^90901
 ;;^UTILITY(U,$J,358.3,43095,1,3,0)
 ;;=3^Biofeedback training any method
 ;;^UTILITY(U,$J,358.3,43096,0)
 ;;=97750^^156^2085^6^^^^1
 ;;^UTILITY(U,$J,358.3,43096,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43096,1,2,0)
 ;;=2^97750
 ;;^UTILITY(U,$J,358.3,43096,1,3,0)
 ;;=3^Extrem Perf Testing,Ea 15min
 ;;^UTILITY(U,$J,358.3,43097,0)
 ;;=97161^^156^2085^12^^^^1
 ;;^UTILITY(U,$J,358.3,43097,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43097,1,2,0)
 ;;=2^97161
 ;;^UTILITY(U,$J,358.3,43097,1,3,0)
 ;;=3^PT Evaluation,Low Complexity
 ;;^UTILITY(U,$J,358.3,43098,0)
 ;;=97162^^156^2085^13^^^^1
 ;;^UTILITY(U,$J,358.3,43098,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43098,1,2,0)
 ;;=2^97162
 ;;^UTILITY(U,$J,358.3,43098,1,3,0)
 ;;=3^PT Evaluation,Moderate Complexity
 ;;^UTILITY(U,$J,358.3,43099,0)
 ;;=97163^^156^2085^11^^^^1
 ;;^UTILITY(U,$J,358.3,43099,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43099,1,2,0)
 ;;=2^97163
 ;;^UTILITY(U,$J,358.3,43099,1,3,0)
 ;;=3^PT Evaluation,High Complexity
 ;;^UTILITY(U,$J,358.3,43100,0)
 ;;=97164^^156^2085^14^^^^1
 ;;^UTILITY(U,$J,358.3,43100,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43100,1,2,0)
 ;;=2^97164
 ;;^UTILITY(U,$J,358.3,43100,1,3,0)
 ;;=3^PT Re-Evaluation
 ;;^UTILITY(U,$J,358.3,43101,0)
 ;;=97165^^156^2085^8^^^^1
 ;;^UTILITY(U,$J,358.3,43101,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43101,1,2,0)
 ;;=2^97165
 ;;^UTILITY(U,$J,358.3,43101,1,3,0)
 ;;=3^OT Evaluation,Low Complexity
 ;;^UTILITY(U,$J,358.3,43102,0)
 ;;=97166^^156^2085^9^^^^1
 ;;^UTILITY(U,$J,358.3,43102,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43102,1,2,0)
 ;;=2^97166
 ;;^UTILITY(U,$J,358.3,43102,1,3,0)
 ;;=3^OT Evaluation,Moderate Complexity
 ;;^UTILITY(U,$J,358.3,43103,0)
 ;;=97167^^156^2085^7^^^^1
 ;;^UTILITY(U,$J,358.3,43103,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43103,1,2,0)
 ;;=2^97167
 ;;^UTILITY(U,$J,358.3,43103,1,3,0)
 ;;=3^OT Evaluation,High Complexity
 ;;^UTILITY(U,$J,358.3,43104,0)
 ;;=97168^^156^2085^10^^^^1
 ;;^UTILITY(U,$J,358.3,43104,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43104,1,2,0)
 ;;=2^97168
 ;;^UTILITY(U,$J,358.3,43104,1,3,0)
 ;;=3^OT Re-Evaluation
 ;;^UTILITY(U,$J,358.3,43105,0)
 ;;=96112^^156^2085^4^^^^1
 ;;^UTILITY(U,$J,358.3,43105,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43105,1,2,0)
 ;;=2^96112
 ;;^UTILITY(U,$J,358.3,43105,1,3,0)
 ;;=3^Developmental Test Admin,1st Hr
 ;;^UTILITY(U,$J,358.3,43106,0)
 ;;=96113^^156^2085^5^^^^1
 ;;^UTILITY(U,$J,358.3,43106,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43106,1,2,0)
 ;;=2^96113
 ;;^UTILITY(U,$J,358.3,43106,1,3,0)
 ;;=3^Developmental Test Admin,Ea Addl 30 min
 ;;^UTILITY(U,$J,358.3,43107,0)
 ;;=64479^^156^2086^6^^^^1
 ;;^UTILITY(U,$J,358.3,43107,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43107,1,2,0)
 ;;=2^64479
 ;;^UTILITY(U,$J,358.3,43107,1,3,0)
 ;;=3^INJ Epidural, foramen, C/T
 ;;^UTILITY(U,$J,358.3,43108,0)
 ;;=64480^^156^2086^8^^^^1
 ;;^UTILITY(U,$J,358.3,43108,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43108,1,2,0)
 ;;=2^64480
 ;;^UTILITY(U,$J,358.3,43108,1,3,0)
 ;;=3^INJ Epidural,C/T Ea Addl Level
 ;;^UTILITY(U,$J,358.3,43109,0)
 ;;=64483^^156^2086^7^^^^1
 ;;^UTILITY(U,$J,358.3,43109,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43109,1,2,0)
 ;;=2^64483