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

IBDEI26S.m

Go to the documentation of this file.
IBDEI26S ; ; 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,34922,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34922,1,3,0)
 ;;=3^Acquired Absence,Lt Hip Joint
 ;;^UTILITY(U,$J,358.3,34922,1,4,0)
 ;;=4^Z89.622
 ;;^UTILITY(U,$J,358.3,34922,2)
 ;;=^5063576
 ;;^UTILITY(U,$J,358.3,34923,0)
 ;;=Z89.612^^137^1789^9
 ;;^UTILITY(U,$J,358.3,34923,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34923,1,3,0)
 ;;=3^Acquired Absence,Lt Leg Above Knee
 ;;^UTILITY(U,$J,358.3,34923,1,4,0)
 ;;=4^Z89.612
 ;;^UTILITY(U,$J,358.3,34923,2)
 ;;=^5063573
 ;;^UTILITY(U,$J,358.3,34924,0)
 ;;=Z89.512^^137^1789^10
 ;;^UTILITY(U,$J,358.3,34924,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34924,1,3,0)
 ;;=3^Acquired Absence,Lt Leg Below Knee
 ;;^UTILITY(U,$J,358.3,34924,1,4,0)
 ;;=4^Z89.512
 ;;^UTILITY(U,$J,358.3,34924,2)
 ;;=^5063567
 ;;^UTILITY(U,$J,358.3,34925,0)
 ;;=Z89.232^^137^1789^11
 ;;^UTILITY(U,$J,358.3,34925,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34925,1,3,0)
 ;;=3^Acquired Absence,Lt Shoulder
 ;;^UTILITY(U,$J,358.3,34925,1,4,0)
 ;;=4^Z89.232
 ;;^UTILITY(U,$J,358.3,34925,2)
 ;;=^5063552
 ;;^UTILITY(U,$J,358.3,34926,0)
 ;;=Z89.012^^137^1789^12
 ;;^UTILITY(U,$J,358.3,34926,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34926,1,3,0)
 ;;=3^Acquired Absence,Lt Thumb
 ;;^UTILITY(U,$J,358.3,34926,1,4,0)
 ;;=4^Z89.012
 ;;^UTILITY(U,$J,358.3,34926,2)
 ;;=^5063532
 ;;^UTILITY(U,$J,358.3,34927,0)
 ;;=Z89.222^^137^1789^2
 ;;^UTILITY(U,$J,358.3,34927,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34927,1,3,0)
 ;;=3^Acquired Absence,Lt Arm Above Elbow
 ;;^UTILITY(U,$J,358.3,34927,1,4,0)
 ;;=4^Z89.222
 ;;^UTILITY(U,$J,358.3,34927,2)
 ;;=^5063549
 ;;^UTILITY(U,$J,358.3,34928,0)
 ;;=Z89.212^^137^1789^3
 ;;^UTILITY(U,$J,358.3,34928,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34928,1,3,0)
 ;;=3^Acquired Absence,Lt Arm Below Elbow
 ;;^UTILITY(U,$J,358.3,34928,1,4,0)
 ;;=4^Z89.212
 ;;^UTILITY(U,$J,358.3,34928,2)
 ;;=^5063546
 ;;^UTILITY(U,$J,358.3,34929,0)
 ;;=Z89.122^^137^1789^14
 ;;^UTILITY(U,$J,358.3,34929,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34929,1,3,0)
 ;;=3^Acquired Absence,Lt Wrist
 ;;^UTILITY(U,$J,358.3,34929,1,4,0)
 ;;=4^Z89.122
 ;;^UTILITY(U,$J,358.3,34929,2)
 ;;=^5063541
 ;;^UTILITY(U,$J,358.3,34930,0)
 ;;=Z89.422^^137^1789^13
 ;;^UTILITY(U,$J,358.3,34930,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34930,1,3,0)
 ;;=3^Acquired Absence,Lt Toe(s)
 ;;^UTILITY(U,$J,358.3,34930,1,4,0)
 ;;=4^Z89.422
 ;;^UTILITY(U,$J,358.3,34930,2)
 ;;=^5063558
 ;;^UTILITY(U,$J,358.3,34931,0)
 ;;=Z89.421^^137^1789^27
 ;;^UTILITY(U,$J,358.3,34931,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34931,1,3,0)
 ;;=3^Acquired Absence,Rt Toe(s)
 ;;^UTILITY(U,$J,358.3,34931,1,4,0)
 ;;=4^Z89.421
 ;;^UTILITY(U,$J,358.3,34931,2)
 ;;=^5063557
 ;;^UTILITY(U,$J,358.3,34932,0)
 ;;=Z89.441^^137^1789^15
 ;;^UTILITY(U,$J,358.3,34932,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34932,1,3,0)
 ;;=3^Acquired Absence,Rt Ankle
 ;;^UTILITY(U,$J,358.3,34932,1,4,0)
 ;;=4^Z89.441
 ;;^UTILITY(U,$J,358.3,34932,2)
 ;;=^5063563
 ;;^UTILITY(U,$J,358.3,34933,0)
 ;;=Z89.021^^137^1789^18
 ;;^UTILITY(U,$J,358.3,34933,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34933,1,3,0)
 ;;=3^Acquired Absence,Rt Finger(s)
 ;;^UTILITY(U,$J,358.3,34933,1,4,0)
 ;;=4^Z89.021
 ;;^UTILITY(U,$J,358.3,34933,2)
 ;;=^5063534
 ;;^UTILITY(U,$J,358.3,34934,0)
 ;;=Z89.431^^137^1789^19
 ;;^UTILITY(U,$J,358.3,34934,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34934,1,3,0)
 ;;=3^Acquired Absence,Rt Foot