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

IBDEI2CB.m

Go to the documentation of this file.
IBDEI2CB ; ; 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,37382,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37382,1,3,0)
 ;;=3^DM Type 2 w/ Diab Mononeuropathy
 ;;^UTILITY(U,$J,358.3,37382,1,4,0)
 ;;=4^E11.41
 ;;^UTILITY(U,$J,358.3,37382,2)
 ;;=^5002645
 ;;^UTILITY(U,$J,358.3,37383,0)
 ;;=E11.42^^146^1915^31
 ;;^UTILITY(U,$J,358.3,37383,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37383,1,3,0)
 ;;=3^DM Type 2 w/ Diab Polyneuropathy
 ;;^UTILITY(U,$J,358.3,37383,1,4,0)
 ;;=4^E11.42
 ;;^UTILITY(U,$J,358.3,37383,2)
 ;;=^5002646
 ;;^UTILITY(U,$J,358.3,37384,0)
 ;;=E11.43^^146^1915^23
 ;;^UTILITY(U,$J,358.3,37384,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37384,1,3,0)
 ;;=3^DM Type 2 w/ Diab Autonomic Polyneuropathy
 ;;^UTILITY(U,$J,358.3,37384,1,4,0)
 ;;=4^E11.43
 ;;^UTILITY(U,$J,358.3,37384,2)
 ;;=^5002647
 ;;^UTILITY(U,$J,358.3,37385,0)
 ;;=E11.44^^146^1915^21
 ;;^UTILITY(U,$J,358.3,37385,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37385,1,3,0)
 ;;=3^DM Type 2 w/ Diab Amyotrophy
 ;;^UTILITY(U,$J,358.3,37385,1,4,0)
 ;;=4^E11.44
 ;;^UTILITY(U,$J,358.3,37385,2)
 ;;=^5002648
 ;;^UTILITY(U,$J,358.3,37386,0)
 ;;=E11.49^^146^1915^26
 ;;^UTILITY(U,$J,358.3,37386,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37386,1,3,0)
 ;;=3^DM Type 2 w/ Diab Neurolog Compl NEC
 ;;^UTILITY(U,$J,358.3,37386,1,4,0)
 ;;=4^E11.49
 ;;^UTILITY(U,$J,358.3,37386,2)
 ;;=^5002649
 ;;^UTILITY(U,$J,358.3,37387,0)
 ;;=E10.40^^146^1915^11
 ;;^UTILITY(U,$J,358.3,37387,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37387,1,3,0)
 ;;=3^DM Type 1 w/ Diab Neuropathy,Unspec
 ;;^UTILITY(U,$J,358.3,37387,1,4,0)
 ;;=4^E10.40
 ;;^UTILITY(U,$J,358.3,37387,2)
 ;;=^5002604
 ;;^UTILITY(U,$J,358.3,37388,0)
 ;;=E10.41^^146^1915^8
 ;;^UTILITY(U,$J,358.3,37388,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37388,1,3,0)
 ;;=3^DM Type 1 w/ Diab Mononeuropathy
 ;;^UTILITY(U,$J,358.3,37388,1,4,0)
 ;;=4^E10.41
 ;;^UTILITY(U,$J,358.3,37388,2)
 ;;=^5002605
 ;;^UTILITY(U,$J,358.3,37389,0)
 ;;=E10.42^^146^1915^14
 ;;^UTILITY(U,$J,358.3,37389,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37389,1,3,0)
 ;;=3^DM Type 1 w/ Diab Polyneuropathy
 ;;^UTILITY(U,$J,358.3,37389,1,4,0)
 ;;=4^E10.42
 ;;^UTILITY(U,$J,358.3,37389,2)
 ;;=^5002606
 ;;^UTILITY(U,$J,358.3,37390,0)
 ;;=E10.43^^146^1915^6
 ;;^UTILITY(U,$J,358.3,37390,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37390,1,3,0)
 ;;=3^DM Type 1 w/ Diab Autonomic Polyneuropathy
 ;;^UTILITY(U,$J,358.3,37390,1,4,0)
 ;;=4^E10.43
 ;;^UTILITY(U,$J,358.3,37390,2)
 ;;=^5002607
 ;;^UTILITY(U,$J,358.3,37391,0)
 ;;=E10.44^^146^1915^4
 ;;^UTILITY(U,$J,358.3,37391,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37391,1,3,0)
 ;;=3^DM Type 1 w/ Diab Amyotrophy
 ;;^UTILITY(U,$J,358.3,37391,1,4,0)
 ;;=4^E10.44
 ;;^UTILITY(U,$J,358.3,37391,2)
 ;;=^5002608
 ;;^UTILITY(U,$J,358.3,37392,0)
 ;;=E10.49^^146^1915^9
 ;;^UTILITY(U,$J,358.3,37392,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37392,1,3,0)
 ;;=3^DM Type 1 w/ Diab Neurologic Compl NEC
 ;;^UTILITY(U,$J,358.3,37392,1,4,0)
 ;;=4^E10.49
 ;;^UTILITY(U,$J,358.3,37392,2)
 ;;=^5002609
 ;;^UTILITY(U,$J,358.3,37393,0)
 ;;=E11.621^^146^1915^32
 ;;^UTILITY(U,$J,358.3,37393,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,37393,1,3,0)
 ;;=3^DM Type 2 w/ Foot Ulcer
 ;;^UTILITY(U,$J,358.3,37393,1,4,0)
 ;;=4^E11.621
 ;;^UTILITY(U,$J,358.3,37393,2)
 ;;=^5002656
 ;;^UTILITY(U,$J,358.3,37394,0)
 ;;=M76.891^^146^1916^14
 ;;^UTILITY(U,$J,358.3,37394,1,0)
 ;;=^358.31IA^4^2