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

IBDEI10A.m

Go to the documentation of this file.
IBDEI10A ; ; 01-FEB-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
 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
Q Q
 ;;^UTILITY(U,$J,358.3,16364,0)
 ;;=N52.34^^61^772^43
 ;;^UTILITY(U,$J,358.3,16364,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16364,1,3,0)
 ;;=3^Erectile Dysfunction Following Simple Prostatectomy
 ;;^UTILITY(U,$J,358.3,16364,1,4,0)
 ;;=4^N52.34
 ;;^UTILITY(U,$J,358.3,16364,2)
 ;;=^5015760
 ;;^UTILITY(U,$J,358.3,16365,0)
 ;;=N52.39^^61^772^45
 ;;^UTILITY(U,$J,358.3,16365,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16365,1,3,0)
 ;;=3^Erectile Dysfunction Post-Surgical,Other & Unspec
 ;;^UTILITY(U,$J,358.3,16365,1,4,0)
 ;;=4^N52.39
 ;;^UTILITY(U,$J,358.3,16365,2)
 ;;=^5015761
 ;;^UTILITY(U,$J,358.3,16366,0)
 ;;=N52.33^^61^772^44
 ;;^UTILITY(U,$J,358.3,16366,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16366,1,3,0)
 ;;=3^Erectile Dysfunction Following Urethral Surgery
 ;;^UTILITY(U,$J,358.3,16366,1,4,0)
 ;;=4^N52.33
 ;;^UTILITY(U,$J,358.3,16366,2)
 ;;=^5015759
 ;;^UTILITY(U,$J,358.3,16367,0)
 ;;=N52.32^^61^772^41
 ;;^UTILITY(U,$J,358.3,16367,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16367,1,3,0)
 ;;=3^Erectile Dysfunction Following Radical Cystectomy
 ;;^UTILITY(U,$J,358.3,16367,1,4,0)
 ;;=4^N52.32
 ;;^UTILITY(U,$J,358.3,16367,2)
 ;;=^5015758
 ;;^UTILITY(U,$J,358.3,16368,0)
 ;;=N52.31^^61^772^42
 ;;^UTILITY(U,$J,358.3,16368,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16368,1,3,0)
 ;;=3^Erectile Dysfunction Following Radical Prostatectomy
 ;;^UTILITY(U,$J,358.3,16368,1,4,0)
 ;;=4^N52.31
 ;;^UTILITY(U,$J,358.3,16368,2)
 ;;=^5015757
 ;;^UTILITY(U,$J,358.3,16369,0)
 ;;=N52.2^^61^772^48
 ;;^UTILITY(U,$J,358.3,16369,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16369,1,3,0)
 ;;=3^Erectile Dysfunction,Drug-Induced
 ;;^UTILITY(U,$J,358.3,16369,1,4,0)
 ;;=4^N52.2
 ;;^UTILITY(U,$J,358.3,16369,2)
 ;;=^5015756
 ;;^UTILITY(U,$J,358.3,16370,0)
 ;;=N52.03^^61^772^39
 ;;^UTILITY(U,$J,358.3,16370,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16370,1,3,0)
 ;;=3^Erectile Dysfunction Comb Artrl Insuff & Corporo-Venous Occlusv
 ;;^UTILITY(U,$J,358.3,16370,1,4,0)
 ;;=4^N52.03
 ;;^UTILITY(U,$J,358.3,16370,2)
 ;;=^5015754
 ;;^UTILITY(U,$J,358.3,16371,0)
 ;;=N52.02^^61^772^40
 ;;^UTILITY(U,$J,358.3,16371,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16371,1,3,0)
 ;;=3^Erectile Dysfunction Corporo-Venous Occlusive
 ;;^UTILITY(U,$J,358.3,16371,1,4,0)
 ;;=4^N52.02
 ;;^UTILITY(U,$J,358.3,16371,2)
 ;;=^5015753
 ;;^UTILITY(U,$J,358.3,16372,0)
 ;;=N52.1^^61^772^47
 ;;^UTILITY(U,$J,358.3,16372,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16372,1,3,0)
 ;;=3^Erectile Dysfunction d/t Diseases Classified Elsewhere
 ;;^UTILITY(U,$J,358.3,16372,1,4,0)
 ;;=4^N52.1
 ;;^UTILITY(U,$J,358.3,16372,2)
 ;;=^5015755
 ;;^UTILITY(U,$J,358.3,16373,0)
 ;;=N52.01^^61^772^46
 ;;^UTILITY(U,$J,358.3,16373,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16373,1,3,0)
 ;;=3^Erectile Dysfunction d/t Arterial Insufficiency
 ;;^UTILITY(U,$J,358.3,16373,1,4,0)
 ;;=4^N52.01
 ;;^UTILITY(U,$J,358.3,16373,2)
 ;;=^5015752
 ;;^UTILITY(U,$J,358.3,16374,0)
 ;;=N95.2^^61^772^90
 ;;^UTILITY(U,$J,358.3,16374,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16374,1,3,0)
 ;;=3^Postmenopausal Atrophic Vaginitis
 ;;^UTILITY(U,$J,358.3,16374,1,4,0)
 ;;=4^N95.2
 ;;^UTILITY(U,$J,358.3,16374,2)
 ;;=^270577
 ;;^UTILITY(U,$J,358.3,16375,0)
 ;;=R30.9^^61^772^71
 ;;^UTILITY(U,$J,358.3,16375,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16375,1,3,0)
 ;;=3^Micturition Painful,Unspec
 ;;^UTILITY(U,$J,358.3,16375,1,4,0)
 ;;=4^R30.9