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

IBDEI1BE.m

Go to the documentation of this file.
IBDEI1BE ; ; 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,21255,2)
 ;;=^5000958
 ;;^UTILITY(U,$J,358.3,21256,0)
 ;;=C34.92^^70^912^9
 ;;^UTILITY(U,$J,358.3,21256,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21256,1,3,0)
 ;;=3^Malig Neop Left Bronchus/Lung,Unspec Part
 ;;^UTILITY(U,$J,358.3,21256,1,4,0)
 ;;=4^C34.92
 ;;^UTILITY(U,$J,358.3,21256,2)
 ;;=^5000968
 ;;^UTILITY(U,$J,358.3,21257,0)
 ;;=C34.91^^70^912^18
 ;;^UTILITY(U,$J,358.3,21257,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21257,1,3,0)
 ;;=3^Malig Neop Right Bronchus/Lung,Unspec Part
 ;;^UTILITY(U,$J,358.3,21257,1,4,0)
 ;;=4^C34.91
 ;;^UTILITY(U,$J,358.3,21257,2)
 ;;=^5000967
 ;;^UTILITY(U,$J,358.3,21258,0)
 ;;=C34.12^^70^912^12
 ;;^UTILITY(U,$J,358.3,21258,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21258,1,3,0)
 ;;=3^Malig Neop Left Upper Lobe Bronchus/Lung
 ;;^UTILITY(U,$J,358.3,21258,1,4,0)
 ;;=4^C34.12
 ;;^UTILITY(U,$J,358.3,21258,2)
 ;;=^5000962
 ;;^UTILITY(U,$J,358.3,21259,0)
 ;;=C34.11^^70^912^21
 ;;^UTILITY(U,$J,358.3,21259,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21259,1,3,0)
 ;;=3^Malig Neop Right Upper Lobe Bronchus/Lung
 ;;^UTILITY(U,$J,358.3,21259,1,4,0)
 ;;=4^C34.11
 ;;^UTILITY(U,$J,358.3,21259,2)
 ;;=^5000961
 ;;^UTILITY(U,$J,358.3,21260,0)
 ;;=C39.0^^70^912^22
 ;;^UTILITY(U,$J,358.3,21260,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21260,1,3,0)
 ;;=3^Malig Neop Upper Respiratory Tract,Unspec Part
 ;;^UTILITY(U,$J,358.3,21260,1,4,0)
 ;;=4^C39.0
 ;;^UTILITY(U,$J,358.3,21260,2)
 ;;=^5000971
 ;;^UTILITY(U,$J,358.3,21261,0)
 ;;=C78.02^^70^912^23
 ;;^UTILITY(U,$J,358.3,21261,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21261,1,3,0)
 ;;=3^Secondary Malig Neop Left Lung
 ;;^UTILITY(U,$J,358.3,21261,1,4,0)
 ;;=4^C78.02
 ;;^UTILITY(U,$J,358.3,21261,2)
 ;;=^5001336
 ;;^UTILITY(U,$J,358.3,21262,0)
 ;;=C78.01^^70^912^24
 ;;^UTILITY(U,$J,358.3,21262,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21262,1,3,0)
 ;;=3^Secondary Malig Neop Right Lung
 ;;^UTILITY(U,$J,358.3,21262,1,4,0)
 ;;=4^C78.01
 ;;^UTILITY(U,$J,358.3,21262,2)
 ;;=^5001335
 ;;^UTILITY(U,$J,358.3,21263,0)
 ;;=I50.41^^70^913^1
 ;;^UTILITY(U,$J,358.3,21263,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21263,1,3,0)
 ;;=3^AC Combined Systolic & Diastolic Congestive Hrt Failure
 ;;^UTILITY(U,$J,358.3,21263,1,4,0)
 ;;=4^I50.41
 ;;^UTILITY(U,$J,358.3,21263,2)
 ;;=^5007248
 ;;^UTILITY(U,$J,358.3,21264,0)
 ;;=I50.31^^70^913^2
 ;;^UTILITY(U,$J,358.3,21264,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21264,1,3,0)
 ;;=3^AC Diastolic Congestive Hrt Failure
 ;;^UTILITY(U,$J,358.3,21264,1,4,0)
 ;;=4^I50.31
 ;;^UTILITY(U,$J,358.3,21264,2)
 ;;=^5007244
 ;;^UTILITY(U,$J,358.3,21265,0)
 ;;=I50.43^^70^913^5
 ;;^UTILITY(U,$J,358.3,21265,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21265,1,3,0)
 ;;=3^AC on Chr Combined Systolic & Diastolic Congestive Hrt Failure
 ;;^UTILITY(U,$J,358.3,21265,1,4,0)
 ;;=4^I50.43
 ;;^UTILITY(U,$J,358.3,21265,2)
 ;;=^5007250
 ;;^UTILITY(U,$J,358.3,21266,0)
 ;;=I50.33^^70^913^6
 ;;^UTILITY(U,$J,358.3,21266,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21266,1,3,0)
 ;;=3^AC on Chr Diastolic Congestive Hrt Failure
 ;;^UTILITY(U,$J,358.3,21266,1,4,0)
 ;;=4^I50.33
 ;;^UTILITY(U,$J,358.3,21266,2)
 ;;=^5007246
 ;;^UTILITY(U,$J,358.3,21267,0)
 ;;=I50.23^^70^913^8
 ;;^UTILITY(U,$J,358.3,21267,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,21267,1,3,0)
 ;;=3^AC on Chr Systolic Congestive Hrt Failure
 ;;^UTILITY(U,$J,358.3,21267,1,4,0)
 ;;=4^I50.23