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

IBDEI0WG.m

Go to the documentation of this file.
IBDEI0WG ; ; 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,14631,0)
 ;;=I69.913^^58^703^27
 ;;^UTILITY(U,$J,358.3,14631,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14631,1,3,0)
 ;;=3^Psychomotor Deficit
 ;;^UTILITY(U,$J,358.3,14631,1,4,0)
 ;;=4^I69.913
 ;;^UTILITY(U,$J,358.3,14631,2)
 ;;=^5138663
 ;;^UTILITY(U,$J,358.3,14632,0)
 ;;=I69.914^^58^703^11
 ;;^UTILITY(U,$J,358.3,14632,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14632,1,3,0)
 ;;=3^Frontal Lobe & Executive Function Deficit
 ;;^UTILITY(U,$J,358.3,14632,1,4,0)
 ;;=4^I69.914
 ;;^UTILITY(U,$J,358.3,14632,2)
 ;;=^5138664
 ;;^UTILITY(U,$J,358.3,14633,0)
 ;;=I69.915^^58^703^5
 ;;^UTILITY(U,$J,358.3,14633,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14633,1,3,0)
 ;;=3^Cognitive Social/Emotional Deficit
 ;;^UTILITY(U,$J,358.3,14633,1,4,0)
 ;;=4^I69.915
 ;;^UTILITY(U,$J,358.3,14633,2)
 ;;=^5138665
 ;;^UTILITY(U,$J,358.3,14634,0)
 ;;=I69.918^^58^703^29
 ;;^UTILITY(U,$J,358.3,14634,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14634,1,3,0)
 ;;=3^Symptoms/Signs Involving Cognitive Functions,Other
 ;;^UTILITY(U,$J,358.3,14634,1,4,0)
 ;;=4^I69.918
 ;;^UTILITY(U,$J,358.3,14634,2)
 ;;=^5138666
 ;;^UTILITY(U,$J,358.3,14635,0)
 ;;=I69.921^^58^703^8
 ;;^UTILITY(U,$J,358.3,14635,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14635,1,3,0)
 ;;=3^Dysphasia
 ;;^UTILITY(U,$J,358.3,14635,1,4,0)
 ;;=4^I69.921
 ;;^UTILITY(U,$J,358.3,14635,2)
 ;;=^5007554
 ;;^UTILITY(U,$J,358.3,14636,0)
 ;;=I69.922^^58^703^6
 ;;^UTILITY(U,$J,358.3,14636,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14636,1,3,0)
 ;;=3^Dysarthria
 ;;^UTILITY(U,$J,358.3,14636,1,4,0)
 ;;=4^I69.922
 ;;^UTILITY(U,$J,358.3,14636,2)
 ;;=^5007555
 ;;^UTILITY(U,$J,358.3,14637,0)
 ;;=I69.923^^58^703^10
 ;;^UTILITY(U,$J,358.3,14637,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14637,1,3,0)
 ;;=3^Fluency Disorder
 ;;^UTILITY(U,$J,358.3,14637,1,4,0)
 ;;=4^I69.923
 ;;^UTILITY(U,$J,358.3,14637,2)
 ;;=^5007556
 ;;^UTILITY(U,$J,358.3,14638,0)
 ;;=I69.928^^58^703^28
 ;;^UTILITY(U,$J,358.3,14638,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14638,1,3,0)
 ;;=3^Speech/Language Deficits,Other
 ;;^UTILITY(U,$J,358.3,14638,1,4,0)
 ;;=4^I69.928
 ;;^UTILITY(U,$J,358.3,14638,2)
 ;;=^5007557
 ;;^UTILITY(U,$J,358.3,14639,0)
 ;;=I69.961^^58^703^25
 ;;^UTILITY(U,$J,358.3,14639,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14639,1,3,0)
 ;;=3^Paralytic Syndrome,Right Dominant Side
 ;;^UTILITY(U,$J,358.3,14639,1,4,0)
 ;;=4^I69.961
 ;;^UTILITY(U,$J,358.3,14639,2)
 ;;=^5007564
 ;;^UTILITY(U,$J,358.3,14640,0)
 ;;=I69.962^^58^703^23
 ;;^UTILITY(U,$J,358.3,14640,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14640,1,3,0)
 ;;=3^Paralytic Syndrome,Left Dominant Side
 ;;^UTILITY(U,$J,358.3,14640,1,4,0)
 ;;=4^I69.962
 ;;^UTILITY(U,$J,358.3,14640,2)
 ;;=^5133588
 ;;^UTILITY(U,$J,358.3,14641,0)
 ;;=I69.963^^58^703^26
 ;;^UTILITY(U,$J,358.3,14641,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14641,1,3,0)
 ;;=3^Paralytic Syndrome,Right Non-Dominant Side
 ;;^UTILITY(U,$J,358.3,14641,1,4,0)
 ;;=4^I69.963
 ;;^UTILITY(U,$J,358.3,14641,2)
 ;;=^5007565
 ;;^UTILITY(U,$J,358.3,14642,0)
 ;;=I69.964^^58^703^24
 ;;^UTILITY(U,$J,358.3,14642,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14642,1,3,0)
 ;;=3^Paralytic Syndrome,Left Non-Dominant Side
 ;;^UTILITY(U,$J,358.3,14642,1,4,0)
 ;;=4^I69.964
 ;;^UTILITY(U,$J,358.3,14642,2)
 ;;=^5133589
 ;;^UTILITY(U,$J,358.3,14643,0)
 ;;=I69.965^^58^703^22
 ;;^UTILITY(U,$J,358.3,14643,1,0)
 ;;=^358.31IA^4^2