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

IBDEI225.m

Go to the documentation of this file.
  1. IBDEI225 ; ; 04-FEB-2020
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
  1. 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
  1. Q Q
  1. ;;^UTILITY(U,$J,358.3,32843,1,4,0)
  1. ;;=4^H40.31X4
  1. ;;^UTILITY(U,$J,358.3,32843,2)
  1. ;;=^5005855
  1. ;;^UTILITY(U,$J,358.3,32844,0)
  1. ;;=H40.32X0^^128^1670^7
  1. ;;^UTILITY(U,$J,358.3,32844,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32844,1,3,0)
  1. ;;=3^Traumatic GLC,OS,Stage Unspec
  1. ;;^UTILITY(U,$J,358.3,32844,1,4,0)
  1. ;;=4^H40.32X0
  1. ;;^UTILITY(U,$J,358.3,32844,2)
  1. ;;=^5005856
  1. ;;^UTILITY(U,$J,358.3,32845,0)
  1. ;;=H40.32X1^^128^1670^8
  1. ;;^UTILITY(U,$J,358.3,32845,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32845,1,3,0)
  1. ;;=3^Traumatic GLC,OS,Mild Stage
  1. ;;^UTILITY(U,$J,358.3,32845,1,4,0)
  1. ;;=4^H40.32X1
  1. ;;^UTILITY(U,$J,358.3,32845,2)
  1. ;;=^5005857
  1. ;;^UTILITY(U,$J,358.3,32846,0)
  1. ;;=H40.32X2^^128^1670^9
  1. ;;^UTILITY(U,$J,358.3,32846,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32846,1,3,0)
  1. ;;=3^Traumatic GLC,OS,Moderate Stage
  1. ;;^UTILITY(U,$J,358.3,32846,1,4,0)
  1. ;;=4^H40.32X2
  1. ;;^UTILITY(U,$J,358.3,32846,2)
  1. ;;=^5005858
  1. ;;^UTILITY(U,$J,358.3,32847,0)
  1. ;;=H40.32X3^^128^1670^10
  1. ;;^UTILITY(U,$J,358.3,32847,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32847,1,3,0)
  1. ;;=3^Traumatic GLC,OS,Severe Stage
  1. ;;^UTILITY(U,$J,358.3,32847,1,4,0)
  1. ;;=4^H40.32X3
  1. ;;^UTILITY(U,$J,358.3,32847,2)
  1. ;;=^5133504
  1. ;;^UTILITY(U,$J,358.3,32848,0)
  1. ;;=H40.32X4^^128^1670^11
  1. ;;^UTILITY(U,$J,358.3,32848,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32848,1,3,0)
  1. ;;=3^Traumatic GLC,OS,Indeterminate Stage
  1. ;;^UTILITY(U,$J,358.3,32848,1,4,0)
  1. ;;=4^H40.32X4
  1. ;;^UTILITY(U,$J,358.3,32848,2)
  1. ;;=^5005859
  1. ;;^UTILITY(U,$J,358.3,32849,0)
  1. ;;=H35.3230^^128^1671^25
  1. ;;^UTILITY(U,$J,358.3,32849,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32849,1,3,0)
  1. ;;=3^Exud AMD,OU,Stage Unspec
  1. ;;^UTILITY(U,$J,358.3,32849,1,4,0)
  1. ;;=4^H35.3230
  1. ;;^UTILITY(U,$J,358.3,32849,2)
  1. ;;=^5138528
  1. ;;^UTILITY(U,$J,358.3,32850,0)
  1. ;;=H35.3231^^128^1671^26
  1. ;;^UTILITY(U,$J,358.3,32850,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32850,1,3,0)
  1. ;;=3^Exud AMD,OU w/ Activ Chrdl Neovas
  1. ;;^UTILITY(U,$J,358.3,32850,1,4,0)
  1. ;;=4^H35.3231
  1. ;;^UTILITY(U,$J,358.3,32850,2)
  1. ;;=^5138529
  1. ;;^UTILITY(U,$J,358.3,32851,0)
  1. ;;=H35.3232^^128^1671^27
  1. ;;^UTILITY(U,$J,358.3,32851,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32851,1,3,0)
  1. ;;=3^Exud AMD,OU w/ Inact Chrdl Neovas
  1. ;;^UTILITY(U,$J,358.3,32851,1,4,0)
  1. ;;=4^H35.3232
  1. ;;^UTILITY(U,$J,358.3,32851,2)
  1. ;;=^5138530
  1. ;;^UTILITY(U,$J,358.3,32852,0)
  1. ;;=H35.3233^^128^1671^28
  1. ;;^UTILITY(U,$J,358.3,32852,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32852,1,3,0)
  1. ;;=3^Exud AMD,OU w/ Inactive Scar
  1. ;;^UTILITY(U,$J,358.3,32852,1,4,0)
  1. ;;=4^H35.3233
  1. ;;^UTILITY(U,$J,358.3,32852,2)
  1. ;;=^5138531
  1. ;;^UTILITY(U,$J,358.3,32853,0)
  1. ;;=H35.3220^^128^1671^21
  1. ;;^UTILITY(U,$J,358.3,32853,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32853,1,3,0)
  1. ;;=3^Exud AMD,OS,Stage Unspec
  1. ;;^UTILITY(U,$J,358.3,32853,1,4,0)
  1. ;;=4^H35.3220
  1. ;;^UTILITY(U,$J,358.3,32853,2)
  1. ;;=^5138524
  1. ;;^UTILITY(U,$J,358.3,32854,0)
  1. ;;=H35.3221^^128^1671^22
  1. ;;^UTILITY(U,$J,358.3,32854,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32854,1,3,0)
  1. ;;=3^Exud AMD,OS w/ Actv Chrdl Neovas
  1. ;;^UTILITY(U,$J,358.3,32854,1,4,0)
  1. ;;=4^H35.3221
  1. ;;^UTILITY(U,$J,358.3,32854,2)
  1. ;;=^5138525
  1. ;;^UTILITY(U,$J,358.3,32855,0)
  1. ;;=H35.3222^^128^1671^23
  1. ;;^UTILITY(U,$J,358.3,32855,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32855,1,3,0)
  1. ;;=3^Exud AMD,OS w/ Inact Chrdl Neovas
  1. ;;^UTILITY(U,$J,358.3,32855,1,4,0)
  1. ;;=4^H35.3222