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

IBDEI1S3.m

Go to the documentation of this file.
  1. IBDEI1S3 ; ; 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,28407,0)
  1. ;;=Z75.3^^115^1395^20
  1. ;;^UTILITY(U,$J,358.3,28407,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,28407,1,3,0)
  1. ;;=3^Unavailable/Inaccessible to Health Care Facilities
  1. ;;^UTILITY(U,$J,358.3,28407,1,4,0)
  1. ;;=4^Z75.3
  1. ;;^UTILITY(U,$J,358.3,28407,2)
  1. ;;=^5063292
  1. ;;^UTILITY(U,$J,358.3,28408,0)
  1. ;;=Z75.4^^115^1395^21
  1. ;;^UTILITY(U,$J,358.3,28408,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,28408,1,3,0)
  1. ;;=3^Unavailable/Inaccessible to Other Helping Agencies
  1. ;;^UTILITY(U,$J,358.3,28408,1,4,0)
  1. ;;=4^Z75.4
  1. ;;^UTILITY(U,$J,358.3,28408,2)
  1. ;;=^5063293
  1. ;;^UTILITY(U,$J,358.3,28409,0)
  1. ;;=Z62.813^^115^1395^13
  1. ;;^UTILITY(U,$J,358.3,28409,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,28409,1,3,0)
  1. ;;=3^Personal Hx of Forced Labor/Sexual Exploitation in Childhood
  1. ;;^UTILITY(U,$J,358.3,28409,1,4,0)
  1. ;;=4^Z62.813
  1. ;;^UTILITY(U,$J,358.3,28409,2)
  1. ;;=^5157627
  1. ;;^UTILITY(U,$J,358.3,28410,0)
  1. ;;=Z91.42^^115^1395^14
  1. ;;^UTILITY(U,$J,358.3,28410,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,28410,1,3,0)
  1. ;;=3^Personal Hx of Forced Labor/Sexual Exploitation
  1. ;;^UTILITY(U,$J,358.3,28410,1,4,0)
  1. ;;=4^Z91.42
  1. ;;^UTILITY(U,$J,358.3,28410,2)
  1. ;;=^5157633
  1. ;;^UTILITY(U,$J,358.3,28411,0)
  1. ;;=Z02.89^^115^1395^1
  1. ;;^UTILITY(U,$J,358.3,28411,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,28411,1,3,0)
  1. ;;=3^Administrative Exams,Other
  1. ;;^UTILITY(U,$J,358.3,28411,1,4,0)
  1. ;;=4^Z02.89
  1. ;;^UTILITY(U,$J,358.3,28411,2)
  1. ;;=^5062645
  1. ;;^UTILITY(U,$J,358.3,28412,0)
  1. ;;=Z70.9^^115^1396^2
  1. ;;^UTILITY(U,$J,358.3,28412,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,28412,1,3,0)
  1. ;;=3^Sex Counseling
  1. ;;^UTILITY(U,$J,358.3,28412,1,4,0)
  1. ;;=4^Z70.9
  1. ;;^UTILITY(U,$J,358.3,28412,2)
  1. ;;=^5063241
  1. ;;^UTILITY(U,$J,358.3,28413,0)
  1. ;;=Z71.9^^115^1396^1
  1. ;;^UTILITY(U,$J,358.3,28413,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,28413,1,3,0)
  1. ;;=3^Counseling,Unspec
  1. ;;^UTILITY(U,$J,358.3,28413,1,4,0)
  1. ;;=4^Z71.9
  1. ;;^UTILITY(U,$J,358.3,28413,2)
  1. ;;=^5063254
  1. ;;^UTILITY(U,$J,358.3,28414,0)
  1. ;;=Z60.0^^115^1397^2
  1. ;;^UTILITY(U,$J,358.3,28414,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,28414,1,3,0)
  1. ;;=3^Phase of Life Problem
  1. ;;^UTILITY(U,$J,358.3,28414,1,4,0)
  1. ;;=4^Z60.0
  1. ;;^UTILITY(U,$J,358.3,28414,2)
  1. ;;=^5063139
  1. ;;^UTILITY(U,$J,358.3,28415,0)
  1. ;;=Z60.2^^115^1397^3
  1. ;;^UTILITY(U,$J,358.3,28415,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,28415,1,3,0)
  1. ;;=3^Problem Related to Living Alone
  1. ;;^UTILITY(U,$J,358.3,28415,1,4,0)
  1. ;;=4^Z60.2
  1. ;;^UTILITY(U,$J,358.3,28415,2)
  1. ;;=^5063140
  1. ;;^UTILITY(U,$J,358.3,28416,0)
  1. ;;=Z60.3^^115^1397^1
  1. ;;^UTILITY(U,$J,358.3,28416,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,28416,1,3,0)
  1. ;;=3^Acculturation Difficulty
  1. ;;^UTILITY(U,$J,358.3,28416,1,4,0)
  1. ;;=4^Z60.3
  1. ;;^UTILITY(U,$J,358.3,28416,2)
  1. ;;=^5063141
  1. ;;^UTILITY(U,$J,358.3,28417,0)
  1. ;;=Z60.4^^115^1397^5
  1. ;;^UTILITY(U,$J,358.3,28417,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,28417,1,3,0)
  1. ;;=3^Social Exclusion or Rejection
  1. ;;^UTILITY(U,$J,358.3,28417,1,4,0)
  1. ;;=4^Z60.4
  1. ;;^UTILITY(U,$J,358.3,28417,2)
  1. ;;=^5063142
  1. ;;^UTILITY(U,$J,358.3,28418,0)
  1. ;;=Z60.5^^115^1397^6
  1. ;;^UTILITY(U,$J,358.3,28418,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,28418,1,3,0)
  1. ;;=3^Target (Perceived) Adverse Discrimination/Persecution
  1. ;;^UTILITY(U,$J,358.3,28418,1,4,0)
  1. ;;=4^Z60.5
  1. ;;^UTILITY(U,$J,358.3,28418,2)
  1. ;;=^5063143
  1. ;;^UTILITY(U,$J,358.3,28419,0)
  1. ;;=Z60.9^^115^1397^4