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

IBDEI0IN.m

Go to the documentation of this file.
IBDEI0IN ; ; 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,8389,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8389,1,3,0)
 ;;=3^BPH w/o Lower Urinary Tract Symptoms
 ;;^UTILITY(U,$J,358.3,8389,1,4,0)
 ;;=4^N40.0
 ;;^UTILITY(U,$J,358.3,8389,2)
 ;;=^5015689
 ;;^UTILITY(U,$J,358.3,8390,0)
 ;;=N40.1^^39^398^2
 ;;^UTILITY(U,$J,358.3,8390,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8390,1,3,0)
 ;;=3^BPH w/ Lower Urinary Tract Symptoms
 ;;^UTILITY(U,$J,358.3,8390,1,4,0)
 ;;=4^N40.1
 ;;^UTILITY(U,$J,358.3,8390,2)
 ;;=^5015690
 ;;^UTILITY(U,$J,358.3,8391,0)
 ;;=N41.0^^39^398^91
 ;;^UTILITY(U,$J,358.3,8391,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8391,1,3,0)
 ;;=3^Prostatitis,Acute
 ;;^UTILITY(U,$J,358.3,8391,1,4,0)
 ;;=4^N41.0
 ;;^UTILITY(U,$J,358.3,8391,2)
 ;;=^259106
 ;;^UTILITY(U,$J,358.3,8392,0)
 ;;=N45.1^^39^398^33
 ;;^UTILITY(U,$J,358.3,8392,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8392,1,3,0)
 ;;=3^Epididymitis
 ;;^UTILITY(U,$J,358.3,8392,1,4,0)
 ;;=4^N45.1
 ;;^UTILITY(U,$J,358.3,8392,2)
 ;;=^41396
 ;;^UTILITY(U,$J,358.3,8393,0)
 ;;=N45.2^^39^398^83
 ;;^UTILITY(U,$J,358.3,8393,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8393,1,3,0)
 ;;=3^Orchitis
 ;;^UTILITY(U,$J,358.3,8393,1,4,0)
 ;;=4^N45.2
 ;;^UTILITY(U,$J,358.3,8393,2)
 ;;=^86174
 ;;^UTILITY(U,$J,358.3,8394,0)
 ;;=N45.3^^39^398^34
 ;;^UTILITY(U,$J,358.3,8394,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8394,1,3,0)
 ;;=3^Epididymo-orchitis
 ;;^UTILITY(U,$J,358.3,8394,1,4,0)
 ;;=4^N45.3
 ;;^UTILITY(U,$J,358.3,8394,2)
 ;;=^5015707
 ;;^UTILITY(U,$J,358.3,8395,0)
 ;;=N47.2^^39^398^85
 ;;^UTILITY(U,$J,358.3,8395,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8395,1,3,0)
 ;;=3^Paraphimosis
 ;;^UTILITY(U,$J,358.3,8395,1,4,0)
 ;;=4^N47.2
 ;;^UTILITY(U,$J,358.3,8395,2)
 ;;=^90023
 ;;^UTILITY(U,$J,358.3,8396,0)
 ;;=N47.1^^39^398^87
 ;;^UTILITY(U,$J,358.3,8396,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8396,1,3,0)
 ;;=3^Phimosis
 ;;^UTILITY(U,$J,358.3,8396,1,4,0)
 ;;=4^N47.1
 ;;^UTILITY(U,$J,358.3,8396,2)
 ;;=^93340
 ;;^UTILITY(U,$J,358.3,8397,0)
 ;;=N47.3^^39^398^28
 ;;^UTILITY(U,$J,358.3,8397,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8397,1,3,0)
 ;;=3^Deficient Foreskin
 ;;^UTILITY(U,$J,358.3,8397,1,4,0)
 ;;=4^N47.3
 ;;^UTILITY(U,$J,358.3,8397,2)
 ;;=^5015726
 ;;^UTILITY(U,$J,358.3,8398,0)
 ;;=N47.5^^39^398^1
 ;;^UTILITY(U,$J,358.3,8398,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8398,1,3,0)
 ;;=3^Adhesions Prepuce & Glans Penis
 ;;^UTILITY(U,$J,358.3,8398,1,4,0)
 ;;=4^N47.5
 ;;^UTILITY(U,$J,358.3,8398,2)
 ;;=^5015728
 ;;^UTILITY(U,$J,358.3,8399,0)
 ;;=N47.4^^39^398^23
 ;;^UTILITY(U,$J,358.3,8399,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8399,1,3,0)
 ;;=3^Cyst of Prepuce,Benign
 ;;^UTILITY(U,$J,358.3,8399,1,4,0)
 ;;=4^N47.4
 ;;^UTILITY(U,$J,358.3,8399,2)
 ;;=^5015727
 ;;^UTILITY(U,$J,358.3,8400,0)
 ;;=N47.8^^39^398^29
 ;;^UTILITY(U,$J,358.3,8400,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8400,1,3,0)
 ;;=3^Disorders of Prepuce
 ;;^UTILITY(U,$J,358.3,8400,1,4,0)
 ;;=4^N47.8
 ;;^UTILITY(U,$J,358.3,8400,2)
 ;;=^5015730
 ;;^UTILITY(U,$J,358.3,8401,0)
 ;;=N47.7^^39^398^64
 ;;^UTILITY(U,$J,358.3,8401,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,8401,1,3,0)
 ;;=3^Inflammatory Diseases of Prepuce
 ;;^UTILITY(U,$J,358.3,8401,1,4,0)
 ;;=4^N47.7
 ;;^UTILITY(U,$J,358.3,8401,2)
 ;;=^5015729
 ;;^UTILITY(U,$J,358.3,8402,0)
 ;;=N47.6^^39^398^5
 ;;^UTILITY(U,$J,358.3,8402,1,0)
 ;;=^358.31IA^4^2