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