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

IBDEI2F7.m

Go to the documentation of this file.
IBDEI2F7 ; ; 04-FEB-2020
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
 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,38659,1,3,0)
 ;;=3^HIB VACCINE, PRP-T, IM
 ;;^UTILITY(U,$J,358.3,38660,0)
 ;;=90649^^151^1984^15^^^^1
 ;;^UTILITY(U,$J,358.3,38660,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38660,1,2,0)
 ;;=2^90649
 ;;^UTILITY(U,$J,358.3,38660,1,3,0)
 ;;=3^H PAPILLOMA VACC 3 DOSE IM
 ;;^UTILITY(U,$J,358.3,38661,0)
 ;;=90675^^151^1984^32^^^^1
 ;;^UTILITY(U,$J,358.3,38661,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38661,1,2,0)
 ;;=2^90675
 ;;^UTILITY(U,$J,358.3,38661,1,3,0)
 ;;=3^RABIES VACCINE, IM
 ;;^UTILITY(U,$J,358.3,38662,0)
 ;;=90676^^151^1984^31^^^^1
 ;;^UTILITY(U,$J,358.3,38662,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38662,1,2,0)
 ;;=2^90676
 ;;^UTILITY(U,$J,358.3,38662,1,3,0)
 ;;=3^RABIES VACCINE, ID
 ;;^UTILITY(U,$J,358.3,38663,0)
 ;;=90680^^151^1984^33^^^^1
 ;;^UTILITY(U,$J,358.3,38663,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38663,1,2,0)
 ;;=2^90680
 ;;^UTILITY(U,$J,358.3,38663,1,3,0)
 ;;=3^ROTOVIRUS VACC 3 DOSE, ORAL
 ;;^UTILITY(U,$J,358.3,38664,0)
 ;;=90698^^151^1984^4^^^^1
 ;;^UTILITY(U,$J,358.3,38664,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38664,1,2,0)
 ;;=2^90698
 ;;^UTILITY(U,$J,358.3,38664,1,3,0)
 ;;=3^DTAP-HIB-IP VACCINE, IM
 ;;^UTILITY(U,$J,358.3,38665,0)
 ;;=90707^^151^1984^26^^^^1
 ;;^UTILITY(U,$J,358.3,38665,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38665,1,2,0)
 ;;=2^90707
 ;;^UTILITY(U,$J,358.3,38665,1,3,0)
 ;;=3^MMR VACCINE, SC
 ;;^UTILITY(U,$J,358.3,38666,0)
 ;;=90710^^151^1984^27^^^^1
 ;;^UTILITY(U,$J,358.3,38666,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38666,1,2,0)
 ;;=2^90710
 ;;^UTILITY(U,$J,358.3,38666,1,3,0)
 ;;=3^MMRV VACCINE, SC
 ;;^UTILITY(U,$J,358.3,38667,0)
 ;;=90713^^151^1984^29^^^^1
 ;;^UTILITY(U,$J,358.3,38667,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38667,1,2,0)
 ;;=2^90713
 ;;^UTILITY(U,$J,358.3,38667,1,3,0)
 ;;=3^POLIOVIRUS, IPV, SC/IM
 ;;^UTILITY(U,$J,358.3,38668,0)
 ;;=90714^^151^1984^34^^^^1
 ;;^UTILITY(U,$J,358.3,38668,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38668,1,2,0)
 ;;=2^90714
 ;;^UTILITY(U,$J,358.3,38668,1,3,0)
 ;;=3^TD VACCINE NO PRSRV  IM
 ;;^UTILITY(U,$J,358.3,38669,0)
 ;;=90723^^151^1984^3^^^^1
 ;;^UTILITY(U,$J,358.3,38669,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38669,1,2,0)
 ;;=2^90723
 ;;^UTILITY(U,$J,358.3,38669,1,3,0)
 ;;=3^DTAP-HEP B-IPV VACCINE, IM
 ;;^UTILITY(U,$J,358.3,38670,0)
 ;;=90734^^151^1984^22^^^^1
 ;;^UTILITY(U,$J,358.3,38670,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38670,1,2,0)
 ;;=2^90734
 ;;^UTILITY(U,$J,358.3,38670,1,3,0)
 ;;=3^MENINGOCOCCAL VACCINE, IM
 ;;^UTILITY(U,$J,358.3,38671,0)
 ;;=90733^^151^1984^23^^^^1
 ;;^UTILITY(U,$J,358.3,38671,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38671,1,2,0)
 ;;=2^90733
 ;;^UTILITY(U,$J,358.3,38671,1,3,0)
 ;;=3^MENINGOCOCCAL VACCINE, SC
 ;;^UTILITY(U,$J,358.3,38672,0)
 ;;=90736^^151^1984^38^^^^1
 ;;^UTILITY(U,$J,358.3,38672,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38672,1,2,0)
 ;;=2^90736
 ;;^UTILITY(U,$J,358.3,38672,1,3,0)
 ;;=3^ZOSTER (SHINGLES) VACCINE
 ;;^UTILITY(U,$J,358.3,38673,0)
 ;;=90746^^151^1984^18^^^^1
 ;;^UTILITY(U,$J,358.3,38673,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38673,1,2,0)
 ;;=2^90746
 ;;^UTILITY(U,$J,358.3,38673,1,3,0)
 ;;=3^HEP B VACCINE, ADULT, IM
 ;;^UTILITY(U,$J,358.3,38674,0)
 ;;=90748^^151^1984^19^^^^1
 ;;^UTILITY(U,$J,358.3,38674,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38674,1,2,0)
 ;;=2^90748