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

IBDEI0GU.m

Go to the documentation of this file.
IBDEI0GU ; ; 01-FEB-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
 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,7574,0)
 ;;=90740^^37^377^12^^^^1
 ;;^UTILITY(U,$J,358.3,7574,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,7574,1,2,0)
 ;;=2^90740
 ;;^UTILITY(U,$J,358.3,7574,1,3,0)
 ;;=3^Hepatitis B Vaccine,Dialysis/Immunosupp,3 Dose
 ;;^UTILITY(U,$J,358.3,7575,0)
 ;;=90688^^37^377^4^^^^1
 ;;^UTILITY(U,$J,358.3,7575,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,7575,1,2,0)
 ;;=2^90688
 ;;^UTILITY(U,$J,358.3,7575,1,3,0)
 ;;=3^Fluzone Multi-Dose Quadrivalent 
 ;;^UTILITY(U,$J,358.3,7576,0)
 ;;=90662^^37^377^5^^^^1
 ;;^UTILITY(U,$J,358.3,7576,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,7576,1,2,0)
 ;;=2^90662
 ;;^UTILITY(U,$J,358.3,7576,1,3,0)
 ;;=3^Fluzone Single Dose Quadrivalent
 ;;^UTILITY(U,$J,358.3,7577,0)
 ;;=90686^^37^377^3^^^^1
 ;;^UTILITY(U,$J,358.3,7577,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,7577,1,2,0)
 ;;=2^90686
 ;;^UTILITY(U,$J,358.3,7577,1,3,0)
 ;;=3^Fluarix Single Dose
 ;;^UTILITY(U,$J,358.3,7578,0)
 ;;=91037^^37^378^5^^^^1
 ;;^UTILITY(U,$J,358.3,7578,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,7578,1,2,0)
 ;;=2^91037
 ;;^UTILITY(U,$J,358.3,7578,1,3,0)
 ;;=3^Esoph Imped Funct Test < 1hr
 ;;^UTILITY(U,$J,358.3,7579,0)
 ;;=91038^^37^378^6^^^^1
 ;;^UTILITY(U,$J,358.3,7579,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,7579,1,2,0)
 ;;=2^91038
 ;;^UTILITY(U,$J,358.3,7579,1,3,0)
 ;;=3^Esoph Imped Funct Test > 1hr
 ;;^UTILITY(U,$J,358.3,7580,0)
 ;;=91010^^37^378^7^^^^1
 ;;^UTILITY(U,$J,358.3,7580,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,7580,1,2,0)
 ;;=2^91010
 ;;^UTILITY(U,$J,358.3,7580,1,3,0)
 ;;=3^Esophageal Manometry Study
 ;;^UTILITY(U,$J,358.3,7581,0)
 ;;=91034^^37^378^10^^^^1
 ;;^UTILITY(U,$J,358.3,7581,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,7581,1,2,0)
 ;;=2^91034
 ;;^UTILITY(U,$J,358.3,7581,1,3,0)
 ;;=3^Nasal pH probe placement & pH Study
 ;;^UTILITY(U,$J,358.3,7582,0)
 ;;=91030^^37^378^1^^^^1
 ;;^UTILITY(U,$J,358.3,7582,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,7582,1,2,0)
 ;;=2^91030
 ;;^UTILITY(U,$J,358.3,7582,1,3,0)
 ;;=3^Acid Perfusion of Esophagus
 ;;^UTILITY(U,$J,358.3,7583,0)
 ;;=91013^^37^378^8^^^^1
 ;;^UTILITY(U,$J,358.3,7583,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,7583,1,2,0)
 ;;=2^91013
 ;;^UTILITY(U,$J,358.3,7583,1,3,0)
 ;;=3^Esophageal Motility w/ Stim/Perfusion
 ;;^UTILITY(U,$J,358.3,7584,0)
 ;;=91112^^37^378^9^^^^1
 ;;^UTILITY(U,$J,358.3,7584,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,7584,1,2,0)
 ;;=2^91112
 ;;^UTILITY(U,$J,358.3,7584,1,3,0)
 ;;=3^GI Tract Pressure,pH,Temp & Transit Study
 ;;^UTILITY(U,$J,358.3,7585,0)
 ;;=91122^^37^378^2^^^^1
 ;;^UTILITY(U,$J,358.3,7585,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,7585,1,2,0)
 ;;=2^91122
 ;;^UTILITY(U,$J,358.3,7585,1,3,0)
 ;;=3^Anorectal Manometry
 ;;^UTILITY(U,$J,358.3,7586,0)
 ;;=90912^^37^378^3^^^^1
 ;;^UTILITY(U,$J,358.3,7586,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,7586,1,2,0)
 ;;=2^90912
 ;;^UTILITY(U,$J,358.3,7586,1,3,0)
 ;;=3^Biofeedback Trng,1st 15 min
 ;;^UTILITY(U,$J,358.3,7587,0)
 ;;=90913^^37^378^4^^^^1
 ;;^UTILITY(U,$J,358.3,7587,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,7587,1,2,0)
 ;;=2^90913
 ;;^UTILITY(U,$J,358.3,7587,1,3,0)
 ;;=3^Biofeedback Trng,Ea Addl 15 min
 ;;^UTILITY(U,$J,358.3,7588,0)
 ;;=45391^^37^379^2^^^^1
 ;;^UTILITY(U,$J,358.3,7588,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,7588,1,2,0)
 ;;=2^45391
 ;;^UTILITY(U,$J,358.3,7588,1,3,0)
 ;;=3^Colonoscopy w/ EUS