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

IBDEI1TL.m

Go to the documentation of this file.
IBDEI1TL ; ; 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,29080,1,4,0)
 ;;=4^T76.31XD
 ;;^UTILITY(U,$J,358.3,29080,2)
 ;;=^5054234
 ;;^UTILITY(U,$J,358.3,29081,0)
 ;;=Z91.411^^118^1461^27
 ;;^UTILITY(U,$J,358.3,29081,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29081,1,3,0)
 ;;=3^Personal Hx of Adult Psychological Abuse
 ;;^UTILITY(U,$J,358.3,29081,1,4,0)
 ;;=4^Z91.411
 ;;^UTILITY(U,$J,358.3,29081,2)
 ;;=^5063620
 ;;^UTILITY(U,$J,358.3,29082,0)
 ;;=Z69.021^^118^1461^20
 ;;^UTILITY(U,$J,358.3,29082,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29082,1,3,0)
 ;;=3^MH Svc for Perpetrator of Nonparental Child Abuse
 ;;^UTILITY(U,$J,358.3,29082,1,4,0)
 ;;=4^Z69.021
 ;;^UTILITY(U,$J,358.3,29082,2)
 ;;=^5063231
 ;;^UTILITY(U,$J,358.3,29083,0)
 ;;=Z69.011^^118^1461^22
 ;;^UTILITY(U,$J,358.3,29083,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29083,1,3,0)
 ;;=3^MH Svc for Perpetrator of Parental Child Abuse
 ;;^UTILITY(U,$J,358.3,29083,1,4,0)
 ;;=4^Z69.011
 ;;^UTILITY(U,$J,358.3,29083,2)
 ;;=^5063229
 ;;^UTILITY(U,$J,358.3,29084,0)
 ;;=Z69.12^^118^1461^19
 ;;^UTILITY(U,$J,358.3,29084,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29084,1,3,0)
 ;;=3^MH SVC for Perpetrator of Spousal/Partner Abuse
 ;;^UTILITY(U,$J,358.3,29084,1,4,0)
 ;;=4^Z69.12
 ;;^UTILITY(U,$J,358.3,29084,2)
 ;;=^5063233
 ;;^UTILITY(U,$J,358.3,29085,0)
 ;;=Z62.812^^118^1461^28
 ;;^UTILITY(U,$J,358.3,29085,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29085,1,3,0)
 ;;=3^Personal Hx of Childhood Neglect
 ;;^UTILITY(U,$J,358.3,29085,1,4,0)
 ;;=4^Z62.812
 ;;^UTILITY(U,$J,358.3,29085,2)
 ;;=^5063155
 ;;^UTILITY(U,$J,358.3,29086,0)
 ;;=Z62.810^^118^1461^29
 ;;^UTILITY(U,$J,358.3,29086,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29086,1,3,0)
 ;;=3^Personal Hx of Childhood Physical & Sexual Abuse
 ;;^UTILITY(U,$J,358.3,29086,1,4,0)
 ;;=4^Z62.810
 ;;^UTILITY(U,$J,358.3,29086,2)
 ;;=^5063153
 ;;^UTILITY(U,$J,358.3,29087,0)
 ;;=Z62.811^^118^1461^30
 ;;^UTILITY(U,$J,358.3,29087,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29087,1,3,0)
 ;;=3^Personal Hx of Childhood Psychological Abuse
 ;;^UTILITY(U,$J,358.3,29087,1,4,0)
 ;;=4^Z62.811
 ;;^UTILITY(U,$J,358.3,29087,2)
 ;;=^5063154
 ;;^UTILITY(U,$J,358.3,29088,0)
 ;;=T76.51XA^^118^1461^1
 ;;^UTILITY(U,$J,358.3,29088,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29088,1,3,0)
 ;;=3^Adult Forced Sexual Exploitation,Suspected,Init Enctr
 ;;^UTILITY(U,$J,358.3,29088,1,4,0)
 ;;=4^T76.51XA
 ;;^UTILITY(U,$J,358.3,29088,2)
 ;;=^5157572
 ;;^UTILITY(U,$J,358.3,29089,0)
 ;;=T76.51XD^^118^1461^2
 ;;^UTILITY(U,$J,358.3,29089,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29089,1,3,0)
 ;;=3^Adult Forced Sexual Exploitation,Suspected,Subs Enctr
 ;;^UTILITY(U,$J,358.3,29089,1,4,0)
 ;;=4^T76.51XD
 ;;^UTILITY(U,$J,358.3,29089,2)
 ;;=^5157573
 ;;^UTILITY(U,$J,358.3,29090,0)
 ;;=Z91.42^^118^1461^31
 ;;^UTILITY(U,$J,358.3,29090,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29090,1,3,0)
 ;;=3^Personal Hx of Forced Labor/Sexual Exploitation
 ;;^UTILITY(U,$J,358.3,29090,1,4,0)
 ;;=4^Z91.42
 ;;^UTILITY(U,$J,358.3,29090,2)
 ;;=^5157633
 ;;^UTILITY(U,$J,358.3,29091,0)
 ;;=Z62.813^^118^1461^32
 ;;^UTILITY(U,$J,358.3,29091,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,29091,1,3,0)
 ;;=3^Personal Hx of Forced Labor/Sexual Exploitation in Childhood
 ;;^UTILITY(U,$J,358.3,29091,1,4,0)
 ;;=4^Z62.813
 ;;^UTILITY(U,$J,358.3,29091,2)
 ;;=^5157627
 ;;^UTILITY(U,$J,358.3,29092,0)
 ;;=F06.4^^118^1462^3