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

IBDEI2SB.m

Go to the documentation of this file.
  1. IBDEI2SB ; ; 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,44404,1,3,0)
  1. ;;=3^Encopresis
  1. ;;^UTILITY(U,$J,358.3,44404,1,4,0)
  1. ;;=4^F98.1
  1. ;;^UTILITY(U,$J,358.3,44404,2)
  1. ;;=^5003712
  1. ;;^UTILITY(U,$J,358.3,44405,0)
  1. ;;=N39.498^^164^2200^4
  1. ;;^UTILITY(U,$J,358.3,44405,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44405,1,3,0)
  1. ;;=3^Urinary Incontinence,Oth Spec
  1. ;;^UTILITY(U,$J,358.3,44405,1,4,0)
  1. ;;=4^N39.498
  1. ;;^UTILITY(U,$J,358.3,44405,2)
  1. ;;=^5015686
  1. ;;^UTILITY(U,$J,358.3,44406,0)
  1. ;;=R15.9^^164^2200^3
  1. ;;^UTILITY(U,$J,358.3,44406,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44406,1,3,0)
  1. ;;=3^Full Incontinence of Feces
  1. ;;^UTILITY(U,$J,358.3,44406,1,4,0)
  1. ;;=4^R15.9
  1. ;;^UTILITY(U,$J,358.3,44406,2)
  1. ;;=^5019247
  1. ;;^UTILITY(U,$J,358.3,44407,0)
  1. ;;=R32.^^164^2200^5
  1. ;;^UTILITY(U,$J,358.3,44407,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44407,1,3,0)
  1. ;;=3^Urinary Incontinence,Unspec
  1. ;;^UTILITY(U,$J,358.3,44407,1,4,0)
  1. ;;=4^R32.
  1. ;;^UTILITY(U,$J,358.3,44407,2)
  1. ;;=^5019329
  1. ;;^UTILITY(U,$J,358.3,44408,0)
  1. ;;=F63.0^^164^2201^1
  1. ;;^UTILITY(U,$J,358.3,44408,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44408,1,3,0)
  1. ;;=3^Gambling Disorder
  1. ;;^UTILITY(U,$J,358.3,44408,1,4,0)
  1. ;;=4^F63.0
  1. ;;^UTILITY(U,$J,358.3,44408,2)
  1. ;;=^5003640
  1. ;;^UTILITY(U,$J,358.3,44409,0)
  1. ;;=F06.8^^164^2202^2
  1. ;;^UTILITY(U,$J,358.3,44409,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44409,1,3,0)
  1. ;;=3^Mental D/O,Oth Spec,d/t Anth Med Cond
  1. ;;^UTILITY(U,$J,358.3,44409,1,4,0)
  1. ;;=4^F06.8
  1. ;;^UTILITY(U,$J,358.3,44409,2)
  1. ;;=^5003062
  1. ;;^UTILITY(U,$J,358.3,44410,0)
  1. ;;=F09.^^164^2202^3
  1. ;;^UTILITY(U,$J,358.3,44410,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44410,1,3,0)
  1. ;;=3^Mental D/O,Unspec,d/t Anth Med Cond
  1. ;;^UTILITY(U,$J,358.3,44410,1,4,0)
  1. ;;=4^F09.
  1. ;;^UTILITY(U,$J,358.3,44410,2)
  1. ;;=^5003067
  1. ;;^UTILITY(U,$J,358.3,44411,0)
  1. ;;=F99.^^164^2202^1
  1. ;;^UTILITY(U,$J,358.3,44411,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44411,1,3,0)
  1. ;;=3^Mental D/O NOS
  1. ;;^UTILITY(U,$J,358.3,44411,1,4,0)
  1. ;;=4^F99.
  1. ;;^UTILITY(U,$J,358.3,44411,2)
  1. ;;=^5003720
  1. ;;^UTILITY(U,$J,358.3,44412,0)
  1. ;;=Z03.89^^164^2202^4
  1. ;;^UTILITY(U,$J,358.3,44412,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44412,1,3,0)
  1. ;;=3^Obs for Oth Suspect Dis/Cond R/O
  1. ;;^UTILITY(U,$J,358.3,44412,1,4,0)
  1. ;;=4^Z03.89
  1. ;;^UTILITY(U,$J,358.3,44412,2)
  1. ;;=^5062656
  1. ;;^UTILITY(U,$J,358.3,44413,0)
  1. ;;=F84.0^^164^2203^7
  1. ;;^UTILITY(U,$J,358.3,44413,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44413,1,3,0)
  1. ;;=3^Autistic D/O
  1. ;;^UTILITY(U,$J,358.3,44413,1,4,0)
  1. ;;=4^F84.0
  1. ;;^UTILITY(U,$J,358.3,44413,2)
  1. ;;=^5003684
  1. ;;^UTILITY(U,$J,358.3,44414,0)
  1. ;;=F80.9^^164^2203^10
  1. ;;^UTILITY(U,$J,358.3,44414,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44414,1,3,0)
  1. ;;=3^Communication D/O,Unspec
  1. ;;^UTILITY(U,$J,358.3,44414,1,4,0)
  1. ;;=4^F80.9
  1. ;;^UTILITY(U,$J,358.3,44414,2)
  1. ;;=^5003678
  1. ;;^UTILITY(U,$J,358.3,44415,0)
  1. ;;=F82.^^164^2203^11
  1. ;;^UTILITY(U,$J,358.3,44415,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44415,1,3,0)
  1. ;;=3^Developmental Coordination D/O
  1. ;;^UTILITY(U,$J,358.3,44415,1,4,0)
  1. ;;=4^F82.
  1. ;;^UTILITY(U,$J,358.3,44415,2)
  1. ;;=^5003683
  1. ;;^UTILITY(U,$J,358.3,44416,0)
  1. ;;=F88.^^164^2203^24
  1. ;;^UTILITY(U,$J,358.3,44416,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44416,1,3,0)
  1. ;;=3^Psych Development D/O,Other
  1. ;;^UTILITY(U,$J,358.3,44416,1,4,0)
  1. ;;=4^F88.
  1. ;;^UTILITY(U,$J,358.3,44416,2)
  1. ;;=^5003690
  1. ;;^UTILITY(U,$J,358.3,44417,0)
  1. ;;=F80.2^^164^2203^17