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

IBDEI2LF.m

Go to the documentation of this file.
IBDEI2LF ; ; 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,41397,0)
 ;;=97039^^154^2040^35^^^^1
 ;;^UTILITY(U,$J,358.3,41397,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41397,1,2,0)
 ;;=2^Physical Therapy Treatment
 ;;^UTILITY(U,$J,358.3,41397,1,3,0)
 ;;=3^97039
 ;;^UTILITY(U,$J,358.3,41398,0)
 ;;=99070^^154^2040^41^^^^1
 ;;^UTILITY(U,$J,358.3,41398,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41398,1,2,0)
 ;;=2^Special Supplies Phys/QHP
 ;;^UTILITY(U,$J,358.3,41398,1,3,0)
 ;;=3^99070
 ;;^UTILITY(U,$J,358.3,41399,0)
 ;;=99080^^154^2040^40^^^^1
 ;;^UTILITY(U,$J,358.3,41399,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41399,1,2,0)
 ;;=2^Special Reports or Forms
 ;;^UTILITY(U,$J,358.3,41399,1,3,0)
 ;;=3^99080
 ;;^UTILITY(U,$J,358.3,41400,0)
 ;;=29105^^154^2040^3^^^^1
 ;;^UTILITY(U,$J,358.3,41400,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41400,1,2,0)
 ;;=2^Apply Long Arm Splint,Static
 ;;^UTILITY(U,$J,358.3,41400,1,3,0)
 ;;=3^29105
 ;;^UTILITY(U,$J,358.3,41401,0)
 ;;=29125^^154^2040^6^^^^1
 ;;^UTILITY(U,$J,358.3,41401,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41401,1,2,0)
 ;;=2^Apply Short Arm Splint,Static
 ;;^UTILITY(U,$J,358.3,41401,1,3,0)
 ;;=3^29125
 ;;^UTILITY(U,$J,358.3,41402,0)
 ;;=29126^^154^2040^5^^^^1
 ;;^UTILITY(U,$J,358.3,41402,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41402,1,2,0)
 ;;=2^Apply Short Arm Splint,Dynamic
 ;;^UTILITY(U,$J,358.3,41402,1,3,0)
 ;;=3^29126
 ;;^UTILITY(U,$J,358.3,41403,0)
 ;;=29130^^154^2040^2^^^^1
 ;;^UTILITY(U,$J,358.3,41403,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41403,1,2,0)
 ;;=2^Apply Finger Splint,Static
 ;;^UTILITY(U,$J,358.3,41403,1,3,0)
 ;;=3^29130
 ;;^UTILITY(U,$J,358.3,41404,0)
 ;;=29131^^154^2040^1^^^^1
 ;;^UTILITY(U,$J,358.3,41404,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41404,1,2,0)
 ;;=2^Apply Finger Splint,Dynamic
 ;;^UTILITY(U,$J,358.3,41404,1,3,0)
 ;;=3^29131
 ;;^UTILITY(U,$J,358.3,41405,0)
 ;;=S9451^^154^2040^21^^^^1
 ;;^UTILITY(U,$J,358.3,41405,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41405,1,2,0)
 ;;=2^Exercise Class per Session
 ;;^UTILITY(U,$J,358.3,41405,1,3,0)
 ;;=3^S9451
 ;;^UTILITY(U,$J,358.3,41406,0)
 ;;=97129^^154^2040^48^^^^1
 ;;^UTILITY(U,$J,358.3,41406,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41406,1,2,0)
 ;;=2^Therapy Intrvn Cognitive Func,1st 15 min
 ;;^UTILITY(U,$J,358.3,41406,1,3,0)
 ;;=3^97129
 ;;^UTILITY(U,$J,358.3,41407,0)
 ;;=97130^^154^2040^49^^^^1
 ;;^UTILITY(U,$J,358.3,41407,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41407,1,2,0)
 ;;=2^Therapy Intrvn Cognitive Func,Ea Addl 15 min
 ;;^UTILITY(U,$J,358.3,41407,1,3,0)
 ;;=3^97130
 ;;^UTILITY(U,$J,358.3,41408,0)
 ;;=90912^^154^2040^9^^^^1
 ;;^UTILITY(U,$J,358.3,41408,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41408,1,2,0)
 ;;=2^Biofdbk Trng Peri/Uro/Rectal,1st 15 min
 ;;^UTILITY(U,$J,358.3,41408,1,3,0)
 ;;=3^90912
 ;;^UTILITY(U,$J,358.3,41409,0)
 ;;=90913^^154^2040^10^^^^1
 ;;^UTILITY(U,$J,358.3,41409,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41409,1,2,0)
 ;;=2^Biofdbk Trng Peri/Uro/RectalEa Addl 15 min
 ;;^UTILITY(U,$J,358.3,41409,1,3,0)
 ;;=3^90913
 ;;^UTILITY(U,$J,358.3,41410,0)
 ;;=J1100^^154^2041^7^^^^1
 ;;^UTILITY(U,$J,358.3,41410,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,41410,1,2,0)
 ;;=2^Dexamethasone Sodium Phos 1 mg
 ;;^UTILITY(U,$J,358.3,41410,1,3,0)
 ;;=3^J1100
 ;;^UTILITY(U,$J,358.3,41411,0)
 ;;=J0800^^154^2041^4^^^^1
 ;;^UTILITY(U,$J,358.3,41411,1,0)
 ;;=^358.31IA^3^2