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

IBDEI1DB.m

Go to the documentation of this file.
  1. IBDEI1DB ; ; 01-FEB-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
  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,22128,1,3,0)
  1. ;;=3^Left Heart Failure
  1. ;;^UTILITY(U,$J,358.3,22128,1,4,0)
  1. ;;=4^I50.1
  1. ;;^UTILITY(U,$J,358.3,22128,2)
  1. ;;=^5007238
  1. ;;^UTILITY(U,$J,358.3,22129,0)
  1. ;;=I50.21^^73^952^1
  1. ;;^UTILITY(U,$J,358.3,22129,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22129,1,3,0)
  1. ;;=3^Acute Systolic Cong Heart Failure
  1. ;;^UTILITY(U,$J,358.3,22129,1,4,0)
  1. ;;=4^I50.21
  1. ;;^UTILITY(U,$J,358.3,22129,2)
  1. ;;=^5007240
  1. ;;^UTILITY(U,$J,358.3,22130,0)
  1. ;;=I50.22^^73^952^16
  1. ;;^UTILITY(U,$J,358.3,22130,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22130,1,3,0)
  1. ;;=3^Chronic Systolic CHF
  1. ;;^UTILITY(U,$J,358.3,22130,1,4,0)
  1. ;;=4^I50.22
  1. ;;^UTILITY(U,$J,358.3,22130,2)
  1. ;;=^5007241
  1. ;;^UTILITY(U,$J,358.3,22131,0)
  1. ;;=I48.20^^73^952^4
  1. ;;^UTILITY(U,$J,358.3,22131,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22131,1,3,0)
  1. ;;=3^Atrial Fibrillation,Chronic,Unspec
  1. ;;^UTILITY(U,$J,358.3,22131,1,4,0)
  1. ;;=4^I48.20
  1. ;;^UTILITY(U,$J,358.3,22131,2)
  1. ;;=^5158048
  1. ;;^UTILITY(U,$J,358.3,22132,0)
  1. ;;=I48.21^^73^952^8
  1. ;;^UTILITY(U,$J,358.3,22132,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22132,1,3,0)
  1. ;;=3^Atrial Fibrillation,Permanent
  1. ;;^UTILITY(U,$J,358.3,22132,1,4,0)
  1. ;;=4^I48.21
  1. ;;^UTILITY(U,$J,358.3,22132,2)
  1. ;;=^304710
  1. ;;^UTILITY(U,$J,358.3,22133,0)
  1. ;;=I48.11^^73^952^5
  1. ;;^UTILITY(U,$J,358.3,22133,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22133,1,3,0)
  1. ;;=3^Atrial Fibrillation,Longstanding Persistent
  1. ;;^UTILITY(U,$J,358.3,22133,1,4,0)
  1. ;;=4^I48.11
  1. ;;^UTILITY(U,$J,358.3,22133,2)
  1. ;;=^5158046
  1. ;;^UTILITY(U,$J,358.3,22134,0)
  1. ;;=I48.19^^73^952^6
  1. ;;^UTILITY(U,$J,358.3,22134,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22134,1,3,0)
  1. ;;=3^Atrial Fibrillation,Oth Persistent
  1. ;;^UTILITY(U,$J,358.3,22134,1,4,0)
  1. ;;=4^I48.19
  1. ;;^UTILITY(U,$J,358.3,22134,2)
  1. ;;=^5158047
  1. ;;^UTILITY(U,$J,358.3,22135,0)
  1. ;;=I50.32^^73^952^15
  1. ;;^UTILITY(U,$J,358.3,22135,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22135,1,3,0)
  1. ;;=3^Chronic Diastolic CHF
  1. ;;^UTILITY(U,$J,358.3,22135,1,4,0)
  1. ;;=4^I50.32
  1. ;;^UTILITY(U,$J,358.3,22135,2)
  1. ;;=^5007245
  1. ;;^UTILITY(U,$J,358.3,22136,0)
  1. ;;=I50.42^^73^952^17
  1. ;;^UTILITY(U,$J,358.3,22136,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22136,1,3,0)
  1. ;;=3^Chronic Systoloic & Diastolic CHF
  1. ;;^UTILITY(U,$J,358.3,22136,1,4,0)
  1. ;;=4^I50.42
  1. ;;^UTILITY(U,$J,358.3,22136,2)
  1. ;;=^5007249
  1. ;;^UTILITY(U,$J,358.3,22137,0)
  1. ;;=I25.118^^73^952^12
  1. ;;^UTILITY(U,$J,358.3,22137,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22137,1,3,0)
  1. ;;=3^CAD w/ Oth Angina (Includes Stable)
  1. ;;^UTILITY(U,$J,358.3,22137,1,4,0)
  1. ;;=4^I25.118
  1. ;;^UTILITY(U,$J,358.3,22137,2)
  1. ;;=^5007110
  1. ;;^UTILITY(U,$J,358.3,22138,0)
  1. ;;=V49.9XXA^^73^953^1
  1. ;;^UTILITY(U,$J,358.3,22138,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22138,1,3,0)
  1. ;;=3^Car Occupant Traffic Accident Injury,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,22138,1,4,0)
  1. ;;=4^V49.9XXA
  1. ;;^UTILITY(U,$J,358.3,22138,2)
  1. ;;=^5057368
  1. ;;^UTILITY(U,$J,358.3,22139,0)
  1. ;;=V59.9XXA^^73^953^7
  1. ;;^UTILITY(U,$J,358.3,22139,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22139,1,3,0)
  1. ;;=3^Truck/Van Occupant Traffic Accident Injury,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,22139,1,4,0)
  1. ;;=4^V59.9XXA
  1. ;;^UTILITY(U,$J,358.3,22139,2)
  1. ;;=^5057659
  1. ;;^UTILITY(U,$J,358.3,22140,0)
  1. ;;=V69.9XXA^^73^953^5
  1. ;;^UTILITY(U,$J,358.3,22140,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22140,1,3,0)
  1. ;;=3^Heavy Transport Vehicle Occupant Traffic Accident Injury,Init Encntr