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

IBDEI2KS.m

Go to the documentation of this file.
IBDEI2KS ; ; 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,41104,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,41104,1,3,0)
 ;;=3^Acquired Absence of Thumb,Right
 ;;^UTILITY(U,$J,358.3,41104,1,4,0)
 ;;=4^Z89.011
 ;;^UTILITY(U,$J,358.3,41104,2)
 ;;=^5063531
 ;;^UTILITY(U,$J,358.3,41105,0)
 ;;=Z89.421^^152^2022^26
 ;;^UTILITY(U,$J,358.3,41105,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,41105,1,3,0)
 ;;=3^Acquired Absence of Oth Toe(s),Right
 ;;^UTILITY(U,$J,358.3,41105,1,4,0)
 ;;=4^Z89.421
 ;;^UTILITY(U,$J,358.3,41105,2)
 ;;=^5063557
 ;;^UTILITY(U,$J,358.3,41106,0)
 ;;=Z89.221^^152^2022^39
 ;;^UTILITY(U,$J,358.3,41106,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,41106,1,3,0)
 ;;=3^Acquired Absence of Upper Limb Above Elbow,Right
 ;;^UTILITY(U,$J,358.3,41106,1,4,0)
 ;;=4^Z89.221
 ;;^UTILITY(U,$J,358.3,41106,2)
 ;;=^5063548
 ;;^UTILITY(U,$J,358.3,41107,0)
 ;;=Z89.211^^152^2022^41
 ;;^UTILITY(U,$J,358.3,41107,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,41107,1,3,0)
 ;;=3^Acquired Absence of Upper Limb Below Elbow,Right
 ;;^UTILITY(U,$J,358.3,41107,1,4,0)
 ;;=4^Z89.211
 ;;^UTILITY(U,$J,358.3,41107,2)
 ;;=^5063545
 ;;^UTILITY(U,$J,358.3,41108,0)
 ;;=Z89.121^^152^2022^44
 ;;^UTILITY(U,$J,358.3,41108,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,41108,1,3,0)
 ;;=3^Acquired Absence of Wrist,Right
 ;;^UTILITY(U,$J,358.3,41108,1,4,0)
 ;;=4^Z89.121
 ;;^UTILITY(U,$J,358.3,41108,2)
 ;;=^5063540
 ;;^UTILITY(U,$J,358.3,41109,0)
 ;;=Z90.81^^152^2022^34
 ;;^UTILITY(U,$J,358.3,41109,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,41109,1,3,0)
 ;;=3^Acquired Absence of Spleen
 ;;^UTILITY(U,$J,358.3,41109,1,4,0)
 ;;=4^Z90.81
 ;;^UTILITY(U,$J,358.3,41109,2)
 ;;=^5063597
 ;;^UTILITY(U,$J,358.3,41110,0)
 ;;=Z90.3^^152^2022^35
 ;;^UTILITY(U,$J,358.3,41110,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,41110,1,3,0)
 ;;=3^Acquired Absence of Stomach (part of)
 ;;^UTILITY(U,$J,358.3,41110,1,4,0)
 ;;=4^Z90.3
 ;;^UTILITY(U,$J,358.3,41110,2)
 ;;=^5063586
 ;;^UTILITY(U,$J,358.3,41111,0)
 ;;=Z91.5^^152^2023^1
 ;;^UTILITY(U,$J,358.3,41111,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,41111,1,3,0)
 ;;=3^Personal Hx of Suicide Attempt(s)
 ;;^UTILITY(U,$J,358.3,41111,1,4,0)
 ;;=4^Z91.5
 ;;^UTILITY(U,$J,358.3,41111,2)
 ;;=^5063624
 ;;^UTILITY(U,$J,358.3,41112,0)
 ;;=R45.851^^152^2023^2
 ;;^UTILITY(U,$J,358.3,41112,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,41112,1,3,0)
 ;;=3^Suicidal Ideations
 ;;^UTILITY(U,$J,358.3,41112,1,4,0)
 ;;=4^R45.851
 ;;^UTILITY(U,$J,358.3,41112,2)
 ;;=^5019474
 ;;^UTILITY(U,$J,358.3,41113,0)
 ;;=T14.91XA^^152^2023^3
 ;;^UTILITY(U,$J,358.3,41113,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,41113,1,3,0)
 ;;=3^Suicide Attempt,Initial Encntr
 ;;^UTILITY(U,$J,358.3,41113,1,4,0)
 ;;=4^T14.91XA
 ;;^UTILITY(U,$J,358.3,41113,2)
 ;;=^5151779
 ;;^UTILITY(U,$J,358.3,41114,0)
 ;;=T14.91XD^^152^2023^4
 ;;^UTILITY(U,$J,358.3,41114,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,41114,1,3,0)
 ;;=3^Suicide Attempt,Subsequent Encntr
 ;;^UTILITY(U,$J,358.3,41114,1,4,0)
 ;;=4^T14.91XD
 ;;^UTILITY(U,$J,358.3,41114,2)
 ;;=^5151780
 ;;^UTILITY(U,$J,358.3,41115,0)
 ;;=T14.91XS^^152^2023^5
 ;;^UTILITY(U,$J,358.3,41115,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,41115,1,3,0)
 ;;=3^Suicide Attempt,Sequela
 ;;^UTILITY(U,$J,358.3,41115,1,4,0)
 ;;=4^T14.91XS
 ;;^UTILITY(U,$J,358.3,41115,2)
 ;;=^5151781
 ;;^UTILITY(U,$J,358.3,41116,0)
 ;;=N17.0^^152^2024^3
 ;;^UTILITY(U,$J,358.3,41116,1,0)
 ;;=^358.31IA^4^2