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

IBDEI0M8.m

Go to the documentation of this file.
  1. IBDEI0M8 ; ; 01-FEB-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
  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,9994,1,4,0)
  1. ;;=4^Y36.230D
  1. ;;^UTILITY(U,$J,358.3,9994,2)
  1. ;;=^5061626
  1. ;;^UTILITY(U,$J,358.3,9995,0)
  1. ;;=Y36.230S^^39^420^127
  1. ;;^UTILITY(U,$J,358.3,9995,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,9995,1,3,0)
  1. ;;=3^War Op Inv Explosion of IED,Milt Pers,Sequela
  1. ;;^UTILITY(U,$J,358.3,9995,1,4,0)
  1. ;;=4^Y36.230S
  1. ;;^UTILITY(U,$J,358.3,9995,2)
  1. ;;=^5061627
  1. ;;^UTILITY(U,$J,358.3,9996,0)
  1. ;;=Y36.7X0S^^39^420^139
  1. ;;^UTILITY(U,$J,358.3,9996,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,9996,1,3,0)
  1. ;;=3^War Op w/ Chem Weapons/Unconvtl Warfare,Milt,Sequela
  1. ;;^UTILITY(U,$J,358.3,9996,1,4,0)
  1. ;;=4^Y36.7X0S
  1. ;;^UTILITY(U,$J,358.3,9996,2)
  1. ;;=^5061783
  1. ;;^UTILITY(U,$J,358.3,9997,0)
  1. ;;=V47.6XXA^^39^420^14
  1. ;;^UTILITY(U,$J,358.3,9997,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,9997,1,3,0)
  1. ;;=3^Car Pasngr Injured in Collsn w/ Fixed Obj/Traffic,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,9997,1,4,0)
  1. ;;=4^V47.6XXA
  1. ;;^UTILITY(U,$J,358.3,9997,2)
  1. ;;=^5140366
  1. ;;^UTILITY(U,$J,358.3,9998,0)
  1. ;;=V47.9XXA^^39^420^13
  1. ;;^UTILITY(U,$J,358.3,9998,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,9998,1,3,0)
  1. ;;=3^Car Occpnt,Unspec,Injured in Collsn w/ Fixed Obj/Traffic,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,9998,1,4,0)
  1. ;;=4^V47.9XXA
  1. ;;^UTILITY(U,$J,358.3,9998,2)
  1. ;;=^5140369
  1. ;;^UTILITY(U,$J,358.3,9999,0)
  1. ;;=W26.2XXA^^39^420^15
  1. ;;^UTILITY(U,$J,358.3,9999,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,9999,1,3,0)
  1. ;;=3^Contact w/ Edge of Stiff Paper,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,9999,1,4,0)
  1. ;;=4^W26.2XXA
  1. ;;^UTILITY(U,$J,358.3,9999,2)
  1. ;;=^5140372
  1. ;;^UTILITY(U,$J,358.3,10000,0)
  1. ;;=W26.8XXA^^39^420^16
  1. ;;^UTILITY(U,$J,358.3,10000,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,10000,1,3,0)
  1. ;;=3^Contact w/ Other Sharp Object,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,10000,1,4,0)
  1. ;;=4^W26.8XXA
  1. ;;^UTILITY(U,$J,358.3,10000,2)
  1. ;;=^5140375
  1. ;;^UTILITY(U,$J,358.3,10001,0)
  1. ;;=W26.9XXA^^39^420^17
  1. ;;^UTILITY(U,$J,358.3,10001,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,10001,1,3,0)
  1. ;;=3^Contact w/ Unspec Sharp Object,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,10001,1,4,0)
  1. ;;=4^W26.9XXA
  1. ;;^UTILITY(U,$J,358.3,10001,2)
  1. ;;=^5140378
  1. ;;^UTILITY(U,$J,358.3,10002,0)
  1. ;;=X50.0XXA^^39^420^103
  1. ;;^UTILITY(U,$J,358.3,10002,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,10002,1,3,0)
  1. ;;=3^Overexertion from Strenuous Movement/Load,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,10002,1,4,0)
  1. ;;=4^X50.0XXA
  1. ;;^UTILITY(U,$J,358.3,10002,2)
  1. ;;=^5140381
  1. ;;^UTILITY(U,$J,358.3,10003,0)
  1. ;;=X50.1XXA^^39^420^105
  1. ;;^UTILITY(U,$J,358.3,10003,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,10003,1,3,0)
  1. ;;=3^Overextertion from Prlgd/Akwrd Postures,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,10003,1,4,0)
  1. ;;=4^X50.1XXA
  1. ;;^UTILITY(U,$J,358.3,10003,2)
  1. ;;=^5140384
  1. ;;^UTILITY(U,$J,358.3,10004,0)
  1. ;;=X50.3XXA^^39^420^102
  1. ;;^UTILITY(U,$J,358.3,10004,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,10004,1,3,0)
  1. ;;=3^Overexertion from Repetitive Movements,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,10004,1,4,0)
  1. ;;=4^X50.3XXA
  1. ;;^UTILITY(U,$J,358.3,10004,2)
  1. ;;=^5140387
  1. ;;^UTILITY(U,$J,358.3,10005,0)
  1. ;;=X50.9XXA^^39^420^104
  1. ;;^UTILITY(U,$J,358.3,10005,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,10005,1,3,0)
  1. ;;=3^Overexertion/Sten Mvmnts/Postures,Oth/Unspec,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,10005,1,4,0)
  1. ;;=4^X50.9XXA
  1. ;;^UTILITY(U,$J,358.3,10005,2)
  1. ;;=^5140390
  1. ;;^UTILITY(U,$J,358.3,10006,0)
  1. ;;=F02.81^^39^421^11