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

IBDEI2VI.m

Go to the documentation of this file.
IBDEI2VI ; ; 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,45834,1,4,0)
 ;;=4^Z68.33
 ;;^UTILITY(U,$J,358.3,45834,2)
 ;;=^5063212
 ;;^UTILITY(U,$J,358.3,45835,0)
 ;;=Z68.34^^173^2284^16
 ;;^UTILITY(U,$J,358.3,45835,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,45835,1,3,0)
 ;;=3^Body mass index (BMI) 34.0-34.9, adult
 ;;^UTILITY(U,$J,358.3,45835,1,4,0)
 ;;=4^Z68.34
 ;;^UTILITY(U,$J,358.3,45835,2)
 ;;=^5063213
 ;;^UTILITY(U,$J,358.3,45836,0)
 ;;=Z68.35^^173^2284^17
 ;;^UTILITY(U,$J,358.3,45836,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,45836,1,3,0)
 ;;=3^Body mass index (BMI) 35.0-35.9, adult
 ;;^UTILITY(U,$J,358.3,45836,1,4,0)
 ;;=4^Z68.35
 ;;^UTILITY(U,$J,358.3,45836,2)
 ;;=^5063214
 ;;^UTILITY(U,$J,358.3,45837,0)
 ;;=Z68.36^^173^2284^18
 ;;^UTILITY(U,$J,358.3,45837,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,45837,1,3,0)
 ;;=3^Body mass index (BMI) 36.0-36.9, adult
 ;;^UTILITY(U,$J,358.3,45837,1,4,0)
 ;;=4^Z68.36
 ;;^UTILITY(U,$J,358.3,45837,2)
 ;;=^5063215
 ;;^UTILITY(U,$J,358.3,45838,0)
 ;;=Z68.37^^173^2284^19
 ;;^UTILITY(U,$J,358.3,45838,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,45838,1,3,0)
 ;;=3^Body mass index (BMI) 37.0-37.9, adult
 ;;^UTILITY(U,$J,358.3,45838,1,4,0)
 ;;=4^Z68.37
 ;;^UTILITY(U,$J,358.3,45838,2)
 ;;=^5063216
 ;;^UTILITY(U,$J,358.3,45839,0)
 ;;=Z68.38^^173^2284^20
 ;;^UTILITY(U,$J,358.3,45839,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,45839,1,3,0)
 ;;=3^Body mass index (BMI) 38.0-38.9, adult
 ;;^UTILITY(U,$J,358.3,45839,1,4,0)
 ;;=4^Z68.38
 ;;^UTILITY(U,$J,358.3,45839,2)
 ;;=^5063217
 ;;^UTILITY(U,$J,358.3,45840,0)
 ;;=Z68.39^^173^2284^21
 ;;^UTILITY(U,$J,358.3,45840,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,45840,1,3,0)
 ;;=3^Body mass index (BMI) 39.0-39.9, adult
 ;;^UTILITY(U,$J,358.3,45840,1,4,0)
 ;;=4^Z68.39
 ;;^UTILITY(U,$J,358.3,45840,2)
 ;;=^5063218
 ;;^UTILITY(U,$J,358.3,45841,0)
 ;;=Z68.41^^173^2284^22
 ;;^UTILITY(U,$J,358.3,45841,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,45841,1,3,0)
 ;;=3^Body mass index (BMI) 40.0-44.9, adult
 ;;^UTILITY(U,$J,358.3,45841,1,4,0)
 ;;=4^Z68.41
 ;;^UTILITY(U,$J,358.3,45841,2)
 ;;=^5063219
 ;;^UTILITY(U,$J,358.3,45842,0)
 ;;=Z68.42^^173^2284^23
 ;;^UTILITY(U,$J,358.3,45842,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,45842,1,3,0)
 ;;=3^Body mass index (BMI) 45.0-49.9, adult
 ;;^UTILITY(U,$J,358.3,45842,1,4,0)
 ;;=4^Z68.42
 ;;^UTILITY(U,$J,358.3,45842,2)
 ;;=^5063220
 ;;^UTILITY(U,$J,358.3,45843,0)
 ;;=Z68.43^^173^2284^24
 ;;^UTILITY(U,$J,358.3,45843,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,45843,1,3,0)
 ;;=3^Body mass index (BMI) 50-59.9 , adult
 ;;^UTILITY(U,$J,358.3,45843,1,4,0)
 ;;=4^Z68.43
 ;;^UTILITY(U,$J,358.3,45843,2)
 ;;=^5063221
 ;;^UTILITY(U,$J,358.3,45844,0)
 ;;=Z68.44^^173^2284^25
 ;;^UTILITY(U,$J,358.3,45844,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,45844,1,3,0)
 ;;=3^Body mass index (BMI) 60.0-69.9, adult
 ;;^UTILITY(U,$J,358.3,45844,1,4,0)
 ;;=4^Z68.44
 ;;^UTILITY(U,$J,358.3,45844,2)
 ;;=^5063222
 ;;^UTILITY(U,$J,358.3,45845,0)
 ;;=Z68.45^^173^2284^26
 ;;^UTILITY(U,$J,358.3,45845,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,45845,1,3,0)
 ;;=3^Body mass index (BMI) 70 or greater, adult
 ;;^UTILITY(U,$J,358.3,45845,1,4,0)
 ;;=4^Z68.45
 ;;^UTILITY(U,$J,358.3,45845,2)
 ;;=^5063223
 ;;^UTILITY(U,$J,358.3,45846,0)
 ;;=E66.1^^173^2285^1
 ;;^UTILITY(U,$J,358.3,45846,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,45846,1,3,0)
 ;;=3^Obesity,Drug-Induced