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

IBDEI1AU.m

Go to the documentation of this file.
IBDEI1AU ; ; 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,20987,1,3,0)
 ;;=3^FLU VACCINE IM (FLULAVAL)
 ;;^UTILITY(U,$J,358.3,20988,0)
 ;;=90471^^68^897^1^^^^1
 ;;^UTILITY(U,$J,358.3,20988,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20988,1,1,0)
 ;;=1^90471
 ;;^UTILITY(U,$J,358.3,20988,1,3,0)
 ;;=3^IMMUNIZATION ADMIN, SINGLE
 ;;^UTILITY(U,$J,358.3,20989,0)
 ;;=90472^^68^897^2^^^^1
 ;;^UTILITY(U,$J,358.3,20989,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20989,1,1,0)
 ;;=1^90472
 ;;^UTILITY(U,$J,358.3,20989,1,3,0)
 ;;=3^IMMUNIZATION ADMIN, 2+
 ;;^UTILITY(U,$J,358.3,20990,0)
 ;;=86486^^68^897^8^^^^1
 ;;^UTILITY(U,$J,358.3,20990,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20990,1,1,0)
 ;;=1^86486
 ;;^UTILITY(U,$J,358.3,20990,1,3,0)
 ;;=3^SKIN TEST, NOS ANTIGEN
 ;;^UTILITY(U,$J,358.3,20991,0)
 ;;=90656^^68^897^4^^^^1
 ;;^UTILITY(U,$J,358.3,20991,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20991,1,1,0)
 ;;=1^90656
 ;;^UTILITY(U,$J,358.3,20991,1,3,0)
 ;;=3^FLU VACC SGL DOSE SYR (AFLURIA)
 ;;^UTILITY(U,$J,358.3,20992,0)
 ;;=90662^^68^897^5^^^^1
 ;;^UTILITY(U,$J,358.3,20992,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20992,1,1,0)
 ;;=1^90662
 ;;^UTILITY(U,$J,358.3,20992,1,3,0)
 ;;=3^FLU VACC HIGH DOSE (FLUZONE)
 ;;^UTILITY(U,$J,358.3,20993,0)
 ;;=94642^^68^898^5
 ;;^UTILITY(U,$J,358.3,20993,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20993,1,1,0)
 ;;=1^94642
 ;;^UTILITY(U,$J,358.3,20993,1,3,0)
 ;;=3^PENTAMIDINE THERAPY
 ;;^UTILITY(U,$J,358.3,20994,0)
 ;;=94664^^68^898^1
 ;;^UTILITY(U,$J,358.3,20994,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20994,1,1,0)
 ;;=1^94664
 ;;^UTILITY(U,$J,358.3,20994,1,3,0)
 ;;=3^AEROSOL THERAPY
 ;;^UTILITY(U,$J,358.3,20995,0)
 ;;=89220^^68^898^7^^^^1
 ;;^UTILITY(U,$J,358.3,20995,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20995,1,1,0)
 ;;=1^89220
 ;;^UTILITY(U,$J,358.3,20995,1,3,0)
 ;;=3^SPUTUM SPECIMEN COLLECT,AEROSOL
 ;;^UTILITY(U,$J,358.3,20996,0)
 ;;=94640^^68^898^2^^^^1
 ;;^UTILITY(U,$J,358.3,20996,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20996,1,1,0)
 ;;=1^94640
 ;;^UTILITY(U,$J,358.3,20996,1,3,0)
 ;;=3^AIRWAY INHALATION TREATMENT
 ;;^UTILITY(U,$J,358.3,20997,0)
 ;;=94621^^68^898^6^^^^1
 ;;^UTILITY(U,$J,358.3,20997,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20997,1,1,0)
 ;;=1^94621
 ;;^UTILITY(U,$J,358.3,20997,1,3,0)
 ;;=3^PULM STRESS TEST,COMPLEX
 ;;^UTILITY(U,$J,358.3,20998,0)
 ;;=94644^^68^898^3^^^^1
 ;;^UTILITY(U,$J,358.3,20998,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20998,1,1,0)
 ;;=1^94644
 ;;^UTILITY(U,$J,358.3,20998,1,3,0)
 ;;=3^CONT INHAL TX,1ST HR
 ;;^UTILITY(U,$J,358.3,20999,0)
 ;;=94645^^68^898^4^^^^1
 ;;^UTILITY(U,$J,358.3,20999,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20999,1,1,0)
 ;;=1^94645
 ;;^UTILITY(U,$J,358.3,20999,1,3,0)
 ;;=3^CONT INHAL TX,EA ADDL HR
 ;;^UTILITY(U,$J,358.3,21000,0)
 ;;=95805^^68^899^1
 ;;^UTILITY(U,$J,358.3,21000,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21000,1,1,0)
 ;;=1^95805
 ;;^UTILITY(U,$J,358.3,21000,1,3,0)
 ;;=3^MULTIPLE SLEEP LATENCY TEST
 ;;^UTILITY(U,$J,358.3,21001,0)
 ;;=95808^^68^899^3
 ;;^UTILITY(U,$J,358.3,21001,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21001,1,1,0)
 ;;=1^95808
 ;;^UTILITY(U,$J,358.3,21001,1,3,0)
 ;;=3^POLYSOMNOGRAPHY,1-3 PARAMETERS
 ;;^UTILITY(U,$J,358.3,21002,0)
 ;;=95807^^68^899^5
 ;;^UTILITY(U,$J,358.3,21002,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21002,1,1,0)
 ;;=1^95807
 ;;^UTILITY(U,$J,358.3,21002,1,3,0)
 ;;=3^SLEEP STUDY