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

IBDEI32S.m

Go to the documentation of this file.
  1. IBDEI32S ; ; 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,49106,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49106,1,3,0)
  1. ;;=3^TB Skin Test,Nonspecific Reaction w/o Active Tuberculosis
  1. ;;^UTILITY(U,$J,358.3,49106,1,4,0)
  1. ;;=4^R76.11
  1. ;;^UTILITY(U,$J,358.3,49106,2)
  1. ;;=^5019570
  1. ;;^UTILITY(U,$J,358.3,49107,0)
  1. ;;=W10.9XXS^^185^2429^18
  1. ;;^UTILITY(U,$J,358.3,49107,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49107,1,3,0)
  1. ;;=3^Fall from Stairs/Steps,Sequela
  1. ;;^UTILITY(U,$J,358.3,49107,1,4,0)
  1. ;;=4^W10.9XXS
  1. ;;^UTILITY(U,$J,358.3,49107,2)
  1. ;;=^5059594
  1. ;;^UTILITY(U,$J,358.3,49108,0)
  1. ;;=W10.0XXS^^185^2429^9
  1. ;;^UTILITY(U,$J,358.3,49108,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49108,1,3,0)
  1. ;;=3^Fall from Escalator,Sequela
  1. ;;^UTILITY(U,$J,358.3,49108,1,4,0)
  1. ;;=4^W10.0XXS
  1. ;;^UTILITY(U,$J,358.3,49108,2)
  1. ;;=^5059582
  1. ;;^UTILITY(U,$J,358.3,49109,0)
  1. ;;=W10.2XXS^^185^2429^11
  1. ;;^UTILITY(U,$J,358.3,49109,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49109,1,3,0)
  1. ;;=3^Fall from Incline,Sequela
  1. ;;^UTILITY(U,$J,358.3,49109,1,4,0)
  1. ;;=4^W10.2XXS
  1. ;;^UTILITY(U,$J,358.3,49109,2)
  1. ;;=^5059588
  1. ;;^UTILITY(U,$J,358.3,49110,0)
  1. ;;=W10.1XXS^^185^2429^17
  1. ;;^UTILITY(U,$J,358.3,49110,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49110,1,3,0)
  1. ;;=3^Fall from Sidewalk/Curb,Sequela
  1. ;;^UTILITY(U,$J,358.3,49110,1,4,0)
  1. ;;=4^W10.1XXS
  1. ;;^UTILITY(U,$J,358.3,49110,2)
  1. ;;=^5059585
  1. ;;^UTILITY(U,$J,358.3,49111,0)
  1. ;;=W06.XXXS^^185^2429^7
  1. ;;^UTILITY(U,$J,358.3,49111,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49111,1,3,0)
  1. ;;=3^Fall from Bed,Sequela
  1. ;;^UTILITY(U,$J,358.3,49111,1,4,0)
  1. ;;=4^W06.XXXS
  1. ;;^UTILITY(U,$J,358.3,49111,2)
  1. ;;=^5059561
  1. ;;^UTILITY(U,$J,358.3,49112,0)
  1. ;;=W07.XXXS^^185^2429^8
  1. ;;^UTILITY(U,$J,358.3,49112,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49112,1,3,0)
  1. ;;=3^Fall from Chair,Sequela
  1. ;;^UTILITY(U,$J,358.3,49112,1,4,0)
  1. ;;=4^W07.XXXS
  1. ;;^UTILITY(U,$J,358.3,49112,2)
  1. ;;=^5059564
  1. ;;^UTILITY(U,$J,358.3,49113,0)
  1. ;;=W05.2XXS^^185^2429^13
  1. ;;^UTILITY(U,$J,358.3,49113,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49113,1,3,0)
  1. ;;=3^Fall from Non-Moving Motorized Scooter,Sequela
  1. ;;^UTILITY(U,$J,358.3,49113,1,4,0)
  1. ;;=4^W05.2XXS
  1. ;;^UTILITY(U,$J,358.3,49113,2)
  1. ;;=^5059558
  1. ;;^UTILITY(U,$J,358.3,49114,0)
  1. ;;=W05.1XXS^^185^2429^14
  1. ;;^UTILITY(U,$J,358.3,49114,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49114,1,3,0)
  1. ;;=3^Fall from Non-Moving Nonmotorized Scooter,Sequela
  1. ;;^UTILITY(U,$J,358.3,49114,1,4,0)
  1. ;;=4^W05.1XXS
  1. ;;^UTILITY(U,$J,358.3,49114,2)
  1. ;;=^5059555
  1. ;;^UTILITY(U,$J,358.3,49115,0)
  1. ;;=W05.0XXS^^185^2429^15
  1. ;;^UTILITY(U,$J,358.3,49115,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49115,1,3,0)
  1. ;;=3^Fall from Non-Moving Wheelchair,Sequela
  1. ;;^UTILITY(U,$J,358.3,49115,1,4,0)
  1. ;;=4^W05.0XXS
  1. ;;^UTILITY(U,$J,358.3,49115,2)
  1. ;;=^5059552
  1. ;;^UTILITY(U,$J,358.3,49116,0)
  1. ;;=W18.12XS^^185^2429^19
  1. ;;^UTILITY(U,$J,358.3,49116,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49116,1,3,0)
  1. ;;=3^Fall from Toilet w/ Strike Against Object,Sequela
  1. ;;^UTILITY(U,$J,358.3,49116,1,4,0)
  1. ;;=4^W18.12XS
  1. ;;^UTILITY(U,$J,358.3,49116,2)
  1. ;;=^5059805
  1. ;;^UTILITY(U,$J,358.3,49117,0)
  1. ;;=W18.11XS^^185^2429^20
  1. ;;^UTILITY(U,$J,358.3,49117,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49117,1,3,0)
  1. ;;=3^Fall from Toilet,Sequela
  1. ;;^UTILITY(U,$J,358.3,49117,1,4,0)
  1. ;;=4^W18.11XS
  1. ;;^UTILITY(U,$J,358.3,49117,2)
  1. ;;=^5059803
  1. ;;^UTILITY(U,$J,358.3,49118,0)
  1. ;;=W08.XXXS^^185^2429^10