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

IBDEI0M0.m

Go to the documentation of this file.
IBDEI0M0 ; ; 01-FEB-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
 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,9899,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9899,1,3,0)
 ;;=3^Fall from Bed,Init Encntr
 ;;^UTILITY(U,$J,358.3,9899,1,4,0)
 ;;=4^W06.XXXA
 ;;^UTILITY(U,$J,358.3,9899,2)
 ;;=^5059559
 ;;^UTILITY(U,$J,358.3,9900,0)
 ;;=W06.XXXD^^39^420^35
 ;;^UTILITY(U,$J,358.3,9900,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9900,1,3,0)
 ;;=3^Fall from Bed,Subs Encntr
 ;;^UTILITY(U,$J,358.3,9900,1,4,0)
 ;;=4^W06.XXXD
 ;;^UTILITY(U,$J,358.3,9900,2)
 ;;=^5059560
 ;;^UTILITY(U,$J,358.3,9901,0)
 ;;=W07.XXXA^^39^420^42
 ;;^UTILITY(U,$J,358.3,9901,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9901,1,3,0)
 ;;=3^Fall from Chair,Init Encntr
 ;;^UTILITY(U,$J,358.3,9901,1,4,0)
 ;;=4^W07.XXXA
 ;;^UTILITY(U,$J,358.3,9901,2)
 ;;=^5059562
 ;;^UTILITY(U,$J,358.3,9902,0)
 ;;=W07.XXXD^^39^420^43
 ;;^UTILITY(U,$J,358.3,9902,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9902,1,3,0)
 ;;=3^Fall from Chair,Subs Encntr
 ;;^UTILITY(U,$J,358.3,9902,1,4,0)
 ;;=4^W07.XXXD
 ;;^UTILITY(U,$J,358.3,9902,2)
 ;;=^5059563
 ;;^UTILITY(U,$J,358.3,9903,0)
 ;;=W10.1XXA^^39^420^86
 ;;^UTILITY(U,$J,358.3,9903,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9903,1,3,0)
 ;;=3^Fall on Sidewalk Curb,Init Encntr
 ;;^UTILITY(U,$J,358.3,9903,1,4,0)
 ;;=4^W10.1XXA
 ;;^UTILITY(U,$J,358.3,9903,2)
 ;;=^5059583
 ;;^UTILITY(U,$J,358.3,9904,0)
 ;;=W10.1XXD^^39^420^87
 ;;^UTILITY(U,$J,358.3,9904,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9904,1,3,0)
 ;;=3^Fall on Sidewalk Curb,Subs Encntr
 ;;^UTILITY(U,$J,358.3,9904,1,4,0)
 ;;=4^W10.1XXD
 ;;^UTILITY(U,$J,358.3,9904,2)
 ;;=^5059584
 ;;^UTILITY(U,$J,358.3,9905,0)
 ;;=W11.XXXA^^39^420^46
 ;;^UTILITY(U,$J,358.3,9905,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9905,1,3,0)
 ;;=3^Fall from Ladder,Init Encntr
 ;;^UTILITY(U,$J,358.3,9905,1,4,0)
 ;;=4^W11.XXXA
 ;;^UTILITY(U,$J,358.3,9905,2)
 ;;=^5059595
 ;;^UTILITY(U,$J,358.3,9906,0)
 ;;=W11.XXXD^^39^420^47
 ;;^UTILITY(U,$J,358.3,9906,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9906,1,3,0)
 ;;=3^Fall from Ladder,Subs Encntr
 ;;^UTILITY(U,$J,358.3,9906,1,4,0)
 ;;=4^W11.XXXD
 ;;^UTILITY(U,$J,358.3,9906,2)
 ;;=^5059596
 ;;^UTILITY(U,$J,358.3,9907,0)
 ;;=W13.0XXA^^39^420^72
 ;;^UTILITY(U,$J,358.3,9907,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9907,1,3,0)
 ;;=3^Fall from/through Balcony,Init Encntr
 ;;^UTILITY(U,$J,358.3,9907,1,4,0)
 ;;=4^W13.0XXA
 ;;^UTILITY(U,$J,358.3,9907,2)
 ;;=^5059601
 ;;^UTILITY(U,$J,358.3,9908,0)
 ;;=W13.0XXD^^39^420^73
 ;;^UTILITY(U,$J,358.3,9908,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9908,1,3,0)
 ;;=3^Fall from/through Balcony,Subs Encntr
 ;;^UTILITY(U,$J,358.3,9908,1,4,0)
 ;;=4^W13.0XXD
 ;;^UTILITY(U,$J,358.3,9908,2)
 ;;=^5059602
 ;;^UTILITY(U,$J,358.3,9909,0)
 ;;=W13.1XXA^^39^420^36
 ;;^UTILITY(U,$J,358.3,9909,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9909,1,3,0)
 ;;=3^Fall from Bridge,Init Encntr
 ;;^UTILITY(U,$J,358.3,9909,1,4,0)
 ;;=4^W13.1XXA
 ;;^UTILITY(U,$J,358.3,9909,2)
 ;;=^5059604
 ;;^UTILITY(U,$J,358.3,9910,0)
 ;;=W13.1XXD^^39^420^37
 ;;^UTILITY(U,$J,358.3,9910,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9910,1,3,0)
 ;;=3^Fall from Bridge,Subs Encntr
 ;;^UTILITY(U,$J,358.3,9910,1,4,0)
 ;;=4^W13.1XXD
 ;;^UTILITY(U,$J,358.3,9910,2)
 ;;=^5059605
 ;;^UTILITY(U,$J,358.3,9911,0)
 ;;=W13.2XXA^^39^420^74
 ;;^UTILITY(U,$J,358.3,9911,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,9911,1,3,0)
 ;;=3^Fall from/through Roof,Init Encntr