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

IBDEI0YB.m

Go to the documentation of this file.
IBDEI0YB ; ; 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,15477,1,2,0)
 ;;=2^99359
 ;;^UTILITY(U,$J,358.3,15477,1,3,0)
 ;;=3^Prolonged Svc w/o Pt Contact,ea addl 30 min
 ;;^UTILITY(U,$J,358.3,15478,0)
 ;;=99417^^59^741^1^^^^1
 ;;^UTILITY(U,$J,358.3,15478,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,15478,1,2,0)
 ;;=2^99417
 ;;^UTILITY(U,$J,358.3,15478,1,3,0)
 ;;=3^Prolonged Svc Use w/ Outpt E/M,Ea 15 min
 ;;^UTILITY(U,$J,358.3,15479,0)
 ;;=90471^^59^742^1^^^^1
 ;;^UTILITY(U,$J,358.3,15479,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,15479,1,2,0)
 ;;=2^90471
 ;;^UTILITY(U,$J,358.3,15479,1,3,0)
 ;;=3^Immunization Admin,1 Vaccine
 ;;^UTILITY(U,$J,358.3,15480,0)
 ;;=90472^^59^742^2^^^^1
 ;;^UTILITY(U,$J,358.3,15480,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,15480,1,2,0)
 ;;=2^90472
 ;;^UTILITY(U,$J,358.3,15480,1,3,0)
 ;;=3^Immunization Admin,Ea Addl
 ;;^UTILITY(U,$J,358.3,15481,0)
 ;;=12011^^59^743^1^^^^1
 ;;^UTILITY(U,$J,358.3,15481,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,15481,1,2,0)
 ;;=2^12011
 ;;^UTILITY(U,$J,358.3,15481,1,3,0)
 ;;=3^Simple Repair;2.5cm or Less
 ;;^UTILITY(U,$J,358.3,15482,0)
 ;;=12013^^59^743^2^^^^1
 ;;^UTILITY(U,$J,358.3,15482,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,15482,1,2,0)
 ;;=2^12013
 ;;^UTILITY(U,$J,358.3,15482,1,3,0)
 ;;=3^Simple Repair;2.6-5.0cm
 ;;^UTILITY(U,$J,358.3,15483,0)
 ;;=12014^^59^743^3^^^^1
 ;;^UTILITY(U,$J,358.3,15483,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,15483,1,2,0)
 ;;=2^12014
 ;;^UTILITY(U,$J,358.3,15483,1,3,0)
 ;;=3^Simple Repair;5.1-7.5cm
 ;;^UTILITY(U,$J,358.3,15484,0)
 ;;=12015^^59^743^4^^^^1
 ;;^UTILITY(U,$J,358.3,15484,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,15484,1,2,0)
 ;;=2^12015
 ;;^UTILITY(U,$J,358.3,15484,1,3,0)
 ;;=3^Simple Repair;7.6-12.5cm
 ;;^UTILITY(U,$J,358.3,15485,0)
 ;;=12016^^59^743^5^^^^1
 ;;^UTILITY(U,$J,358.3,15485,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,15485,1,2,0)
 ;;=2^12016
 ;;^UTILITY(U,$J,358.3,15485,1,3,0)
 ;;=3^Simple Repair;12.6-20.0cm
 ;;^UTILITY(U,$J,358.3,15486,0)
 ;;=12017^^59^743^6^^^^1
 ;;^UTILITY(U,$J,358.3,15486,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,15486,1,2,0)
 ;;=2^12017
 ;;^UTILITY(U,$J,358.3,15486,1,3,0)
 ;;=3^Simple Repair;20.1-30.0cm
 ;;^UTILITY(U,$J,358.3,15487,0)
 ;;=12018^^59^743^7^^^^1
 ;;^UTILITY(U,$J,358.3,15487,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,15487,1,2,0)
 ;;=2^12018
 ;;^UTILITY(U,$J,358.3,15487,1,3,0)
 ;;=3^Simple Repair;over 30.0cm
 ;;^UTILITY(U,$J,358.3,15488,0)
 ;;=12001^^59^744^1^^^^1
 ;;^UTILITY(U,$J,358.3,15488,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,15488,1,2,0)
 ;;=2^12001
 ;;^UTILITY(U,$J,358.3,15488,1,3,0)
 ;;=3^Simple Repair;2.5cm or Less
 ;;^UTILITY(U,$J,358.3,15489,0)
 ;;=12002^^59^744^2^^^^1
 ;;^UTILITY(U,$J,358.3,15489,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,15489,1,2,0)
 ;;=2^12002
 ;;^UTILITY(U,$J,358.3,15489,1,3,0)
 ;;=3^Simple Repair;2.6-7.5cm
 ;;^UTILITY(U,$J,358.3,15490,0)
 ;;=12004^^59^744^3^^^^1
 ;;^UTILITY(U,$J,358.3,15490,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,15490,1,2,0)
 ;;=2^12004
 ;;^UTILITY(U,$J,358.3,15490,1,3,0)
 ;;=3^Simple Repair;7.6-12.5cm
 ;;^UTILITY(U,$J,358.3,15491,0)
 ;;=12005^^59^744^4^^^^1
 ;;^UTILITY(U,$J,358.3,15491,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,15491,1,2,0)
 ;;=2^12005
 ;;^UTILITY(U,$J,358.3,15491,1,3,0)
 ;;=3^Simple Repair;12.6-20.0cm
 ;;^UTILITY(U,$J,358.3,15492,0)
 ;;=12006^^59^744^5^^^^1
 ;;^UTILITY(U,$J,358.3,15492,1,0)
 ;;=^358.31IA^3^2