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