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

IBDEI2QU.m

Go to the documentation of this file.
  1. IBDEI2QU ; ; 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,43754,2)
  1. ;;=^5063251
  1. ;;^UTILITY(U,$J,358.3,43755,0)
  1. ;;=Z76.89^^162^2145^4
  1. ;;^UTILITY(U,$J,358.3,43755,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,43755,1,3,0)
  1. ;;=3^Health Services in Oth Circumstances
  1. ;;^UTILITY(U,$J,358.3,43755,1,4,0)
  1. ;;=4^Z76.89
  1. ;;^UTILITY(U,$J,358.3,43755,2)
  1. ;;=^5063304
  1. ;;^UTILITY(U,$J,358.3,43756,0)
  1. ;;=Z56.82^^162^2145^7
  1. ;;^UTILITY(U,$J,358.3,43756,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,43756,1,3,0)
  1. ;;=3^Military Deployment Status
  1. ;;^UTILITY(U,$J,358.3,43756,1,4,0)
  1. ;;=4^Z56.82
  1. ;;^UTILITY(U,$J,358.3,43756,2)
  1. ;;=^5063115
  1. ;;^UTILITY(U,$J,358.3,43757,0)
  1. ;;=Z91.82^^162^2145^8
  1. ;;^UTILITY(U,$J,358.3,43757,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,43757,1,3,0)
  1. ;;=3^Personal Hx of Military Deployment
  1. ;;^UTILITY(U,$J,358.3,43757,1,4,0)
  1. ;;=4^Z91.82
  1. ;;^UTILITY(U,$J,358.3,43757,2)
  1. ;;=^5063626
  1. ;;^UTILITY(U,$J,358.3,43758,0)
  1. ;;=Z72.51^^162^2146^2
  1. ;;^UTILITY(U,$J,358.3,43758,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,43758,1,3,0)
  1. ;;=3^High Risk Heterosexual Behavior
  1. ;;^UTILITY(U,$J,358.3,43758,1,4,0)
  1. ;;=4^Z72.51
  1. ;;^UTILITY(U,$J,358.3,43758,2)
  1. ;;=^5063258
  1. ;;^UTILITY(U,$J,358.3,43759,0)
  1. ;;=Z72.6^^162^2146^1
  1. ;;^UTILITY(U,$J,358.3,43759,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,43759,1,3,0)
  1. ;;=3^Gambling/Betting
  1. ;;^UTILITY(U,$J,358.3,43759,1,4,0)
  1. ;;=4^Z72.6
  1. ;;^UTILITY(U,$J,358.3,43759,2)
  1. ;;=^5063261
  1. ;;^UTILITY(U,$J,358.3,43760,0)
  1. ;;=Z72.3^^162^2146^4
  1. ;;^UTILITY(U,$J,358.3,43760,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,43760,1,3,0)
  1. ;;=3^Lack of Physical Exercise
  1. ;;^UTILITY(U,$J,358.3,43760,1,4,0)
  1. ;;=4^Z72.3
  1. ;;^UTILITY(U,$J,358.3,43760,2)
  1. ;;=^5063256
  1. ;;^UTILITY(U,$J,358.3,43761,0)
  1. ;;=Z72.4^^162^2146^3
  1. ;;^UTILITY(U,$J,358.3,43761,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,43761,1,3,0)
  1. ;;=3^Inappropriate Diet/Eating Habits
  1. ;;^UTILITY(U,$J,358.3,43761,1,4,0)
  1. ;;=4^Z72.4
  1. ;;^UTILITY(U,$J,358.3,43761,2)
  1. ;;=^5063257
  1. ;;^UTILITY(U,$J,358.3,43762,0)
  1. ;;=Z72.820^^162^2146^6
  1. ;;^UTILITY(U,$J,358.3,43762,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,43762,1,3,0)
  1. ;;=3^Sleep Deprivation
  1. ;;^UTILITY(U,$J,358.3,43762,1,4,0)
  1. ;;=4^Z72.820
  1. ;;^UTILITY(U,$J,358.3,43762,2)
  1. ;;=^5063264
  1. ;;^UTILITY(U,$J,358.3,43763,0)
  1. ;;=Z72.9^^162^2146^5
  1. ;;^UTILITY(U,$J,358.3,43763,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,43763,1,3,0)
  1. ;;=3^Lifestyle Related Problems,Unspec
  1. ;;^UTILITY(U,$J,358.3,43763,1,4,0)
  1. ;;=4^Z72.9
  1. ;;^UTILITY(U,$J,358.3,43763,2)
  1. ;;=^5063267
  1. ;;^UTILITY(U,$J,358.3,43764,0)
  1. ;;=Z13.89^^162^2147^1
  1. ;;^UTILITY(U,$J,358.3,43764,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,43764,1,3,0)
  1. ;;=3^Screening for Other Disorders
  1. ;;^UTILITY(U,$J,358.3,43764,1,4,0)
  1. ;;=4^Z13.89
  1. ;;^UTILITY(U,$J,358.3,43764,2)
  1. ;;=^5062720
  1. ;;^UTILITY(U,$J,358.3,43765,0)
  1. ;;=Z65.8^^162^2148^3
  1. ;;^UTILITY(U,$J,358.3,43765,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,43765,1,3,0)
  1. ;;=3^Psychosocial Related Problems
  1. ;;^UTILITY(U,$J,358.3,43765,1,4,0)
  1. ;;=4^Z65.8
  1. ;;^UTILITY(U,$J,358.3,43765,2)
  1. ;;=^5063185
  1. ;;^UTILITY(U,$J,358.3,43766,0)
  1. ;;=Z86.51^^162^2148^1
  1. ;;^UTILITY(U,$J,358.3,43766,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,43766,1,3,0)
  1. ;;=3^Personal Hx of Combat/Operational Stress Reaction
  1. ;;^UTILITY(U,$J,358.3,43766,1,4,0)
  1. ;;=4^Z86.51
  1. ;;^UTILITY(U,$J,358.3,43766,2)
  1. ;;=^5063470
  1. ;;^UTILITY(U,$J,358.3,43767,0)
  1. ;;=Z86.59^^162^2148^2