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

IBDEI2PN.m

Go to the documentation of this file.
  1. IBDEI2PN ; ; 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,43212,0)
  1. ;;=I50.1^^158^2098^16
  1. ;;^UTILITY(U,$J,358.3,43212,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,43212,1,3,0)
  1. ;;=3^Left Heart Failure
  1. ;;^UTILITY(U,$J,358.3,43212,1,4,0)
  1. ;;=4^I50.1
  1. ;;^UTILITY(U,$J,358.3,43212,2)
  1. ;;=^5007238
  1. ;;^UTILITY(U,$J,358.3,43213,0)
  1. ;;=I50.21^^158^2098^1
  1. ;;^UTILITY(U,$J,358.3,43213,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,43213,1,3,0)
  1. ;;=3^Acute Systolic Cong Heart Failure
  1. ;;^UTILITY(U,$J,358.3,43213,1,4,0)
  1. ;;=4^I50.21
  1. ;;^UTILITY(U,$J,358.3,43213,2)
  1. ;;=^5007240
  1. ;;^UTILITY(U,$J,358.3,43214,0)
  1. ;;=I50.22^^158^2098^14
  1. ;;^UTILITY(U,$J,358.3,43214,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,43214,1,3,0)
  1. ;;=3^Chronic Systolic Cong Heart Failure
  1. ;;^UTILITY(U,$J,358.3,43214,1,4,0)
  1. ;;=4^I50.22
  1. ;;^UTILITY(U,$J,358.3,43214,2)
  1. ;;=^5007241
  1. ;;^UTILITY(U,$J,358.3,43215,0)
  1. ;;=I48.20^^158^2098^6
  1. ;;^UTILITY(U,$J,358.3,43215,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,43215,1,3,0)
  1. ;;=3^Atrial Fibrillation,Chronic,Unspec
  1. ;;^UTILITY(U,$J,358.3,43215,1,4,0)
  1. ;;=4^I48.20
  1. ;;^UTILITY(U,$J,358.3,43215,2)
  1. ;;=^5158048
  1. ;;^UTILITY(U,$J,358.3,43216,0)
  1. ;;=I48.21^^158^2098^10
  1. ;;^UTILITY(U,$J,358.3,43216,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,43216,1,3,0)
  1. ;;=3^Atrial Fibrillation,Permanent
  1. ;;^UTILITY(U,$J,358.3,43216,1,4,0)
  1. ;;=4^I48.21
  1. ;;^UTILITY(U,$J,358.3,43216,2)
  1. ;;=^304710
  1. ;;^UTILITY(U,$J,358.3,43217,0)
  1. ;;=I48.11^^158^2098^7
  1. ;;^UTILITY(U,$J,358.3,43217,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,43217,1,3,0)
  1. ;;=3^Atrial Fibrillation,Longstanding Persistent
  1. ;;^UTILITY(U,$J,358.3,43217,1,4,0)
  1. ;;=4^I48.11
  1. ;;^UTILITY(U,$J,358.3,43217,2)
  1. ;;=^5158046
  1. ;;^UTILITY(U,$J,358.3,43218,0)
  1. ;;=I48.19^^158^2098^8
  1. ;;^UTILITY(U,$J,358.3,43218,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,43218,1,3,0)
  1. ;;=3^Atrial Fibrillation,Oth Persistent
  1. ;;^UTILITY(U,$J,358.3,43218,1,4,0)
  1. ;;=4^I48.19
  1. ;;^UTILITY(U,$J,358.3,43218,2)
  1. ;;=^5158047
  1. ;;^UTILITY(U,$J,358.3,43219,0)
  1. ;;=V49.9XXA^^158^2099^1
  1. ;;^UTILITY(U,$J,358.3,43219,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,43219,1,3,0)
  1. ;;=3^Car Occupant Traffic Accident Injury,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,43219,1,4,0)
  1. ;;=4^V49.9XXA
  1. ;;^UTILITY(U,$J,358.3,43219,2)
  1. ;;=^5057368
  1. ;;^UTILITY(U,$J,358.3,43220,0)
  1. ;;=V59.9XXA^^158^2099^7
  1. ;;^UTILITY(U,$J,358.3,43220,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,43220,1,3,0)
  1. ;;=3^Truck/Van Occupant Traffic Accident Injury,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,43220,1,4,0)
  1. ;;=4^V59.9XXA
  1. ;;^UTILITY(U,$J,358.3,43220,2)
  1. ;;=^5057659
  1. ;;^UTILITY(U,$J,358.3,43221,0)
  1. ;;=V69.9XXA^^158^2099^5
  1. ;;^UTILITY(U,$J,358.3,43221,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,43221,1,3,0)
  1. ;;=3^Heavy Transport Vehicle Occupant Traffic Accident Injury,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,43221,1,4,0)
  1. ;;=4^V69.9XXA
  1. ;;^UTILITY(U,$J,358.3,43221,2)
  1. ;;=^5057950
  1. ;;^UTILITY(U,$J,358.3,43222,0)
  1. ;;=V89.2XXA^^158^2099^6
  1. ;;^UTILITY(U,$J,358.3,43222,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,43222,1,3,0)
  1. ;;=3^Person injured in Motor-Vehicle Traffic Accident,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,43222,1,4,0)
  1. ;;=4^V89.2XXA
  1. ;;^UTILITY(U,$J,358.3,43222,2)
  1. ;;=^5058688
  1. ;;^UTILITY(U,$J,358.3,43223,0)
  1. ;;=W07.XXXA^^158^2099^3
  1. ;;^UTILITY(U,$J,358.3,43223,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,43223,1,3,0)
  1. ;;=3^Fall from Chair,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,43223,1,4,0)
  1. ;;=4^W07.XXXA