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

IBDEI0FL.m

Go to the documentation of this file.
  1. IBDEI0FL ; ; 03-MAY-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 2022
  1. 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
  1. Q Q
  1. ;;^UTILITY(U,$J,358.3,38965,1,4,0)
  1. ;;=4^G0445
  1. ;;^UTILITY(U,$J,358.3,38966,0)
  1. ;;=G0459^^109^1530^41^^^^1
  1. ;;^UTILITY(U,$J,358.3,38966,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38966,1,2,0)
  1. ;;=2^Inpt TH Pharm Mgmt
  1. ;;^UTILITY(U,$J,358.3,38966,1,4,0)
  1. ;;=4^G0459
  1. ;;^UTILITY(U,$J,358.3,38967,0)
  1. ;;=G0446^^109^1530^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,38967,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38967,1,2,0)
  1. ;;=2^Annual Intense Bhv Tx for Cardio Dx,15 min
  1. ;;^UTILITY(U,$J,358.3,38967,1,4,0)
  1. ;;=4^G0446
  1. ;;^UTILITY(U,$J,358.3,38968,0)
  1. ;;=G0447^^109^1530^13^^^^1
  1. ;;^UTILITY(U,$J,358.3,38968,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38968,1,2,0)
  1. ;;=2^Bhv Counsel for Obesity,15 min
  1. ;;^UTILITY(U,$J,358.3,38968,1,4,0)
  1. ;;=4^G0447
  1. ;;^UTILITY(U,$J,358.3,38969,0)
  1. ;;=G0506^^109^1530^17^^^^1
  1. ;;^UTILITY(U,$J,358.3,38969,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38969,1,2,0)
  1. ;;=2^Comp Assmt Care Plan CCM Svc
  1. ;;^UTILITY(U,$J,358.3,38969,1,4,0)
  1. ;;=4^G0506
  1. ;;^UTILITY(U,$J,358.3,38970,0)
  1. ;;=G0513^^109^1530^57^^^^1
  1. ;;^UTILITY(U,$J,358.3,38970,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38970,1,2,0)
  1. ;;=2^Prolong Prev Outpt Svc,1st 30 min
  1. ;;^UTILITY(U,$J,358.3,38970,1,4,0)
  1. ;;=4^G0513
  1. ;;^UTILITY(U,$J,358.3,38971,0)
  1. ;;=G0514^^109^1530^58^^^^1
  1. ;;^UTILITY(U,$J,358.3,38971,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38971,1,2,0)
  1. ;;=2^Prolong Prev Outpt Svc,Ea Addl 30 min
  1. ;;^UTILITY(U,$J,358.3,38971,1,4,0)
  1. ;;=4^G0514
  1. ;;^UTILITY(U,$J,358.3,38972,0)
  1. ;;=G2086^^109^1530^51^^^^1
  1. ;;^UTILITY(U,$J,358.3,38972,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38972,1,2,0)
  1. ;;=2^Outpt Based Opioid Tx,70 min
  1. ;;^UTILITY(U,$J,358.3,38972,1,4,0)
  1. ;;=4^G2086
  1. ;;^UTILITY(U,$J,358.3,38973,0)
  1. ;;=G2087^^109^1530^50^^^^1
  1. ;;^UTILITY(U,$J,358.3,38973,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38973,1,2,0)
  1. ;;=2^Outpt Based Opioid Tx,60 min
  1. ;;^UTILITY(U,$J,358.3,38973,1,4,0)
  1. ;;=4^G2087
  1. ;;^UTILITY(U,$J,358.3,38974,0)
  1. ;;=G2088^^109^1530^52^^^^1
  1. ;;^UTILITY(U,$J,358.3,38974,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38974,1,2,0)
  1. ;;=2^Outpt Based Opioid Tx,Ea Addl 30 min
  1. ;;^UTILITY(U,$J,358.3,38974,1,4,0)
  1. ;;=4^G2088
  1. ;;^UTILITY(U,$J,358.3,38975,0)
  1. ;;=U07.1^^110^1531^1
  1. ;;^UTILITY(U,$J,358.3,38975,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38975,1,3,0)
  1. ;;=3^Confirmed COVID-19
  1. ;;^UTILITY(U,$J,358.3,38975,1,4,0)
  1. ;;=4^U07.1
  1. ;;^UTILITY(U,$J,358.3,38975,2)
  1. ;;=^5159070
  1. ;;^UTILITY(U,$J,358.3,38976,0)
  1. ;;=U09.9^^110^1531^2
  1. ;;^UTILITY(U,$J,358.3,38976,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38976,1,3,0)
  1. ;;=3^Post COVID-19 Condition,Unspec
  1. ;;^UTILITY(U,$J,358.3,38976,1,4,0)
  1. ;;=4^U09.9
  1. ;;^UTILITY(U,$J,358.3,38976,2)
  1. ;;=^5161298
  1. ;;^UTILITY(U,$J,358.3,38977,0)
  1. ;;=Z20.822^^110^1532^1
  1. ;;^UTILITY(U,$J,358.3,38977,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38977,1,3,0)
  1. ;;=3^Contact w/ & Exposure to COVID-19
  1. ;;^UTILITY(U,$J,358.3,38977,1,4,0)
  1. ;;=4^Z20.822
  1. ;;^UTILITY(U,$J,358.3,38977,2)
  1. ;;=^5160187
  1. ;;^UTILITY(U,$J,358.3,38978,0)
  1. ;;=J20.8^^110^1533^1
  1. ;;^UTILITY(U,$J,358.3,38978,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38978,1,3,0)
  1. ;;=3^Bronchitis,Acute d/t Other Spec Organisms
  1. ;;^UTILITY(U,$J,358.3,38978,1,4,0)
  1. ;;=4^J20.8
  1. ;;^UTILITY(U,$J,358.3,38978,2)
  1. ;;=^5008194
  1. ;;^UTILITY(U,$J,358.3,38979,0)
  1. ;;=J22.^^110^1533^11
  1. ;;^UTILITY(U,$J,358.3,38979,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38979,1,3,0)
  1. ;;=3^Lower Respiratory Infection,Acute,Unspec
  1. ;;^UTILITY(U,$J,358.3,38979,1,4,0)
  1. ;;=4^J22.
  1. ;;^UTILITY(U,$J,358.3,38979,2)
  1. ;;=^5008200
  1. ;;^UTILITY(U,$J,358.3,38980,0)
  1. ;;=J98.8^^110^1533^15
  1. ;;^UTILITY(U,$J,358.3,38980,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38980,1,3,0)
  1. ;;=3^Respiratory Disorder,Other Spec
  1. ;;^UTILITY(U,$J,358.3,38980,1,4,0)
  1. ;;=4^J98.8
  1. ;;^UTILITY(U,$J,358.3,38980,2)
  1. ;;=^5008365
  1. ;;^UTILITY(U,$J,358.3,38981,0)
  1. ;;=R50.9^^110^1533^10
  1. ;;^UTILITY(U,$J,358.3,38981,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38981,1,3,0)
  1. ;;=3^Fever,Unspec
  1. ;;^UTILITY(U,$J,358.3,38981,1,4,0)
  1. ;;=4^R50.9
  1. ;;^UTILITY(U,$J,358.3,38981,2)
  1. ;;=^5019512
  1. ;;^UTILITY(U,$J,358.3,38982,0)
  1. ;;=R06.02^^110^1533^17
  1. ;;^UTILITY(U,$J,358.3,38982,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38982,1,3,0)
  1. ;;=3^Shortness of Breath
  1. ;;^UTILITY(U,$J,358.3,38982,1,4,0)
  1. ;;=4^R06.02
  1. ;;^UTILITY(U,$J,358.3,38982,2)
  1. ;;=^5019181
  1. ;;^UTILITY(U,$J,358.3,38983,0)
  1. ;;=J40.^^110^1533^2
  1. ;;^UTILITY(U,$J,358.3,38983,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38983,1,3,0)
  1. ;;=3^Bronchitis,Not Specified as Acute or Chronic
  1. ;;^UTILITY(U,$J,358.3,38983,1,4,0)
  1. ;;=4^J40.
  1. ;;^UTILITY(U,$J,358.3,38983,2)
  1. ;;=^17164
  1. ;;^UTILITY(U,$J,358.3,38984,0)
  1. ;;=J80.^^110^1533^16
  1. ;;^UTILITY(U,$J,358.3,38984,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38984,1,3,0)
  1. ;;=3^Respiratory Distress Syndrome,Acute
  1. ;;^UTILITY(U,$J,358.3,38984,1,4,0)
  1. ;;=4^J80.
  1. ;;^UTILITY(U,$J,358.3,38984,2)
  1. ;;=^5008294
  1. ;;^UTILITY(U,$J,358.3,38985,0)
  1. ;;=J12.82^^110^1533^14
  1. ;;^UTILITY(U,$J,358.3,38985,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38985,1,3,0)
  1. ;;=3^Pneumonia d/t COVID-19
  1. ;;^UTILITY(U,$J,358.3,38985,1,4,0)
  1. ;;=4^J12.82
  1. ;;^UTILITY(U,$J,358.3,38985,2)
  1. ;;=^5160183
  1. ;;^UTILITY(U,$J,358.3,38986,0)
  1. ;;=Z86.16^^110^1533^13
  1. ;;^UTILITY(U,$J,358.3,38986,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38986,1,3,0)
  1. ;;=3^Personal Hx of COVID-19
  1. ;;^UTILITY(U,$J,358.3,38986,1,4,0)
  1. ;;=4^Z86.16
  1. ;;^UTILITY(U,$J,358.3,38986,2)
  1. ;;=^5160188
  1. ;;^UTILITY(U,$J,358.3,38987,0)
  1. ;;=M35.81^^110^1533^12
  1. ;;^UTILITY(U,$J,358.3,38987,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38987,1,3,0)
  1. ;;=3^Multisystem Inflammatory Syndrome
  1. ;;^UTILITY(U,$J,358.3,38987,1,4,0)
  1. ;;=4^M35.81
  1. ;;^UTILITY(U,$J,358.3,38987,2)
  1. ;;=^5160184
  1. ;;^UTILITY(U,$J,358.3,38988,0)
  1. ;;=M35.89^^110^1533^18
  1. ;;^UTILITY(U,$J,358.3,38988,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38988,1,3,0)
  1. ;;=3^Systemic Involvement of Connective Tissue,Oth Spec
  1. ;;^UTILITY(U,$J,358.3,38988,1,4,0)
  1. ;;=4^M35.89
  1. ;;^UTILITY(U,$J,358.3,38988,2)
  1. ;;=^5160185
  1. ;;^UTILITY(U,$J,358.3,38989,0)
  1. ;;=R05.9^^110^1533^8
  1. ;;^UTILITY(U,$J,358.3,38989,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38989,1,3,0)
  1. ;;=3^Cough,Unspec
  1. ;;^UTILITY(U,$J,358.3,38989,1,4,0)
  1. ;;=4^R05.9
  1. ;;^UTILITY(U,$J,358.3,38989,2)
  1. ;;=^5161232
  1. ;;^UTILITY(U,$J,358.3,38990,0)
  1. ;;=R05.1^^110^1533^3
  1. ;;^UTILITY(U,$J,358.3,38990,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38990,1,3,0)
  1. ;;=3^Cough,Acute
  1. ;;^UTILITY(U,$J,358.3,38990,1,4,0)
  1. ;;=4^R05.1
  1. ;;^UTILITY(U,$J,358.3,38990,2)
  1. ;;=^5161227
  1. ;;^UTILITY(U,$J,358.3,38991,0)
  1. ;;=R05.2^^110^1533^6
  1. ;;^UTILITY(U,$J,358.3,38991,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38991,1,3,0)
  1. ;;=3^Cough,Subacute
  1. ;;^UTILITY(U,$J,358.3,38991,1,4,0)
  1. ;;=4^R05.2
  1. ;;^UTILITY(U,$J,358.3,38991,2)
  1. ;;=^5161228
  1. ;;^UTILITY(U,$J,358.3,38992,0)
  1. ;;=R05.3^^110^1533^4
  1. ;;^UTILITY(U,$J,358.3,38992,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38992,1,3,0)
  1. ;;=3^Cough,Chronic
  1. ;;^UTILITY(U,$J,358.3,38992,1,4,0)
  1. ;;=4^R05.3
  1. ;;^UTILITY(U,$J,358.3,38992,2)
  1. ;;=^5161229
  1. ;;^UTILITY(U,$J,358.3,38993,0)
  1. ;;=R05.4^^110^1533^7
  1. ;;^UTILITY(U,$J,358.3,38993,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38993,1,3,0)
  1. ;;=3^Cough,Syncope
  1. ;;^UTILITY(U,$J,358.3,38993,1,4,0)
  1. ;;=4^R05.4
  1. ;;^UTILITY(U,$J,358.3,38993,2)
  1. ;;=^5161230
  1. ;;^UTILITY(U,$J,358.3,38994,0)
  1. ;;=R05.8^^110^1533^5
  1. ;;^UTILITY(U,$J,358.3,38994,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38994,1,3,0)
  1. ;;=3^Cough,Oth Specified
  1. ;;^UTILITY(U,$J,358.3,38994,1,4,0)
  1. ;;=4^R05.8
  1. ;;^UTILITY(U,$J,358.3,38994,2)
  1. ;;=^5161231
  1. ;;^UTILITY(U,$J,358.3,38995,0)
  1. ;;=R50.83^^110^1533^9
  1. ;;^UTILITY(U,$J,358.3,38995,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38995,1,3,0)
  1. ;;=3^Fever,Postvaccination
  1. ;;^UTILITY(U,$J,358.3,38995,1,4,0)
  1. ;;=4^R50.83
  1. ;;^UTILITY(U,$J,358.3,38995,2)
  1. ;;=^5019510
  1. ;;^UTILITY(U,$J,358.3,38996,0)
  1. ;;=Z11.52^^110^1534^1
  1. ;;^UTILITY(U,$J,358.3,38996,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38996,1,3,0)
  1. ;;=3^Screen for COVID-19
  1. ;;^UTILITY(U,$J,358.3,38996,1,4,0)
  1. ;;=4^Z11.52
  1. ;;^UTILITY(U,$J,358.3,38996,2)
  1. ;;=^5160186
  1. ;;^UTILITY(U,$J,358.3,38997,0)
  1. ;;=Z20.822^^110^1535^1
  1. ;;^UTILITY(U,$J,358.3,38997,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38997,1,3,0)
  1. ;;=3^PreProcedure COVID screen
  1. ;;^UTILITY(U,$J,358.3,38997,1,4,0)
  1. ;;=4^Z20.822
  1. ;;^UTILITY(U,$J,358.3,38997,2)
  1. ;;=^5160187
  1. ;;^UTILITY(U,$J,358.3,38998,0)
  1. ;;=Z01.812^^110^1535^2
  1. ;;^UTILITY(U,$J,358.3,38998,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38998,1,3,0)
  1. ;;=3^PreProcedure Lab Screen
  1. ;;^UTILITY(U,$J,358.3,38998,1,4,0)
  1. ;;=4^Z01.812
  1. ;;^UTILITY(U,$J,358.3,38998,2)
  1. ;;=^5062627
  1. ;;^UTILITY(U,$J,358.3,38999,0)
  1. ;;=Z28.310^^110^1536^3
  1. ;;^UTILITY(U,$J,358.3,38999,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38999,1,3,0)
  1. ;;=3^Unvaccinated for COVID-19
  1. ;;^UTILITY(U,$J,358.3,38999,1,4,0)
  1. ;;=4^Z28.310
  1. ;;^UTILITY(U,$J,358.3,38999,2)
  1. ;;=^5161576
  1. ;;^UTILITY(U,$J,358.3,39000,0)
  1. ;;=Z28.311^^110^1536^1
  1. ;;^UTILITY(U,$J,358.3,39000,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39000,1,3,0)
  1. ;;=3^Partially Vaccinated for COVID-19
  1. ;;^UTILITY(U,$J,358.3,39000,1,4,0)
  1. ;;=4^Z28.311
  1. ;;^UTILITY(U,$J,358.3,39000,2)
  1. ;;=^5161577
  1. ;;^UTILITY(U,$J,358.3,39001,0)
  1. ;;=Z28.39^^110^1536^2
  1. ;;^UTILITY(U,$J,358.3,39001,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39001,1,3,0)
  1. ;;=3^Underimmunization Status,Other
  1. ;;^UTILITY(U,$J,358.3,39001,1,4,0)
  1. ;;=4^Z28.39
  1. ;;^UTILITY(U,$J,358.3,39001,2)
  1. ;;=^5161578