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

IBDEI1V6.m

Go to the documentation of this file.
IBDEI1V6 ; ; 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,29768,0)
 ;;=90876^^119^1504^5^^^^1
 ;;^UTILITY(U,$J,358.3,29768,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,29768,1,2,0)
 ;;=2^90876
 ;;^UTILITY(U,$J,358.3,29768,1,3,0)
 ;;=3^Ind Psychophysiological Tx w/ Biofeed,45 min
 ;;^UTILITY(U,$J,358.3,29769,0)
 ;;=90849^^119^1504^6^^^^1
 ;;^UTILITY(U,$J,358.3,29769,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,29769,1,2,0)
 ;;=2^90849
 ;;^UTILITY(U,$J,358.3,29769,1,3,0)
 ;;=3^Multiple Family Group Psychotherapy
 ;;^UTILITY(U,$J,358.3,29770,0)
 ;;=90839^^119^1505^4^^^^1
 ;;^UTILITY(U,$J,358.3,29770,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,29770,1,2,0)
 ;;=2^90839
 ;;^UTILITY(U,$J,358.3,29770,1,3,0)
 ;;=3^PsychTx Crisis;Init 30-74 Min
 ;;^UTILITY(U,$J,358.3,29771,0)
 ;;=90840^^119^1505^3^^^^1
 ;;^UTILITY(U,$J,358.3,29771,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,29771,1,2,0)
 ;;=2^90840
 ;;^UTILITY(U,$J,358.3,29771,1,3,0)
 ;;=3^PsychTx Crisis;Ea Addl 30 min
 ;;^UTILITY(U,$J,358.3,29772,0)
 ;;=S9484^^119^1505^1^^^^1
 ;;^UTILITY(U,$J,358.3,29772,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,29772,1,2,0)
 ;;=2^S9484
 ;;^UTILITY(U,$J,358.3,29772,1,3,0)
 ;;=3^Crisis Intervention MH Svcs,per hr
 ;;^UTILITY(U,$J,358.3,29773,0)
 ;;=H2011^^119^1505^2^^^^1
 ;;^UTILITY(U,$J,358.3,29773,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,29773,1,2,0)
 ;;=2^H2011
 ;;^UTILITY(U,$J,358.3,29773,1,3,0)
 ;;=3^Crisis Intervention Svc,per 15 min
 ;;^UTILITY(U,$J,358.3,29774,0)
 ;;=97545^^119^1506^27^^^^1
 ;;^UTILITY(U,$J,358.3,29774,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,29774,1,2,0)
 ;;=2^97545
 ;;^UTILITY(U,$J,358.3,29774,1,3,0)
 ;;=3^Work Therapy,Init 2 hrs
 ;;^UTILITY(U,$J,358.3,29775,0)
 ;;=97546^^119^1506^26^^^^1
 ;;^UTILITY(U,$J,358.3,29775,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,29775,1,2,0)
 ;;=2^97546
 ;;^UTILITY(U,$J,358.3,29775,1,3,0)
 ;;=3^Work Therapy,Ea Addl Hr
 ;;^UTILITY(U,$J,358.3,29776,0)
 ;;=97537^^119^1506^4^^^^1
 ;;^UTILITY(U,$J,358.3,29776,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,29776,1,2,0)
 ;;=2^97537
 ;;^UTILITY(U,$J,358.3,29776,1,3,0)
 ;;=3^Community/Work Reintegration,ea 15 min
 ;;^UTILITY(U,$J,358.3,29777,0)
 ;;=97533^^119^1506^18^^^^1
 ;;^UTILITY(U,$J,358.3,29777,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,29777,1,2,0)
 ;;=2^97533
 ;;^UTILITY(U,$J,358.3,29777,1,3,0)
 ;;=3^Sensory Integrative Techniques,ea 15 min
 ;;^UTILITY(U,$J,358.3,29778,0)
 ;;=H0046^^119^1506^13^^^^1
 ;;^UTILITY(U,$J,358.3,29778,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,29778,1,2,0)
 ;;=2^H0046
 ;;^UTILITY(U,$J,358.3,29778,1,3,0)
 ;;=3^PTSD Group
 ;;^UTILITY(U,$J,358.3,29779,0)
 ;;=Q3014^^119^1506^20^^^^1
 ;;^UTILITY(U,$J,358.3,29779,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,29779,1,2,0)
 ;;=2^Q3014
 ;;^UTILITY(U,$J,358.3,29779,1,3,0)
 ;;=3^Telehealth Facility Fee
 ;;^UTILITY(U,$J,358.3,29780,0)
 ;;=90887^^119^1506^5^^^^1
 ;;^UTILITY(U,$J,358.3,29780,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,29780,1,2,0)
 ;;=2^90887
 ;;^UTILITY(U,$J,358.3,29780,1,3,0)
 ;;=3^Consult w/ Family,Interp/Expl Exam/Test Results
 ;;^UTILITY(U,$J,358.3,29781,0)
 ;;=90889^^119^1506^15^^^^1
 ;;^UTILITY(U,$J,358.3,29781,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,29781,1,2,0)
 ;;=2^90889
 ;;^UTILITY(U,$J,358.3,29781,1,3,0)
 ;;=3^Report Preparation for Ind/Agency/Insurance
 ;;^UTILITY(U,$J,358.3,29782,0)
 ;;=G0177^^119^1506^23^^^^1
 ;;^UTILITY(U,$J,358.3,29782,1,0)
 ;;=^358.31IA^3^2