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

IBDEI31Z.m

Go to the documentation of this file.
IBDEI31Z ; ; 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,48748,1,3,0)
 ;;=3^Attn & Concentration Deficit After Cerebral Infrc
 ;;^UTILITY(U,$J,358.3,48748,1,4,0)
 ;;=4^I69.310
 ;;^UTILITY(U,$J,358.3,48748,2)
 ;;=^5138644
 ;;^UTILITY(U,$J,358.3,48749,0)
 ;;=I69.311^^185^2424^86
 ;;^UTILITY(U,$J,358.3,48749,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48749,1,3,0)
 ;;=3^Memory Deficit After Cerebral Infrc
 ;;^UTILITY(U,$J,358.3,48749,1,4,0)
 ;;=4^I69.311
 ;;^UTILITY(U,$J,358.3,48749,2)
 ;;=^5138645
 ;;^UTILITY(U,$J,358.3,48750,0)
 ;;=I69.312^^185^2424^144
 ;;^UTILITY(U,$J,358.3,48750,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48750,1,3,0)
 ;;=3^Vis Def/Sptl Nglct After Cerebral Infrc
 ;;^UTILITY(U,$J,358.3,48750,1,4,0)
 ;;=4^I69.312
 ;;^UTILITY(U,$J,358.3,48750,2)
 ;;=^5138646
 ;;^UTILITY(U,$J,358.3,48751,0)
 ;;=I69.313^^185^2424^131
 ;;^UTILITY(U,$J,358.3,48751,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48751,1,3,0)
 ;;=3^Psychomotor Deficit After Cerebral Infrc
 ;;^UTILITY(U,$J,358.3,48751,1,4,0)
 ;;=4^I69.313
 ;;^UTILITY(U,$J,358.3,48751,2)
 ;;=^5138647
 ;;^UTILITY(U,$J,358.3,48752,0)
 ;;=I69.314^^185^2424^73
 ;;^UTILITY(U,$J,358.3,48752,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48752,1,3,0)
 ;;=3^Fntl Lobe & Exec Fcn Deficit After Cerebral Infc
 ;;^UTILITY(U,$J,358.3,48752,1,4,0)
 ;;=4^I69.314
 ;;^UTILITY(U,$J,358.3,48752,2)
 ;;=^5138648
 ;;^UTILITY(U,$J,358.3,48753,0)
 ;;=I69.315^^185^2424^51
 ;;^UTILITY(U,$J,358.3,48753,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48753,1,3,0)
 ;;=3^Cognitive Social/Emotional Deficit After Cerebral Infc
 ;;^UTILITY(U,$J,358.3,48753,1,4,0)
 ;;=4^I69.315
 ;;^UTILITY(U,$J,358.3,48753,2)
 ;;=^5138649
 ;;^UTILITY(U,$J,358.3,48754,0)
 ;;=I69.318^^185^2424^46
 ;;^UTILITY(U,$J,358.3,48754,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48754,1,3,0)
 ;;=3^Cognitive Fnctn Symptoms/Signs After Cerebral Infrc
 ;;^UTILITY(U,$J,358.3,48754,1,4,0)
 ;;=4^I69.318
 ;;^UTILITY(U,$J,358.3,48754,2)
 ;;=^5138650
 ;;^UTILITY(U,$J,358.3,48755,0)
 ;;=R10.817^^185^2425^1
 ;;^UTILITY(U,$J,358.3,48755,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48755,1,3,0)
 ;;=3^Abdominal Tenderness,Generalized
 ;;^UTILITY(U,$J,358.3,48755,1,4,0)
 ;;=4^R10.817
 ;;^UTILITY(U,$J,358.3,48755,2)
 ;;=^5019219
 ;;^UTILITY(U,$J,358.3,48756,0)
 ;;=R10.827^^185^2425^2
 ;;^UTILITY(U,$J,358.3,48756,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48756,1,3,0)
 ;;=3^Abdominal Tenderness,Rebound,Generalized
 ;;^UTILITY(U,$J,358.3,48756,1,4,0)
 ;;=4^R10.827
 ;;^UTILITY(U,$J,358.3,48756,2)
 ;;=^5019226
 ;;^UTILITY(U,$J,358.3,48757,0)
 ;;=R10.829^^185^2425^3
 ;;^UTILITY(U,$J,358.3,48757,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48757,1,3,0)
 ;;=3^Abdominal Tenderness,Rebound,Unspec Site
 ;;^UTILITY(U,$J,358.3,48757,1,4,0)
 ;;=4^R10.829
 ;;^UTILITY(U,$J,358.3,48757,2)
 ;;=^5019227
 ;;^UTILITY(U,$J,358.3,48758,0)
 ;;=R10.819^^185^2425^4
 ;;^UTILITY(U,$J,358.3,48758,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48758,1,3,0)
 ;;=3^Abdominal Tenderness,Unspec Site
 ;;^UTILITY(U,$J,358.3,48758,1,4,0)
 ;;=4^R10.819
 ;;^UTILITY(U,$J,358.3,48758,2)
 ;;=^5019220
 ;;^UTILITY(U,$J,358.3,48759,0)
 ;;=G89.0^^185^2425^6
 ;;^UTILITY(U,$J,358.3,48759,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,48759,1,3,0)
 ;;=3^Pain Syndrome,Central
 ;;^UTILITY(U,$J,358.3,48759,1,4,0)
 ;;=4^G89.0
 ;;^UTILITY(U,$J,358.3,48759,2)
 ;;=^334189
 ;;^UTILITY(U,$J,358.3,48760,0)
 ;;=G89.4^^185^2425^7