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

IBDEI0IO.m

Go to the documentation of this file.
  1. IBDEI0IO ; ; 01-FEB-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
  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,8402,1,3,0)
  1. ;;=3^Balanoposthitis
  1. ;;^UTILITY(U,$J,358.3,8402,1,4,0)
  1. ;;=4^N47.6
  1. ;;^UTILITY(U,$J,358.3,8402,2)
  1. ;;=^12530
  1. ;;^UTILITY(U,$J,358.3,8403,0)
  1. ;;=N48.1^^39^398^4
  1. ;;^UTILITY(U,$J,358.3,8403,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,8403,1,3,0)
  1. ;;=3^Balanitis
  1. ;;^UTILITY(U,$J,358.3,8403,1,4,0)
  1. ;;=4^N48.1
  1. ;;^UTILITY(U,$J,358.3,8403,2)
  1. ;;=^12525
  1. ;;^UTILITY(U,$J,358.3,8404,0)
  1. ;;=N52.34^^39^398^43
  1. ;;^UTILITY(U,$J,358.3,8404,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,8404,1,3,0)
  1. ;;=3^Erectile Dysfunction Following Simple Prostatectomy
  1. ;;^UTILITY(U,$J,358.3,8404,1,4,0)
  1. ;;=4^N52.34
  1. ;;^UTILITY(U,$J,358.3,8404,2)
  1. ;;=^5015760
  1. ;;^UTILITY(U,$J,358.3,8405,0)
  1. ;;=N52.39^^39^398^45
  1. ;;^UTILITY(U,$J,358.3,8405,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,8405,1,3,0)
  1. ;;=3^Erectile Dysfunction Post-Surgical,Other & Unspec
  1. ;;^UTILITY(U,$J,358.3,8405,1,4,0)
  1. ;;=4^N52.39
  1. ;;^UTILITY(U,$J,358.3,8405,2)
  1. ;;=^5015761
  1. ;;^UTILITY(U,$J,358.3,8406,0)
  1. ;;=N52.33^^39^398^44
  1. ;;^UTILITY(U,$J,358.3,8406,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,8406,1,3,0)
  1. ;;=3^Erectile Dysfunction Following Urethral Surgery
  1. ;;^UTILITY(U,$J,358.3,8406,1,4,0)
  1. ;;=4^N52.33
  1. ;;^UTILITY(U,$J,358.3,8406,2)
  1. ;;=^5015759
  1. ;;^UTILITY(U,$J,358.3,8407,0)
  1. ;;=N52.32^^39^398^41
  1. ;;^UTILITY(U,$J,358.3,8407,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,8407,1,3,0)
  1. ;;=3^Erectile Dysfunction Following Radical Cystectomy
  1. ;;^UTILITY(U,$J,358.3,8407,1,4,0)
  1. ;;=4^N52.32
  1. ;;^UTILITY(U,$J,358.3,8407,2)
  1. ;;=^5015758
  1. ;;^UTILITY(U,$J,358.3,8408,0)
  1. ;;=N52.31^^39^398^42
  1. ;;^UTILITY(U,$J,358.3,8408,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,8408,1,3,0)
  1. ;;=3^Erectile Dysfunction Following Radical Prostatectomy
  1. ;;^UTILITY(U,$J,358.3,8408,1,4,0)
  1. ;;=4^N52.31
  1. ;;^UTILITY(U,$J,358.3,8408,2)
  1. ;;=^5015757
  1. ;;^UTILITY(U,$J,358.3,8409,0)
  1. ;;=N52.2^^39^398^48
  1. ;;^UTILITY(U,$J,358.3,8409,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,8409,1,3,0)
  1. ;;=3^Erectile Dysfunction,Drug-Induced
  1. ;;^UTILITY(U,$J,358.3,8409,1,4,0)
  1. ;;=4^N52.2
  1. ;;^UTILITY(U,$J,358.3,8409,2)
  1. ;;=^5015756
  1. ;;^UTILITY(U,$J,358.3,8410,0)
  1. ;;=N52.03^^39^398^39
  1. ;;^UTILITY(U,$J,358.3,8410,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,8410,1,3,0)
  1. ;;=3^Erectile Dysfunction Comb Artrl Insuff & Corporo-Venous Occlusv
  1. ;;^UTILITY(U,$J,358.3,8410,1,4,0)
  1. ;;=4^N52.03
  1. ;;^UTILITY(U,$J,358.3,8410,2)
  1. ;;=^5015754
  1. ;;^UTILITY(U,$J,358.3,8411,0)
  1. ;;=N52.02^^39^398^40
  1. ;;^UTILITY(U,$J,358.3,8411,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,8411,1,3,0)
  1. ;;=3^Erectile Dysfunction Corporo-Venous Occlusive
  1. ;;^UTILITY(U,$J,358.3,8411,1,4,0)
  1. ;;=4^N52.02
  1. ;;^UTILITY(U,$J,358.3,8411,2)
  1. ;;=^5015753
  1. ;;^UTILITY(U,$J,358.3,8412,0)
  1. ;;=N52.1^^39^398^47
  1. ;;^UTILITY(U,$J,358.3,8412,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,8412,1,3,0)
  1. ;;=3^Erectile Dysfunction d/t Diseases Classified Elsewhere
  1. ;;^UTILITY(U,$J,358.3,8412,1,4,0)
  1. ;;=4^N52.1
  1. ;;^UTILITY(U,$J,358.3,8412,2)
  1. ;;=^5015755
  1. ;;^UTILITY(U,$J,358.3,8413,0)
  1. ;;=N52.01^^39^398^46
  1. ;;^UTILITY(U,$J,358.3,8413,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,8413,1,3,0)
  1. ;;=3^Erectile Dysfunction d/t Arterial Insufficiency
  1. ;;^UTILITY(U,$J,358.3,8413,1,4,0)
  1. ;;=4^N52.01
  1. ;;^UTILITY(U,$J,358.3,8413,2)
  1. ;;=^5015752
  1. ;;^UTILITY(U,$J,358.3,8414,0)
  1. ;;=N95.2^^39^398^90
  1. ;;^UTILITY(U,$J,358.3,8414,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,8414,1,3,0)
  1. ;;=3^Postmenopausal Atrophic Vaginitis