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

IBDEI2XA.m

Go to the documentation of this file.
  1. IBDEI2XA ; ; 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,46628,0)
  1. ;;=J9280^^178^2322^25^^^^1
  1. ;;^UTILITY(U,$J,358.3,46628,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,46628,1,2,0)
  1. ;;=2^J9280
  1. ;;^UTILITY(U,$J,358.3,46628,1,3,0)
  1. ;;=3^Mitomycin 5 mg
  1. ;;^UTILITY(U,$J,358.3,46629,0)
  1. ;;=J1580^^178^2322^15^^^^1
  1. ;;^UTILITY(U,$J,358.3,46629,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,46629,1,2,0)
  1. ;;=2^J1580
  1. ;;^UTILITY(U,$J,358.3,46629,1,3,0)
  1. ;;=3^Gentamycin 80 mg
  1. ;;^UTILITY(U,$J,358.3,46630,0)
  1. ;;=J9202^^178^2322^16^^^^1
  1. ;;^UTILITY(U,$J,358.3,46630,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,46630,1,2,0)
  1. ;;=2^J9202
  1. ;;^UTILITY(U,$J,358.3,46630,1,3,0)
  1. ;;=3^Goserelin Acetate Implant 3.6 mg
  1. ;;^UTILITY(U,$J,358.3,46631,0)
  1. ;;=J0881^^178^2322^12^^^^1
  1. ;;^UTILITY(U,$J,358.3,46631,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,46631,1,2,0)
  1. ;;=2^J0881
  1. ;;^UTILITY(U,$J,358.3,46631,1,3,0)
  1. ;;=3^Darbapoetin 1 mcg
  1. ;;^UTILITY(U,$J,358.3,46632,0)
  1. ;;=J3420^^178^2322^31^^^^1
  1. ;;^UTILITY(U,$J,358.3,46632,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,46632,1,2,0)
  1. ;;=2^J3420
  1. ;;^UTILITY(U,$J,358.3,46632,1,3,0)
  1. ;;=3^Vitamin B12 1000 mcg
  1. ;;^UTILITY(U,$J,358.3,46633,0)
  1. ;;=J0696^^178^2322^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,46633,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,46633,1,2,0)
  1. ;;=2^J0696
  1. ;;^UTILITY(U,$J,358.3,46633,1,3,0)
  1. ;;=3^Ceftriaxone 250 mg
  1. ;;^UTILITY(U,$J,358.3,46634,0)
  1. ;;=J1071^^178^2322^28^^^^1
  1. ;;^UTILITY(U,$J,358.3,46634,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,46634,1,2,0)
  1. ;;=2^J1071
  1. ;;^UTILITY(U,$J,358.3,46634,1,3,0)
  1. ;;=3^Testosterone Cypionate 1mg
  1. ;;^UTILITY(U,$J,358.3,46635,0)
  1. ;;=J0290^^178^2322^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,46635,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,46635,1,2,0)
  1. ;;=2^J0290
  1. ;;^UTILITY(U,$J,358.3,46635,1,3,0)
  1. ;;=3^Ampicillin 500mg
  1. ;;^UTILITY(U,$J,358.3,46636,0)
  1. ;;=96406^^178^2322^8^^^^1
  1. ;;^UTILITY(U,$J,358.3,46636,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,46636,1,2,0)
  1. ;;=2^96406
  1. ;;^UTILITY(U,$J,358.3,46636,1,3,0)
  1. ;;=3^Chemo Intralesional,Over 7
  1. ;;^UTILITY(U,$J,358.3,46637,0)
  1. ;;=96405^^178^2322^9^^^^1
  1. ;;^UTILITY(U,$J,358.3,46637,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,46637,1,2,0)
  1. ;;=2^96405
  1. ;;^UTILITY(U,$J,358.3,46637,1,3,0)
  1. ;;=3^Chemo Intralesional,Up to 7
  1. ;;^UTILITY(U,$J,358.3,46638,0)
  1. ;;=J9217^^178^2322^24^^^^1
  1. ;;^UTILITY(U,$J,358.3,46638,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,46638,1,2,0)
  1. ;;=2^J9217
  1. ;;^UTILITY(U,$J,358.3,46638,1,3,0)
  1. ;;=3^Leuprolide Depot (Eligard) 7.5mg
  1. ;;^UTILITY(U,$J,358.3,46639,0)
  1. ;;=J9213^^178^2322^19^^^^1
  1. ;;^UTILITY(U,$J,358.3,46639,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,46639,1,2,0)
  1. ;;=2^J9213
  1. ;;^UTILITY(U,$J,358.3,46639,1,3,0)
  1. ;;=3^Interferon Alfa-2A 3ml
  1. ;;^UTILITY(U,$J,358.3,46640,0)
  1. ;;=J9214^^178^2322^20^^^^1
  1. ;;^UTILITY(U,$J,358.3,46640,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,46640,1,2,0)
  1. ;;=2^J9214
  1. ;;^UTILITY(U,$J,358.3,46640,1,3,0)
  1. ;;=3^Interferon Alfa-2B 1ml
  1. ;;^UTILITY(U,$J,358.3,46641,0)
  1. ;;=J9340^^178^2322^29^^^^1
  1. ;;^UTILITY(U,$J,358.3,46641,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,46641,1,2,0)
  1. ;;=2^J9340
  1. ;;^UTILITY(U,$J,358.3,46641,1,3,0)
  1. ;;=3^Thiotepa 15mg
  1. ;;^UTILITY(U,$J,358.3,46642,0)
  1. ;;=J0585^^178^2322^26^^^^1
  1. ;;^UTILITY(U,$J,358.3,46642,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,46642,1,2,0)
  1. ;;=2^J0585
  1. ;;^UTILITY(U,$J,358.3,46642,1,3,0)
  1. ;;=3^Onabotulinumtoxin 1Unit
  1. ;;^UTILITY(U,$J,358.3,46643,0)
  1. ;;=J9202^^178^2322^33^^^^1