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

IBDEI17C.m

Go to the documentation of this file.
IBDEI17C ; ; 01-FEB-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
 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,19530,1,3,0)
 ;;=3^Ataxia following nontraumatic intracerebral hemorrhage
 ;;^UTILITY(U,$J,358.3,19530,1,4,0)
 ;;=4^I69.193
 ;;^UTILITY(U,$J,358.3,19530,2)
 ;;=^5007455
 ;;^UTILITY(U,$J,358.3,19531,0)
 ;;=I69.293^^67^877^16
 ;;^UTILITY(U,$J,358.3,19531,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19531,1,3,0)
 ;;=3^Ataxia following other nontraumatic intracranial hemorrhage
 ;;^UTILITY(U,$J,358.3,19531,1,4,0)
 ;;=4^I69.293
 ;;^UTILITY(U,$J,358.3,19531,2)
 ;;=^5007487
 ;;^UTILITY(U,$J,358.3,19532,0)
 ;;=I69.093^^67^877^14
 ;;^UTILITY(U,$J,358.3,19532,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19532,1,3,0)
 ;;=3^Ataxia following nontraumatic subarachnoid hemorrhage
 ;;^UTILITY(U,$J,358.3,19532,1,4,0)
 ;;=4^I69.093
 ;;^UTILITY(U,$J,358.3,19532,2)
 ;;=^5007423
 ;;^UTILITY(U,$J,358.3,19533,0)
 ;;=I69.893^^67^877^15
 ;;^UTILITY(U,$J,358.3,19533,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19533,1,3,0)
 ;;=3^Ataxia following other cerebrovascular disease
 ;;^UTILITY(U,$J,358.3,19533,1,4,0)
 ;;=4^I69.893
 ;;^UTILITY(U,$J,358.3,19533,2)
 ;;=^5007549
 ;;^UTILITY(U,$J,358.3,19534,0)
 ;;=I69.391^^67^877^17
 ;;^UTILITY(U,$J,358.3,19534,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19534,1,3,0)
 ;;=3^Dysphagia following cerebral infarction
 ;;^UTILITY(U,$J,358.3,19534,1,4,0)
 ;;=4^I69.391
 ;;^UTILITY(U,$J,358.3,19534,2)
 ;;=^5007516
 ;;^UTILITY(U,$J,358.3,19535,0)
 ;;=I69.191^^67^877^18
 ;;^UTILITY(U,$J,358.3,19535,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19535,1,3,0)
 ;;=3^Dysphagia following nontraumatic intracerebral hemorrhage
 ;;^UTILITY(U,$J,358.3,19535,1,4,0)
 ;;=4^I69.191
 ;;^UTILITY(U,$J,358.3,19535,2)
 ;;=^5007453
 ;;^UTILITY(U,$J,358.3,19536,0)
 ;;=I69.291^^67^877^20
 ;;^UTILITY(U,$J,358.3,19536,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19536,1,3,0)
 ;;=3^Dysphagia following oth nontraumatic intracranial hemorrhage
 ;;^UTILITY(U,$J,358.3,19536,1,4,0)
 ;;=4^I69.291
 ;;^UTILITY(U,$J,358.3,19536,2)
 ;;=^5007485
 ;;^UTILITY(U,$J,358.3,19537,0)
 ;;=I69.091^^67^877^19
 ;;^UTILITY(U,$J,358.3,19537,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19537,1,3,0)
 ;;=3^Dysphagia following nontraumatic subarachnoid hemorrhage
 ;;^UTILITY(U,$J,358.3,19537,1,4,0)
 ;;=4^I69.091
 ;;^UTILITY(U,$J,358.3,19537,2)
 ;;=^5007421
 ;;^UTILITY(U,$J,358.3,19538,0)
 ;;=I69.891^^67^877^21
 ;;^UTILITY(U,$J,358.3,19538,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19538,1,3,0)
 ;;=3^Dysphagia following other cerebrovascular disease
 ;;^UTILITY(U,$J,358.3,19538,1,4,0)
 ;;=4^I69.891
 ;;^UTILITY(U,$J,358.3,19538,2)
 ;;=^5007547
 ;;^UTILITY(U,$J,358.3,19539,0)
 ;;=I69.321^^67^877^22
 ;;^UTILITY(U,$J,358.3,19539,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19539,1,3,0)
 ;;=3^Dysphasia following cerebral infarction
 ;;^UTILITY(U,$J,358.3,19539,1,4,0)
 ;;=4^I69.321
 ;;^UTILITY(U,$J,358.3,19539,2)
 ;;=^5007492
 ;;^UTILITY(U,$J,358.3,19540,0)
 ;;=I69.121^^67^877^23
 ;;^UTILITY(U,$J,358.3,19540,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19540,1,3,0)
 ;;=3^Dysphasia following nontraumatic intracerebral hemorrhage
 ;;^UTILITY(U,$J,358.3,19540,1,4,0)
 ;;=4^I69.121
 ;;^UTILITY(U,$J,358.3,19540,2)
 ;;=^5007428
 ;;^UTILITY(U,$J,358.3,19541,0)
 ;;=I69.021^^67^877^24
 ;;^UTILITY(U,$J,358.3,19541,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19541,1,3,0)
 ;;=3^Dysphasia following nontraumatic subarachnoid hemorrhage
 ;;^UTILITY(U,$J,358.3,19541,1,4,0)
 ;;=4^I69.021