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

IBDEI2SQ.m

Go to the documentation of this file.
IBDEI2SQ ; ; 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,44587,0)
 ;;=90746^^166^2212^6^^^^1
 ;;^UTILITY(U,$J,358.3,44587,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,44587,1,2,0)
 ;;=2^90746
 ;;^UTILITY(U,$J,358.3,44587,1,3,0)
 ;;=3^Hepatitis B Vaccine (3 dose)
 ;;^UTILITY(U,$J,358.3,44588,0)
 ;;=90636^^166^2212^5^^^^1
 ;;^UTILITY(U,$J,358.3,44588,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,44588,1,2,0)
 ;;=2^90636
 ;;^UTILITY(U,$J,358.3,44588,1,3,0)
 ;;=3^Hepatitis A&B Vaccine
 ;;^UTILITY(U,$J,358.3,44589,0)
 ;;=90707^^166^2212^7^^^^1
 ;;^UTILITY(U,$J,358.3,44589,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,44589,1,2,0)
 ;;=2^90707
 ;;^UTILITY(U,$J,358.3,44589,1,3,0)
 ;;=3^MMR Vaccine
 ;;^UTILITY(U,$J,358.3,44590,0)
 ;;=90658^^166^2212^2^^^^1
 ;;^UTILITY(U,$J,358.3,44590,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,44590,1,2,0)
 ;;=2^90658
 ;;^UTILITY(U,$J,358.3,44590,1,3,0)
 ;;=3^Flu Vaccine,IM
 ;;^UTILITY(U,$J,358.3,44591,0)
 ;;=90732^^166^2212^9^^^^1
 ;;^UTILITY(U,$J,358.3,44591,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,44591,1,2,0)
 ;;=2^90732
 ;;^UTILITY(U,$J,358.3,44591,1,3,0)
 ;;=3^Pneumococcal Vaccine
 ;;^UTILITY(U,$J,358.3,44592,0)
 ;;=90715^^166^2212^11^^^^1
 ;;^UTILITY(U,$J,358.3,44592,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,44592,1,2,0)
 ;;=2^90715
 ;;^UTILITY(U,$J,358.3,44592,1,3,0)
 ;;=3^Tdap Vaccine
 ;;^UTILITY(U,$J,358.3,44593,0)
 ;;=90736^^166^2212^13^^^^1
 ;;^UTILITY(U,$J,358.3,44593,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,44593,1,2,0)
 ;;=2^90736
 ;;^UTILITY(U,$J,358.3,44593,1,3,0)
 ;;=3^Zoster (Shingles) Vaccine
 ;;^UTILITY(U,$J,358.3,44594,0)
 ;;=86580^^166^2212^8^^^^1
 ;;^UTILITY(U,$J,358.3,44594,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,44594,1,2,0)
 ;;=2^86580
 ;;^UTILITY(U,$J,358.3,44594,1,3,0)
 ;;=3^PPD Skin Test
 ;;^UTILITY(U,$J,358.3,44595,0)
 ;;=96372^^166^2212^12^^^^1
 ;;^UTILITY(U,$J,358.3,44595,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,44595,1,2,0)
 ;;=2^96372
 ;;^UTILITY(U,$J,358.3,44595,1,3,0)
 ;;=3^Ther/Proph/Diag Inj SC/IM
 ;;^UTILITY(U,$J,358.3,44596,0)
 ;;=90714^^166^2212^10^^^^1
 ;;^UTILITY(U,$J,358.3,44596,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,44596,1,2,0)
 ;;=2^90714
 ;;^UTILITY(U,$J,358.3,44596,1,3,0)
 ;;=3^TD Vaccine
 ;;^UTILITY(U,$J,358.3,44597,0)
 ;;=90656^^166^2212^3^^^^1
 ;;^UTILITY(U,$J,358.3,44597,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,44597,1,2,0)
 ;;=2^90656
 ;;^UTILITY(U,$J,358.3,44597,1,3,0)
 ;;=3^Flu Vaccine,Preservative Free,IM
 ;;^UTILITY(U,$J,358.3,44598,0)
 ;;=90662^^166^2212^1^^^^1
 ;;^UTILITY(U,$J,358.3,44598,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,44598,1,2,0)
 ;;=2^90662
 ;;^UTILITY(U,$J,358.3,44598,1,3,0)
 ;;=3^Flu Vaccine,High Dose,Split Dose
 ;;^UTILITY(U,$J,358.3,44599,0)
 ;;=90887^^166^2213^1^^^^1
 ;;^UTILITY(U,$J,358.3,44599,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,44599,1,2,0)
 ;;=2^90887
 ;;^UTILITY(U,$J,358.3,44599,1,3,0)
 ;;=3^Consultation w/Family
 ;;^UTILITY(U,$J,358.3,44600,0)
 ;;=90791^^166^2213^10^^^^1
 ;;^UTILITY(U,$J,358.3,44600,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,44600,1,2,0)
 ;;=2^90791
 ;;^UTILITY(U,$J,358.3,44600,1,3,0)
 ;;=3^Psych Diagnostic Interview
 ;;^UTILITY(U,$J,358.3,44601,0)
 ;;=90846^^166^2213^3^^^^1
 ;;^UTILITY(U,$J,358.3,44601,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,44601,1,2,0)
 ;;=2^90846
 ;;^UTILITY(U,$J,358.3,44601,1,3,0)
 ;;=3^Family Psytx w/o Patient,50 min
 ;;^UTILITY(U,$J,358.3,44602,0)
 ;;=99401^^166^2213^6^^^^1