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

IBDEI1K4.m

Go to the documentation of this file.
  1. IBDEI1K4 ; ; 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,25244,0)
  1. ;;=90698^^91^1146^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,25244,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,25244,1,2,0)
  1. ;;=2^90698
  1. ;;^UTILITY(U,$J,358.3,25244,1,3,0)
  1. ;;=3^DTAP-HIB-IP VACCINE, IM
  1. ;;^UTILITY(U,$J,358.3,25245,0)
  1. ;;=90707^^91^1146^28^^^^1
  1. ;;^UTILITY(U,$J,358.3,25245,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,25245,1,2,0)
  1. ;;=2^90707
  1. ;;^UTILITY(U,$J,358.3,25245,1,3,0)
  1. ;;=3^MMR VACCINE, SC
  1. ;;^UTILITY(U,$J,358.3,25246,0)
  1. ;;=90710^^91^1146^29^^^^1
  1. ;;^UTILITY(U,$J,358.3,25246,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,25246,1,2,0)
  1. ;;=2^90710
  1. ;;^UTILITY(U,$J,358.3,25246,1,3,0)
  1. ;;=3^MMRV VACCINE, SC
  1. ;;^UTILITY(U,$J,358.3,25247,0)
  1. ;;=90713^^91^1146^31^^^^1
  1. ;;^UTILITY(U,$J,358.3,25247,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,25247,1,2,0)
  1. ;;=2^90713
  1. ;;^UTILITY(U,$J,358.3,25247,1,3,0)
  1. ;;=3^POLIOVIRUS, IPV, SC/IM
  1. ;;^UTILITY(U,$J,358.3,25248,0)
  1. ;;=90714^^91^1146^36^^^^1
  1. ;;^UTILITY(U,$J,358.3,25248,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,25248,1,2,0)
  1. ;;=2^90714
  1. ;;^UTILITY(U,$J,358.3,25248,1,3,0)
  1. ;;=3^TD VACCINE NO PRSRV IM
  1. ;;^UTILITY(U,$J,358.3,25249,0)
  1. ;;=90723^^91^1146^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,25249,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,25249,1,2,0)
  1. ;;=2^90723
  1. ;;^UTILITY(U,$J,358.3,25249,1,3,0)
  1. ;;=3^DTAP-HEP B-IPV VACCINE, IM
  1. ;;^UTILITY(U,$J,358.3,25250,0)
  1. ;;=90734^^91^1146^24^^^^1
  1. ;;^UTILITY(U,$J,358.3,25250,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,25250,1,2,0)
  1. ;;=2^90734
  1. ;;^UTILITY(U,$J,358.3,25250,1,3,0)
  1. ;;=3^MENINGOCOCCAL VACCINE, IM
  1. ;;^UTILITY(U,$J,358.3,25251,0)
  1. ;;=90733^^91^1146^25^^^^1
  1. ;;^UTILITY(U,$J,358.3,25251,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,25251,1,2,0)
  1. ;;=2^90733
  1. ;;^UTILITY(U,$J,358.3,25251,1,3,0)
  1. ;;=3^MENINGOCOCCAL VACCINE, SC
  1. ;;^UTILITY(U,$J,358.3,25252,0)
  1. ;;=90736^^91^1146^43^^^^1
  1. ;;^UTILITY(U,$J,358.3,25252,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,25252,1,2,0)
  1. ;;=2^90736
  1. ;;^UTILITY(U,$J,358.3,25252,1,3,0)
  1. ;;=3^ZOSTER (SHINGLES) VACCINE
  1. ;;^UTILITY(U,$J,358.3,25253,0)
  1. ;;=90746^^91^1146^20^^^^1
  1. ;;^UTILITY(U,$J,358.3,25253,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,25253,1,2,0)
  1. ;;=2^90746
  1. ;;^UTILITY(U,$J,358.3,25253,1,3,0)
  1. ;;=3^HEP B VACCINE, ADULT, IM
  1. ;;^UTILITY(U,$J,358.3,25254,0)
  1. ;;=90748^^91^1146^21^^^^1
  1. ;;^UTILITY(U,$J,358.3,25254,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,25254,1,2,0)
  1. ;;=2^90748
  1. ;;^UTILITY(U,$J,358.3,25254,1,3,0)
  1. ;;=3^HEP B/HIB VACCINE, IM
  1. ;;^UTILITY(U,$J,358.3,25255,0)
  1. ;;=90715^^91^1146^37^^^^1
  1. ;;^UTILITY(U,$J,358.3,25255,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,25255,1,2,0)
  1. ;;=2^90715
  1. ;;^UTILITY(U,$J,358.3,25255,1,3,0)
  1. ;;=3^TDAP VACCINE
  1. ;;^UTILITY(U,$J,358.3,25256,0)
  1. ;;=90716^^91^1146^41^^^^1
  1. ;;^UTILITY(U,$J,358.3,25256,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,25256,1,2,0)
  1. ;;=2^90716
  1. ;;^UTILITY(U,$J,358.3,25256,1,3,0)
  1. ;;=3^VARIVAX (CHICKEN POX) VACCINE
  1. ;;^UTILITY(U,$J,358.3,25257,0)
  1. ;;=90664^^91^1146^9^^^^1
  1. ;;^UTILITY(U,$J,358.3,25257,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,25257,1,2,0)
  1. ;;=2^90664
  1. ;;^UTILITY(U,$J,358.3,25257,1,3,0)
  1. ;;=3^FLU VACCINE INTRANASAL,PANDEMIC,LIVE
  1. ;;^UTILITY(U,$J,358.3,25258,0)
  1. ;;=90749^^91^1146^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,25258,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,25258,1,2,0)
  1. ;;=2^90749
  1. ;;^UTILITY(U,$J,358.3,25258,1,3,0)
  1. ;;=3^DTP VACCINE, IM
  1. ;;^UTILITY(U,$J,358.3,25259,0)
  1. ;;=90656^^91^1146^14^^^^1