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

IBDEI155.m

Go to the documentation of this file.
IBDEI155 ; ; 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,18527,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18527,1,3,0)
 ;;=3^Hypoventilation,Sleep Related
 ;;^UTILITY(U,$J,358.3,18527,1,4,0)
 ;;=4^G47.36
 ;;^UTILITY(U,$J,358.3,18527,2)
 ;;=^5003979
 ;;^UTILITY(U,$J,358.3,18528,0)
 ;;=G47.33^^64^830^3
 ;;^UTILITY(U,$J,358.3,18528,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18528,1,3,0)
 ;;=3^Obstructive Sleep Apnea
 ;;^UTILITY(U,$J,358.3,18528,1,4,0)
 ;;=4^G47.33
 ;;^UTILITY(U,$J,358.3,18528,2)
 ;;=^332763
 ;;^UTILITY(U,$J,358.3,18529,0)
 ;;=Z43.0^^64^831^3
 ;;^UTILITY(U,$J,358.3,18529,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18529,1,3,0)
 ;;=3^Attention to Tracheostomy
 ;;^UTILITY(U,$J,358.3,18529,1,4,0)
 ;;=4^Z43.0
 ;;^UTILITY(U,$J,358.3,18529,2)
 ;;=^5062958
 ;;^UTILITY(U,$J,358.3,18530,0)
 ;;=Z71.3^^64^831^5
 ;;^UTILITY(U,$J,358.3,18530,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18530,1,3,0)
 ;;=3^Counseling & Surveillance,Dietary
 ;;^UTILITY(U,$J,358.3,18530,1,4,0)
 ;;=4^Z71.3
 ;;^UTILITY(U,$J,358.3,18530,2)
 ;;=^5063245
 ;;^UTILITY(U,$J,358.3,18531,0)
 ;;=Z71.89^^64^831^6
 ;;^UTILITY(U,$J,358.3,18531,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18531,1,3,0)
 ;;=3^Counseling,Other Spec
 ;;^UTILITY(U,$J,358.3,18531,1,4,0)
 ;;=4^Z71.89
 ;;^UTILITY(U,$J,358.3,18531,2)
 ;;=^5063253
 ;;^UTILITY(U,$J,358.3,18532,0)
 ;;=Z02.3^^64^831^15
 ;;^UTILITY(U,$J,358.3,18532,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18532,1,3,0)
 ;;=3^Recruitment to Armed Forces Exam
 ;;^UTILITY(U,$J,358.3,18532,1,4,0)
 ;;=4^Z02.3
 ;;^UTILITY(U,$J,358.3,18532,2)
 ;;=^5062636
 ;;^UTILITY(U,$J,358.3,18533,0)
 ;;=Z02.1^^64^831^14
 ;;^UTILITY(U,$J,358.3,18533,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18533,1,3,0)
 ;;=3^Pre-Employment Exam
 ;;^UTILITY(U,$J,358.3,18533,1,4,0)
 ;;=4^Z02.1
 ;;^UTILITY(U,$J,358.3,18533,2)
 ;;=^5062634
 ;;^UTILITY(U,$J,358.3,18534,0)
 ;;=Z02.89^^64^831^2
 ;;^UTILITY(U,$J,358.3,18534,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18534,1,3,0)
 ;;=3^Administrative Exam
 ;;^UTILITY(U,$J,358.3,18534,1,4,0)
 ;;=4^Z02.89
 ;;^UTILITY(U,$J,358.3,18534,2)
 ;;=^5062645
 ;;^UTILITY(U,$J,358.3,18535,0)
 ;;=Z13.83^^64^831^16
 ;;^UTILITY(U,$J,358.3,18535,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18535,1,3,0)
 ;;=3^Respiratory Disorder Screen
 ;;^UTILITY(U,$J,358.3,18535,1,4,0)
 ;;=4^Z13.83
 ;;^UTILITY(U,$J,358.3,18535,2)
 ;;=^5062715
 ;;^UTILITY(U,$J,358.3,18536,0)
 ;;=J98.01^^64^831^1
 ;;^UTILITY(U,$J,358.3,18536,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18536,1,3,0)
 ;;=3^Acute Bronchospasm
 ;;^UTILITY(U,$J,358.3,18536,1,4,0)
 ;;=4^J98.01
 ;;^UTILITY(U,$J,358.3,18536,2)
 ;;=^334092
 ;;^UTILITY(U,$J,358.3,18537,0)
 ;;=G89.12^^64^831^13
 ;;^UTILITY(U,$J,358.3,18537,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18537,1,3,0)
 ;;=3^Post-Thoracotomy Pain
 ;;^UTILITY(U,$J,358.3,18537,1,4,0)
 ;;=4^G89.12
 ;;^UTILITY(U,$J,358.3,18537,2)
 ;;=^5004153
 ;;^UTILITY(U,$J,358.3,18538,0)
 ;;=J98.09^^64^831^4
 ;;^UTILITY(U,$J,358.3,18538,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18538,1,3,0)
 ;;=3^Bronchus Diseases NEC
 ;;^UTILITY(U,$J,358.3,18538,1,4,0)
 ;;=4^J98.09
 ;;^UTILITY(U,$J,358.3,18538,2)
 ;;=^5008359
 ;;^UTILITY(U,$J,358.3,18539,0)
 ;;=J39.8^^64^831^18
 ;;^UTILITY(U,$J,358.3,18539,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18539,1,3,0)
 ;;=3^Upper Respiratory Tract Diseases
 ;;^UTILITY(U,$J,358.3,18539,1,4,0)
 ;;=4^J39.8
 ;;^UTILITY(U,$J,358.3,18539,2)
 ;;=^5008231