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

IBDEI3E3.m

Go to the documentation of this file.
  1. IBDEI3E3 ; ; 19-NOV-2015
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
  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,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
  1. Q Q
  1. ;;^UTILITY(U,$J,358.3,56989,1,2,0)
  1. ;;=2^Active Wound Care/20 Cm Or <
  1. ;;^UTILITY(U,$J,358.3,56989,1,4,0)
  1. ;;=4^97597
  1. ;;^UTILITY(U,$J,358.3,56990,0)
  1. ;;=97602^^263^2847^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,56990,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,56990,1,2,0)
  1. ;;=2^Wound(S) Care Non-Selective
  1. ;;^UTILITY(U,$J,358.3,56990,1,4,0)
  1. ;;=4^97602
  1. ;;^UTILITY(U,$J,358.3,56991,0)
  1. ;;=15852^^263^2847^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,56991,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,56991,1,2,0)
  1. ;;=2^Dressing Change,Not For Burn
  1. ;;^UTILITY(U,$J,358.3,56991,1,4,0)
  1. ;;=4^15852
  1. ;;^UTILITY(U,$J,358.3,56992,0)
  1. ;;=S0630^^263^2847^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,56992,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,56992,1,2,0)
  1. ;;=2^Removal Of Sutures
  1. ;;^UTILITY(U,$J,358.3,56992,1,4,0)
  1. ;;=4^S0630
  1. ;;^UTILITY(U,$J,358.3,56993,0)
  1. ;;=97610^^263^2847^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,56993,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,56993,1,2,0)
  1. ;;=2^Low Frq,Non Contact/Non Therm US & Wnd Assmt
  1. ;;^UTILITY(U,$J,358.3,56993,1,4,0)
  1. ;;=4^97610
  1. ;;^UTILITY(U,$J,358.3,56994,0)
  1. ;;=93922^^263^2848^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,56994,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,56994,1,2,0)
  1. ;;=2^ABI Upper/Lower Single/BL
  1. ;;^UTILITY(U,$J,358.3,56994,1,4,0)
  1. ;;=4^93922
  1. ;;^UTILITY(U,$J,358.3,56995,0)
  1. ;;=93923^^263^2848^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,56995,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,56995,1,2,0)
  1. ;;=2^ABI Upper/Lower Comp/BL
  1. ;;^UTILITY(U,$J,358.3,56995,1,4,0)
  1. ;;=4^93923
  1. ;;^UTILITY(U,$J,358.3,56996,0)
  1. ;;=93971^^263^2848^13^^^^1
  1. ;;^UTILITY(U,$J,358.3,56996,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,56996,1,2,0)
  1. ;;=2^DUS Ext Veins Resp Cmprssn, Unil/Limited
  1. ;;^UTILITY(U,$J,358.3,56996,1,4,0)
  1. ;;=4^93971
  1. ;;^UTILITY(U,$J,358.3,56997,0)
  1. ;;=93925^^263^2848^15^^^^1
  1. ;;^UTILITY(U,$J,358.3,56997,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,56997,1,2,0)
  1. ;;=2^DUS Lower Ext or BPG, Comp/BL
  1. ;;^UTILITY(U,$J,358.3,56997,1,4,0)
  1. ;;=4^93925
  1. ;;^UTILITY(U,$J,358.3,56998,0)
  1. ;;=93926^^263^2848^16^^^^1
  1. ;;^UTILITY(U,$J,358.3,56998,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,56998,1,2,0)
  1. ;;=2^DUS Lower Ext or BPG, Unil/Limited
  1. ;;^UTILITY(U,$J,358.3,56998,1,4,0)
  1. ;;=4^93926
  1. ;;^UTILITY(U,$J,358.3,56999,0)
  1. ;;=36470^^263^2848^22^^^^1
  1. ;;^UTILITY(U,$J,358.3,56999,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,56999,1,2,0)
  1. ;;=2^Injection Therapy Of Vein
  1. ;;^UTILITY(U,$J,358.3,56999,1,4,0)
  1. ;;=4^36470
  1. ;;^UTILITY(U,$J,358.3,57000,0)
  1. ;;=36471^^263^2848^23^^^^1
  1. ;;^UTILITY(U,$J,358.3,57000,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57000,1,2,0)
  1. ;;=2^Injection Therapy Of Veins
  1. ;;^UTILITY(U,$J,358.3,57000,1,4,0)
  1. ;;=4^36471
  1. ;;^UTILITY(U,$J,358.3,57001,0)
  1. ;;=S5520^^263^2848^20^^^^1
  1. ;;^UTILITY(U,$J,358.3,57001,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57001,1,2,0)
  1. ;;=2^Hit Picc Insert Kit
  1. ;;^UTILITY(U,$J,358.3,57001,1,4,0)
  1. ;;=4^S5520
  1. ;;^UTILITY(U,$J,358.3,57002,0)
  1. ;;=76700^^263^2848^30^^^^1
  1. ;;^UTILITY(U,$J,358.3,57002,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57002,1,2,0)
  1. ;;=2^US Exam, Abdom, Complete
  1. ;;^UTILITY(U,$J,358.3,57002,1,4,0)
  1. ;;=4^76700
  1. ;;^UTILITY(U,$J,358.3,57003,0)
  1. ;;=76970^^263^2848^33^^^^1
  1. ;;^UTILITY(U,$J,358.3,57003,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57003,1,2,0)
  1. ;;=2^Ultrasound Exam Follow-Up
  1. ;;^UTILITY(U,$J,358.3,57003,1,4,0)
  1. ;;=4^76970
  1. ;;^UTILITY(U,$J,358.3,57004,0)
  1. ;;=76999^^263^2848^19^^^^1
  1. ;;^UTILITY(U,$J,358.3,57004,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57004,1,2,0)
  1. ;;=2^Echo Examination Procedure
  1. ;;^UTILITY(U,$J,358.3,57004,1,4,0)
  1. ;;=4^76999