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

IBDEI2PL.m

Go to the documentation of this file.
IBDEI2PL ; ; 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,43183,1,3,0)
 ;;=3^Physical Performance Test
 ;;^UTILITY(U,$J,358.3,43184,0)
 ;;=95990^^156^2094^9^^^^1
 ;;^UTILITY(U,$J,358.3,43184,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43184,1,2,0)
 ;;=2^95990
 ;;^UTILITY(U,$J,358.3,43184,1,3,0)
 ;;=3^Spine/Brain Pump Refll/Maint
 ;;^UTILITY(U,$J,358.3,43185,0)
 ;;=99201^^157^2095^1
 ;;^UTILITY(U,$J,358.3,43185,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,43185,1,1,0)
 ;;=1^Problem Focus
 ;;^UTILITY(U,$J,358.3,43185,1,2,0)
 ;;=2^99201
 ;;^UTILITY(U,$J,358.3,43186,0)
 ;;=99202^^157^2095^2
 ;;^UTILITY(U,$J,358.3,43186,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,43186,1,1,0)
 ;;=1^Expanded Problem Focus
 ;;^UTILITY(U,$J,358.3,43186,1,2,0)
 ;;=2^99202
 ;;^UTILITY(U,$J,358.3,43187,0)
 ;;=99203^^157^2095^3
 ;;^UTILITY(U,$J,358.3,43187,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,43187,1,1,0)
 ;;=1^Detailed
 ;;^UTILITY(U,$J,358.3,43187,1,2,0)
 ;;=2^99203
 ;;^UTILITY(U,$J,358.3,43188,0)
 ;;=99204^^157^2095^4
 ;;^UTILITY(U,$J,358.3,43188,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,43188,1,1,0)
 ;;=1^Comprehensive, Moderate
 ;;^UTILITY(U,$J,358.3,43188,1,2,0)
 ;;=2^99204
 ;;^UTILITY(U,$J,358.3,43189,0)
 ;;=99205^^157^2095^5
 ;;^UTILITY(U,$J,358.3,43189,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,43189,1,1,0)
 ;;=1^Comprehensive, High
 ;;^UTILITY(U,$J,358.3,43189,1,2,0)
 ;;=2^99205
 ;;^UTILITY(U,$J,358.3,43190,0)
 ;;=99211^^157^2096^1
 ;;^UTILITY(U,$J,358.3,43190,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,43190,1,1,0)
 ;;=1^Brief (no MD seen)
 ;;^UTILITY(U,$J,358.3,43190,1,2,0)
 ;;=2^99211
 ;;^UTILITY(U,$J,358.3,43191,0)
 ;;=99212^^157^2096^2
 ;;^UTILITY(U,$J,358.3,43191,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,43191,1,1,0)
 ;;=1^Problem Focused
 ;;^UTILITY(U,$J,358.3,43191,1,2,0)
 ;;=2^99212
 ;;^UTILITY(U,$J,358.3,43192,0)
 ;;=99213^^157^2096^3
 ;;^UTILITY(U,$J,358.3,43192,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,43192,1,1,0)
 ;;=1^Expanded Problem Focus
 ;;^UTILITY(U,$J,358.3,43192,1,2,0)
 ;;=2^99213
 ;;^UTILITY(U,$J,358.3,43193,0)
 ;;=99214^^157^2096^4
 ;;^UTILITY(U,$J,358.3,43193,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,43193,1,1,0)
 ;;=1^Detailed
 ;;^UTILITY(U,$J,358.3,43193,1,2,0)
 ;;=2^99214
 ;;^UTILITY(U,$J,358.3,43194,0)
 ;;=99215^^157^2096^5
 ;;^UTILITY(U,$J,358.3,43194,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,43194,1,1,0)
 ;;=1^Comprehensive
 ;;^UTILITY(U,$J,358.3,43194,1,2,0)
 ;;=2^99215
 ;;^UTILITY(U,$J,358.3,43195,0)
 ;;=99241^^157^2097^1
 ;;^UTILITY(U,$J,358.3,43195,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,43195,1,1,0)
 ;;=1^Prob Focused Visit
 ;;^UTILITY(U,$J,358.3,43195,1,2,0)
 ;;=2^99241
 ;;^UTILITY(U,$J,358.3,43196,0)
 ;;=99242^^157^2097^2
 ;;^UTILITY(U,$J,358.3,43196,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,43196,1,1,0)
 ;;=1^Exp Prob Focused Visit
 ;;^UTILITY(U,$J,358.3,43196,1,2,0)
 ;;=2^99242
 ;;^UTILITY(U,$J,358.3,43197,0)
 ;;=99243^^157^2097^3
 ;;^UTILITY(U,$J,358.3,43197,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,43197,1,1,0)
 ;;=1^Detailed Visit
 ;;^UTILITY(U,$J,358.3,43197,1,2,0)
 ;;=2^99243
 ;;^UTILITY(U,$J,358.3,43198,0)
 ;;=99244^^157^2097^4
 ;;^UTILITY(U,$J,358.3,43198,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,43198,1,1,0)
 ;;=1^Comp Visit/Mod Decision
 ;;^UTILITY(U,$J,358.3,43198,1,2,0)
 ;;=2^99244
 ;;^UTILITY(U,$J,358.3,43199,0)
 ;;=99245^^157^2097^5
 ;;^UTILITY(U,$J,358.3,43199,1,0)
 ;;=^358.31IA^2^2