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

IBDEI0N5.m

Go to the documentation of this file.
IBDEI0N5 ; ; 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,10417,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10417,1,2,0)
 ;;=2^ADVANCED CARE PLAN,30 MIN
 ;;^UTILITY(U,$J,358.3,10417,1,3,0)
 ;;=3^99497
 ;;^UTILITY(U,$J,358.3,10418,0)
 ;;=99498^^40^446^2^^^^1
 ;;^UTILITY(U,$J,358.3,10418,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10418,1,2,0)
 ;;=2^ADVANCED CARE PLAN,EA ADDL 30 MIN
 ;;^UTILITY(U,$J,358.3,10418,1,3,0)
 ;;=3^99498
 ;;^UTILITY(U,$J,358.3,10419,0)
 ;;=90471^^40^447^1^^^^1
 ;;^UTILITY(U,$J,358.3,10419,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10419,1,2,0)
 ;;=2^IMMUNIZATION ADMIN,1 VACCINE
 ;;^UTILITY(U,$J,358.3,10419,1,3,0)
 ;;=3^90471
 ;;^UTILITY(U,$J,358.3,10420,0)
 ;;=90472^^40^447^2^^^^1
 ;;^UTILITY(U,$J,358.3,10420,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10420,1,2,0)
 ;;=2^IMMUNIZATION ADMIN,EA ADDL VACCINE
 ;;^UTILITY(U,$J,358.3,10420,1,3,0)
 ;;=3^90472
 ;;^UTILITY(U,$J,358.3,10421,0)
 ;;=99340^^40^448^2^^^^1
 ;;^UTILITY(U,$J,358.3,10421,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10421,1,2,0)
 ;;=2^PHYS SUPV OF PT IN HOME/DOM/R-HOME,30+ MIN
 ;;^UTILITY(U,$J,358.3,10421,1,3,0)
 ;;=3^99340
 ;;^UTILITY(U,$J,358.3,10422,0)
 ;;=99375^^40^448^1^^^^1
 ;;^UTILITY(U,$J,358.3,10422,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10422,1,2,0)
 ;;=2^HOME HEALTH CARE SUPERVISION,30 + MIN
 ;;^UTILITY(U,$J,358.3,10422,1,3,0)
 ;;=3^99375
 ;;^UTILITY(U,$J,358.3,10423,0)
 ;;=0001A^^40^449^1^^^^1
 ;;^UTILITY(U,$J,358.3,10423,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10423,1,2,0)
 ;;=2^Admin COVID-19 Vaccine (Moderna),1st Dose
 ;;^UTILITY(U,$J,358.3,10423,1,3,0)
 ;;=3^0001A
 ;;^UTILITY(U,$J,358.3,10424,0)
 ;;=0012A^^40^449^2^^^^1
 ;;^UTILITY(U,$J,358.3,10424,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10424,1,2,0)
 ;;=2^Admin COVID-19 Vaccine (Moderna),2nd Dose
 ;;^UTILITY(U,$J,358.3,10424,1,3,0)
 ;;=3^0012A
 ;;^UTILITY(U,$J,358.3,10425,0)
 ;;=0001A^^40^449^3^^^^1
 ;;^UTILITY(U,$J,358.3,10425,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10425,1,2,0)
 ;;=2^Admin COVID-19 Vaccine (Pfizer),1st Dose 
 ;;^UTILITY(U,$J,358.3,10425,1,3,0)
 ;;=3^0001A
 ;;^UTILITY(U,$J,358.3,10426,0)
 ;;=0002A^^40^449^4^^^^1
 ;;^UTILITY(U,$J,358.3,10426,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10426,1,2,0)
 ;;=2^Admin COVID-19 Vaccine (Pfizer),2nd Dose 
 ;;^UTILITY(U,$J,358.3,10426,1,3,0)
 ;;=3^0002A
 ;;^UTILITY(U,$J,358.3,10427,0)
 ;;=Q0243^^40^449^7^^^^1
 ;;^UTILITY(U,$J,358.3,10427,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10427,1,2,0)
 ;;=2^Casirivimab & Imdevimab 2400mg           
 ;;^UTILITY(U,$J,358.3,10427,1,3,0)
 ;;=3^Q0243
 ;;^UTILITY(U,$J,358.3,10428,0)
 ;;=M0243^^40^449^8^^^^1
 ;;^UTILITY(U,$J,358.3,10428,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10428,1,2,0)
 ;;=2^Casirivimab & Imdevimab Infusion         
 ;;^UTILITY(U,$J,358.3,10428,1,3,0)
 ;;=3^M0243
 ;;^UTILITY(U,$J,358.3,10429,0)
 ;;=91300^^40^449^9^^^^1
 ;;^UTILITY(U,$J,358.3,10429,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10429,1,2,0)
 ;;=2^SARSCOV2 Vaccine 0.3ml (Pfizer)          
 ;;^UTILITY(U,$J,358.3,10429,1,3,0)
 ;;=3^91300
 ;;^UTILITY(U,$J,358.3,10430,0)
 ;;=91301^^40^449^10^^^^1
 ;;^UTILITY(U,$J,358.3,10430,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10430,1,2,0)
 ;;=2^SARSCOV2 Vaccine 0.5ml (Moderna)         
 ;;^UTILITY(U,$J,358.3,10430,1,3,0)
 ;;=3^91301
 ;;^UTILITY(U,$J,358.3,10431,0)
 ;;=M0245^^40^449^5^^^^1
 ;;^UTILITY(U,$J,358.3,10431,1,0)
 ;;=^358.31IA^3^2