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

IBDEI2F6.m

Go to the documentation of this file.
IBDEI2F6 ; ; 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,38645,0)
 ;;=96159^^151^1982^5^^^^1
 ;;^UTILITY(U,$J,358.3,38645,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38645,1,2,0)
 ;;=2^96159
 ;;^UTILITY(U,$J,358.3,38645,1,3,0)
 ;;=3^Hlth/Behav Intvn,Ind,Ea Addl 15 min
 ;;^UTILITY(U,$J,358.3,38646,0)
 ;;=96167^^151^1982^6^^^^1
 ;;^UTILITY(U,$J,358.3,38646,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38646,1,2,0)
 ;;=2^96167
 ;;^UTILITY(U,$J,358.3,38646,1,3,0)
 ;;=3^Hlth/Behav Intvn,Fam & Pt,1st 30 min
 ;;^UTILITY(U,$J,358.3,38647,0)
 ;;=96168^^151^1982^7^^^^1
 ;;^UTILITY(U,$J,358.3,38647,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38647,1,2,0)
 ;;=2^96168
 ;;^UTILITY(U,$J,358.3,38647,1,3,0)
 ;;=3^Hlth/Behav Intvn,Fam & Pt,Ea Addl 15 min
 ;;^UTILITY(U,$J,358.3,38648,0)
 ;;=96170^^151^1982^8^^^^1
 ;;^UTILITY(U,$J,358.3,38648,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38648,1,2,0)
 ;;=2^96170
 ;;^UTILITY(U,$J,358.3,38648,1,3,0)
 ;;=3^Hlth/Behav Intvn,Fam w/o Pt,1st 30 min
 ;;^UTILITY(U,$J,358.3,38649,0)
 ;;=96171^^151^1982^9^^^^1
 ;;^UTILITY(U,$J,358.3,38649,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38649,1,2,0)
 ;;=2^96171
 ;;^UTILITY(U,$J,358.3,38649,1,3,0)
 ;;=3^Hlth/Behav Intvn,Fam w/o Pt,Ea Addl 15 min
 ;;^UTILITY(U,$J,358.3,38650,0)
 ;;=36416^^151^1983^1^^^^1
 ;;^UTILITY(U,$J,358.3,38650,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38650,1,2,0)
 ;;=2^36416
 ;;^UTILITY(U,$J,358.3,38650,1,3,0)
 ;;=3^Capillary Blood Draw
 ;;^UTILITY(U,$J,358.3,38651,0)
 ;;=99606^^151^1983^2^^^^1
 ;;^UTILITY(U,$J,358.3,38651,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38651,1,2,0)
 ;;=2^99606
 ;;^UTILITY(U,$J,358.3,38651,1,3,0)
 ;;=3^MTMS by PHARM,EST,15 min
 ;;^UTILITY(U,$J,358.3,38652,0)
 ;;=99606^^151^1983^3^^^^1
 ;;^UTILITY(U,$J,358.3,38652,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38652,1,2,0)
 ;;=2^99606
 ;;^UTILITY(U,$J,358.3,38652,1,3,0)
 ;;=3^MTMS by PHARM,NP,15 min
 ;;^UTILITY(U,$J,358.3,38653,0)
 ;;=99607^^151^1983^4^^^^1
 ;;^UTILITY(U,$J,358.3,38653,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38653,1,2,0)
 ;;=2^99607
 ;;^UTILITY(U,$J,358.3,38653,1,3,0)
 ;;=3^MTMS by PHARM,Addl 15 min
 ;;^UTILITY(U,$J,358.3,38654,0)
 ;;=90732^^151^1984^28^^^^1
 ;;^UTILITY(U,$J,358.3,38654,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38654,1,2,0)
 ;;=2^90732
 ;;^UTILITY(U,$J,358.3,38654,1,3,0)
 ;;=3^PNEUMOVAX 23 (PNEUMOCOCCAL VACCINE)
 ;;^UTILITY(U,$J,358.3,38655,0)
 ;;=90585^^151^1984^1^^^^1
 ;;^UTILITY(U,$J,358.3,38655,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38655,1,2,0)
 ;;=2^90585
 ;;^UTILITY(U,$J,358.3,38655,1,3,0)
 ;;=3^BCG VACCINE, PERCUT
 ;;^UTILITY(U,$J,358.3,38656,0)
 ;;=90632^^151^1984^16^^^^1
 ;;^UTILITY(U,$J,358.3,38656,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38656,1,2,0)
 ;;=2^90632
 ;;^UTILITY(U,$J,358.3,38656,1,3,0)
 ;;=3^HEP A VACCINE, ADULT IM
 ;;^UTILITY(U,$J,358.3,38657,0)
 ;;=90636^^151^1984^17^^^^1
 ;;^UTILITY(U,$J,358.3,38657,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38657,1,2,0)
 ;;=2^90636
 ;;^UTILITY(U,$J,358.3,38657,1,3,0)
 ;;=3^HEP A/HEP B VACC, ADULT IM
 ;;^UTILITY(U,$J,358.3,38658,0)
 ;;=90647^^151^1984^20^^^^1
 ;;^UTILITY(U,$J,358.3,38658,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38658,1,2,0)
 ;;=2^90647
 ;;^UTILITY(U,$J,358.3,38658,1,3,0)
 ;;=3^HIB VACCINE, PRP-OMP, IM
 ;;^UTILITY(U,$J,358.3,38659,0)
 ;;=90648^^151^1984^21^^^^1
 ;;^UTILITY(U,$J,358.3,38659,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38659,1,2,0)
 ;;=2^90648