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