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

IBDEI3E1.m

Go to the documentation of this file.
IBDEI3E1 ; ; 19-NOV-2015
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
 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,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
Q Q
 ;;^UTILITY(U,$J,358.3,56957,1,3,0)
 ;;=3^Pre-Op,Cardio Exam
 ;;^UTILITY(U,$J,358.3,56957,1,4,0)
 ;;=4^Z01.810
 ;;^UTILITY(U,$J,358.3,56957,2)
 ;;=^5062625
 ;;^UTILITY(U,$J,358.3,56958,0)
 ;;=Z01.811^^261^2839^4
 ;;^UTILITY(U,$J,358.3,56958,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,56958,1,3,0)
 ;;=3^Pre-Op,Resp Exam
 ;;^UTILITY(U,$J,358.3,56958,1,4,0)
 ;;=4^Z01.811
 ;;^UTILITY(U,$J,358.3,56958,2)
 ;;=^5062626
 ;;^UTILITY(U,$J,358.3,56959,0)
 ;;=Z01.812^^261^2839^2
 ;;^UTILITY(U,$J,358.3,56959,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,56959,1,3,0)
 ;;=3^Pre-Op,Lab Exam
 ;;^UTILITY(U,$J,358.3,56959,1,4,0)
 ;;=4^Z01.812
 ;;^UTILITY(U,$J,358.3,56959,2)
 ;;=^5062627
 ;;^UTILITY(U,$J,358.3,56960,0)
 ;;=Z01.818^^261^2839^3
 ;;^UTILITY(U,$J,358.3,56960,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,56960,1,3,0)
 ;;=3^Pre-Op,Other Exam
 ;;^UTILITY(U,$J,358.3,56960,1,4,0)
 ;;=4^Z01.818
 ;;^UTILITY(U,$J,358.3,56960,2)
 ;;=^5062628
 ;;^UTILITY(U,$J,358.3,56961,0)
 ;;=99201^^262^2840^1
 ;;^UTILITY(U,$J,358.3,56961,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,56961,1,1,0)
 ;;=1^Problem Focus
 ;;^UTILITY(U,$J,358.3,56961,1,2,0)
 ;;=2^99201
 ;;^UTILITY(U,$J,358.3,56962,0)
 ;;=99202^^262^2840^2
 ;;^UTILITY(U,$J,358.3,56962,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,56962,1,1,0)
 ;;=1^Expanded Problem Focus
 ;;^UTILITY(U,$J,358.3,56962,1,2,0)
 ;;=2^99202
 ;;^UTILITY(U,$J,358.3,56963,0)
 ;;=99203^^262^2840^3
 ;;^UTILITY(U,$J,358.3,56963,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,56963,1,1,0)
 ;;=1^Detailed
 ;;^UTILITY(U,$J,358.3,56963,1,2,0)
 ;;=2^99203
 ;;^UTILITY(U,$J,358.3,56964,0)
 ;;=99204^^262^2840^4
 ;;^UTILITY(U,$J,358.3,56964,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,56964,1,1,0)
 ;;=1^Comprehensive, Moderate
 ;;^UTILITY(U,$J,358.3,56964,1,2,0)
 ;;=2^99204
 ;;^UTILITY(U,$J,358.3,56965,0)
 ;;=99205^^262^2840^5
 ;;^UTILITY(U,$J,358.3,56965,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,56965,1,1,0)
 ;;=1^Comprehensive, High
 ;;^UTILITY(U,$J,358.3,56965,1,2,0)
 ;;=2^99205
 ;;^UTILITY(U,$J,358.3,56966,0)
 ;;=99211^^262^2841^2
 ;;^UTILITY(U,$J,358.3,56966,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,56966,1,1,0)
 ;;=1^Brief (No Md Seen)
 ;;^UTILITY(U,$J,358.3,56966,1,2,0)
 ;;=2^99211
 ;;^UTILITY(U,$J,358.3,56967,0)
 ;;=99212^^262^2841^3
 ;;^UTILITY(U,$J,358.3,56967,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,56967,1,1,0)
 ;;=1^Problem Focused
 ;;^UTILITY(U,$J,358.3,56967,1,2,0)
 ;;=2^99212
 ;;^UTILITY(U,$J,358.3,56968,0)
 ;;=99213^^262^2841^4
 ;;^UTILITY(U,$J,358.3,56968,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,56968,1,1,0)
 ;;=1^Expanded Problem Focus
 ;;^UTILITY(U,$J,358.3,56968,1,2,0)
 ;;=2^99213
 ;;^UTILITY(U,$J,358.3,56969,0)
 ;;=99214^^262^2841^5
 ;;^UTILITY(U,$J,358.3,56969,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,56969,1,1,0)
 ;;=1^Detailed
 ;;^UTILITY(U,$J,358.3,56969,1,2,0)
 ;;=2^99214
 ;;^UTILITY(U,$J,358.3,56970,0)
 ;;=99215^^262^2841^6
 ;;^UTILITY(U,$J,358.3,56970,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,56970,1,1,0)
 ;;=1^Comprehensive
 ;;^UTILITY(U,$J,358.3,56970,1,2,0)
 ;;=2^99215
 ;;^UTILITY(U,$J,358.3,56971,0)
 ;;=99024^^262^2841^1
 ;;^UTILITY(U,$J,358.3,56971,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,56971,1,1,0)
 ;;=1^Post Op Visit In Global
 ;;^UTILITY(U,$J,358.3,56971,1,2,0)
 ;;=2^99024
 ;;^UTILITY(U,$J,358.3,56972,0)
 ;;=99241^^262^2842^1
 ;;^UTILITY(U,$J,358.3,56972,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,56972,1,1,0)
 ;;=1^Problem Focused
 ;;^UTILITY(U,$J,358.3,56972,1,2,0)
 ;;=2^99241
 ;;^UTILITY(U,$J,358.3,56973,0)
 ;;=99242^^262^2842^2
 ;;^UTILITY(U,$J,358.3,56973,1,0)
 ;;=^358.31IA^2^2