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

IBDEI1X3.m

Go to the documentation of this file.
IBDEI1X3 ; ; 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,30624,2)
 ;;=^303986
 ;;^UTILITY(U,$J,358.3,30625,0)
 ;;=I25.10^^123^1579^3
 ;;^UTILITY(U,$J,358.3,30625,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30625,1,3,0)
 ;;=3^Athscl Hrt Disease,Native Coronary Artery w/o Angina Pectoris
 ;;^UTILITY(U,$J,358.3,30625,1,4,0)
 ;;=4^I25.10
 ;;^UTILITY(U,$J,358.3,30625,2)
 ;;=^5007107
 ;;^UTILITY(U,$J,358.3,30626,0)
 ;;=I42.8^^123^1579^7
 ;;^UTILITY(U,$J,358.3,30626,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30626,1,3,0)
 ;;=3^Cardiomyopathy,Other
 ;;^UTILITY(U,$J,358.3,30626,1,4,0)
 ;;=4^I42.8
 ;;^UTILITY(U,$J,358.3,30626,2)
 ;;=^5007199
 ;;^UTILITY(U,$J,358.3,30627,0)
 ;;=I48.91^^123^1579^4
 ;;^UTILITY(U,$J,358.3,30627,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30627,1,3,0)
 ;;=3^Atrial Fibrillation,Unspec
 ;;^UTILITY(U,$J,358.3,30627,1,4,0)
 ;;=4^I48.91
 ;;^UTILITY(U,$J,358.3,30627,2)
 ;;=^5007229
 ;;^UTILITY(U,$J,358.3,30628,0)
 ;;=I49.8^^123^1579^6
 ;;^UTILITY(U,$J,358.3,30628,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30628,1,3,0)
 ;;=3^Cardiac Arrhythmias,Other Spec
 ;;^UTILITY(U,$J,358.3,30628,1,4,0)
 ;;=4^I49.8
 ;;^UTILITY(U,$J,358.3,30628,2)
 ;;=^5007236
 ;;^UTILITY(U,$J,358.3,30629,0)
 ;;=R00.1^^123^1579^5
 ;;^UTILITY(U,$J,358.3,30629,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30629,1,3,0)
 ;;=3^Bradycardia,Unspec
 ;;^UTILITY(U,$J,358.3,30629,1,4,0)
 ;;=4^R00.1
 ;;^UTILITY(U,$J,358.3,30629,2)
 ;;=^5019164
 ;;^UTILITY(U,$J,358.3,30630,0)
 ;;=I50.9^^123^1579^13
 ;;^UTILITY(U,$J,358.3,30630,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30630,1,3,0)
 ;;=3^Heart Failure,Unspec
 ;;^UTILITY(U,$J,358.3,30630,1,4,0)
 ;;=4^I50.9
 ;;^UTILITY(U,$J,358.3,30630,2)
 ;;=^5007251
 ;;^UTILITY(U,$J,358.3,30631,0)
 ;;=I95.1^^123^1579^14
 ;;^UTILITY(U,$J,358.3,30631,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30631,1,3,0)
 ;;=3^Hypotension,Orthostatic
 ;;^UTILITY(U,$J,358.3,30631,1,4,0)
 ;;=4^I95.1
 ;;^UTILITY(U,$J,358.3,30631,2)
 ;;=^60741
 ;;^UTILITY(U,$J,358.3,30632,0)
 ;;=R55.^^123^1579^17
 ;;^UTILITY(U,$J,358.3,30632,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30632,1,3,0)
 ;;=3^Syncope and Collapse
 ;;^UTILITY(U,$J,358.3,30632,1,4,0)
 ;;=4^R55.
 ;;^UTILITY(U,$J,358.3,30632,2)
 ;;=^116707
 ;;^UTILITY(U,$J,358.3,30633,0)
 ;;=R00.0^^123^1579^18
 ;;^UTILITY(U,$J,358.3,30633,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30633,1,3,0)
 ;;=3^Tachycardia,Unspec
 ;;^UTILITY(U,$J,358.3,30633,1,4,0)
 ;;=4^R00.0
 ;;^UTILITY(U,$J,358.3,30633,2)
 ;;=^5019163
 ;;^UTILITY(U,$J,358.3,30634,0)
 ;;=R07.9^^123^1579^8
 ;;^UTILITY(U,$J,358.3,30634,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30634,1,3,0)
 ;;=3^Chest Pain,Unspec
 ;;^UTILITY(U,$J,358.3,30634,1,4,0)
 ;;=4^R07.9
 ;;^UTILITY(U,$J,358.3,30634,2)
 ;;=^5019201
 ;;^UTILITY(U,$J,358.3,30635,0)
 ;;=I20.0^^123^1579^19
 ;;^UTILITY(U,$J,358.3,30635,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30635,1,3,0)
 ;;=3^Unstable Angina
 ;;^UTILITY(U,$J,358.3,30635,1,4,0)
 ;;=4^I20.0
 ;;^UTILITY(U,$J,358.3,30635,2)
 ;;=^5007076
 ;;^UTILITY(U,$J,358.3,30636,0)
 ;;=I20.9^^123^1579^1
 ;;^UTILITY(U,$J,358.3,30636,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30636,1,3,0)
 ;;=3^Angina Pectoris,Unspec
 ;;^UTILITY(U,$J,358.3,30636,1,4,0)
 ;;=4^I20.9
 ;;^UTILITY(U,$J,358.3,30636,2)
 ;;=^5007079
 ;;^UTILITY(U,$J,358.3,30637,0)
 ;;=I31.9^^123^1579^16
 ;;^UTILITY(U,$J,358.3,30637,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,30637,1,3,0)
 ;;=3^Pericardium Disease,Unspec