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

IBDEI2AQ.m

Go to the documentation of this file.
IBDEI2AQ ; ; 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,36661,0)
 ;;=S63.256A^^142^1863^161
 ;;^UTILITY(U,$J,358.3,36661,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36661,1,3,0)
 ;;=3^Dislocation Right Little Finger,Init Encntr
 ;;^UTILITY(U,$J,358.3,36661,1,4,0)
 ;;=4^S63.256A
 ;;^UTILITY(U,$J,358.3,36661,2)
 ;;=^5035283
 ;;^UTILITY(U,$J,358.3,36662,0)
 ;;=S63.252A^^142^1863^162
 ;;^UTILITY(U,$J,358.3,36662,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36662,1,3,0)
 ;;=3^Dislocation Right Middle Finger,Init Encntr
 ;;^UTILITY(U,$J,358.3,36662,1,4,0)
 ;;=4^S63.252A
 ;;^UTILITY(U,$J,358.3,36662,2)
 ;;=^5035271
 ;;^UTILITY(U,$J,358.3,36663,0)
 ;;=S63.254A^^142^1863^163
 ;;^UTILITY(U,$J,358.3,36663,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36663,1,3,0)
 ;;=3^Dislocation Right Ring Finger,Init Encntr
 ;;^UTILITY(U,$J,358.3,36663,1,4,0)
 ;;=4^S63.254A
 ;;^UTILITY(U,$J,358.3,36663,2)
 ;;=^5035277
 ;;^UTILITY(U,$J,358.3,36664,0)
 ;;=S63.104A^^142^1863^164
 ;;^UTILITY(U,$J,358.3,36664,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36664,1,3,0)
 ;;=3^Dislocation Right Thumb,Init Encntr
 ;;^UTILITY(U,$J,358.3,36664,1,4,0)
 ;;=4^S63.104A
 ;;^UTILITY(U,$J,358.3,36664,2)
 ;;=^5035043
 ;;^UTILITY(U,$J,358.3,36665,0)
 ;;=H02.105^^142^1863^166
 ;;^UTILITY(U,$J,358.3,36665,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36665,1,3,0)
 ;;=3^Ectropion Left Lower Eyelid
 ;;^UTILITY(U,$J,358.3,36665,1,4,0)
 ;;=4^H02.105
 ;;^UTILITY(U,$J,358.3,36665,2)
 ;;=^5133409
 ;;^UTILITY(U,$J,358.3,36666,0)
 ;;=H02.104^^142^1863^167
 ;;^UTILITY(U,$J,358.3,36666,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36666,1,3,0)
 ;;=3^Ectropion Left Upper Eyelid
 ;;^UTILITY(U,$J,358.3,36666,1,4,0)
 ;;=4^H02.104
 ;;^UTILITY(U,$J,358.3,36666,2)
 ;;=^5004305
 ;;^UTILITY(U,$J,358.3,36667,0)
 ;;=H02.102^^142^1863^168
 ;;^UTILITY(U,$J,358.3,36667,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36667,1,3,0)
 ;;=3^Ectropion Right Lower Eyelid
 ;;^UTILITY(U,$J,358.3,36667,1,4,0)
 ;;=4^H02.102
 ;;^UTILITY(U,$J,358.3,36667,2)
 ;;=^5133407
 ;;^UTILITY(U,$J,358.3,36668,0)
 ;;=H02.101^^142^1863^169
 ;;^UTILITY(U,$J,358.3,36668,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36668,1,3,0)
 ;;=3^Ectropion Right Upper Eyelid
 ;;^UTILITY(U,$J,358.3,36668,1,4,0)
 ;;=4^H02.101
 ;;^UTILITY(U,$J,358.3,36668,2)
 ;;=^5004303
 ;;^UTILITY(U,$J,358.3,36669,0)
 ;;=S62.307A^^142^1863^176
 ;;^UTILITY(U,$J,358.3,36669,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36669,1,3,0)
 ;;=3^Fx Fifth Metacarpal Bone,Left Hand,Init Encntr
 ;;^UTILITY(U,$J,358.3,36669,1,4,0)
 ;;=4^S62.307A
 ;;^UTILITY(U,$J,358.3,36669,2)
 ;;=^5033808
 ;;^UTILITY(U,$J,358.3,36670,0)
 ;;=S62.306A^^142^1863^177
 ;;^UTILITY(U,$J,358.3,36670,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36670,1,3,0)
 ;;=3^Fx Fifth Metacarpal Bone,Right Hand,Init Encntr
 ;;^UTILITY(U,$J,358.3,36670,1,4,0)
 ;;=4^S62.306A
 ;;^UTILITY(U,$J,358.3,36670,2)
 ;;=^5033801
 ;;^UTILITY(U,$J,358.3,36671,0)
 ;;=S62.305A^^142^1863^178
 ;;^UTILITY(U,$J,358.3,36671,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36671,1,3,0)
 ;;=3^Fx Fourth Metacarpal Bone,Left Hand,Init Encntr
 ;;^UTILITY(U,$J,358.3,36671,1,4,0)
 ;;=4^S62.305A
 ;;^UTILITY(U,$J,358.3,36671,2)
 ;;=^5033794
 ;;^UTILITY(U,$J,358.3,36672,0)
 ;;=S62.304A^^142^1863^179
 ;;^UTILITY(U,$J,358.3,36672,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36672,1,3,0)
 ;;=3^Fx Fourth Metacarpal Bone,Right Hand,Init Encntr
 ;;^UTILITY(U,$J,358.3,36672,1,4,0)
 ;;=4^S62.304A