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

IBDEI1TK.m

Go to the documentation of this file.
IBDEI1TK ; ; 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,29068,2)
 ;;=^5054227
 ;;^UTILITY(U,$J,358.3,29069,0)
 ;;=T76.21XD^^118^1461^18
 ;;^UTILITY(U,$J,358.3,29069,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29069,1,3,0)
 ;;=3^Adult Sexual Abuse,Suspected,Subs Enctr
 ;;^UTILITY(U,$J,358.3,29069,1,4,0)
 ;;=4^T76.21XD
 ;;^UTILITY(U,$J,358.3,29069,2)
 ;;=^5054228
 ;;^UTILITY(U,$J,358.3,29070,0)
 ;;=Z69.81^^118^1461^23
 ;;^UTILITY(U,$J,358.3,29070,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29070,1,3,0)
 ;;=3^MH Svc for Victim of Other Abuse
 ;;^UTILITY(U,$J,358.3,29070,1,4,0)
 ;;=4^Z69.81
 ;;^UTILITY(U,$J,358.3,29070,2)
 ;;=^5063234
 ;;^UTILITY(U,$J,358.3,29071,0)
 ;;=Z69.82^^118^1461^21
 ;;^UTILITY(U,$J,358.3,29071,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29071,1,3,0)
 ;;=3^MH Svc for Perpetrator of Other Abuse
 ;;^UTILITY(U,$J,358.3,29071,1,4,0)
 ;;=4^Z69.82
 ;;^UTILITY(U,$J,358.3,29071,2)
 ;;=^5063235
 ;;^UTILITY(U,$J,358.3,29072,0)
 ;;=T74.01XA^^118^1461^3
 ;;^UTILITY(U,$J,358.3,29072,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29072,1,3,0)
 ;;=3^Adult Neglect,Confirmed,Init Enctr
 ;;^UTILITY(U,$J,358.3,29072,1,4,0)
 ;;=4^T74.01XA
 ;;^UTILITY(U,$J,358.3,29072,2)
 ;;=^5054140
 ;;^UTILITY(U,$J,358.3,29073,0)
 ;;=T74.01XD^^118^1461^4
 ;;^UTILITY(U,$J,358.3,29073,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29073,1,3,0)
 ;;=3^Adult Neglect,Confirmed,Subs Enctr
 ;;^UTILITY(U,$J,358.3,29073,1,4,0)
 ;;=4^T74.01XD
 ;;^UTILITY(U,$J,358.3,29073,2)
 ;;=^5054141
 ;;^UTILITY(U,$J,358.3,29074,0)
 ;;=T76.01XA^^118^1461^5
 ;;^UTILITY(U,$J,358.3,29074,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29074,1,3,0)
 ;;=3^Adult Neglect,Suspected,Init Enctr
 ;;^UTILITY(U,$J,358.3,29074,1,4,0)
 ;;=4^T76.01XA
 ;;^UTILITY(U,$J,358.3,29074,2)
 ;;=^5054215
 ;;^UTILITY(U,$J,358.3,29075,0)
 ;;=T76.01XD^^118^1461^6
 ;;^UTILITY(U,$J,358.3,29075,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29075,1,3,0)
 ;;=3^Adult Neglect,Suspected,Subs Enctr
 ;;^UTILITY(U,$J,358.3,29075,1,4,0)
 ;;=4^T76.01XD
 ;;^UTILITY(U,$J,358.3,29075,2)
 ;;=^5054216
 ;;^UTILITY(U,$J,358.3,29076,0)
 ;;=Z91.412^^118^1461^25
 ;;^UTILITY(U,$J,358.3,29076,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29076,1,3,0)
 ;;=3^Personal Hx of Adult Neglect
 ;;^UTILITY(U,$J,358.3,29076,1,4,0)
 ;;=4^Z91.412
 ;;^UTILITY(U,$J,358.3,29076,2)
 ;;=^5063621
 ;;^UTILITY(U,$J,358.3,29077,0)
 ;;=T74.31XA^^118^1461^11
 ;;^UTILITY(U,$J,358.3,29077,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29077,1,3,0)
 ;;=3^Adult Psychological Abuse,Confirmed,Init Enctr
 ;;^UTILITY(U,$J,358.3,29077,1,4,0)
 ;;=4^T74.31XA
 ;;^UTILITY(U,$J,358.3,29077,2)
 ;;=^5054158
 ;;^UTILITY(U,$J,358.3,29078,0)
 ;;=T74.31XD^^118^1461^12
 ;;^UTILITY(U,$J,358.3,29078,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29078,1,3,0)
 ;;=3^Adult Psychological Abuse,Confirmed,Subs Enctr
 ;;^UTILITY(U,$J,358.3,29078,1,4,0)
 ;;=4^T74.31XD
 ;;^UTILITY(U,$J,358.3,29078,2)
 ;;=^5054159
 ;;^UTILITY(U,$J,358.3,29079,0)
 ;;=T76.31XA^^118^1461^13
 ;;^UTILITY(U,$J,358.3,29079,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29079,1,3,0)
 ;;=3^Adult Psychological Abuse,Suspected,Init Enctr
 ;;^UTILITY(U,$J,358.3,29079,1,4,0)
 ;;=4^T76.31XA
 ;;^UTILITY(U,$J,358.3,29079,2)
 ;;=^5054233
 ;;^UTILITY(U,$J,358.3,29080,0)
 ;;=T76.31XD^^118^1461^14
 ;;^UTILITY(U,$J,358.3,29080,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29080,1,3,0)
 ;;=3^Adult Psychological Abuse,Suspected,Subs Enctr