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

IBDEI2AG.m

Go to the documentation of this file.
  1. IBDEI2AG ; ; 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,36543,2)
  1. ;;=^5004028
  1. ;;^UTILITY(U,$J,358.3,36544,0)
  1. ;;=G56.31^^142^1863^307
  1. ;;^UTILITY(U,$J,358.3,36544,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36544,1,3,0)
  1. ;;=3^Lesion Radial Nerve,Right Upper Limb
  1. ;;^UTILITY(U,$J,358.3,36544,1,4,0)
  1. ;;=4^G56.31
  1. ;;^UTILITY(U,$J,358.3,36544,2)
  1. ;;=^5004027
  1. ;;^UTILITY(U,$J,358.3,36545,0)
  1. ;;=E88.1^^142^1863^311
  1. ;;^UTILITY(U,$J,358.3,36545,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36545,1,3,0)
  1. ;;=3^Lipodystrophy NEC
  1. ;;^UTILITY(U,$J,358.3,36545,1,4,0)
  1. ;;=4^E88.1
  1. ;;^UTILITY(U,$J,358.3,36545,2)
  1. ;;=^5003028
  1. ;;^UTILITY(U,$J,358.3,36546,0)
  1. ;;=G56.22^^142^1863^308
  1. ;;^UTILITY(U,$J,358.3,36546,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36546,1,3,0)
  1. ;;=3^Lesion Ulnar Nerve,Left Upper Limb
  1. ;;^UTILITY(U,$J,358.3,36546,1,4,0)
  1. ;;=4^G56.22
  1. ;;^UTILITY(U,$J,358.3,36546,2)
  1. ;;=^5004025
  1. ;;^UTILITY(U,$J,358.3,36547,0)
  1. ;;=G56.21^^142^1863^309
  1. ;;^UTILITY(U,$J,358.3,36547,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36547,1,3,0)
  1. ;;=3^Lesion Ulnar Nerve,Right Upper Limb
  1. ;;^UTILITY(U,$J,358.3,36547,1,4,0)
  1. ;;=4^G56.21
  1. ;;^UTILITY(U,$J,358.3,36547,2)
  1. ;;=^5004024
  1. ;;^UTILITY(U,$J,358.3,36548,0)
  1. ;;=S02.400A^^142^1863^180
  1. ;;^UTILITY(U,$J,358.3,36548,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36548,1,3,0)
  1. ;;=3^Fx Malar Unspec,Init Encntr,Closed Fx
  1. ;;^UTILITY(U,$J,358.3,36548,1,4,0)
  1. ;;=4^S02.400A
  1. ;;^UTILITY(U,$J,358.3,36548,2)
  1. ;;=^5020318
  1. ;;^UTILITY(U,$J,358.3,36549,0)
  1. ;;=C41.0^^142^1863^352
  1. ;;^UTILITY(U,$J,358.3,36549,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36549,1,3,0)
  1. ;;=3^Malig Neop Skull/Face Bones
  1. ;;^UTILITY(U,$J,358.3,36549,1,4,0)
  1. ;;=4^C41.0
  1. ;;^UTILITY(U,$J,358.3,36549,2)
  1. ;;=^5000989
  1. ;;^UTILITY(U,$J,358.3,36550,0)
  1. ;;=C49.12^^142^1863^330
  1. ;;^UTILITY(U,$J,358.3,36550,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36550,1,3,0)
  1. ;;=3^Malig Neop Connective/Soft Tissue Left Upper Limb
  1. ;;^UTILITY(U,$J,358.3,36550,1,4,0)
  1. ;;=4^C49.12
  1. ;;^UTILITY(U,$J,358.3,36550,2)
  1. ;;=^5001127
  1. ;;^UTILITY(U,$J,358.3,36551,0)
  1. ;;=C49.11^^142^1863^331
  1. ;;^UTILITY(U,$J,358.3,36551,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36551,1,3,0)
  1. ;;=3^Malig Neop Connective/Soft Tissue Right Upper Limb
  1. ;;^UTILITY(U,$J,358.3,36551,1,4,0)
  1. ;;=4^C49.11
  1. ;;^UTILITY(U,$J,358.3,36551,2)
  1. ;;=^5001126
  1. ;;^UTILITY(U,$J,358.3,36552,0)
  1. ;;=C49.9^^142^1863^332
  1. ;;^UTILITY(U,$J,358.3,36552,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36552,1,3,0)
  1. ;;=3^Malig Neop Connective/Soft Tissue,Unspec
  1. ;;^UTILITY(U,$J,358.3,36552,1,4,0)
  1. ;;=4^C49.9
  1. ;;^UTILITY(U,$J,358.3,36552,2)
  1. ;;=^5001136
  1. ;;^UTILITY(U,$J,358.3,36553,0)
  1. ;;=C00.2^^142^1863^333
  1. ;;^UTILITY(U,$J,358.3,36553,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36553,1,3,0)
  1. ;;=3^Malig Neop External Lip,Unspec
  1. ;;^UTILITY(U,$J,358.3,36553,1,4,0)
  1. ;;=4^C00.2
  1. ;;^UTILITY(U,$J,358.3,36553,2)
  1. ;;=^5000884
  1. ;;^UTILITY(U,$J,358.3,36554,0)
  1. ;;=C06.9^^142^1863^334
  1. ;;^UTILITY(U,$J,358.3,36554,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36554,1,3,0)
  1. ;;=3^Malig Neop Mouth,Unspec
  1. ;;^UTILITY(U,$J,358.3,36554,1,4,0)
  1. ;;=4^C06.9
  1. ;;^UTILITY(U,$J,358.3,36554,2)
  1. ;;=^5000901
  1. ;;^UTILITY(U,$J,358.3,36555,0)
  1. ;;=C05.9^^142^1863^335
  1. ;;^UTILITY(U,$J,358.3,36555,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,36555,1,3,0)
  1. ;;=3^Malig Neop Palate,Unspec
  1. ;;^UTILITY(U,$J,358.3,36555,1,4,0)
  1. ;;=4^C05.9
  1. ;;^UTILITY(U,$J,358.3,36555,2)
  1. ;;=^5000898