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

IBDEI2KC.m

Go to the documentation of this file.
IBDEI2KC ; ; 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,40915,1,4,0)
 ;;=4^W05.1XXD
 ;;^UTILITY(U,$J,358.3,40915,2)
 ;;=^5059554
 ;;^UTILITY(U,$J,358.3,40916,0)
 ;;=W05.2XXA^^152^2019^52
 ;;^UTILITY(U,$J,358.3,40916,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40916,1,3,0)
 ;;=3^Fall from Non-Moving Motorized Scooter,Init Encntr
 ;;^UTILITY(U,$J,358.3,40916,1,4,0)
 ;;=4^W05.2XXA
 ;;^UTILITY(U,$J,358.3,40916,2)
 ;;=^5059556
 ;;^UTILITY(U,$J,358.3,40917,0)
 ;;=W05.2XXD^^152^2019^53
 ;;^UTILITY(U,$J,358.3,40917,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40917,1,3,0)
 ;;=3^Fall from Non-Moving Motorized Scooter,Subs Encntr
 ;;^UTILITY(U,$J,358.3,40917,1,4,0)
 ;;=4^W05.2XXD
 ;;^UTILITY(U,$J,358.3,40917,2)
 ;;=^5059557
 ;;^UTILITY(U,$J,358.3,40918,0)
 ;;=W06.XXXA^^152^2019^34
 ;;^UTILITY(U,$J,358.3,40918,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40918,1,3,0)
 ;;=3^Fall from Bed,Init Encntr
 ;;^UTILITY(U,$J,358.3,40918,1,4,0)
 ;;=4^W06.XXXA
 ;;^UTILITY(U,$J,358.3,40918,2)
 ;;=^5059559
 ;;^UTILITY(U,$J,358.3,40919,0)
 ;;=W06.XXXD^^152^2019^35
 ;;^UTILITY(U,$J,358.3,40919,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40919,1,3,0)
 ;;=3^Fall from Bed,Subs Encntr
 ;;^UTILITY(U,$J,358.3,40919,1,4,0)
 ;;=4^W06.XXXD
 ;;^UTILITY(U,$J,358.3,40919,2)
 ;;=^5059560
 ;;^UTILITY(U,$J,358.3,40920,0)
 ;;=W07.XXXA^^152^2019^42
 ;;^UTILITY(U,$J,358.3,40920,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40920,1,3,0)
 ;;=3^Fall from Chair,Init Encntr
 ;;^UTILITY(U,$J,358.3,40920,1,4,0)
 ;;=4^W07.XXXA
 ;;^UTILITY(U,$J,358.3,40920,2)
 ;;=^5059562
 ;;^UTILITY(U,$J,358.3,40921,0)
 ;;=W07.XXXD^^152^2019^43
 ;;^UTILITY(U,$J,358.3,40921,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40921,1,3,0)
 ;;=3^Fall from Chair,Subs Encntr
 ;;^UTILITY(U,$J,358.3,40921,1,4,0)
 ;;=4^W07.XXXD
 ;;^UTILITY(U,$J,358.3,40921,2)
 ;;=^5059563
 ;;^UTILITY(U,$J,358.3,40922,0)
 ;;=W10.1XXA^^152^2019^86
 ;;^UTILITY(U,$J,358.3,40922,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40922,1,3,0)
 ;;=3^Fall on Sidewalk Curb,Init Encntr
 ;;^UTILITY(U,$J,358.3,40922,1,4,0)
 ;;=4^W10.1XXA
 ;;^UTILITY(U,$J,358.3,40922,2)
 ;;=^5059583
 ;;^UTILITY(U,$J,358.3,40923,0)
 ;;=W10.1XXD^^152^2019^87
 ;;^UTILITY(U,$J,358.3,40923,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40923,1,3,0)
 ;;=3^Fall on Sidewalk Curb,Subs Encntr
 ;;^UTILITY(U,$J,358.3,40923,1,4,0)
 ;;=4^W10.1XXD
 ;;^UTILITY(U,$J,358.3,40923,2)
 ;;=^5059584
 ;;^UTILITY(U,$J,358.3,40924,0)
 ;;=W11.XXXA^^152^2019^46
 ;;^UTILITY(U,$J,358.3,40924,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40924,1,3,0)
 ;;=3^Fall from Ladder,Init Encntr
 ;;^UTILITY(U,$J,358.3,40924,1,4,0)
 ;;=4^W11.XXXA
 ;;^UTILITY(U,$J,358.3,40924,2)
 ;;=^5059595
 ;;^UTILITY(U,$J,358.3,40925,0)
 ;;=W11.XXXD^^152^2019^47
 ;;^UTILITY(U,$J,358.3,40925,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40925,1,3,0)
 ;;=3^Fall from Ladder,Subs Encntr
 ;;^UTILITY(U,$J,358.3,40925,1,4,0)
 ;;=4^W11.XXXD
 ;;^UTILITY(U,$J,358.3,40925,2)
 ;;=^5059596
 ;;^UTILITY(U,$J,358.3,40926,0)
 ;;=W13.0XXA^^152^2019^72
 ;;^UTILITY(U,$J,358.3,40926,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40926,1,3,0)
 ;;=3^Fall from/through Balcony,Init Encntr
 ;;^UTILITY(U,$J,358.3,40926,1,4,0)
 ;;=4^W13.0XXA
 ;;^UTILITY(U,$J,358.3,40926,2)
 ;;=^5059601
 ;;^UTILITY(U,$J,358.3,40927,0)
 ;;=W13.0XXD^^152^2019^73
 ;;^UTILITY(U,$J,358.3,40927,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40927,1,3,0)
 ;;=3^Fall from/through Balcony,Subs Encntr