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

IBDEI2F4.m

Go to the documentation of this file.
IBDEI2F4 ; ; 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,38615,1,2,0)
 ;;=2^99355
 ;;^UTILITY(U,$J,358.3,38615,1,3,0)
 ;;=3^Prolonged Service,Pt Contact,ea addl 30 min
 ;;^UTILITY(U,$J,358.3,38616,0)
 ;;=99358^^151^1975^3^^^^1
 ;;^UTILITY(U,$J,358.3,38616,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38616,1,2,0)
 ;;=2^99358
 ;;^UTILITY(U,$J,358.3,38616,1,3,0)
 ;;=3^Prolonged Service w/o Pt Contact,1st hr
 ;;^UTILITY(U,$J,358.3,38617,0)
 ;;=99359^^151^1975^4^^^^1
 ;;^UTILITY(U,$J,358.3,38617,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38617,1,2,0)
 ;;=2^99359
 ;;^UTILITY(U,$J,358.3,38617,1,3,0)
 ;;=3^Prolonged Service w/o Pt Contact,ea addl 30 min
 ;;^UTILITY(U,$J,358.3,38618,0)
 ;;=90471^^151^1976^1^^^^1
 ;;^UTILITY(U,$J,358.3,38618,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38618,1,2,0)
 ;;=2^90471
 ;;^UTILITY(U,$J,358.3,38618,1,3,0)
 ;;=3^Immunization Admin,1 Vaccine
 ;;^UTILITY(U,$J,358.3,38619,0)
 ;;=90472^^151^1976^2^^^^1
 ;;^UTILITY(U,$J,358.3,38619,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38619,1,2,0)
 ;;=2^90472
 ;;^UTILITY(U,$J,358.3,38619,1,3,0)
 ;;=3^Immunization Admin,Ea Addl
 ;;^UTILITY(U,$J,358.3,38620,0)
 ;;=12011^^151^1977^1^^^^1
 ;;^UTILITY(U,$J,358.3,38620,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38620,1,2,0)
 ;;=2^12011
 ;;^UTILITY(U,$J,358.3,38620,1,3,0)
 ;;=3^Simple Repair;2.5cm or Less
 ;;^UTILITY(U,$J,358.3,38621,0)
 ;;=12013^^151^1977^2^^^^1
 ;;^UTILITY(U,$J,358.3,38621,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38621,1,2,0)
 ;;=2^12013
 ;;^UTILITY(U,$J,358.3,38621,1,3,0)
 ;;=3^Simple Repair;2.6-5.0cm
 ;;^UTILITY(U,$J,358.3,38622,0)
 ;;=12014^^151^1977^3^^^^1
 ;;^UTILITY(U,$J,358.3,38622,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38622,1,2,0)
 ;;=2^12014
 ;;^UTILITY(U,$J,358.3,38622,1,3,0)
 ;;=3^Simple Repair;5.1-7.5cm
 ;;^UTILITY(U,$J,358.3,38623,0)
 ;;=12015^^151^1977^4^^^^1
 ;;^UTILITY(U,$J,358.3,38623,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38623,1,2,0)
 ;;=2^12015
 ;;^UTILITY(U,$J,358.3,38623,1,3,0)
 ;;=3^Simple Repair;7.6-12.5cm
 ;;^UTILITY(U,$J,358.3,38624,0)
 ;;=12016^^151^1977^5^^^^1
 ;;^UTILITY(U,$J,358.3,38624,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38624,1,2,0)
 ;;=2^12016
 ;;^UTILITY(U,$J,358.3,38624,1,3,0)
 ;;=3^Simple Repair;12.6-20.0cm
 ;;^UTILITY(U,$J,358.3,38625,0)
 ;;=12017^^151^1977^6^^^^1
 ;;^UTILITY(U,$J,358.3,38625,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38625,1,2,0)
 ;;=2^12017
 ;;^UTILITY(U,$J,358.3,38625,1,3,0)
 ;;=3^Simple Repair;20.1-30.0cm
 ;;^UTILITY(U,$J,358.3,38626,0)
 ;;=12018^^151^1977^7^^^^1
 ;;^UTILITY(U,$J,358.3,38626,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38626,1,2,0)
 ;;=2^12018
 ;;^UTILITY(U,$J,358.3,38626,1,3,0)
 ;;=3^Simple Repair;over 30.0cm
 ;;^UTILITY(U,$J,358.3,38627,0)
 ;;=12001^^151^1978^1^^^^1
 ;;^UTILITY(U,$J,358.3,38627,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38627,1,2,0)
 ;;=2^12001
 ;;^UTILITY(U,$J,358.3,38627,1,3,0)
 ;;=3^Simple Repair;2.5cm or Less
 ;;^UTILITY(U,$J,358.3,38628,0)
 ;;=12002^^151^1978^2^^^^1
 ;;^UTILITY(U,$J,358.3,38628,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38628,1,2,0)
 ;;=2^12002
 ;;^UTILITY(U,$J,358.3,38628,1,3,0)
 ;;=3^Simple Repair;2.6-7.5cm
 ;;^UTILITY(U,$J,358.3,38629,0)
 ;;=12004^^151^1978^3^^^^1
 ;;^UTILITY(U,$J,358.3,38629,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,38629,1,2,0)
 ;;=2^12004
 ;;^UTILITY(U,$J,358.3,38629,1,3,0)
 ;;=3^Simple Repair;7.6-12.5cm
 ;;^UTILITY(U,$J,358.3,38630,0)
 ;;=12005^^151^1978^4^^^^1