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