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

IBDEI20K.m

Go to the documentation of this file.
IBDEI20K ; ; 04-FEB-2020
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
 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,32140,0)
 ;;=Z80.3^^126^1648^10
 ;;^UTILITY(U,$J,358.3,32140,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32140,1,3,0)
 ;;=3^Family Hx of Breast CA
 ;;^UTILITY(U,$J,358.3,32140,1,4,0)
 ;;=4^Z80.3
 ;;^UTILITY(U,$J,358.3,32140,2)
 ;;=^5063347
 ;;^UTILITY(U,$J,358.3,32141,0)
 ;;=Z85.3^^126^1648^32
 ;;^UTILITY(U,$J,358.3,32141,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32141,1,3,0)
 ;;=3^Personal Hx of Breast CA
 ;;^UTILITY(U,$J,358.3,32141,1,4,0)
 ;;=4^Z85.3
 ;;^UTILITY(U,$J,358.3,32141,2)
 ;;=^5063416
 ;;^UTILITY(U,$J,358.3,32142,0)
 ;;=R92.2^^126^1648^12
 ;;^UTILITY(U,$J,358.3,32142,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32142,1,3,0)
 ;;=3^Inconclusive Mammogram
 ;;^UTILITY(U,$J,358.3,32142,1,4,0)
 ;;=4^R92.2
 ;;^UTILITY(U,$J,358.3,32142,2)
 ;;=^5019711
 ;;^UTILITY(U,$J,358.3,32143,0)
 ;;=R92.1^^126^1648^27
 ;;^UTILITY(U,$J,358.3,32143,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32143,1,3,0)
 ;;=3^Mammographic Calcifcn on Dx Image,Breast
 ;;^UTILITY(U,$J,358.3,32143,1,4,0)
 ;;=4^R92.1
 ;;^UTILITY(U,$J,358.3,32143,2)
 ;;=^5019710
 ;;^UTILITY(U,$J,358.3,32144,0)
 ;;=R92.0^^126^1648^28
 ;;^UTILITY(U,$J,358.3,32144,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32144,1,3,0)
 ;;=3^Mammographic Microcalcifcn on Dx Image,Breast
 ;;^UTILITY(U,$J,358.3,32144,1,4,0)
 ;;=4^R92.0
 ;;^UTILITY(U,$J,358.3,32144,2)
 ;;=^5019709
 ;;^UTILITY(U,$J,358.3,32145,0)
 ;;=N64.4^^126^1648^30
 ;;^UTILITY(U,$J,358.3,32145,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32145,1,3,0)
 ;;=3^Mastodynia
 ;;^UTILITY(U,$J,358.3,32145,1,4,0)
 ;;=4^N64.4
 ;;^UTILITY(U,$J,358.3,32145,2)
 ;;=^5015794
 ;;^UTILITY(U,$J,358.3,32146,0)
 ;;=N64.52^^126^1648^31
 ;;^UTILITY(U,$J,358.3,32146,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32146,1,3,0)
 ;;=3^Nipple Discharge
 ;;^UTILITY(U,$J,358.3,32146,1,4,0)
 ;;=4^N64.52
 ;;^UTILITY(U,$J,358.3,32146,2)
 ;;=^259531
 ;;^UTILITY(U,$J,358.3,32147,0)
 ;;=Z12.39^^126^1648^3
 ;;^UTILITY(U,$J,358.3,32147,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32147,1,3,0)
 ;;=3^Breast CA Screen
 ;;^UTILITY(U,$J,358.3,32147,1,4,0)
 ;;=4^Z12.39
 ;;^UTILITY(U,$J,358.3,32147,2)
 ;;=^5062686
 ;;^UTILITY(U,$J,358.3,32148,0)
 ;;=N61.1^^126^1648^2
 ;;^UTILITY(U,$J,358.3,32148,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32148,1,3,0)
 ;;=3^Abscess of Breast and Nipple
 ;;^UTILITY(U,$J,358.3,32148,1,4,0)
 ;;=4^N61.1
 ;;^UTILITY(U,$J,358.3,32148,2)
 ;;=^5138937
 ;;^UTILITY(U,$J,358.3,32149,0)
 ;;=N61.0^^126^1648^29
 ;;^UTILITY(U,$J,358.3,32149,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32149,1,3,0)
 ;;=3^Mastitis w/o Abscess
 ;;^UTILITY(U,$J,358.3,32149,1,4,0)
 ;;=4^N61.0
 ;;^UTILITY(U,$J,358.3,32149,2)
 ;;=^5138936
 ;;^UTILITY(U,$J,358.3,32150,0)
 ;;=N63.32^^126^1648^13
 ;;^UTILITY(U,$J,358.3,32150,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32150,1,3,0)
 ;;=3^Lump,Left Breast,Axillary Tail,Unspec
 ;;^UTILITY(U,$J,358.3,32150,1,4,0)
 ;;=4^N63.32
 ;;^UTILITY(U,$J,358.3,32150,2)
 ;;=^5151530
 ;;^UTILITY(U,$J,358.3,32151,0)
 ;;=N63.31^^126^1648^20
 ;;^UTILITY(U,$J,358.3,32151,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32151,1,3,0)
 ;;=3^Lump,Right Breast,Axillary Tail,Unspec
 ;;^UTILITY(U,$J,358.3,32151,1,4,0)
 ;;=4^N63.31
 ;;^UTILITY(U,$J,358.3,32151,2)
 ;;=^5151529
 ;;^UTILITY(U,$J,358.3,32152,0)
 ;;=N63.42^^126^1648^16
 ;;^UTILITY(U,$J,358.3,32152,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32152,1,3,0)
 ;;=3^Lump,Left Breast,Subareolar,Unspec