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

IBDEI1B0.m

Go to the documentation of this file.
IBDEI1B0 ; ; 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,21078,1,3,0)
 ;;=3^NASAL CANNULA
 ;;^UTILITY(U,$J,358.3,21079,0)
 ;;=E0424^^68^906^20^^^^1
 ;;^UTILITY(U,$J,358.3,21079,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21079,1,1,0)
 ;;=1^E0424
 ;;^UTILITY(U,$J,358.3,21079,1,3,0)
 ;;=3^O2 REGULATOR
 ;;^UTILITY(U,$J,358.3,21080,0)
 ;;=A4629^^68^906^30^^^^1
 ;;^UTILITY(U,$J,358.3,21080,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21080,1,1,0)
 ;;=1^A4629
 ;;^UTILITY(U,$J,358.3,21080,1,3,0)
 ;;=3^TRACH CARE KIT,EST PT
 ;;^UTILITY(U,$J,358.3,21081,0)
 ;;=A4625^^68^906^31^^^^1
 ;;^UTILITY(U,$J,358.3,21081,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21081,1,1,0)
 ;;=1^A4625
 ;;^UTILITY(U,$J,358.3,21081,1,3,0)
 ;;=3^TRACH CARE KIT,NEW PT
 ;;^UTILITY(U,$J,358.3,21082,0)
 ;;=K0738^^68^906^18^^^^1
 ;;^UTILITY(U,$J,358.3,21082,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21082,1,1,0)
 ;;=1^K0738
 ;;^UTILITY(U,$J,358.3,21082,1,3,0)
 ;;=3^NEW O2 PATIENT CHARGE
 ;;^UTILITY(U,$J,358.3,21083,0)
 ;;=K0743^^68^906^27^^^^1
 ;;^UTILITY(U,$J,358.3,21083,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21083,1,1,0)
 ;;=1^K0743
 ;;^UTILITY(U,$J,358.3,21083,1,3,0)
 ;;=3^SUCTION PUMP
 ;;^UTILITY(U,$J,358.3,21084,0)
 ;;=A7000^^68^906^26^^^^1
 ;;^UTILITY(U,$J,358.3,21084,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21084,1,1,0)
 ;;=1^A7000
 ;;^UTILITY(U,$J,358.3,21084,1,3,0)
 ;;=3^SUCTION CANISTER
 ;;^UTILITY(U,$J,358.3,21085,0)
 ;;=A7002^^68^906^28^^^^1
 ;;^UTILITY(U,$J,358.3,21085,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21085,1,1,0)
 ;;=1^A7002
 ;;^UTILITY(U,$J,358.3,21085,1,3,0)
 ;;=3^SUCTION TUBING
 ;;^UTILITY(U,$J,358.3,21086,0)
 ;;=A4628^^68^906^29^^^^1
 ;;^UTILITY(U,$J,358.3,21086,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21086,1,1,0)
 ;;=1^A4628
 ;;^UTILITY(U,$J,358.3,21086,1,3,0)
 ;;=3^SUCTION YANKUER
 ;;^UTILITY(U,$J,358.3,21087,0)
 ;;=A4605^^68^906^4^^^^1
 ;;^UTILITY(U,$J,358.3,21087,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,21087,1,1,0)
 ;;=1^A4605
 ;;^UTILITY(U,$J,358.3,21087,1,3,0)
 ;;=3^CLOSED SUCTION CATHETER
 ;;^UTILITY(U,$J,358.3,21088,0)
 ;;=99211^^69^907^1
 ;;^UTILITY(U,$J,358.3,21088,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,21088,1,1,0)
 ;;=1^Problem Focused Visit
 ;;^UTILITY(U,$J,358.3,21088,1,2,0)
 ;;=2^99211
 ;;^UTILITY(U,$J,358.3,21089,0)
 ;;=R91.8^^70^908^2
 ;;^UTILITY(U,$J,358.3,21089,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21089,1,3,0)
 ;;=3^Abnormal Finding of Lung Field
 ;;^UTILITY(U,$J,358.3,21089,1,4,0)
 ;;=4^R91.8
 ;;^UTILITY(U,$J,358.3,21089,2)
 ;;=^5019708
 ;;^UTILITY(U,$J,358.3,21090,0)
 ;;=R91.1^^70^908^101
 ;;^UTILITY(U,$J,358.3,21090,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21090,1,3,0)
 ;;=3^Pulmonary Nodule,Solitary
 ;;^UTILITY(U,$J,358.3,21090,1,4,0)
 ;;=4^R91.1
 ;;^UTILITY(U,$J,358.3,21090,2)
 ;;=^5019707
 ;;^UTILITY(U,$J,358.3,21091,0)
 ;;=J85.2^^70^908^3
 ;;^UTILITY(U,$J,358.3,21091,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21091,1,3,0)
 ;;=3^Abscess of Lung w/o Pneumonia
 ;;^UTILITY(U,$J,358.3,21091,1,4,0)
 ;;=4^J85.2
 ;;^UTILITY(U,$J,358.3,21091,2)
 ;;=^5008307
 ;;^UTILITY(U,$J,358.3,21092,0)
 ;;=J02.9^^70^908^76
 ;;^UTILITY(U,$J,358.3,21092,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21092,1,3,0)
 ;;=3^Pharyngitis,Acute,Unspec
 ;;^UTILITY(U,$J,358.3,21092,1,4,0)
 ;;=4^J02.9
 ;;^UTILITY(U,$J,358.3,21092,2)
 ;;=^5008130
 ;;^UTILITY(U,$J,358.3,21093,0)
 ;;=B20.^^70^908^1
 ;;^UTILITY(U,$J,358.3,21093,1,0)
 ;;=^358.31IA^4^2