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