IBDEI1AW ; ; 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,21018,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21018,1,1,0)
;;=1^J7674
;;^UTILITY(U,$J,358.3,21018,1,3,0)
;;=3^METHACHOLINE CHLORIDE, NEB
;;^UTILITY(U,$J,358.3,21019,0)
;;=94728^^68^900^11^^^^1
;;^UTILITY(U,$J,358.3,21019,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21019,1,1,0)
;;=1^94728
;;^UTILITY(U,$J,358.3,21019,1,3,0)
;;=3^PULM FUNCT TEST OSCILLOMETRY
;;^UTILITY(U,$J,358.3,21020,0)
;;=94799^^68^900^12^^^^1
;;^UTILITY(U,$J,358.3,21020,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21020,1,1,0)
;;=1^94799
;;^UTILITY(U,$J,358.3,21020,1,3,0)
;;=3^PULMONARY SERVICE/PROCEDURE
;;^UTILITY(U,$J,358.3,21021,0)
;;=94070^^68^900^16^^^^1
;;^UTILITY(U,$J,358.3,21021,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21021,1,1,0)
;;=1^94070
;;^UTILITY(U,$J,358.3,21021,1,3,0)
;;=3^WHEEZING EVALUATION
;;^UTILITY(U,$J,358.3,21022,0)
;;=94680^^68^900^3^^^^1
;;^UTILITY(U,$J,358.3,21022,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21022,1,1,0)
;;=1^94680
;;^UTILITY(U,$J,358.3,21022,1,3,0)
;;=3^EXHALED AIR ANALYSIS O2
;;^UTILITY(U,$J,358.3,21023,0)
;;=95012^^68^900^10^^^^1
;;^UTILITY(U,$J,358.3,21023,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21023,1,1,0)
;;=1^95012
;;^UTILITY(U,$J,358.3,21023,1,3,0)
;;=3^NITRIC OXIDE EXP GAS DETERM
;;^UTILITY(U,$J,358.3,21024,0)
;;=36415^^68^901^14
;;^UTILITY(U,$J,358.3,21024,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21024,1,1,0)
;;=1^36415
;;^UTILITY(U,$J,358.3,21024,1,3,0)
;;=3^VENIPUNCTURE, ROUTINE
;;^UTILITY(U,$J,358.3,21025,0)
;;=82803^^68^901^4
;;^UTILITY(U,$J,358.3,21025,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21025,1,1,0)
;;=1^82803
;;^UTILITY(U,$J,358.3,21025,1,3,0)
;;=3^BLOOD GASES: PH, PO2 & PCO2
;;^UTILITY(U,$J,358.3,21026,0)
;;=82805^^68^901^3
;;^UTILITY(U,$J,358.3,21026,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21026,1,1,0)
;;=1^82805
;;^UTILITY(U,$J,358.3,21026,1,3,0)
;;=3^BLOOD GASES W/02 SATURATION
;;^UTILITY(U,$J,358.3,21027,0)
;;=36620^^68^901^2
;;^UTILITY(U,$J,358.3,21027,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21027,1,1,0)
;;=1^36620
;;^UTILITY(U,$J,358.3,21027,1,3,0)
;;=3^ARTERIAL LINE INSERTION
;;^UTILITY(U,$J,358.3,21028,0)
;;=31502^^68^901^13^^^^1
;;^UTILITY(U,$J,358.3,21028,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21028,1,1,0)
;;=1^31502
;;^UTILITY(U,$J,358.3,21028,1,3,0)
;;=3^TRACH CHANGE
;;^UTILITY(U,$J,358.3,21029,0)
;;=31500^^68^901^10^^^^1
;;^UTILITY(U,$J,358.3,21029,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21029,1,1,0)
;;=1^31500
;;^UTILITY(U,$J,358.3,21029,1,3,0)
;;=3^INSERT EMERGENCY AIRWAY
;;^UTILITY(U,$J,358.3,21030,0)
;;=92950^^68^901^7^^^^1
;;^UTILITY(U,$J,358.3,21030,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21030,1,1,0)
;;=1^92950
;;^UTILITY(U,$J,358.3,21030,1,3,0)
;;=3^HEART/LUNG RESUSCITATION CPR
;;^UTILITY(U,$J,358.3,21031,0)
;;=94003^^68^901^16^^^^1
;;^UTILITY(U,$J,358.3,21031,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21031,1,1,0)
;;=1^94003
;;^UTILITY(U,$J,358.3,21031,1,3,0)
;;=3^VENT MGMT,INPT,EA SUBS DAY
;;^UTILITY(U,$J,358.3,21032,0)
;;=94668^^68^901^1^^^^1
;;^UTILITY(U,$J,358.3,21032,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,21032,1,1,0)
;;=1^94668
;;^UTILITY(U,$J,358.3,21032,1,3,0)
;;=3^AIRWAY CLEARANCE,CHEST WALL
;;^UTILITY(U,$J,358.3,21033,0)
;;=94667^^68^901^5^^^^1
;;^UTILITY(U,$J,358.3,21033,1,0)
;;=^358.31IA^3^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI1AW 3782 printed Sep 23, 2025@19:41:09 Page 2
IBDEI1AW ; ; 01-FEB-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
+2 if 'DIFQR(358.3)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.3,21018,1,0)
+2 ;;=^358.31IA^3^2
+3 ;;^UTILITY(U,$J,358.3,21018,1,1,0)
+4 ;;=1^J7674
+5 ;;^UTILITY(U,$J,358.3,21018,1,3,0)
+6 ;;=3^METHACHOLINE CHLORIDE, NEB
+7 ;;^UTILITY(U,$J,358.3,21019,0)
+8 ;;=94728^^68^900^11^^^^1
+9 ;;^UTILITY(U,$J,358.3,21019,1,0)
+10 ;;=^358.31IA^3^2
+11 ;;^UTILITY(U,$J,358.3,21019,1,1,0)
+12 ;;=1^94728
+13 ;;^UTILITY(U,$J,358.3,21019,1,3,0)
+14 ;;=3^PULM FUNCT TEST OSCILLOMETRY
+15 ;;^UTILITY(U,$J,358.3,21020,0)
+16 ;;=94799^^68^900^12^^^^1
+17 ;;^UTILITY(U,$J,358.3,21020,1,0)
+18 ;;=^358.31IA^3^2
+19 ;;^UTILITY(U,$J,358.3,21020,1,1,0)
+20 ;;=1^94799
+21 ;;^UTILITY(U,$J,358.3,21020,1,3,0)
+22 ;;=3^PULMONARY SERVICE/PROCEDURE
+23 ;;^UTILITY(U,$J,358.3,21021,0)
+24 ;;=94070^^68^900^16^^^^1
+25 ;;^UTILITY(U,$J,358.3,21021,1,0)
+26 ;;=^358.31IA^3^2
+27 ;;^UTILITY(U,$J,358.3,21021,1,1,0)
+28 ;;=1^94070
+29 ;;^UTILITY(U,$J,358.3,21021,1,3,0)
+30 ;;=3^WHEEZING EVALUATION
+31 ;;^UTILITY(U,$J,358.3,21022,0)
+32 ;;=94680^^68^900^3^^^^1
+33 ;;^UTILITY(U,$J,358.3,21022,1,0)
+34 ;;=^358.31IA^3^2
+35 ;;^UTILITY(U,$J,358.3,21022,1,1,0)
+36 ;;=1^94680
+37 ;;^UTILITY(U,$J,358.3,21022,1,3,0)
+38 ;;=3^EXHALED AIR ANALYSIS O2
+39 ;;^UTILITY(U,$J,358.3,21023,0)
+40 ;;=95012^^68^900^10^^^^1
+41 ;;^UTILITY(U,$J,358.3,21023,1,0)
+42 ;;=^358.31IA^3^2
+43 ;;^UTILITY(U,$J,358.3,21023,1,1,0)
+44 ;;=1^95012
+45 ;;^UTILITY(U,$J,358.3,21023,1,3,0)
+46 ;;=3^NITRIC OXIDE EXP GAS DETERM
+47 ;;^UTILITY(U,$J,358.3,21024,0)
+48 ;;=36415^^68^901^14
+49 ;;^UTILITY(U,$J,358.3,21024,1,0)
+50 ;;=^358.31IA^3^2
+51 ;;^UTILITY(U,$J,358.3,21024,1,1,0)
+52 ;;=1^36415
+53 ;;^UTILITY(U,$J,358.3,21024,1,3,0)
+54 ;;=3^VENIPUNCTURE, ROUTINE
+55 ;;^UTILITY(U,$J,358.3,21025,0)
+56 ;;=82803^^68^901^4
+57 ;;^UTILITY(U,$J,358.3,21025,1,0)
+58 ;;=^358.31IA^3^2
+59 ;;^UTILITY(U,$J,358.3,21025,1,1,0)
+60 ;;=1^82803
+61 ;;^UTILITY(U,$J,358.3,21025,1,3,0)
+62 ;;=3^BLOOD GASES: PH, PO2 & PCO2
+63 ;;^UTILITY(U,$J,358.3,21026,0)
+64 ;;=82805^^68^901^3
+65 ;;^UTILITY(U,$J,358.3,21026,1,0)
+66 ;;=^358.31IA^3^2
+67 ;;^UTILITY(U,$J,358.3,21026,1,1,0)
+68 ;;=1^82805
+69 ;;^UTILITY(U,$J,358.3,21026,1,3,0)
+70 ;;=3^BLOOD GASES W/02 SATURATION
+71 ;;^UTILITY(U,$J,358.3,21027,0)
+72 ;;=36620^^68^901^2
+73 ;;^UTILITY(U,$J,358.3,21027,1,0)
+74 ;;=^358.31IA^3^2
+75 ;;^UTILITY(U,$J,358.3,21027,1,1,0)
+76 ;;=1^36620
+77 ;;^UTILITY(U,$J,358.3,21027,1,3,0)
+78 ;;=3^ARTERIAL LINE INSERTION
+79 ;;^UTILITY(U,$J,358.3,21028,0)
+80 ;;=31502^^68^901^13^^^^1
+81 ;;^UTILITY(U,$J,358.3,21028,1,0)
+82 ;;=^358.31IA^3^2
+83 ;;^UTILITY(U,$J,358.3,21028,1,1,0)
+84 ;;=1^31502
+85 ;;^UTILITY(U,$J,358.3,21028,1,3,0)
+86 ;;=3^TRACH CHANGE
+87 ;;^UTILITY(U,$J,358.3,21029,0)
+88 ;;=31500^^68^901^10^^^^1
+89 ;;^UTILITY(U,$J,358.3,21029,1,0)
+90 ;;=^358.31IA^3^2
+91 ;;^UTILITY(U,$J,358.3,21029,1,1,0)
+92 ;;=1^31500
+93 ;;^UTILITY(U,$J,358.3,21029,1,3,0)
+94 ;;=3^INSERT EMERGENCY AIRWAY
+95 ;;^UTILITY(U,$J,358.3,21030,0)
+96 ;;=92950^^68^901^7^^^^1
+97 ;;^UTILITY(U,$J,358.3,21030,1,0)
+98 ;;=^358.31IA^3^2
+99 ;;^UTILITY(U,$J,358.3,21030,1,1,0)
+100 ;;=1^92950
+101 ;;^UTILITY(U,$J,358.3,21030,1,3,0)
+102 ;;=3^HEART/LUNG RESUSCITATION CPR
+103 ;;^UTILITY(U,$J,358.3,21031,0)
+104 ;;=94003^^68^901^16^^^^1
+105 ;;^UTILITY(U,$J,358.3,21031,1,0)
+106 ;;=^358.31IA^3^2
+107 ;;^UTILITY(U,$J,358.3,21031,1,1,0)
+108 ;;=1^94003
+109 ;;^UTILITY(U,$J,358.3,21031,1,3,0)
+110 ;;=3^VENT MGMT,INPT,EA SUBS DAY
+111 ;;^UTILITY(U,$J,358.3,21032,0)
+112 ;;=94668^^68^901^1^^^^1
+113 ;;^UTILITY(U,$J,358.3,21032,1,0)
+114 ;;=^358.31IA^3^2
+115 ;;^UTILITY(U,$J,358.3,21032,1,1,0)
+116 ;;=1^94668
+117 ;;^UTILITY(U,$J,358.3,21032,1,3,0)
+118 ;;=3^AIRWAY CLEARANCE,CHEST WALL
+119 ;;^UTILITY(U,$J,358.3,21033,0)
+120 ;;=94667^^68^901^5^^^^1
+121 ;;^UTILITY(U,$J,358.3,21033,1,0)
+122 ;;=^358.31IA^3^2
