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

IBDEI1TA.m

Go to the documentation of this file.
IBDEI1TA ; ; 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,28926,1,2,0)
 ;;=2^99220
 ;;^UTILITY(U,$J,358.3,28927,0)
 ;;=99217^^116^1433^1
 ;;^UTILITY(U,$J,358.3,28927,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,28927,1,1,0)
 ;;=1^DISCHARGE DAY MGMT
 ;;^UTILITY(U,$J,358.3,28927,1,2,0)
 ;;=2^99217
 ;;^UTILITY(U,$J,358.3,28928,0)
 ;;=99234^^116^1434^1
 ;;^UTILITY(U,$J,358.3,28928,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,28928,1,1,0)
 ;;=1^DETAIL OR COMPREH HX & EXAM;SF OR LOW COMPLEX MDM
 ;;^UTILITY(U,$J,358.3,28928,1,2,0)
 ;;=2^99234
 ;;^UTILITY(U,$J,358.3,28929,0)
 ;;=99235^^116^1434^2
 ;;^UTILITY(U,$J,358.3,28929,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,28929,1,1,0)
 ;;=1^COMPREH HX & EXAM;MOD COMPLEX MDM
 ;;^UTILITY(U,$J,358.3,28929,1,2,0)
 ;;=2^99235
 ;;^UTILITY(U,$J,358.3,28930,0)
 ;;=99236^^116^1434^3
 ;;^UTILITY(U,$J,358.3,28930,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,28930,1,1,0)
 ;;=1^COMPREH HX & EXAM;HIGH COMPLEX MDM
 ;;^UTILITY(U,$J,358.3,28930,1,2,0)
 ;;=2^99236
 ;;^UTILITY(U,$J,358.3,28931,0)
 ;;=99231^^116^1435^1
 ;;^UTILITY(U,$J,358.3,28931,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,28931,1,1,0)
 ;;=1^PROB FOCUS HX OR EXAM;SF OR LOW COMPLEX MDM
 ;;^UTILITY(U,$J,358.3,28931,1,2,0)
 ;;=2^99231
 ;;^UTILITY(U,$J,358.3,28932,0)
 ;;=99232^^116^1435^2
 ;;^UTILITY(U,$J,358.3,28932,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,28932,1,1,0)
 ;;=1^EXPAN PROB FOCUS HX OR EXAM;MOD COMPLEX MDM
 ;;^UTILITY(U,$J,358.3,28932,1,2,0)
 ;;=2^99232
 ;;^UTILITY(U,$J,358.3,28933,0)
 ;;=99233^^116^1435^3
 ;;^UTILITY(U,$J,358.3,28933,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,28933,1,1,0)
 ;;=1^DETAILED HX OR EXAM;HIGH COMPLEX MDM
 ;;^UTILITY(U,$J,358.3,28933,1,2,0)
 ;;=2^99233
 ;;^UTILITY(U,$J,358.3,28934,0)
 ;;=99224^^116^1436^1
 ;;^UTILITY(U,$J,358.3,28934,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,28934,1,1,0)
 ;;=1^PROB FOCUS HX OR EXAM;SF OR LOW COMPLEX MDM
 ;;^UTILITY(U,$J,358.3,28934,1,2,0)
 ;;=2^99224
 ;;^UTILITY(U,$J,358.3,28935,0)
 ;;=99225^^116^1436^2
 ;;^UTILITY(U,$J,358.3,28935,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,28935,1,1,0)
 ;;=1^EXPAN PROB FOCUS HX OR EXAM;MOD COMPLEX MDM
 ;;^UTILITY(U,$J,358.3,28935,1,2,0)
 ;;=2^99225
 ;;^UTILITY(U,$J,358.3,28936,0)
 ;;=99226^^116^1436^3
 ;;^UTILITY(U,$J,358.3,28936,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,28936,1,1,0)
 ;;=1^DETAILED HX OR EXAM;HIGH COMPLEX MDM
 ;;^UTILITY(U,$J,358.3,28936,1,2,0)
 ;;=2^99226
 ;;^UTILITY(U,$J,358.3,28937,0)
 ;;=99334^^116^1437^1
 ;;^UTILITY(U,$J,358.3,28937,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,28937,1,1,0)
 ;;=1^PROBLEM FOCUSED HX OR EXAM;SF MDM
 ;;^UTILITY(U,$J,358.3,28937,1,2,0)
 ;;=2^99334
 ;;^UTILITY(U,$J,358.3,28938,0)
 ;;=99335^^116^1437^2
 ;;^UTILITY(U,$J,358.3,28938,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,28938,1,1,0)
 ;;=1^EXPAND PROB FOCUS HX OR EXAM;LOW COMPLEX MDM
 ;;^UTILITY(U,$J,358.3,28938,1,2,0)
 ;;=2^99335
 ;;^UTILITY(U,$J,358.3,28939,0)
 ;;=99336^^116^1437^3
 ;;^UTILITY(U,$J,358.3,28939,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,28939,1,1,0)
 ;;=1^DETAILED HX OR EXAM;MOD COMPLEX MDM
 ;;^UTILITY(U,$J,358.3,28939,1,2,0)
 ;;=2^99336
 ;;^UTILITY(U,$J,358.3,28940,0)
 ;;=99337^^116^1437^4
 ;;^UTILITY(U,$J,358.3,28940,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,28940,1,1,0)
 ;;=1^COMPREH HX OR EXAM;HIGH COMPLEX MDM
 ;;^UTILITY(U,$J,358.3,28940,1,2,0)
 ;;=2^99337
 ;;^UTILITY(U,$J,358.3,28941,0)
 ;;=99324^^116^1438^1