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

IBDEI11J.m

Go to the documentation of this file.
  1. IBDEI11J ; ; 01-FEB-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 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,16916,0)
  1. ;;=R50.82^^61^777^27
  1. ;;^UTILITY(U,$J,358.3,16916,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16916,1,3,0)
  1. ;;=3^Fever,Postprocedural
  1. ;;^UTILITY(U,$J,358.3,16916,1,4,0)
  1. ;;=4^R50.82
  1. ;;^UTILITY(U,$J,358.3,16916,2)
  1. ;;=^5019509
  1. ;;^UTILITY(U,$J,358.3,16917,0)
  1. ;;=R50.83^^61^777^29
  1. ;;^UTILITY(U,$J,358.3,16917,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16917,1,3,0)
  1. ;;=3^Fever,Postvaccination
  1. ;;^UTILITY(U,$J,358.3,16917,1,4,0)
  1. ;;=4^R50.83
  1. ;;^UTILITY(U,$J,358.3,16917,2)
  1. ;;=^5019510
  1. ;;^UTILITY(U,$J,358.3,16918,0)
  1. ;;=R50.84^^61^777^28
  1. ;;^UTILITY(U,$J,358.3,16918,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16918,1,3,0)
  1. ;;=3^Fever,Posttransfusion
  1. ;;^UTILITY(U,$J,358.3,16918,1,4,0)
  1. ;;=4^R50.84
  1. ;;^UTILITY(U,$J,358.3,16918,2)
  1. ;;=^5019511
  1. ;;^UTILITY(U,$J,358.3,16919,0)
  1. ;;=B02.23^^61^777^74
  1. ;;^UTILITY(U,$J,358.3,16919,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16919,1,3,0)
  1. ;;=3^Postherpetic Polyneuropathy
  1. ;;^UTILITY(U,$J,358.3,16919,1,4,0)
  1. ;;=4^B02.23
  1. ;;^UTILITY(U,$J,358.3,16919,2)
  1. ;;=^266550
  1. ;;^UTILITY(U,$J,358.3,16920,0)
  1. ;;=B02.22^^61^777^75
  1. ;;^UTILITY(U,$J,358.3,16920,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16920,1,3,0)
  1. ;;=3^Postherpetic Trigeminal Neuralgia
  1. ;;^UTILITY(U,$J,358.3,16920,1,4,0)
  1. ;;=4^B02.22
  1. ;;^UTILITY(U,$J,358.3,16920,2)
  1. ;;=^266546
  1. ;;^UTILITY(U,$J,358.3,16921,0)
  1. ;;=J03.91^^61^777^87
  1. ;;^UTILITY(U,$J,358.3,16921,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16921,1,3,0)
  1. ;;=3^Tonsillitis,Acute Recurrent,Unspec
  1. ;;^UTILITY(U,$J,358.3,16921,1,4,0)
  1. ;;=4^J03.91
  1. ;;^UTILITY(U,$J,358.3,16921,2)
  1. ;;=^5008136
  1. ;;^UTILITY(U,$J,358.3,16922,0)
  1. ;;=U07.1^^61^777^16
  1. ;;^UTILITY(U,$J,358.3,16922,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16922,1,3,0)
  1. ;;=3^COVID-19
  1. ;;^UTILITY(U,$J,358.3,16922,1,4,0)
  1. ;;=4^U07.1
  1. ;;^UTILITY(U,$J,358.3,16922,2)
  1. ;;=^5159070
  1. ;;^UTILITY(U,$J,358.3,16923,0)
  1. ;;=A84.81^^61^777^76
  1. ;;^UTILITY(U,$J,358.3,16923,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16923,1,3,0)
  1. ;;=3^Powassan Virus Disease
  1. ;;^UTILITY(U,$J,358.3,16923,1,4,0)
  1. ;;=4^A84.81
  1. ;;^UTILITY(U,$J,358.3,16923,2)
  1. ;;=^5159071
  1. ;;^UTILITY(U,$J,358.3,16924,0)
  1. ;;=A84.89^^61^777^85
  1. ;;^UTILITY(U,$J,358.3,16924,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16924,1,3,0)
  1. ;;=3^Tick-Borne Viral Encephalitis,Other
  1. ;;^UTILITY(U,$J,358.3,16924,1,4,0)
  1. ;;=4^A84.89
  1. ;;^UTILITY(U,$J,358.3,16924,2)
  1. ;;=^5159072
  1. ;;^UTILITY(U,$J,358.3,16925,0)
  1. ;;=A84.9^^61^777^86
  1. ;;^UTILITY(U,$J,358.3,16925,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16925,1,3,0)
  1. ;;=3^Tick-Borne Viral Encephalitis,Unspec
  1. ;;^UTILITY(U,$J,358.3,16925,1,4,0)
  1. ;;=4^A84.9
  1. ;;^UTILITY(U,$J,358.3,16925,2)
  1. ;;=^5000426
  1. ;;^UTILITY(U,$J,358.3,16926,0)
  1. ;;=Z11.52^^61^777^17
  1. ;;^UTILITY(U,$J,358.3,16926,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16926,1,3,0)
  1. ;;=3^COVID-19 Screening
  1. ;;^UTILITY(U,$J,358.3,16926,1,4,0)
  1. ;;=4^Z11.52
  1. ;;^UTILITY(U,$J,358.3,16926,2)
  1. ;;=^5160186
  1. ;;^UTILITY(U,$J,358.3,16927,0)
  1. ;;=Z20.822^^61^777^21
  1. ;;^UTILITY(U,$J,358.3,16927,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16927,1,3,0)
  1. ;;=3^Contact with & Suspected Exposure to COVID-19
  1. ;;^UTILITY(U,$J,358.3,16927,1,4,0)
  1. ;;=4^Z20.822
  1. ;;^UTILITY(U,$J,358.3,16927,2)
  1. ;;=^5160187
  1. ;;^UTILITY(U,$J,358.3,16928,0)
  1. ;;=Z86.16^^61^777^68
  1. ;;^UTILITY(U,$J,358.3,16928,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16928,1,3,0)
  1. ;;=3^Personal Hx of COVID-19