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

IBDEI1FY.m

Go to the documentation of this file.
IBDEI1FY ; ; 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,23312,1,3,0)
 ;;=3^Flu d/t indent influ virus w/ oth resp manifest
 ;;^UTILITY(U,$J,358.3,23312,1,4,0)
 ;;=4^J10.1
 ;;^UTILITY(U,$J,358.3,23312,2)
 ;;=^5008151
 ;;^UTILITY(U,$J,358.3,23313,0)
 ;;=J11.1^^78^1006^9
 ;;^UTILITY(U,$J,358.3,23313,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23313,1,3,0)
 ;;=3^Flu d/t unident influ virus w/ oth resp manifest
 ;;^UTILITY(U,$J,358.3,23313,1,4,0)
 ;;=4^J11.1
 ;;^UTILITY(U,$J,358.3,23313,2)
 ;;=^5008158
 ;;^UTILITY(U,$J,358.3,23314,0)
 ;;=J43.9^^78^1006^7
 ;;^UTILITY(U,$J,358.3,23314,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23314,1,3,0)
 ;;=3^Emphysema, unspecified
 ;;^UTILITY(U,$J,358.3,23314,1,4,0)
 ;;=4^J43.9
 ;;^UTILITY(U,$J,358.3,23314,2)
 ;;=^5008238
 ;;^UTILITY(U,$J,358.3,23315,0)
 ;;=J44.9^^78^1006^4
 ;;^UTILITY(U,$J,358.3,23315,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23315,1,3,0)
 ;;=3^COPD, unspec
 ;;^UTILITY(U,$J,358.3,23315,1,4,0)
 ;;=4^J44.9
 ;;^UTILITY(U,$J,358.3,23315,2)
 ;;=^5008241
 ;;^UTILITY(U,$J,358.3,23316,0)
 ;;=J45.909^^78^1006^1
 ;;^UTILITY(U,$J,358.3,23316,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23316,1,3,0)
 ;;=3^Asthma, uncomplicated, unspec
 ;;^UTILITY(U,$J,358.3,23316,1,4,0)
 ;;=4^J45.909
 ;;^UTILITY(U,$J,358.3,23316,2)
 ;;=^5008256
 ;;^UTILITY(U,$J,358.3,23317,0)
 ;;=J91.8^^78^1006^10
 ;;^UTILITY(U,$J,358.3,23317,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23317,1,3,0)
 ;;=3^Pleural effusion in other conditions classified elsewhere
 ;;^UTILITY(U,$J,358.3,23317,1,4,0)
 ;;=4^J91.8
 ;;^UTILITY(U,$J,358.3,23317,2)
 ;;=^5008311
 ;;^UTILITY(U,$J,358.3,23318,0)
 ;;=J20.9^^78^1006^2
 ;;^UTILITY(U,$J,358.3,23318,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23318,1,3,0)
 ;;=3^Bronchitis,Acute,Unspec
 ;;^UTILITY(U,$J,358.3,23318,1,4,0)
 ;;=4^J20.9
 ;;^UTILITY(U,$J,358.3,23318,2)
 ;;=^5008195
 ;;^UTILITY(U,$J,358.3,23319,0)
 ;;=J98.01^^78^1006^3
 ;;^UTILITY(U,$J,358.3,23319,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23319,1,3,0)
 ;;=3^Bronchospasm,Acute
 ;;^UTILITY(U,$J,358.3,23319,1,4,0)
 ;;=4^J98.01
 ;;^UTILITY(U,$J,358.3,23319,2)
 ;;=^334092
 ;;^UTILITY(U,$J,358.3,23320,0)
 ;;=R06.00^^78^1006^6
 ;;^UTILITY(U,$J,358.3,23320,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23320,1,3,0)
 ;;=3^Dyspnea
 ;;^UTILITY(U,$J,358.3,23320,1,4,0)
 ;;=4^R06.00
 ;;^UTILITY(U,$J,358.3,23320,2)
 ;;=^5019180
 ;;^UTILITY(U,$J,358.3,23321,0)
 ;;=J18.9^^78^1006^11
 ;;^UTILITY(U,$J,358.3,23321,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23321,1,3,0)
 ;;=3^Pneumonia,Unspec
 ;;^UTILITY(U,$J,358.3,23321,1,4,0)
 ;;=4^J18.9
 ;;^UTILITY(U,$J,358.3,23321,2)
 ;;=^95632
 ;;^UTILITY(U,$J,358.3,23322,0)
 ;;=J12.9^^78^1006^12
 ;;^UTILITY(U,$J,358.3,23322,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23322,1,3,0)
 ;;=3^Pneumonia,Viral
 ;;^UTILITY(U,$J,358.3,23322,1,4,0)
 ;;=4^J12.9
 ;;^UTILITY(U,$J,358.3,23322,2)
 ;;=^5008169
 ;;^UTILITY(U,$J,358.3,23323,0)
 ;;=G47.33^^78^1006^14
 ;;^UTILITY(U,$J,358.3,23323,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23323,1,3,0)
 ;;=3^Sleep Apnea,Obstructive
 ;;^UTILITY(U,$J,358.3,23323,1,4,0)
 ;;=4^G47.33
 ;;^UTILITY(U,$J,358.3,23323,2)
 ;;=^332763
 ;;^UTILITY(U,$J,358.3,23324,0)
 ;;=R06.1^^78^1006^15
 ;;^UTILITY(U,$J,358.3,23324,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23324,1,3,0)
 ;;=3^Stridor
 ;;^UTILITY(U,$J,358.3,23324,1,4,0)
 ;;=4^R06.1
 ;;^UTILITY(U,$J,358.3,23324,2)
 ;;=^5019183