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

IBDEI1PU.m

Go to the documentation of this file.
  1. IBDEI1PU ; ; 04-FEB-2020
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
  1. 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
  1. Q Q
  1. ;;^UTILITY(U,$J,358.3,27415,0)
  1. ;;=H2026^^112^1328^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,27415,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,27415,1,2,0)
  1. ;;=2^H2026
  1. ;;^UTILITY(U,$J,358.3,27415,1,3,0)
  1. ;;=3^Ongoing Supp to Maint Employ,per diem
  1. ;;^UTILITY(U,$J,358.3,27416,0)
  1. ;;=H2017^^112^1328^8^^^^1
  1. ;;^UTILITY(U,$J,358.3,27416,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,27416,1,2,0)
  1. ;;=2^H2017
  1. ;;^UTILITY(U,$J,358.3,27416,1,3,0)
  1. ;;=3^Psychosocial Rehab Svc,per 15 min
  1. ;;^UTILITY(U,$J,358.3,27417,0)
  1. ;;=H2018^^112^1328^9^^^^1
  1. ;;^UTILITY(U,$J,358.3,27417,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,27417,1,2,0)
  1. ;;=2^H2018
  1. ;;^UTILITY(U,$J,358.3,27417,1,3,0)
  1. ;;=3^Psychosocial Rehab Svc,per diem
  1. ;;^UTILITY(U,$J,358.3,27418,0)
  1. ;;=H2014^^112^1328^10^^^^1
  1. ;;^UTILITY(U,$J,358.3,27418,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,27418,1,2,0)
  1. ;;=2^H2014
  1. ;;^UTILITY(U,$J,358.3,27418,1,3,0)
  1. ;;=3^Skills Training/Development,per 15 min
  1. ;;^UTILITY(U,$J,358.3,27419,0)
  1. ;;=H2023^^112^1328^11^^^^1
  1. ;;^UTILITY(U,$J,358.3,27419,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,27419,1,2,0)
  1. ;;=2^H2023
  1. ;;^UTILITY(U,$J,358.3,27419,1,3,0)
  1. ;;=3^Supported Employment,per 15 min
  1. ;;^UTILITY(U,$J,358.3,27420,0)
  1. ;;=H2024^^112^1328^12^^^^1
  1. ;;^UTILITY(U,$J,358.3,27420,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,27420,1,2,0)
  1. ;;=2^H2024
  1. ;;^UTILITY(U,$J,358.3,27420,1,3,0)
  1. ;;=3^Supported Employment,per diem
  1. ;;^UTILITY(U,$J,358.3,27421,0)
  1. ;;=99368^^112^1329^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,27421,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,27421,1,2,0)
  1. ;;=2^99368
  1. ;;^UTILITY(U,$J,358.3,27421,1,3,0)
  1. ;;=3^Non-Phys Team Conf w/o Pt &/or Family,30+ min
  1. ;;^UTILITY(U,$J,358.3,27422,0)
  1. ;;=99366^^112^1329^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,27422,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,27422,1,2,0)
  1. ;;=2^99366
  1. ;;^UTILITY(U,$J,358.3,27422,1,3,0)
  1. ;;=3^Non-Phys Team Conf w/ Pt &/or Family,30+ min
  1. ;;^UTILITY(U,$J,358.3,27423,0)
  1. ;;=H0001^^112^1330^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,27423,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,27423,1,2,0)
  1. ;;=2^H0001
  1. ;;^UTILITY(U,$J,358.3,27423,1,3,0)
  1. ;;=3^Addictions Assessment
  1. ;;^UTILITY(U,$J,358.3,27424,0)
  1. ;;=H0002^^112^1330^9^^^^1
  1. ;;^UTILITY(U,$J,358.3,27424,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,27424,1,2,0)
  1. ;;=2^H0002
  1. ;;^UTILITY(U,$J,358.3,27424,1,3,0)
  1. ;;=3^Screen for Addictions Admission Eligibility
  1. ;;^UTILITY(U,$J,358.3,27425,0)
  1. ;;=H0003^^112^1330^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,27425,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,27425,1,2,0)
  1. ;;=2^H0003
  1. ;;^UTILITY(U,$J,358.3,27425,1,3,0)
  1. ;;=3^Alcohol/Drug Screen;lab analysis
  1. ;;^UTILITY(U,$J,358.3,27426,0)
  1. ;;=H0004^^112^1330^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,27426,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,27426,1,2,0)
  1. ;;=2^H0004
  1. ;;^UTILITY(U,$J,358.3,27426,1,3,0)
  1. ;;=3^Individual Counseling & Therapy,per 15 min
  1. ;;^UTILITY(U,$J,358.3,27427,0)
  1. ;;=H0005^^112^1330^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,27427,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,27427,1,2,0)
  1. ;;=2^H0005
  1. ;;^UTILITY(U,$J,358.3,27427,1,3,0)
  1. ;;=3^Addictions Group Counseling by Clinician
  1. ;;^UTILITY(U,$J,358.3,27428,0)
  1. ;;=H0006^^112^1330^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,27428,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,27428,1,2,0)
  1. ;;=2^H0006
  1. ;;^UTILITY(U,$J,358.3,27428,1,3,0)
  1. ;;=3^Alcohol/Drug Case Management
  1. ;;^UTILITY(U,$J,358.3,27429,0)
  1. ;;=H0020^^112^1330^8^^^^1