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

IBDEI2X9.m

Go to the documentation of this file.
IBDEI2X9 ; ; 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,46613,0)
 ;;=96401^^178^2322^10^^^^1
 ;;^UTILITY(U,$J,358.3,46613,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46613,1,2,0)
 ;;=2^96401
 ;;^UTILITY(U,$J,358.3,46613,1,3,0)
 ;;=3^Chemotherapy,IM/SQ
 ;;^UTILITY(U,$J,358.3,46614,0)
 ;;=96402^^178^2322^18^^^^1
 ;;^UTILITY(U,$J,358.3,46614,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46614,1,2,0)
 ;;=2^96402
 ;;^UTILITY(U,$J,358.3,46614,1,3,0)
 ;;=3^Injec,IM,anti-neplastic horm
 ;;^UTILITY(U,$J,358.3,46615,0)
 ;;=96372^^178^2322^1^^^^1
 ;;^UTILITY(U,$J,358.3,46615,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46615,1,2,0)
 ;;=2^96372
 ;;^UTILITY(U,$J,358.3,46615,1,3,0)
 ;;=3^Administration of Inj, SC/IM
 ;;^UTILITY(U,$J,358.3,46616,0)
 ;;=96374^^178^2322^17^^^^1
 ;;^UTILITY(U,$J,358.3,46616,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46616,1,2,0)
 ;;=2^96374
 ;;^UTILITY(U,$J,358.3,46616,1,3,0)
 ;;=3^IV Push,Single Non-Chemo Drug
 ;;^UTILITY(U,$J,358.3,46617,0)
 ;;=J0897^^178^2322^14^^^^1
 ;;^UTILITY(U,$J,358.3,46617,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46617,1,2,0)
 ;;=2^J0897
 ;;^UTILITY(U,$J,358.3,46617,1,3,0)
 ;;=3^Denosumab Inj 1 mg
 ;;^UTILITY(U,$J,358.3,46618,0)
 ;;=J1950^^178^2322^23^^^^1
 ;;^UTILITY(U,$J,358.3,46618,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46618,1,2,0)
 ;;=2^J1950
 ;;^UTILITY(U,$J,358.3,46618,1,3,0)
 ;;=3^Leuprolide Acetate Susp 3.75 mg
 ;;^UTILITY(U,$J,358.3,46619,0)
 ;;=J3489^^178^2322^34^^^^1
 ;;^UTILITY(U,$J,358.3,46619,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46619,1,2,0)
 ;;=2^J3489
 ;;^UTILITY(U,$J,358.3,46619,1,3,0)
 ;;=3^Zoledronic Acid 1 mg
 ;;^UTILITY(U,$J,358.3,46620,0)
 ;;=J3490^^178^2322^30^^^^1
 ;;^UTILITY(U,$J,358.3,46620,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46620,1,2,0)
 ;;=2^J3490
 ;;^UTILITY(U,$J,358.3,46620,1,3,0)
 ;;=3^Unclassified Biologics
 ;;^UTILITY(U,$J,358.3,46621,0)
 ;;=J9155^^178^2322^13^^^^1
 ;;^UTILITY(U,$J,358.3,46621,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46621,1,2,0)
 ;;=2^J9155
 ;;^UTILITY(U,$J,358.3,46621,1,3,0)
 ;;=3^Degarelix 1 mg
 ;;^UTILITY(U,$J,358.3,46622,0)
 ;;=J9218^^178^2322^21^^^^1
 ;;^UTILITY(U,$J,358.3,46622,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46622,1,2,0)
 ;;=2^J9218
 ;;^UTILITY(U,$J,358.3,46622,1,3,0)
 ;;=3^Leuprolide (Lupron) 1mg
 ;;^UTILITY(U,$J,358.3,46623,0)
 ;;=J9219^^178^2322^22^^^^1
 ;;^UTILITY(U,$J,358.3,46623,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46623,1,2,0)
 ;;=2^J9219
 ;;^UTILITY(U,$J,358.3,46623,1,3,0)
 ;;=3^Leuprolide Acetate Implant 65 mg
 ;;^UTILITY(U,$J,358.3,46624,0)
 ;;=J0270^^178^2322^2^^^^1
 ;;^UTILITY(U,$J,358.3,46624,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46624,1,2,0)
 ;;=2^J0270
 ;;^UTILITY(U,$J,358.3,46624,1,3,0)
 ;;=3^Alprostadil 1.25 mcg
 ;;^UTILITY(U,$J,358.3,46625,0)
 ;;=J0275^^178^2322^3^^^^1
 ;;^UTILITY(U,$J,358.3,46625,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46625,1,2,0)
 ;;=2^J0275
 ;;^UTILITY(U,$J,358.3,46625,1,3,0)
 ;;=3^Alprostadil Urethral Suppository
 ;;^UTILITY(U,$J,358.3,46626,0)
 ;;=J2370^^178^2322^27^^^^1
 ;;^UTILITY(U,$J,358.3,46626,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46626,1,2,0)
 ;;=2^J2370
 ;;^UTILITY(U,$J,358.3,46626,1,3,0)
 ;;=3^Phenyleprhine HCL 1 mg
 ;;^UTILITY(U,$J,358.3,46627,0)
 ;;=J1212^^178^2322^11^^^^1
 ;;^UTILITY(U,$J,358.3,46627,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46627,1,2,0)
 ;;=2^J1212
 ;;^UTILITY(U,$J,358.3,46627,1,3,0)
 ;;=3^DMSO per 50 ml