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

IBDEI0A3.m

Go to the documentation of this file.
IBDEI0A3 ; ; 01-FEB-2021
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2021
 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,24389,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24389,1,3,0)
 ;;=3^Underdosing of Antihypertensive Drugs,Sequela
 ;;^UTILITY(U,$J,358.3,24389,1,4,0)
 ;;=4^T46.5X6S
 ;;^UTILITY(U,$J,358.3,24389,2)
 ;;=^5051355
 ;;^UTILITY(U,$J,358.3,24390,0)
 ;;=T43.206A^^108^1235^6
 ;;^UTILITY(U,$J,358.3,24390,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24390,1,3,0)
 ;;=3^Underdosing of Antidepressants,Init Encntr
 ;;^UTILITY(U,$J,358.3,24390,1,4,0)
 ;;=4^T43.206A
 ;;^UTILITY(U,$J,358.3,24390,2)
 ;;=^5050543
 ;;^UTILITY(U,$J,358.3,24391,0)
 ;;=T43.206S^^108^1235^7
 ;;^UTILITY(U,$J,358.3,24391,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24391,1,3,0)
 ;;=3^Underdosing of Antidepressants,Sequela
 ;;^UTILITY(U,$J,358.3,24391,1,4,0)
 ;;=4^T43.206S
 ;;^UTILITY(U,$J,358.3,24391,2)
 ;;=^5050545
 ;;^UTILITY(U,$J,358.3,24392,0)
 ;;=T43.206D^^108^1235^8
 ;;^UTILITY(U,$J,358.3,24392,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24392,1,3,0)
 ;;=3^Underdosing of Antidepressants,Subs Encntr
 ;;^UTILITY(U,$J,358.3,24392,1,4,0)
 ;;=4^T43.206D
 ;;^UTILITY(U,$J,358.3,24392,2)
 ;;=^5050544
 ;;^UTILITY(U,$J,358.3,24393,0)
 ;;=T43.506A^^108^1235^12
 ;;^UTILITY(U,$J,358.3,24393,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24393,1,3,0)
 ;;=3^Underdosing of Antipsychotics & Neuroleptics,Init Encntr
 ;;^UTILITY(U,$J,358.3,24393,1,4,0)
 ;;=4^T43.506A
 ;;^UTILITY(U,$J,358.3,24393,2)
 ;;=^5050651
 ;;^UTILITY(U,$J,358.3,24394,0)
 ;;=T43.506S^^108^1235^13
 ;;^UTILITY(U,$J,358.3,24394,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24394,1,3,0)
 ;;=3^Underdosing of Antipsychotics & Neuroleptics,Sequela
 ;;^UTILITY(U,$J,358.3,24394,1,4,0)
 ;;=4^T43.506S
 ;;^UTILITY(U,$J,358.3,24394,2)
 ;;=^5050653
 ;;^UTILITY(U,$J,358.3,24395,0)
 ;;=T43.506D^^108^1235^14
 ;;^UTILITY(U,$J,358.3,24395,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24395,1,3,0)
 ;;=3^Underdosing of Antipsychotics & Neuroleptics,Subs Encntr
 ;;^UTILITY(U,$J,358.3,24395,1,4,0)
 ;;=4^T43.506D
 ;;^UTILITY(U,$J,358.3,24395,2)
 ;;=^5050652
 ;;^UTILITY(U,$J,358.3,24396,0)
 ;;=Z56.0^^108^1236^10
 ;;^UTILITY(U,$J,358.3,24396,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24396,1,3,0)
 ;;=3^Unemployment,Unspecified
 ;;^UTILITY(U,$J,358.3,24396,1,4,0)
 ;;=4^Z56.0
 ;;^UTILITY(U,$J,358.3,24396,2)
 ;;=^5063107
 ;;^UTILITY(U,$J,358.3,24397,0)
 ;;=Z56.1^^108^1236^1
 ;;^UTILITY(U,$J,358.3,24397,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24397,1,3,0)
 ;;=3^Change of Job
 ;;^UTILITY(U,$J,358.3,24397,1,4,0)
 ;;=4^Z56.1
 ;;^UTILITY(U,$J,358.3,24397,2)
 ;;=^5063108
 ;;^UTILITY(U,$J,358.3,24398,0)
 ;;=Z56.2^^108^1236^8
 ;;^UTILITY(U,$J,358.3,24398,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24398,1,3,0)
 ;;=3^Threat of Job Loss
 ;;^UTILITY(U,$J,358.3,24398,1,4,0)
 ;;=4^Z56.2
 ;;^UTILITY(U,$J,358.3,24398,2)
 ;;=^5063109
 ;;^UTILITY(U,$J,358.3,24399,0)
 ;;=Z56.3^^108^1236^7
 ;;^UTILITY(U,$J,358.3,24399,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24399,1,3,0)
 ;;=3^Stressful Work Schedule
 ;;^UTILITY(U,$J,358.3,24399,1,4,0)
 ;;=4^Z56.3
 ;;^UTILITY(U,$J,358.3,24399,2)
 ;;=^5063110
 ;;^UTILITY(U,$J,358.3,24400,0)
 ;;=Z56.4^^108^1236^2
 ;;^UTILITY(U,$J,358.3,24400,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24400,1,3,0)
 ;;=3^Discord w/ Boss and Workmates
 ;;^UTILITY(U,$J,358.3,24400,1,4,0)
 ;;=4^Z56.4
 ;;^UTILITY(U,$J,358.3,24400,2)
 ;;=^5063111
 ;;^UTILITY(U,$J,358.3,24401,0)
 ;;=Z56.5^^108^1236^9
 ;;^UTILITY(U,$J,358.3,24401,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24401,1,3,0)
 ;;=3^Uncongenial Work Environment
 ;;^UTILITY(U,$J,358.3,24401,1,4,0)
 ;;=4^Z56.5
 ;;^UTILITY(U,$J,358.3,24401,2)
 ;;=^5063112
 ;;^UTILITY(U,$J,358.3,24402,0)
 ;;=Z56.6^^108^1236^5
 ;;^UTILITY(U,$J,358.3,24402,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24402,1,3,0)
 ;;=3^Physical & Mental Strain Related to Work,Other
 ;;^UTILITY(U,$J,358.3,24402,1,4,0)
 ;;=4^Z56.6
 ;;^UTILITY(U,$J,358.3,24402,2)
 ;;=^5063113
 ;;^UTILITY(U,$J,358.3,24403,0)
 ;;=Z56.81^^108^1236^6
 ;;^UTILITY(U,$J,358.3,24403,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24403,1,3,0)
 ;;=3^Sexual Harassment on the Job
 ;;^UTILITY(U,$J,358.3,24403,1,4,0)
 ;;=4^Z56.81
 ;;^UTILITY(U,$J,358.3,24403,2)
 ;;=^5063114
 ;;^UTILITY(U,$J,358.3,24404,0)
 ;;=Z56.82^^108^1236^3
 ;;^UTILITY(U,$J,358.3,24404,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24404,1,3,0)
 ;;=3^Military Deployment Status
 ;;^UTILITY(U,$J,358.3,24404,1,4,0)
 ;;=4^Z56.82
 ;;^UTILITY(U,$J,358.3,24404,2)
 ;;=^5063115
 ;;^UTILITY(U,$J,358.3,24405,0)
 ;;=Z56.89^^108^1236^4
 ;;^UTILITY(U,$J,358.3,24405,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24405,1,3,0)
 ;;=3^Occupational Problems NOS
 ;;^UTILITY(U,$J,358.3,24405,1,4,0)
 ;;=4^Z56.89
 ;;^UTILITY(U,$J,358.3,24405,2)
 ;;=^5063116
 ;;^UTILITY(U,$J,358.3,24406,0)
 ;;=90832^^109^1237^1^^^^1
 ;;^UTILITY(U,$J,358.3,24406,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24406,1,2,0)
 ;;=2^90832
 ;;^UTILITY(U,$J,358.3,24406,1,3,0)
 ;;=3^Inpt/Outpt Psytx;16-37 min
 ;;^UTILITY(U,$J,358.3,24407,0)
 ;;=90834^^109^1237^2^^^^1
 ;;^UTILITY(U,$J,358.3,24407,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24407,1,2,0)
 ;;=2^90834
 ;;^UTILITY(U,$J,358.3,24407,1,3,0)
 ;;=3^Inpt/Outpt Psytx;38-52 min
 ;;^UTILITY(U,$J,358.3,24408,0)
 ;;=90837^^109^1237^3^^^^1
 ;;^UTILITY(U,$J,358.3,24408,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24408,1,2,0)
 ;;=2^90837
 ;;^UTILITY(U,$J,358.3,24408,1,3,0)
 ;;=3^Inpt/Outpt Psytx;53+ min
 ;;^UTILITY(U,$J,358.3,24409,0)
 ;;=90839^^109^1237^6^^^^1
 ;;^UTILITY(U,$J,358.3,24409,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24409,1,2,0)
 ;;=2^90839
 ;;^UTILITY(U,$J,358.3,24409,1,3,0)
 ;;=3^PsyTx Crisis Initial 60 min
 ;;^UTILITY(U,$J,358.3,24410,0)
 ;;=90840^^109^1237^5^^^^1
 ;;^UTILITY(U,$J,358.3,24410,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24410,1,2,0)
 ;;=2^90840
 ;;^UTILITY(U,$J,358.3,24410,1,3,0)
 ;;=3^PsyTx Crisis Ea Addl 30 min
 ;;^UTILITY(U,$J,358.3,24411,0)
 ;;=90785^^109^1237^4^^^^1
 ;;^UTILITY(U,$J,358.3,24411,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24411,1,2,0)
 ;;=2^90785
 ;;^UTILITY(U,$J,358.3,24411,1,3,0)
 ;;=3^PsyTx Complex Interactive Complexity,Add-On
 ;;^UTILITY(U,$J,358.3,24412,0)
 ;;=90791^^109^1238^3^^^^1
 ;;^UTILITY(U,$J,358.3,24412,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24412,1,2,0)
 ;;=2^90791
 ;;^UTILITY(U,$J,358.3,24412,1,3,0)
 ;;=3^Psych Diagnostic Eval
 ;;^UTILITY(U,$J,358.3,24413,0)
 ;;=T1023^^109^1238^2^^^^1
 ;;^UTILITY(U,$J,358.3,24413,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24413,1,2,0)
 ;;=2^T1023
 ;;^UTILITY(U,$J,358.3,24413,1,3,0)
 ;;=3^Program Intake Assessment
 ;;^UTILITY(U,$J,358.3,24414,0)
 ;;=H0001^^109^1238^1^^^^1
 ;;^UTILITY(U,$J,358.3,24414,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24414,1,2,0)
 ;;=2^H0001
 ;;^UTILITY(U,$J,358.3,24414,1,3,0)
 ;;=3^Alcohol and Drug Assessment
 ;;^UTILITY(U,$J,358.3,24415,0)
 ;;=T1016^^109^1239^1^^^^1
 ;;^UTILITY(U,$J,358.3,24415,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24415,1,2,0)
 ;;=2^T1016
 ;;^UTILITY(U,$J,358.3,24415,1,3,0)
 ;;=3^Case Management,ea 15 min
 ;;^UTILITY(U,$J,358.3,24416,0)
 ;;=H0006^^109^1239^2^^^^1
 ;;^UTILITY(U,$J,358.3,24416,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24416,1,2,0)
 ;;=2^H0006
 ;;^UTILITY(U,$J,358.3,24416,1,3,0)
 ;;=3^Case Mgmt w/ Alcohol & Drug Tx Focus
 ;;^UTILITY(U,$J,358.3,24417,0)
 ;;=96156^^109^1240^1^^^^1
 ;;^UTILITY(U,$J,358.3,24417,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24417,1,2,0)
 ;;=2^96156
 ;;^UTILITY(U,$J,358.3,24417,1,3,0)
 ;;=3^Hlth/Behav Assess/Re-Assess
 ;;^UTILITY(U,$J,358.3,24418,0)
 ;;=96158^^109^1240^8^^^^1
 ;;^UTILITY(U,$J,358.3,24418,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24418,1,2,0)
 ;;=2^96158
 ;;^UTILITY(U,$J,358.3,24418,1,3,0)
 ;;=3^Hlth/Behav Intrvn,Ind,1st 30 min
 ;;^UTILITY(U,$J,358.3,24419,0)
 ;;=96159^^109^1240^9^^^^1
 ;;^UTILITY(U,$J,358.3,24419,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24419,1,2,0)
 ;;=2^96159
 ;;^UTILITY(U,$J,358.3,24419,1,3,0)
 ;;=3^Hlth/Behav Intrvn,Ind,Ea Addl 15 min
 ;;^UTILITY(U,$J,358.3,24420,0)
 ;;=96164^^109^1240^6^^^^1
 ;;^UTILITY(U,$J,358.3,24420,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24420,1,2,0)
 ;;=2^96164
 ;;^UTILITY(U,$J,358.3,24420,1,3,0)
 ;;=3^Hlth/Behav Intrvn,Grp,1st 30 min
 ;;^UTILITY(U,$J,358.3,24421,0)
 ;;=96165^^109^1240^7^^^^1
 ;;^UTILITY(U,$J,358.3,24421,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24421,1,2,0)
 ;;=2^96165
 ;;^UTILITY(U,$J,358.3,24421,1,3,0)
 ;;=3^Hlth/Behav Intrvn,Grp,Ea Addl 15 min
 ;;^UTILITY(U,$J,358.3,24422,0)
 ;;=96167^^109^1240^2^^^^1
 ;;^UTILITY(U,$J,358.3,24422,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24422,1,2,0)
 ;;=2^96167
 ;;^UTILITY(U,$J,358.3,24422,1,3,0)
 ;;=3^Hlth/Behav Intrvn,Fam w/ Pt,1st 30 min
 ;;^UTILITY(U,$J,358.3,24423,0)
 ;;=96168^^109^1240^3^^^^1
 ;;^UTILITY(U,$J,358.3,24423,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24423,1,2,0)
 ;;=2^96168
 ;;^UTILITY(U,$J,358.3,24423,1,3,0)
 ;;=3^Hlth/Behav Intrvn,Fam w/ Pt,Ea Addl 15 min
 ;;^UTILITY(U,$J,358.3,24424,0)
 ;;=96170^^109^1240^4^^^^1
 ;;^UTILITY(U,$J,358.3,24424,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24424,1,2,0)
 ;;=2^96170
 ;;^UTILITY(U,$J,358.3,24424,1,3,0)
 ;;=3^Hlth/Behav Intrvn,Fam w/o Pt,1st 30 min
 ;;^UTILITY(U,$J,358.3,24425,0)
 ;;=96171^^109^1240^5^^^^1
 ;;^UTILITY(U,$J,358.3,24425,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24425,1,2,0)
 ;;=2^96171
 ;;^UTILITY(U,$J,358.3,24425,1,3,0)
 ;;=3^Hlth/Behav Intrvn,Fam w/o Pt,Ea Addl 15 min
 ;;^UTILITY(U,$J,358.3,24426,0)
 ;;=S9445^^109^1241^4^^^^1
 ;;^UTILITY(U,$J,358.3,24426,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24426,1,2,0)
 ;;=2^S9445
 ;;^UTILITY(U,$J,358.3,24426,1,3,0)
 ;;=3^Pt Educ,Individual,NOS
 ;;^UTILITY(U,$J,358.3,24427,0)
 ;;=97537^^109^1241^3^^^^1
 ;;^UTILITY(U,$J,358.3,24427,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24427,1,2,0)
 ;;=2^97537
 ;;^UTILITY(U,$J,358.3,24427,1,3,0)
 ;;=3^Community/Work Reintegration Training
 ;;^UTILITY(U,$J,358.3,24428,0)
 ;;=3085F^^109^1241^5^^^^1
 ;;^UTILITY(U,$J,358.3,24428,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24428,1,2,0)
 ;;=2^3085F
 ;;^UTILITY(U,$J,358.3,24428,1,3,0)
 ;;=3^Suicide Risk Assessment
 ;;^UTILITY(U,$J,358.3,24429,0)
 ;;=99497^^109^1241^1^^^^1
 ;;^UTILITY(U,$J,358.3,24429,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24429,1,2,0)
 ;;=2^99497
 ;;^UTILITY(U,$J,358.3,24429,1,3,0)
 ;;=3^Advance Care Planning,1st 30 min
 ;;^UTILITY(U,$J,358.3,24430,0)
 ;;=99498^^109^1241^2^^^^1
 ;;^UTILITY(U,$J,358.3,24430,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24430,1,2,0)
 ;;=2^99498
 ;;^UTILITY(U,$J,358.3,24430,1,3,0)
 ;;=3^Advance Care Planning,Ea Addl 30 min
 ;;^UTILITY(U,$J,358.3,24431,0)
 ;;=99366^^109^1242^1^^^^1
 ;;^UTILITY(U,$J,358.3,24431,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24431,1,2,0)
 ;;=2^99366
 ;;^UTILITY(U,$J,358.3,24431,1,3,0)
 ;;=3^Non-Phy Team Conf w/ Pt &/or Fam,30 min+
 ;;^UTILITY(U,$J,358.3,24432,0)
 ;;=90833^^109^1243^1^^^^1
 ;;^UTILITY(U,$J,358.3,24432,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24432,1,2,0)
 ;;=2^90833
 ;;^UTILITY(U,$J,358.3,24432,1,3,0)
 ;;=3^Psychotherapy Services,30 min
 ;;^UTILITY(U,$J,358.3,24433,0)
 ;;=90836^^109^1243^2^^^^1
 ;;^UTILITY(U,$J,358.3,24433,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24433,1,2,0)
 ;;=2^90836
 ;;^UTILITY(U,$J,358.3,24433,1,3,0)
 ;;=3^Psychotherapy Services,45 min
 ;;^UTILITY(U,$J,358.3,24434,0)
 ;;=90838^^109^1243^3^^^^1
 ;;^UTILITY(U,$J,358.3,24434,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24434,1,2,0)
 ;;=2^90838
 ;;^UTILITY(U,$J,358.3,24434,1,3,0)
 ;;=3^Psychotherapy Services,60 min
 ;;^UTILITY(U,$J,358.3,24435,0)
 ;;=99354^^109^1244^1^^^^1
 ;;^UTILITY(U,$J,358.3,24435,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24435,1,2,0)
 ;;=2^99354
 ;;^UTILITY(U,$J,358.3,24435,1,3,0)
 ;;=3^Prolonged Svc Office/Outpt;1st hr
 ;;^UTILITY(U,$J,358.3,24436,0)
 ;;=99355^^109^1244^2^^^^1
 ;;^UTILITY(U,$J,358.3,24436,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24436,1,2,0)
 ;;=2^99355
 ;;^UTILITY(U,$J,358.3,24436,1,3,0)
 ;;=3^Prolonged Svc Office/Outpt;Ea Addl 30min
 ;;^UTILITY(U,$J,358.3,24437,0)
 ;;=99356^^109^1244^3^^^^1
 ;;^UTILITY(U,$J,358.3,24437,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24437,1,2,0)
 ;;=2^99356
 ;;^UTILITY(U,$J,358.3,24437,1,3,0)
 ;;=3^Prolonged Svc,INPT/OBS,1st Hr
 ;;^UTILITY(U,$J,358.3,24438,0)
 ;;=99357^^109^1244^4^^^^1
 ;;^UTILITY(U,$J,358.3,24438,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24438,1,2,0)
 ;;=2^99357
 ;;^UTILITY(U,$J,358.3,24438,1,3,0)
 ;;=3^Prolonged Svc,INPT/OBS,Ea Addl 30 min
 ;;^UTILITY(U,$J,358.3,24439,0)
 ;;=90847^^109^1245^1^^^^1
 ;;^UTILITY(U,$J,358.3,24439,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24439,1,2,0)
 ;;=2^90847
 ;;^UTILITY(U,$J,358.3,24439,1,3,0)
 ;;=3^Family Psychotherapy w/ Patient
 ;;^UTILITY(U,$J,358.3,24440,0)
 ;;=90853^^109^1245^3^^^^1
 ;;^UTILITY(U,$J,358.3,24440,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24440,1,2,0)
 ;;=2^90853
 ;;^UTILITY(U,$J,358.3,24440,1,3,0)
 ;;=3^Group Psychotherapy
 ;;^UTILITY(U,$J,358.3,24441,0)
 ;;=S9446^^109^1245^4^^^^1
 ;;^UTILITY(U,$J,358.3,24441,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24441,1,2,0)
 ;;=2^S9446
 ;;^UTILITY(U,$J,358.3,24441,1,3,0)
 ;;=3^Patient Educ NOC Non-Phy Grp Session
 ;;^UTILITY(U,$J,358.3,24442,0)
 ;;=H0005^^109^1245^2^^^^1
 ;;^UTILITY(U,$J,358.3,24442,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24442,1,2,0)
 ;;=2^H0005
 ;;^UTILITY(U,$J,358.3,24442,1,3,0)
 ;;=3^Group Counseling w/ Alcohol and Drug Tx Focus
 ;;^UTILITY(U,$J,358.3,24443,0)
 ;;=99368^^109^1246^1^^^^1
 ;;^UTILITY(U,$J,358.3,24443,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24443,1,2,0)
 ;;=2^99368
 ;;^UTILITY(U,$J,358.3,24443,1,3,0)
 ;;=3^Non-Phy Team Conf w/o Pt &/or Fam;30 min+
 ;;^UTILITY(U,$J,358.3,24444,0)
 ;;=H0038^^109^1247^1^^^^1
 ;;^UTILITY(U,$J,358.3,24444,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24444,1,2,0)
 ;;=2^H0038
 ;;^UTILITY(U,$J,358.3,24444,1,3,0)
 ;;=3^Peer Support,per 15 min
 ;;^UTILITY(U,$J,358.3,24445,0)
 ;;=T74.11XA^^110^1248^5
 ;;^UTILITY(U,$J,358.3,24445,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24445,1,3,0)
 ;;=3^Adult Physical Abuse,Confirmed,Initial Encounter  
 ;;^UTILITY(U,$J,358.3,24445,1,4,0)
 ;;=4^T74.11XA
 ;;^UTILITY(U,$J,358.3,24445,2)
 ;;=^5054146
 ;;^UTILITY(U,$J,358.3,24446,0)
 ;;=T74.11XD^^110^1248^6
 ;;^UTILITY(U,$J,358.3,24446,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24446,1,3,0)
 ;;=3^Adult Physical Abuse,Confirmed,Subsequent Encounter 
 ;;^UTILITY(U,$J,358.3,24446,1,4,0)
 ;;=4^T74.11XD
 ;;^UTILITY(U,$J,358.3,24446,2)
 ;;=^5054147
 ;;^UTILITY(U,$J,358.3,24447,0)
 ;;=T76.11XA^^110^1248^7
 ;;^UTILITY(U,$J,358.3,24447,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24447,1,3,0)
 ;;=3^Adult Physical Abuse,Suspected,Initial Encounter  
 ;;^UTILITY(U,$J,358.3,24447,1,4,0)
 ;;=4^T76.11XA
 ;;^UTILITY(U,$J,358.3,24447,2)
 ;;=^5054221
 ;;^UTILITY(U,$J,358.3,24448,0)
 ;;=T76.11XD^^110^1248^8
 ;;^UTILITY(U,$J,358.3,24448,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24448,1,3,0)
 ;;=3^Adult Physical Abuse,Suspected,Subsequent Encounter  
 ;;^UTILITY(U,$J,358.3,24448,1,4,0)
 ;;=4^T76.11XD
 ;;^UTILITY(U,$J,358.3,24448,2)
 ;;=^5054222
 ;;^UTILITY(U,$J,358.3,24449,0)
 ;;=Z69.11^^110^1248^31
 ;;^UTILITY(U,$J,358.3,24449,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24449,1,3,0)
 ;;=3^MH Svc for Victim of Spousal/Partner Neglect
 ;;^UTILITY(U,$J,358.3,24449,1,4,0)
 ;;=4^Z69.11
 ;;^UTILITY(U,$J,358.3,24449,2)
 ;;=^5063232
 ;;^UTILITY(U,$J,358.3,24450,0)
 ;;=Z91.410^^110^1248^35
 ;;^UTILITY(U,$J,358.3,24450,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24450,1,3,0)
 ;;=3^Past Hx of Spouse/Partner Violence,Physical 
 ;;^UTILITY(U,$J,358.3,24450,1,4,0)
 ;;=4^Z91.410
 ;;^UTILITY(U,$J,358.3,24450,2)
 ;;=^5063619
 ;;^UTILITY(U,$J,358.3,24451,0)
 ;;=Z69.12^^110^1248^27
 ;;^UTILITY(U,$J,358.3,24451,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24451,1,3,0)
 ;;=3^MH Svc for Perpetrator of Spousal/Partner Violence-Physical,Sexual or Psychological
 ;;^UTILITY(U,$J,358.3,24451,1,4,0)
 ;;=4^Z69.12
 ;;^UTILITY(U,$J,358.3,24451,2)
 ;;=^5063233
 ;;^UTILITY(U,$J,358.3,24452,0)
 ;;=T74.21XA^^110^1248^13
 ;;^UTILITY(U,$J,358.3,24452,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24452,1,3,0)
 ;;=3^Adult Sexual Abuse,Confirmed,Initial Encounter 
 ;;^UTILITY(U,$J,358.3,24452,1,4,0)
 ;;=4^T74.21XA
 ;;^UTILITY(U,$J,358.3,24452,2)
 ;;=^5054152
 ;;^UTILITY(U,$J,358.3,24453,0)
 ;;=T74.21XD^^110^1248^14
 ;;^UTILITY(U,$J,358.3,24453,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24453,1,3,0)
 ;;=3^Adult Sexual Abuse,Confirmed,Subsequent Encounter 
 ;;^UTILITY(U,$J,358.3,24453,1,4,0)
 ;;=4^T74.21XD
 ;;^UTILITY(U,$J,358.3,24453,2)
 ;;=^5054153
 ;;^UTILITY(U,$J,358.3,24454,0)
 ;;=T76.21XA^^110^1248^15
 ;;^UTILITY(U,$J,358.3,24454,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24454,1,3,0)
 ;;=3^Adult Sexual Abuse,Suspected,Initial Encounter  
 ;;^UTILITY(U,$J,358.3,24454,1,4,0)
 ;;=4^T76.21XA
 ;;^UTILITY(U,$J,358.3,24454,2)
 ;;=^5054227
 ;;^UTILITY(U,$J,358.3,24455,0)
 ;;=T76.21XD^^110^1248^16
 ;;^UTILITY(U,$J,358.3,24455,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24455,1,3,0)
 ;;=3^Adult Sexual Abuse,Suspected,Subsequent Encounter  
 ;;^UTILITY(U,$J,358.3,24455,1,4,0)
 ;;=4^T76.21XD
 ;;^UTILITY(U,$J,358.3,24455,2)
 ;;=^5054228
 ;;^UTILITY(U,$J,358.3,24456,0)
 ;;=Z69.81^^110^1248^30
 ;;^UTILITY(U,$J,358.3,24456,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24456,1,3,0)
 ;;=3^MH Svc for Victim of Nonspousal/Nonpartner Abuse
 ;;^UTILITY(U,$J,358.3,24456,1,4,0)
 ;;=4^Z69.81
 ;;^UTILITY(U,$J,358.3,24456,2)
 ;;=^5063234
 ;;^UTILITY(U,$J,358.3,24457,0)
 ;;=Z69.82^^110^1248^22
 ;;^UTILITY(U,$J,358.3,24457,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24457,1,3,0)
 ;;=3^MH Svc for Perpetrator of Nonspousal/Nonpartner Abuse
 ;;^UTILITY(U,$J,358.3,24457,1,4,0)
 ;;=4^Z69.82
 ;;^UTILITY(U,$J,358.3,24457,2)
 ;;=^5063235
 ;;^UTILITY(U,$J,358.3,24458,0)
 ;;=T74.01XA^^110^1248^1
 ;;^UTILITY(U,$J,358.3,24458,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24458,1,3,0)
 ;;=3^Adult Neglect,Confirmed,Initial Encounter 
 ;;^UTILITY(U,$J,358.3,24458,1,4,0)
 ;;=4^T74.01XA
 ;;^UTILITY(U,$J,358.3,24458,2)
 ;;=^5054140
 ;;^UTILITY(U,$J,358.3,24459,0)
 ;;=T74.01XD^^110^1248^2
 ;;^UTILITY(U,$J,358.3,24459,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24459,1,3,0)
 ;;=3^Adult Neglect,Confirmed,Subsequent Encounter 
 ;;^UTILITY(U,$J,358.3,24459,1,4,0)
 ;;=4^T74.01XD
 ;;^UTILITY(U,$J,358.3,24459,2)
 ;;=^5054141
 ;;^UTILITY(U,$J,358.3,24460,0)
 ;;=T76.01XA^^110^1248^3
 ;;^UTILITY(U,$J,358.3,24460,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24460,1,3,0)
 ;;=3^Adult Neglect,Suspected,Initial Encounter  
 ;;^UTILITY(U,$J,358.3,24460,1,4,0)
 ;;=4^T76.01XA
 ;;^UTILITY(U,$J,358.3,24460,2)
 ;;=^5054215
 ;;^UTILITY(U,$J,358.3,24461,0)
 ;;=T76.01XD^^110^1248^4
 ;;^UTILITY(U,$J,358.3,24461,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24461,1,3,0)
 ;;=3^Adult Neglect,Suspected,Subsequent Encounter  
 ;;^UTILITY(U,$J,358.3,24461,1,4,0)
 ;;=4^T76.01XD
 ;;^UTILITY(U,$J,358.3,24461,2)
 ;;=^5054216