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

IBDEI17F.m

Go to the documentation of this file.
IBDEI17F ; ; 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,19564,1,4,0)
 ;;=4^I69.254
 ;;^UTILITY(U,$J,358.3,19564,2)
 ;;=^5007476
 ;;^UTILITY(U,$J,358.3,19565,0)
 ;;=I69.341^^67^877^55
 ;;^UTILITY(U,$J,358.3,19565,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19565,1,3,0)
 ;;=3^Monoplg low lmb fol cerebral infrc aff right dominant side
 ;;^UTILITY(U,$J,358.3,19565,1,4,0)
 ;;=4^I69.341
 ;;^UTILITY(U,$J,358.3,19565,2)
 ;;=^5007501
 ;;^UTILITY(U,$J,358.3,19566,0)
 ;;=I69.342^^67^877^56
 ;;^UTILITY(U,$J,358.3,19566,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19566,1,3,0)
 ;;=3^Monoplg low lmb fol cerebral infrc aff left dominant side
 ;;^UTILITY(U,$J,358.3,19566,1,4,0)
 ;;=4^I69.342
 ;;^UTILITY(U,$J,358.3,19566,2)
 ;;=^5133575
 ;;^UTILITY(U,$J,358.3,19567,0)
 ;;=I69.343^^67^877^57
 ;;^UTILITY(U,$J,358.3,19567,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19567,1,3,0)
 ;;=3^Monoplg low lmb fol cerebral infrc aff right nondom side
 ;;^UTILITY(U,$J,358.3,19567,1,4,0)
 ;;=4^I69.343
 ;;^UTILITY(U,$J,358.3,19567,2)
 ;;=^5007502
 ;;^UTILITY(U,$J,358.3,19568,0)
 ;;=I69.344^^67^877^58
 ;;^UTILITY(U,$J,358.3,19568,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19568,1,3,0)
 ;;=3^Monoplg low lmb fol cerebral infrc aff left nondom side
 ;;^UTILITY(U,$J,358.3,19568,1,4,0)
 ;;=4^I69.344
 ;;^UTILITY(U,$J,358.3,19568,2)
 ;;=^5133576
 ;;^UTILITY(U,$J,358.3,19569,0)
 ;;=I69.141^^67^877^59
 ;;^UTILITY(U,$J,358.3,19569,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19569,1,3,0)
 ;;=3^Monoplg low lmb fol ntrm intcrbl hemor aff right dom side
 ;;^UTILITY(U,$J,358.3,19569,1,4,0)
 ;;=4^I69.141
 ;;^UTILITY(U,$J,358.3,19569,2)
 ;;=^5007437
 ;;^UTILITY(U,$J,358.3,19570,0)
 ;;=I69.142^^67^877^60
 ;;^UTILITY(U,$J,358.3,19570,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19570,1,3,0)
 ;;=3^Monoplg low lmb fol ntrm intcrbl hemor aff left dom side
 ;;^UTILITY(U,$J,358.3,19570,1,4,0)
 ;;=4^I69.142
 ;;^UTILITY(U,$J,358.3,19570,2)
 ;;=^5133573
 ;;^UTILITY(U,$J,358.3,19571,0)
 ;;=I69.143^^67^877^61
 ;;^UTILITY(U,$J,358.3,19571,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19571,1,3,0)
 ;;=3^Monoplg low lmb fol ntrm intcrbl hemor aff right nondom side
 ;;^UTILITY(U,$J,358.3,19571,1,4,0)
 ;;=4^I69.143
 ;;^UTILITY(U,$J,358.3,19571,2)
 ;;=^5007438
 ;;^UTILITY(U,$J,358.3,19572,0)
 ;;=I69.144^^67^877^62
 ;;^UTILITY(U,$J,358.3,19572,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19572,1,3,0)
 ;;=3^Monoplg low lmb fol ntrm intcrbl hemor aff left nondom side
 ;;^UTILITY(U,$J,358.3,19572,1,4,0)
 ;;=4^I69.144
 ;;^UTILITY(U,$J,358.3,19572,2)
 ;;=^5007439
 ;;^UTILITY(U,$J,358.3,19573,0)
 ;;=I69.041^^67^877^63
 ;;^UTILITY(U,$J,358.3,19573,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19573,1,3,0)
 ;;=3^Monoplg low lmb fol ntrm subarach hemor aff right dom side
 ;;^UTILITY(U,$J,358.3,19573,1,4,0)
 ;;=4^I69.041
 ;;^UTILITY(U,$J,358.3,19573,2)
 ;;=^5007405
 ;;^UTILITY(U,$J,358.3,19574,0)
 ;;=I69.042^^67^877^64
 ;;^UTILITY(U,$J,358.3,19574,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19574,1,3,0)
 ;;=3^Monoplg low lmb fol ntrm subarach hemor aff left dom side
 ;;^UTILITY(U,$J,358.3,19574,1,4,0)
 ;;=4^I69.042
 ;;^UTILITY(U,$J,358.3,19574,2)
 ;;=^5133572
 ;;^UTILITY(U,$J,358.3,19575,0)
 ;;=I69.043^^67^877^65
 ;;^UTILITY(U,$J,358.3,19575,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19575,1,3,0)
 ;;=3^Monoplg low lmb fol ntrm subarach hemor aff r nondom side
 ;;^UTILITY(U,$J,358.3,19575,1,4,0)
 ;;=4^I69.043
 ;;^UTILITY(U,$J,358.3,19575,2)
 ;;=^5007406