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

IBDEI3E7.m

Go to the documentation of this file.
  1. IBDEI3E7 ; ; 19-NOV-2015
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
  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,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
  1. Q Q
  1. ;;^UTILITY(U,$J,358.3,57047,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57047,1,3,0)
  1. ;;=3^DM Type 2 w/ DM Dermatitis
  1. ;;^UTILITY(U,$J,358.3,57047,1,4,0)
  1. ;;=4^E11.620
  1. ;;^UTILITY(U,$J,358.3,57047,2)
  1. ;;=^5002655
  1. ;;^UTILITY(U,$J,358.3,57048,0)
  1. ;;=E11.621^^264^2849^94
  1. ;;^UTILITY(U,$J,358.3,57048,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57048,1,3,0)
  1. ;;=3^DM Type 2 w/ Foot Ulcer
  1. ;;^UTILITY(U,$J,358.3,57048,1,4,0)
  1. ;;=4^E11.621
  1. ;;^UTILITY(U,$J,358.3,57048,2)
  1. ;;=^5002656
  1. ;;^UTILITY(U,$J,358.3,57049,0)
  1. ;;=E11.622^^264^2849^99
  1. ;;^UTILITY(U,$J,358.3,57049,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57049,1,3,0)
  1. ;;=3^DM Type 2 w/ Skin Ulcer
  1. ;;^UTILITY(U,$J,358.3,57049,1,4,0)
  1. ;;=4^E11.622
  1. ;;^UTILITY(U,$J,358.3,57049,2)
  1. ;;=^5002657
  1. ;;^UTILITY(U,$J,358.3,57050,0)
  1. ;;=E11.630^^264^2849^98
  1. ;;^UTILITY(U,$J,358.3,57050,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57050,1,3,0)
  1. ;;=3^DM Type 2 w/ Periodontal Disease
  1. ;;^UTILITY(U,$J,358.3,57050,1,4,0)
  1. ;;=4^E11.630
  1. ;;^UTILITY(U,$J,358.3,57050,2)
  1. ;;=^5002659
  1. ;;^UTILITY(U,$J,358.3,57051,0)
  1. ;;=E11.641^^264^2849^96
  1. ;;^UTILITY(U,$J,358.3,57051,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57051,1,3,0)
  1. ;;=3^DM Type 2 w/ Hypoglycemia w/ Coma
  1. ;;^UTILITY(U,$J,358.3,57051,1,4,0)
  1. ;;=4^E11.641
  1. ;;^UTILITY(U,$J,358.3,57051,2)
  1. ;;=^5002661
  1. ;;^UTILITY(U,$J,358.3,57052,0)
  1. ;;=E11.649^^264^2849^97
  1. ;;^UTILITY(U,$J,358.3,57052,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57052,1,3,0)
  1. ;;=3^DM Type 2 w/ Hypoglycemia w/o Coma
  1. ;;^UTILITY(U,$J,358.3,57052,1,4,0)
  1. ;;=4^E11.649
  1. ;;^UTILITY(U,$J,358.3,57052,2)
  1. ;;=^5002662
  1. ;;^UTILITY(U,$J,358.3,57053,0)
  1. ;;=E11.65^^264^2849^95
  1. ;;^UTILITY(U,$J,358.3,57053,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57053,1,3,0)
  1. ;;=3^DM Type 2 w/ Hyperglycemia
  1. ;;^UTILITY(U,$J,358.3,57053,1,4,0)
  1. ;;=4^E11.65
  1. ;;^UTILITY(U,$J,358.3,57053,2)
  1. ;;=^5002663
  1. ;;^UTILITY(U,$J,358.3,57054,0)
  1. ;;=G56.41^^264^2849^59
  1. ;;^UTILITY(U,$J,358.3,57054,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57054,1,3,0)
  1. ;;=3^Causalgia Rt Upper Limb
  1. ;;^UTILITY(U,$J,358.3,57054,1,4,0)
  1. ;;=4^G56.41
  1. ;;^UTILITY(U,$J,358.3,57054,2)
  1. ;;=^5004030
  1. ;;^UTILITY(U,$J,358.3,57055,0)
  1. ;;=G56.42^^264^2849^58
  1. ;;^UTILITY(U,$J,358.3,57055,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57055,1,3,0)
  1. ;;=3^Causalgia Lt Upper Limb
  1. ;;^UTILITY(U,$J,358.3,57055,1,4,0)
  1. ;;=4^G56.42
  1. ;;^UTILITY(U,$J,358.3,57055,2)
  1. ;;=^5004031
  1. ;;^UTILITY(U,$J,358.3,57056,0)
  1. ;;=I65.21^^264^2849^124
  1. ;;^UTILITY(U,$J,358.3,57056,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57056,1,3,0)
  1. ;;=3^Occlusion & Stenosis Rt Carotid Artery
  1. ;;^UTILITY(U,$J,358.3,57056,1,4,0)
  1. ;;=4^I65.21
  1. ;;^UTILITY(U,$J,358.3,57056,2)
  1. ;;=^5007360
  1. ;;^UTILITY(U,$J,358.3,57057,0)
  1. ;;=I65.22^^264^2849^123
  1. ;;^UTILITY(U,$J,358.3,57057,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57057,1,3,0)
  1. ;;=3^Occlusion & Stenosis Lt Carotid Artery
  1. ;;^UTILITY(U,$J,358.3,57057,1,4,0)
  1. ;;=4^I65.22
  1. ;;^UTILITY(U,$J,358.3,57057,2)
  1. ;;=^5007361
  1. ;;^UTILITY(U,$J,358.3,57058,0)
  1. ;;=I65.23^^264^2849^122
  1. ;;^UTILITY(U,$J,358.3,57058,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57058,1,3,0)
  1. ;;=3^Occlusion & Stenosis Bil Carotid Arteries
  1. ;;^UTILITY(U,$J,358.3,57058,1,4,0)
  1. ;;=4^I65.23
  1. ;;^UTILITY(U,$J,358.3,57058,2)
  1. ;;=^5007362
  1. ;;^UTILITY(U,$J,358.3,57059,0)
  1. ;;=I63.131^^264^2849^66
  1. ;;^UTILITY(U,$J,358.3,57059,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57059,1,3,0)
  1. ;;=3^Cereb Infarc d/t Rt Carotid Artery Embolism
  1. ;;^UTILITY(U,$J,358.3,57059,1,4,0)
  1. ;;=4^I63.131
  1. ;;^UTILITY(U,$J,358.3,57059,2)
  1. ;;=^5007308
  1. ;;^UTILITY(U,$J,358.3,57060,0)
  1. ;;=I63.132^^264^2849^64