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

IBDEI1AZ.m

Go to the documentation of this file.
IBDEI1AZ ; ; 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,21063,1,1,0)
 ;;=1^A7028
 ;;^UTILITY(U,$J,358.3,21063,1,3,0)
 ;;=3^NASAL PILLOWS FOR PAP DEVICE
 ;;^UTILITY(U,$J,358.3,21064,0)
 ;;=A7039^^68^906^19^^^^1
 ;;^UTILITY(U,$J,358.3,21064,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21064,1,1,0)
 ;;=1^A7039
 ;;^UTILITY(U,$J,358.3,21064,1,3,0)
 ;;=3^NON-DISPOSABLE FILTER
 ;;^UTILITY(U,$J,358.3,21065,0)
 ;;=A7038^^68^906^23^^^^1
 ;;^UTILITY(U,$J,358.3,21065,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21065,1,1,0)
 ;;=1^A7038
 ;;^UTILITY(U,$J,358.3,21065,1,3,0)
 ;;=3^PRESSURE FILTER
 ;;^UTILITY(U,$J,358.3,21066,0)
 ;;=A7037^^68^906^24^^^^1
 ;;^UTILITY(U,$J,358.3,21066,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21066,1,1,0)
 ;;=1^A7037
 ;;^UTILITY(U,$J,358.3,21066,1,3,0)
 ;;=3^PRESSURE TUBING
 ;;^UTILITY(U,$J,358.3,21067,0)
 ;;=A4604^^68^906^32^^^^1
 ;;^UTILITY(U,$J,358.3,21067,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21067,1,1,0)
 ;;=1^A4604
 ;;^UTILITY(U,$J,358.3,21067,1,3,0)
 ;;=3^TUBING WITH HEATING ELEMENT
 ;;^UTILITY(U,$J,358.3,21068,0)
 ;;=A7046^^68^906^33^^^^1
 ;;^UTILITY(U,$J,358.3,21068,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21068,1,1,0)
 ;;=1^A7046
 ;;^UTILITY(U,$J,358.3,21068,1,3,0)
 ;;=3^WATER CHAMBER REPLACEMENT
 ;;^UTILITY(U,$J,358.3,21069,0)
 ;;=A7031^^68^906^12^^^^1
 ;;^UTILITY(U,$J,358.3,21069,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21069,1,1,0)
 ;;=1^A7031
 ;;^UTILITY(U,$J,358.3,21069,1,3,0)
 ;;=3^MASK INTERFACE REPLACEMENT
 ;;^UTILITY(U,$J,358.3,21070,0)
 ;;=A7034^^68^906^13^^^^1
 ;;^UTILITY(U,$J,358.3,21070,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21070,1,1,0)
 ;;=1^A7034
 ;;^UTILITY(U,$J,358.3,21070,1,3,0)
 ;;=3^NASAL APPLICATION DEVICE
 ;;^UTILITY(U,$J,358.3,21071,0)
 ;;=A7044^^68^906^21^^^^1
 ;;^UTILITY(U,$J,358.3,21071,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21071,1,1,0)
 ;;=1^A7044
 ;;^UTILITY(U,$J,358.3,21071,1,3,0)
 ;;=3^ORAL CPAP MASK,EACH
 ;;^UTILITY(U,$J,358.3,21072,0)
 ;;=A9999^^68^906^8^^^^1
 ;;^UTILITY(U,$J,358.3,21072,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21072,1,1,0)
 ;;=1^A9999
 ;;^UTILITY(U,$J,358.3,21072,1,3,0)
 ;;=3^D/C POWER SUPPLY
 ;;^UTILITY(U,$J,358.3,21073,0)
 ;;=E1399^^68^906^25^^^^1
 ;;^UTILITY(U,$J,358.3,21073,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21073,1,1,0)
 ;;=1^E1399
 ;;^UTILITY(U,$J,358.3,21073,1,3,0)
 ;;=3^PROVENT THERAPY
 ;;^UTILITY(U,$J,358.3,21074,0)
 ;;=E0570^^68^906^17^^^^1
 ;;^UTILITY(U,$J,358.3,21074,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21074,1,1,0)
 ;;=1^E0570
 ;;^UTILITY(U,$J,358.3,21074,1,3,0)
 ;;=3^NEBULIZER EQUIP W/ COMPRESSOR
 ;;^UTILITY(U,$J,358.3,21075,0)
 ;;=E1392^^68^906^22^^^^1
 ;;^UTILITY(U,$J,358.3,21075,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21075,1,1,0)
 ;;=1^E1392
 ;;^UTILITY(U,$J,358.3,21075,1,3,0)
 ;;=3^PORTABLE O2 CONCENTRATOR
 ;;^UTILITY(U,$J,358.3,21076,0)
 ;;=E1356^^68^906^1^^^^1
 ;;^UTILITY(U,$J,358.3,21076,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21076,1,1,0)
 ;;=1^E1356
 ;;^UTILITY(U,$J,358.3,21076,1,3,0)
 ;;=3^BATTERY PORT CONCENTATOR,EACH
 ;;^UTILITY(U,$J,358.3,21077,0)
 ;;=E1358^^68^906^7^^^^1
 ;;^UTILITY(U,$J,358.3,21077,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21077,1,1,0)
 ;;=1^E1358
 ;;^UTILITY(U,$J,358.3,21077,1,3,0)
 ;;=3^D/C POWER ADAPTER
 ;;^UTILITY(U,$J,358.3,21078,0)
 ;;=A4615^^68^906^14^^^^1
 ;;^UTILITY(U,$J,358.3,21078,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21078,1,1,0)
 ;;=1^A4615